SET PROCEDURE TO GKKDeclareAPI ADDITIVE

IF tnModifiers = 2 AND tnKeyCode = CM_KEYCODE_SPACE
    SELECT GKKKEYWORDS
    LOCATE FOR UPPER(GKKKEYWORDS.Name) = UPPER(this.GetEnteredText())
    IF FOUND()
        LOCAL lnNdx, loMbrList, loMbrList_
        LOCAL ARRAY laMbrList[1, 2]
        WITH this
        *-*   Reset the member list
            FOR lnNdx=0 TO .Globals.MemberLists.Count-1
                IF .Globals.MemberLists(lnNdx).Name = "Temp"
                    .Globals.MemberLists.Remove("Temp")
                    EXIT
                ENDIF
            ENDFOR
        ENDWITH
        loMbrList = CREATEOBJECT("CodeMax.MemberList.4")
        WITH loMbrList
            .Name = "Temp"
            .CaseSensitive = False
            .Language = this.Language
        ENDWITH
        loMbrList.Add(UPPER(ALLTRIM(GKKKEYWORDS.Name)), 0)
        loMbrList.Register()
        loMbrList_ = this.MemberList
        this.MemberList = loMbrList
    
        this.executeCmd(cmCmdCompleteWord)
        this.MemberList = loMbrList_
    ENDIF
ENDIF

IF ".prg" $ LOWER(c_search.filename)
    .CodeMax1.ExecuteCmd(cmCmdGotoLine, c_search.lineno-1)
ELSE
    .CodeMax1.FindText = ALLTRIM(c_search.codeline)
    .CodeMax1.ExecuteCmd(cmCmdFindNext)
ENDIF