[futurebasic] Re: [FB] Help Menu

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : June 1999 : Group Archive : Group : All Groups

From: AlStaff@...
Date: Tue, 15 Jun 1999 07:24:36 EDT
>My other menus are in resedit so I set up the extra help menus by adding 
these
>couple of lines in a setup function, which adds the menu items as you
>suggested.
>
>  tmp$ = "Computer Manager Help"
>  FN attachBalloonHelp(tmp$)
>  tmp$ = "About Computer Manager"
>  FN attachBalloonHelp(tmp$)
>
>I have a doMenus fn below which I added the constant you said to access the
>help menu (which BEEPs when I select it but how do I get the ITEM selected if
>I have added 2 to the menu


Try this:

LOCAL FN doMenus
  menuID = MENU(_menuID)
  itemID = MENU(_itemID)
  SELECT menuID
        CASE _kHMHelpMenuId                           'system 7.0 Balloon Help
            LONG IF SYSTEM (_sysVers) > 699

' --- insert this code here
    osErr%=FN HMGETHELPMENUHANDLE(HelpMHndl&)
    LONG IF osErr% = _noErr
      CALL GETITEM(HelpMHndl&,itemID,tmp$)
      LONG IF tmp$ = "Computer Manager Help"
        FN cmhelp
      XELSE
        IF tmp$ = "About Computer Manager" THEN FN Rush
      END IF
    END IF
' --- end of inserted code

            END IF
        CASE 127                                                'apple menu
          LONG IF SYSTEM (_sysVers) < 700
             SELECT itemID
               CASE 1
                  'help
                  FN cmhelp
               CASE 2
                  'about Rush
                   FN Rush
             END SELECT
          END IF



Al Staffieri Jr.

AlStaff@...
http://members.aol.com/AlStaff/index.html