[futurebasic] porting program

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : February 2008 : Group Archive : Group : All Groups

From: "Bob Bryce" <rrbryce@...>
Date: Sat, 02 Feb 2008 16:08:22 +0000
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