Thanks, I see the problem now. However, I am stumped at what should go there local fn DoDialog '~'1 dim as long evnt, ref evnt = dialog(0) ref = dialog(1) select evnt case _btnClick select case <-- something should go there /*case _beepBtn : beep case _helpBtn : beep : button _helpBtn, _grayBtn*/ case _quit gFBQuit = _true end case _opengame beep dim filename$ //filename$ = files$(_fOpen,"ACPDcmAC", refNumVar%) case _applemenu: FN BuildHIAboutBox end select end select end fn On 7/3/09 5:47 AM, "andy@..." <andy@...> wrote: > Your second select does not have a variable. If that is the case you need > a full condition on each case statement. > > I hope this helps > > Andy > > >> I have tracked it down to this >> local fn DoDialog >> '~'1 >> dim as long evnt, ref >> evnt = dialog(0) >> ref = dialog(1) >> select evnt >> case _btnClick >> select >> /*case _beepBtn : beep >> case _helpBtn : beep : button _helpBtn, _grayBtn*/ >> case _quit >> gFBQuit = _true >> end >> case _opengame >> beep >> dim filename$ >> //filename$ = files$(_fOpen,"ACPDcmAC", refNumVar%) >> >> case _applemenu: FN BuildHIAboutBox >> end select >> end select >> end fn >> >> There is something wrong with the DoDialog >> I believe. But I still can¹t put my finger on it >> >> Brian >> >> >> On 7/3/09 5:00 AM, "Brian Heibert" <heibert@...> wrote: >> >>> My open push button quits the application as well as my quit push button >>> quits >>> the app >>> >>> local fn DoDialog >>> '~'1 >>> dim as long evnt, ref >>> evnt = dialog(0) >>> ref = dialog(1) >>> select evnt >>> case _btnClick >>> select >>> /*case _beepBtn : beep >>> case _helpBtn : beep : button _helpBtn, _grayBtn*/ >>> case _quit >>> gFBQuit = _true >>> end >>> case _applemenu: FN BuildHIAboutBox >>> case _opengame >>> beep >>> dim filename$ >>> //filename$ = files$(_fOpen,"ACPDcmAC", refNumVar%) >>> end select >>> end select >>> end fn >>> >>> _opengame = 115 >>> _quit = 116 >>> >>> I want the open button to at least beep for now and not quit >>> Later I will add open code >>> And I do want the quit button to quit >>> Here is what I got in the attributes >>> >>> >>> >>> -- >>> To unsubscribe, send ANY message to: futurebasic-unsubscribe@associate >>> .com >>> >>> >>> >> >> >> -- >> To unsubscribe, send ANY message to: futurebasic-unsubscribe@associate >> .com >> >> > > -- > To unsubscribe, send ANY message to: futurebasic-unsubscribe@... >