Hi;
Thanks to your help on this group I have a number of windows up and running
in my program, can retrieve info from EDIT fields or cancel it out. The next
step
is just a jot of work to add more windows and functions to calculate the
results
of the EDIT fields.
However, I haven't got radio buttons and check boxes working yet for the
rest
of the WINDOW info. My attempt so far looks like this;
' in Include file
LOCAL MODE
LOCAL FN gMarkCheckBox% (id%)
BEEP:BEEP:BEEP
DIM as short id
DIM btnState% 'if checkbox checked then uncheck else
check
LONG IF BUTTON (id%) = _markedBtn 'if button is checked...
BUTTON id%, _activeBtn 'uncheck it.
XELSE
BUTTON id%, _markedBtn 'else check it.
END IF
btnState%=BUTTON(id%)
END FN
'DoDialog in MAIN
LOCAL FN doDialog (evnt, id) '(wndID)
evnt=DIALOG(0)
id%=DIALOG(evnt)
'LONG IF WINDOW(0)=_helpWndID
SELECT evnt ' FN DoHelp (_hDialogEvt, evnt,id)
'SELECT CASE
CASE _btnClick
SELECT (id%)
CASE _cancelBtn
FN doCancel
CASE _okButton
FN doOKButton
END SELECT
CASE _wndClick : WINDOW id
'FN doButton(_okButton,EFnum)
CASE _wndClose : WINDOW CLOSE id 'close box
CASE _wndZoomIn
CASE _wndZoomOut
CASE _efClear
CASE _radioBtn1, _radioBtn2, _radioBtn3
'FN resetRadioGroup (_radioBtn1, _radioBtn3, id%)
FN BtnStateID (id%)
'IF where = 55 THEN InfoBoxButtonState%=id%
CASE _check1, _check2, _check3, _check4, _check5, _check6
FN markCheckBox% (id%)'END SELECT
END SELECT
END FN
What do I need to do to get the FN markCheckBox% working??
Doesn't seem to be even called properly here. I haven't even begun
to figure out the resetRadioGroup.
This all worked in FB II on my PowerMac. I am porting to Intel MacBook.
Thanks,
Bob Bryce