[futurebasic] Re: [FB] [FB^3] Apple Menu Problem Fixed - It worked

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : November 2000 : Group Archive : Group : All Groups

From: "Brian Heibert" <brianheibert@...>
Date: Wed, 29 Nov 2000 17:22:10 -0600
Thanks,

  that worked.

-Brian

----------
>From: Joe Lewis Wilkins <PepeToo@...>
>To: futurebasic@...
>Subject: Re: [FB] [FB^3]  Apple Menu Problem
>Date: Wed, Nov 29, 2000, 4:55 PM
>

> Hi Brian,
>
> Change _mAppleMenu = 255 to : _mAppleMenu = _appleMenu, which I think is 254,
> rather than 55
>
> Joe Wilkins
>
> Brian Heibert wrote:
>
>> In my program below, FN BuildAbout never shows, and I haven't been able to
>> figure out why.
>> Any ideas?
>>
>> Thanks,
>>
>> -Brian
>>
>> RESOURCES "blah,blah,blah"
>> _mAppleMenu = 255
>> _iAppleMenu = 1
>>
>> APPLE MENU "About myProgram..."
>> DEF FN BuildAbout
>>
>> LOCAL FN doMenus
>> menuID = MENU(_menuID)
>> itemID = MENU(_itemID)
>>
>> SELECT menuID
>>
>> 'blah,blah,blah
>>
>> CASE _mAppleMenu
>> SELECT itemID
>> CASE _iAppleMenu
>> FN BuildAbout
>> END SELECT
>> END SELECT
>>
>> MENU
>> END FN
>>
>> LOCAL FN BuildAbout
>> _windowClass100     = 100                'About window
>> _picFld1class100    = 101
>> WINDOW _windowClass100,"About",( 217, 223)-( 549, 455), 1027
>> PICTURE FIELD _picFld1class100,%4001,(   1,   1)-( 331, 231), 1,_cropPict
>> DIM gObjT,gObjL,gObjB,gObjR
>> DO
>> UNTIL MOUSE(_down)
>> WINDOW CLOSE #_windowClass100
>> END FN
>>
>> ON MENU FN doMenus
>> DO
>> HANDLEEVENTS
>> UNTIL 0
>>
>> --
>> To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>
>
>
> --
> To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>
>
>