[futurebasic] Re: [FB] Weird problem

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : July 2009 : Group Archive : Group : All Groups

From: Brian Heibert <bheibert@...>
Date: Fri, 03 Jul 2009 06:10:06 -0400
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@...
>