[futurebasic] Re: Help Menu

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : December 1997 : Group Archive : Group : All Groups

From: Greg_Neagle@...
Date: Wed, 10 Dec 1997 23:30:00 -0800
On 12/10/97 at 10:27 AM, Phil Yates wrote:

> If I want to move my "help" menu from the Apple Menu to the MacOS 8.0 Help
> menu, below "show baloons", how do I go about it ?

Here's how I do it:

LOCAL FN insertHelpItem
  DIM helpItem$, myErr, mHndl&

  helpItem$ = "My Application help"
  LONG IF SYSTEM(_sysVers) > 699 'System 7 and above
    myErr = FN HMGETHELPMENUHANDLE(mHndl&)
    LONG IF myErr = _noErr
      LONG IF mHndl&
        CALL APPENDMENU(mHndl&,helpItem$)
      END IF
    END IF
  XELSE                                              'System 6 and below
    mHndl& = FN GETMHANDLE(_appleResMenu)
    LONG IF mHndl&
      CALL INSMENUITEM(mHndl&,helpItem$,1)
    END IF
  END IF
END FN


- BulkRate: the FirstClass offline reader for Macintosh