[futurebasic] Re: [FB] appearance window help

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : April 2002 : Group Archive : Group : All Groups

From: Douglas Stemen <dstemen@...>
Date: Fri, 19 Apr 2002 11:09:35 -0400

>On 4/18/02 3:48 PM, "Staz" <staz@...> wrote:
> 
> i'm going to avoid my interface speech, tho you know i am thinking it so
> hard that my head might explode...
> 
> 
> 
> '~'A
> '                       Runtime : Rntm Appearance.Incl
> '                           CPU : Carbon
> '                      Debugger : Off
> '~'B
> 
> appearance window 1
> edit field 1,"I am window #1. I can't be activated",(10,10)-(250,50)
> 
> appearance window 2 : rem keep this baby in back
> edit field 1,"I am window #2.",(10,10)-(250,50)
> 
> local fn doEvent
> dim @ theWindow   as ^CWindowRecord
> dim place,wNum
> 
> long if gFBTheEvent.what == _mbutdwnevt
> place = fn FindWindow( gFBEvtPt&, theWindow )
> long if theWindow != window(_wndPointer)
> wNum = fn FBGetWndNumber( theWindow )
> long if wNum = 1
> beep
> gFBTheEvent.what = 0
> end if
> end if
> end if
> 
> end fn
> 
> on event fn doEvent
> 
> do
> handleevents
> until 0
> 

Thanks for your help!!!!

Please don't let your head explode, the exceptionally massive brain mass you
have could cover the world and bring commerce to a halt!

Doug