Thanks Brian and Bernie (offlist)
DisableMenuItem ( HMenuRef, 0 ) & EnableMenuItem ( HMenuRef, 0 ) did
not work, but since my Help menu only has one item
DisableMenuItem ( HMenuRef, 1 ) & EnableMenuItem ( HMenuRef, 1 ) does
work - thanks again.

On Mon, Oct 27, 2008 at 11:25 AM, Brian Stevens <bstevens33@...> wrote:
>
> On Oct 27, 2008, at 8:44 AM, Pierre Zippi wrote:
>
>> My modal window problem was solved by using MENU X,0,0 / MENU X,0,1 to
>> toggle menu access while my option window is open.
>> This works with menus built with the FB MENU statement, but how do I
>> toggle the Help menu built with the code posted below?
>>
>> 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$="Lithology Column Help…"
>> CALL APPENDMENU(HMenuRef,MenuSTRString$)
>> end if
>> END IF
>> CALL DRAWMENUBAR
>> end if
>> END FN
>>
>> --
>> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>>
>
>
>
>
> DisableMenuItem ( HMenuRef, 0 )'disable entire menu when 2nd parm is zero
>
> EnableMenuItem ( HMenuRef, 0 )'enable entire menu when 2nd parm is zero
>
> Brian S.
>
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>
>