Hi Pierre,

See sample shown below, works in FB4 and FBtoC.

Hope it helps,

Deep








REM
REM Define Global Variables
REM
dim HelpMenuItem% as short

end globals


local fn MenuBuildFile
menu 1,0,_enable,"File"
Menu 1,1,_enable,"Quit/Q"
end fn


LOCAL FN MenuBuildHelp
dim @ HMenuRef  as MenuRef
dim @ HMenuItem as MenuItemIndex
dim osErr% as short
dim MenuSTRString$ as str255
LONG IF SYSTEM(_sysVers) > 699
osErr%=fn HMGetHelpMenu(HMenuRef,HMenuItem)
LONG IF osErr% = _noErr
long IF HMenuRef <> 0
HelpMenuItem%=HMenuItem
MenuSTRString$="This is item 1"
CALL APPENDMENU(HMenuRef,MenuSTRString$)
MenuSTRString$="This is item 2"
CALL APPENDMENU(HMenuRef,MenuSTRString$)
MenuSTRString$="This is item 3"
CALL APPENDMENU(HMenuRef,MenuSTRString$)
MenuSTRString$="This is item 4"
CALL APPENDMENU(HMenuRef,MenuSTRString$)
MenuSTRString$="This is item 5"
CALL APPENDMENU(HMenuRef,MenuSTRString$)
MenuSTRString$="This is item 6"
CALL APPENDMENU(HMenuRef,MenuSTRString$)
REM
end if
END IF
CALL DRAWMENUBAR
end if
END FN


LOCAL FN DoMenus
REM
REM Identify details of local Menu selected
REM
dim MenuID% as short
dim ItemID% as short
MenuID%=MENU(_MenuID)
ItemID%=MENU(_ItemID)
SELECT MenuID%

case 1'File Menu

select case ItemID%
case 1
end
end select

CASE _KHMHelpMenuID'Help Menu

select case ItemID%
case HelpMenuItem%+0
print "First Help Item Selected, not necessarily Help Menu Item 1 depending
on MacOS version"
case HelpMenuItem%+1
print "Second Help Item Selected, not necessarily Help Menu Item 2 depending
on MacOS version"
case HelpMenuItem%+2
print "Third Help Item Selected, not necessarily Help Menu Item 3 depending
on MacOS version"
case HelpMenuItem%+3
print "Fourth Help Item Selected, not necessarily Help Menu Item 4 depending
on MacOS version"
case HelpMenuItem%+4
print "Fifth Help Item Selected, not necessarily Help Menu Item 5 depending
on MacOS version"
case HelpMenuItem%+5
print "Sixth Help Item Selected, not necessarily Help Menu Item 6 depending
on MacOS version"
case Else
print "Unknown Item"
end select

END SELECT
menu
END FN


appearance window 1
FN MenuBuildFile
FN MenuBuildHelp

print "Select something from the Help menu..."

ON MENU FN DoMenus

DO
HANDLEEVENTS
UNTIL 0