Dear friends,

I am now trying to make small program with help menu.

I could build help menu by using fn HMGetHelpMenu.

But I could not trap menu with the Appearance runtime.

Is there any suggestion to my demo code?

// ***********************************************************
" Demo code help menu Appearance " '<masa.nakao@...>

'~'A
'                       Runtime : Rntm Appearance.Incl
'                           CPU : Carbon
'                      Debugger : Off
'~'B

dim gHelpMenuID

end globals

CLEAR LOCAL
LOCAL FN AddHelpMenu(item AS STR255)
DIM @hmHandle AS HANDLE
DIM err AS OSErr
DIM numItems AS SHORT
dim @outFirstCustomItemIndex as short
tron break
#if carbonlib '02.5.18 Masa
err = fn HMGetHelpMenu(hmHandle, outFirstCustomItemIndex)
#else
err = FN HMGetHelpMenuHandle(hmHandle)
#endif

LONG IF err=0
CALL AppendMenu(hmHandle, item)
numItems = FN CountMItems(hmHandle)
END IF
END FN = numItems


LOCAL FN doMenus' new not working
DIM menuID,itemID,oldTimeStep#,Interval,chagedflag%,Top1, Left1
dim BURecoveryLogProjSw,windStringID%
dim debugOnlineModeSw
menuID = MENU(_menuID)
itemID = MENU(_itemID)
SELECT menuID
case 1
select itemID 
case 3
end
case else
tron  break
print "menuID =";menuID,"itemID = "; itemID

end select
CASE _khmhelpmenuid
Select itemID
case gHelpMenuID,gHelpMenuID +1
print "test help menu handling"
tron break
END SELECT
case _applemenu
select
case 1
print "about this program is selcted"
case else
end select
case else
tron  break
print "menuID =";menuID,"itemID = "; itemID

end select
menu
end fn

LOCAL FN setMenu
tron break
DIM openMenumsgQ$,work$
dim HelpMenuWork
TEXT _sysFont
MENU 1, 0,  _enable, "File"'menu title
MENU 1, 1,  _disable, "/NNew"
MENU 1, 2,  _enable, "/SSave"
MENU 1, 3,  _enable, "/QQuit"
MENU 1, 4,  _enable, "test something"

select SYSTEM(_sysVers)
case < 0800
APPLE MENU "About this program Pre OS8;Help/H;Set Up Help;Set Up Help2"
case < 1000
APPLE MENU "About  this program pre OS-X"
long if gHelpMenuID = 0
HelpMenuWork = FN AddHelpMenu("Help for this Application")'PropofolFMon
Help")
gHelpMenuID = HelpMenuWork
HelpMenuWork = FN AddHelpMenu("Set Up Help")
HelpMenuWork = FN AddHelpMenu("Set Up Help2")

end if
case else
APPLE MENU "About  this program OS-X"
long if gHelpMenuID = 0
HelpMenuWork = FN AddHelpMenu("Help for this Application")'PropofolFMon
Help")
gHelpMenuID = HelpMenuWork
HelpMenuWork = FN AddHelpMenu("Set Up Help")
HelpMenuWork = FN AddHelpMenu("Set Up Help2")
end if
end select

end fn

FN setMenu
ON MENU    FN doMenus

window 1,"debug window"
print "_khmhelpmenuid = ";_khmhelpmenuid
'-----------------
DO
HANDLEEVENTS
UNTIL 0
'-----------------

// **************************** End of code *******************************


-- 

Masa
masa.nakao@...