[futurebasic] [FB^3] Apple Menu Problem

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

From: "Brian Heibert" <brianheibert@...>
Date: Wed, 29 Nov 2000 15:33:47 -0600
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