I'm trying to test if CALLBACKs work with IUP and BBC4W. I get the following error message when trying to run the code.
No such variable
If I replace the PRINT with PRINT "Got Here". this is the message that is displayed.
Got Here
Not in a function
INSTALL @lib$+"CALLBACK"
INSTALL @lib$+"IUP"
DEF FNButton_Click(^iup%, mbutton%, mpressed%)
PRINT "Mouse Button: " + STR$(mbutton%)
= -2
PROCIupOpen
win% = FNIupDialog
but% = FNIupButton("Click Me")
PROCIupAppend(win%, but%)
PROCIupSetCallback(but%, "BUTTON_CB", FN_callback(FNButton_Click(), 3))
PROCIupShow
PROCIupMainLoop
PROCIupClose
END
REM BBC4W IUP Library
REM By John Spikowski - 1/16/2014
DEF PROCIupOpen
LOCAL gpa$, ll%
gpa$ = "GetProcAddress"
SYS "LoadLibrary", @lib$+"iup.dll" TO ll%
SYS gpa$, ll%, "IupOpen" TO IupOpen%
SYS gpa$, ll%, "IupDialog" TO IupDialog%
SYS gpa$, ll%, "IupLabel" TO IupLabel%
SYS gpa$, ll%, "IupButton" TO IupButton%
SYS gpa$, ll%, "IupAppend" TO IupAppend%
SYS gpa$, ll%, "IupShow" TO IupShow%
SYS gpa$, ll%, "IupMainLoop" TO IupMainLoop%
SYS gpa$, ll%, "IupClose" TO IupClose%
SYS gpa$, ll%, "IupSetAttributes" TO IupSetAttributes%
SYS qpa$, ll%, "IupSetCallback" TO IupSetCallback%
SYS IupOpen%, 0, 0
ENDPROC
DEF PROCIupClose
SYS IupClose%
ENDPROC
DEF PROCIupShow
SYS IupShow%
ENDPROC
DEF PROCIupMainLoop
SYS IupMainLoop%
ENDPROC
DEF PROCIupAppend(target%, src%)
SYS IupAppend%, target%, src%
ENDPROC
DEF FNIupDialog
LOCAL dlg%
SYS IupDialog% TO dlg%
= dlg%
DEF FNIupLabel(title$)
LOCAL lbl%
SYS IupLabel%, title$ TO lbl%
= lbl%
DEF FNIupButton(title$)
LOCAL btn%
SYS IupButton%, title$ TO btn%
= btn%
DEF PROCIupSetAttributes(iup%, attribstr$)
SYS IupSetAttributes%, iup%, attribstr$
ENDPROC
DEF PROCIupSetCallback(iup%, cbname$, cbfuncaddr%)
SYS IupSetCallback%, iup%, cbname$, cbfuncaddr%
ENDPROC