TweetFollow Us on Twitter

BASIC Menus
Volume Number:7
Issue Number:1
Column Tag:BASIC School

Related Info: Menu Manager

Menus in QuickBASIC

By Steven Leach, Santa Clara, CA

Using MENU Resources in Microsoft QuickBASIC

Now that Microsoft has released QuickBASIC for the Macintosh it has become possible to access the entire Macintosh ROM using the ToolBox call. This article describes the use of these ToolBox calls to utilize MENU resources. This use is not described at all in the QuickBASIC manual, nor in any of the example programs that are supplied with QuickBASIC. I have supplied actual tested code, that will allow you to see how each of the routines are used, and will describe the pitfalls that await the user of these calls.

Warning!! This type of programming is not for the faint of heart, make any mistakes, and the best you can expect is that nothing happens. The more likely result of not following the rules that I describe later is an instant bomb, and the need for a manual reset using the programmer’s switch. You may be asking yourself at this point why should I go to all this trouble when QuickBASIC gives me the MENU functions to perform these operations already? My answer is no reason at all unless you want to follow the Macintosh interface guidelines, put icons in your menus, or access the full power of the Macintosh menu system.

Resource Rules

Before I describe the routines and how to use them let me state the rules of using these calls, and how to avoid problems. I will also describe some of the resources that I will discuss.

The following rules apply only if you are going to use your routines in the interpreter mode of QuickBASIC

1) Never use a MENU resource that has the same ID number as one of the QuickBASIC MENU resources, or the same MenuID as QuickBASIC. This means that the resource ID’s of your MENU resources should not be in the range 256-262 , and the number of the MenuID should not be in the range of 1-7. This last number is the one that is returned in the function MENU(0). The first number is the unique ID that is seen when you open up the MENU resource inside ResEdit.

2) Never use a DLOG resource that has the same ID number as one of the DLOG resources used by QuickBASIC. That means that dialog boxes that you use in your program should not have a resource ID number in the range 128-145. The reason for this is that if you need to perform a search and your DLOG resource has the same ID number as the search DLOG, your dialog box will be shown not the one that QuickBASIC uses for searching. As you can imagine this can cause all sorts of problems, and funny situations.

3) Always initialize any and all variables that you use in any ToolBox call. Failure to do so will result in many spectacular bombs. Because of this, and other reasons I suggest that you always save your program before you tell the interpreter to start running the program. If this program is a minor revision and you can keep the changes in your head, then go for it. I always manage somehow.

The following rules apply whether you are using the interpreter or a compiled version of your program.

1)The MENU(0) function will always return one less than the ResEdit MenuID. For example, in my example program, my file menu has a ResEDit MenuID of 10, but the QuickBASIC MENU(0) function returns an ID of 9. This is because QuickBASIC, starts numbering the menus from zero. The MENU(1) function returns the proper code, so no problem here.

2)Do Not remove the open and close braces which I have placed around many of the variables that are referenced in the various ToolBox functions. Without the braces the information is not passed properly, and so you will get nothing but garbage in your menus.

3)If you place these toolbox calls in subroutines be sure to use braces around the same information when you call the subroutine.

4) If you use ICON’s in you MENU resources remember they must be numbered in the range 256-512, and you access them as 1,2,.... 255 not by their resource ID. This basically means the number you feed to the ToolBox routines is the icon resource ID - 255.

5) Be sure to transfer the resources over using ResEdit when you compile the application. QuickBasic doesn’t do this for you except for a few resources.

6) Note the subroutines which I have provided to convert from BASIC variable to Pascal variable types the Macintosh ROMs require. These routines are necessary to convert the 4 character resource string that is used in BASIC to the 4 byte variable that is used by the Macintosh ROM. The other routines convert the style string that is customarily used in the resource compilers into an integer that is compatible with the Macintosh ROM and vice versa. Also note the intermittent use of the BASIC SADD function in order to send the address of a string variable to the ROM routine, in some cases using the SADD function is deadly. I have experimented with all these routines on a Mac Plus, Mac SE and a Mac II to make sure they work properly. The lesson is change them at your own risk.

The Calls

Those are the “rules” to follow, if you follow them diligently all will be well, if you don’t; good luck. Now for a description of the Calls and what they can be used for. In each of the QuickBASIC calls you must specify the type of return if any by using a single or double letter code. As you can see from the listing only four of the functions associated with Menus return a value, in most cases a handle to a menu, in the other case an integer number corresponding to the number of items in the menu. I have used a “Q” following each function in order to disable the argument checking function that is built into QuickBASIC. If you wish you may use the specially converted ResEdit that is supplied with the QuickBASIC to create argument checking functions for each of these calls.

With each of the functions I have provided a Trap value that is used to call the particular ROM routine, an example template of the ToolBox call, and the argument checking template that can be inputted using the QuickBASIC converted ResEdit. At this point I would like to thank Stephen Chernicoff the author of Macintosh Revealed, which I used extensively, and of course the authors and editors of Inside Macintosh.

The example program I have included starts off by reading the MENU resources from it’s own resource fork, and then sets up a processing loop to perform the various functions when the user selects an item from the function menu. I don’t perform any cut,copy paste so I just trap this function and print out the choice you made. The Graph Menu and File Menus show some of the reasons you may decide that using resource MENU’s instead of application built ones are more fun and just as easy to use.

By using the function provided in the Function Menu you can change any of the current menus,load another resource menu that you have created in ResEdit, or create a new menu and add items to it. This simple program does not allow you to save your work, although you could change the File Menu to include a save function and then use the WriteRes or AddRes functions that are described in the QuickBASIC manual.

The general procedure that I have implemented in using these functions in any of my QuickBASIC programs is as follows:

1) Create a BASIC program with a minimal amount of code to act as a holding place for the resources.

2) Use ResEDit to create the necessary resources in that QuickBASIC file. Remembering to write down the Resource ID numbers and other ID’s. For example, in the dialog boxes I use to prompt the user for information to feed the ToolBox calls, I must specifically reference each element by number.

3) Save my work when ResEdit asks me to save the work I have done.

4) Use the ToolBox functions instead of the BASIC Menu functions to change the state and look of the menus. If you try to use the QuickBASIC Menu function, to change any of the menus you have brought in as resources you will only cause problems for yourself. It’s OK to use the MENU(0) and MENU(1) functions to determine which menus the user has selected.

REM Define function to get MenuID from MenuHandle that is in memory
    DEF FN GetMenuID(MenuHandle&) = PEEKW(PEEKL(MenuHandle&))

REM initialize QuickBASIC toolBox routines This is a must !!!!
ToolBox “I”

REM these are the Toolbox Trap values and examples of how to use the 
ToolBox calls
REM I have also included the Values for the MTBS resource template for 
error checking
REM In that case you can elect not to put in the Q i.e. use “P” not “PQ”

ReleaseResource% = &HA9A3 
REM ToolBox “PQ”,ReleaseResource%,(MenuHandle&)
DrawMenuBar% = &HA937
REM ToolBox “PQ”,DrawMenuBar%
NewMenu% = &HA931
REM ToolBox “LQ”,NewMenu%,(MenuID%),SADD(Pascal.MenuTitle$),MenuHandle&
GetMenu% = &HA9BF
REM ToolBox “LQ”,GetMenu%,(MenuRsrcID%),MenuHandle&
DisposeMenu% = &HA932
REM  ToolBox “PQ”,DisposeMenu%,(MenuHandle&)
InsertMenu% = &H935
REM ToolBox “PQ”,InsertMenu%, (MenuHandle&),(beforeID%)
ClearMenuBar% = &HA934
REM ToolBox “PQ”,ClearMenuBar%
AppendMenu% = &HA933
REM ToolBox “PQ”,AppendMenu%,(MenuHandle&),SADD(Pascal.defString$)
AddResMenu% = &HA94D
REM ToolBox “PQ”,AddResMenu%,(MenuHandle&),(ResType&)
InsertResMenu% = &HA951
REM ToolBox “PQ”,InsertResMenu%,(MenuHandle&),(ResType&),(afterItem%)
CountMItems%  = &HA950
REM ToolBox “WQ”,CountMItems%,(MenuHandle&),NMenuItems%
DeleteMenu% = &HA936
REM ToolBox “PQ”,DeleteMenu%,(MenuID%)
GetMHandle% = &HA949
REM ToolBox “LQ”,GetMHandle%,(MenuID%),MenuHandle&
SetItem% = &HA947
REM ToolBox “PQ”,SetItem%,(MenuHandle&),(theItem%),SADD(Pascal.itemString$)
GetItem% = &HA946
REM  ToolBox “PQ”,GetItem%,(MenuHandle&),(theItem%),itemString$
DisableItem% = &HA93A
REM ToolBox “PQ”,DisableItem%,(MenuHandle&),(theItem%)
EnableItem% = &HA939
REM ToolBox “PQ”,EnableItem%,(MenuHandle&),(theItem%)
SetItemStyle% = &HA942
REM ToolBox “PQ”,SetItemStyle%,(MenuHandle&),(theItem%),(theStyle%)
GetItemStyle% = &HA941
REM ToolBox “PQ”,GetItemStyle%,(MenuHandle&),(theItem%),theStyle%
CheckItem% = &HA945
REM ToolBox “PQ”,CheckItem%,(MenuHandle&),(theItem%),(Checked%) ( 0,1)
SetItemMark% = &HA944
REM ToolBox “PQ”,SetItemMark%,(MenuHandle&),(theItem%),(markChar%)
GetItemMark% = &HA943
REM ToolBox “PQ”,GetItemMark%,(MenuHandle&),(theItem%),markChar%
SetItemIcon% = &HA940
REM ToolBox “PQ”,SetItemIcon%,(MenuHandle&),(theItem%),(iconNum%)
GetItemIcon% = &HA93F
REM ToolBox “PQ”,GetItemIcon%,(MenuHandle&),(theItem%),iconNum%
SetMenuFlash% = &HA94A
REM ToolBox “PQ”,SetMenuFlash%,(flashCount%)
FlashMenuBar% = &HA94C
REM ToolBox “PQ”,FlashMenuBar%,(MenuID%)

True% = (1<2)
False% = (1>2)

REM Initialize some variables and arrays that are used to keep track 
of the Menus, and their states
res.ref% = 0
DIM MenuHandle&(10),ResMenu%(10),MenuID%(10)
ResType& = 0&
Dialog.Hnd& = 0&
tMenuHandle& = 0&
Num.of.Menu% = 5

res.ref% = SYSTEM(7)

REM Delete File and Edit Menu that QuickBASIC pout up when you are using 
the interpretor
REM Remove these lines if you complie the program with the No Default 
Menus Option.
ToolBox “PQ”,DeleteMenu%,(2)
ToolBox “PQ”,DeleteMenu%,(3)

REM Load in my resource Menus that included in this BASIC program
FOR indx% = 0 TO Num.of.Menu%-1
    MenuRsrcID% = 263+indx%
    ToolBox “LQ”,GetMenu%,(MenuRsrcID%),tMenuHandle&
    IF (tMenuHandle& > 0) THEN
        MenuHandle&(indx%+1) = tMenuHandle&
        ToolBox “PQ”,InsertMenu%, (MenuHandle&(indx%+1)),(0)
        ResMenu%(indx%+1) = True%
        MenuID%(indx%+1) = FN GetMenuID(MenuHandle&(indx%+1))
    ELSE
        PRINT  indx% “Has an invalid Menu handle “
        STOP
    END IF
NEXT

REM now that all the MENU resources are in memory Draw the Menu Bar to 
show them.
ToolBox “PQ”,DrawMenuBar%

REM This is the Main processing loop that checks for Menu activity
Quit% = False%
CLS
WHILE MOUSE(0) <> 0 : WEND

WHILE NOT Quit%
    Menu0 = MENU(0)+1
    menu1 = MENU(1)
    MENU
    IF (Menu0 >=10 ) THEN
        ON Menu0 - MenuID%(1)+1 GOSUB FileMenu,EditMenu,menu1,Menu2,Menu3
        PRINT Menu0,MENU(1)
    END IF
WEND

REM Dispose of all menu handles to free memory that was allocated by 
program and user
REM Note the use of two forms of memory deallocation
REM One to resource MENU’s and one for menus built from scratch.
FOR indx% = 1 TO Num.of.Menu%
    IF (ResMenu%(indx%)) THEN
        ToolBox “PQ”,ReleaseResource%,(MenuHandle&(indx%))
    ELSE
         ToolBox “PQ”,DisposeMenu%,(MenuHandle&(indx%))
     END IF
NEXT
ToolBox “PQ”,ClearMenuBar%
REM finally end the program
END

FileMenu:
Quit% = True%
RETURN

EditMenu:

Nothing:
RETURN

menu1: REM My Icon MENU
PRINT “You have Chosen Menu #”;Menu0; “ Item Number “;menu1
RETURN

Menu2: REM My Sample Menu and Menu to try the various dialog boxes that 

REM I use TO entry of information
Entry0$ = “Entry 0”
Entry1$ = “Entry 1”
Entry2$ = “Entry 3”
ON MENU(1) GOSUB singleEntry,DoubleEntry,TripleEntry
PRINT “You have Chosen Menu #”;Menu0; “ Item Number “;menu1
RETURN

Menu3: REM Function Menu
IF (MENU(1) <= 10) THEN
ON MENU(1) GOSUB GetMenu,NewMenu,AppendMenu,AddResMenu,InsertResMenu,DeleteMenu, 
GetMenuHandle,CountMItems,SetItem,GetItem,DisableItem,EnableItem
ELSE
ON MENU(1)-12 GOSUB SetItemStyle,GetItemStyle,CheckItem,SetItemMark,GetItemMark, 
SetItemIcon,GetItemIcon,FlashMenuBar
END IF
RETURN

GetMenu: REM Get a MENU resource that is sitting in this file
    IF Num.of.Menu% >= 10 THEN
        PRINT “ You have too many Menus already “
        RETURN
    END IF
    Entry0$ = “ID of MENU resource ?”
    GOSUB singleEntry
    IF (LEN(Entry0$) < 1 ) THEN RETURN
    MenuRsrcID% = VAL(Entry0$)
    tMenuHandle& = 0&
    ToolBox “LQ”,GetMenu%,MenuRsrcID%,tMenuHandle&
    IF (tMenuHandle& <> 0) THEN
        Num.of.Menu% = Num.of.Menu%+1
        MenuHandle&(Num.of.Menu%) = tMenuHandle&
        ResMenu%(Num.of.Menu%) = True%
        MenuID%(Num.of.Menu%) = 10
        ToolBox “PQ”,InsertMenu%, (MenuHandle&(Num.of.Menu%)),(0)
        ToolBox “PQ”,DrawMenuBar%
    ELSE
        PRINT “ Resource was not valid “
    END IF
RETURN

NewMenu: REM create a whole new menu and append it to the Menu bar
    Entry0$ = “Menu Title ?”
    Entry1$ = “Menu ID% ? “
    GOSUB DoubleEntry
    IF (LEN(Entry0$) < 1) THEN RETURN
    MenuID% = VAL(Entry1$)
    FOR indx% = 1 TO Num.of.Menu%
        IF(MenuID%(indx%) = MenuID%) THEN
            PRINT  “The Menu Id Conflicts with a Previous Menu”
            RETURN
        END IF
    NEXT
    Pascal.MenuTitle$ = “”
    B2PStr Entry0$,Pascal.MenuTitle$
    ToolBox “LQ”,NewMenu%,(MenuID%),SADD(Pascal.MenuTitle$),tMenuHandle&
    IF (tMenuHandle& <> 0) THEN
        Num.of.Menu% = Num.of.Menu% +1
        MenuHandle&(Num.of.Menu%) = tMenuHandle&
        ResMenu%(Num.of.Menu%) = False%
        MenuID%(Num.of.Menu%) = MenuID%
        ToolBox “PQ”,InsertMenu%, (tMenuHandle&),(0)
        ToolBox “PQ”,DrawMenuBar%
    ELSE
        PRINT “ The Menu Handle returned was not valid”
    END IF

RETURN

AppendMenu: REM Append a string to a currently defined menu wether visible 
or not
    Entry0$ = “Which Menu ?”
    Entry1$ = “String to Append ?”
    GOSUB DoubleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry0$)
    Pascal.defString$ = “”
    B2PStr Entry1$,Pascal.defString$
    ToolBox “PQ”,AppendMenu%,(MenuHandle&(MenuID%)),SADD(Pascal.defString$)
    ToolBox “PQ”,DrawMenuBar%
RETURN

AddResMenu: REM add a menu to the Menu bar that contains the names of 
the resources of the 
REM type specified by User, examples are FONT, DRVR, ICON etc.
    CLS
    IF (Num.of.Menu% >=10) THEN RETURN
    Entry0$ = “Which Resource to put in Menu “+STR$(Num.of.Menu%+1)
    Entry1$ = “Title of Menu ?”
    Entry2$ = “Menu ID (integer) ?”
    GOSUB TripleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    IF (LEN(Entry0$) < 1 OR LEN(Entry0$) > 4) THEN RETURN
    IF (LEN(Entry1$) < 1) THEN Entry1$ = “Empty”
    MenuID% = VAL(Entry2$)
    Num.of.Menu% = Num.of.Menu%+1
    CALL StringtoResType(Entry0$,ResType&)
    Pascal.MenuTitle$ = “”
    B2PStr Entry1$,Pascal.MenuTitle$
    
    tMenuHandle& = 0
    ToolBox “LQ”,NewMenu%,(MenuID%),SADD(Pascal.MenuTitle$),tMenuHandle&
    IF (tMenuHandle& <> 0) THEN
        MenuHandle&(Num.of.Menu%) = tMenuHandle&
        ResMenu%(Num.of.Menu%) = False%
        MenuID%(Num.of.Menu%) = MenuID%
        ToolBox “PQ”,AddResMenu%,(tMenuHandle&),(ResType&)
        ToolBox “PQ”,InsertMenu%, (tMenuHandle&),(0)
        ToolBox “PQ”,DrawMenuBar%
    ELSE
        PRINT “ The Menu Handle returned was not valid”
    END IF
    RETURN
    
InsertResMenu: REM Insert roesource Menu at a place in a currently defined 
menu
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item to Insert after ?”
    Entry2$ = “Which Resource ?”
    GOSUB TripleEntry
    IF(LEN(Entry0$) < 1) THEN RETURN
    MenuID% = VAL(Entry0$)
    afterItem% = VAL(Entry1$)
    ResType& = 0&
    CALL StringtoResType(Entry2$,ResType&)
    ToolBox “PQ”,InsertResMenu%,(MenuHandle&(MenuID%)), (ResType&),(afterItem%)
RETURN

DeleteMenu: REM Delete a currently shown Menu and deallocate the memory 
for it
    Entry0$ = “ID of Menu to Delete ?”
    GOSUB singleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% =VAL(Entry0$)
    WhichMenu% = 0
    FOR indx% = 1 TO Num.of.Menu%
        IF MenuID% = MenuID%(indx%) THEN WhichMenu% = indx%
    NEXT
    IF WhichMenu% = 0 THEN RETURN
    ToolBox “PQ”,DeleteMenu%,(MenuID%)
    IF (ResMenu%(WhichMenu%)) THEN
        ToolBox “PQ”,ReleaseResource%,(MenuHandle&(WhichMenu%))
    ELSE
         ToolBox “PQ”,DisposeMenu%,(MenuHandle&(WhichMenu%))
     END IF
        
    PRINT “ Menu “MenuID%” has been deleted”
    FOR indx% = WhichMenu% TO Num.of.Menu%-1
        MenuHandle&(indx%) =MenuHandle&(indx%+1)
    NEXT
    Num.of.Menu% = Num.of.Menu% -1
    ToolBox “PQ”,DrawMenuBar%
RETURN

GetMenuHandle: REM return the Handle for a currently shown menu
    Entry0$ = “Which Menu ?”
    GOSUB singleEntry
    IF (LEN(Entry0$) < 1) THEN RETURN
    tMenuHandle& = 0
    MenuPlace% = VAL(Entry0$)
    ToolBox “LQ”,GetMHandle%,(MenuID%(MenuPlace%)),tMenuHandle&
    PRINT “The Handle for Menu “MenuID% “ is “tMenuHandle&” the ID is 
“MenuID%(MenuPlace%)
RETURN

CountMItems: REM Count the number of items in a currently defined menu
    NMenuItems% = 0
    Entry0$ = “Count Items in Which Menu ?”
    GOSUB singleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry0$)
    ToolBox “WQ”,CountMItems%,(MenuHandle&(MenuID%)),NMenuItems%
    PRINT  “Number of Menu Items in “;MenuID%;” is “NMenuItems%
RETURN

SetItem: REM Set the Item string for a currently defined menu
REM you may use all of formating characters permissible in MENU resources
Entry0$ = “Which Menu ?”
Entry1$ = “Which Item ? “
Entry2$ = “String to change Item to”
GOSUB TripleEntry
IF LEN(Entry0$) <1 THEN RETURN
MenuID% = VAL(Entry0$)
theItem% = VAL(Entry1$)
Pascal.itemString$ = “”
B2PStr Entry2$,Pascal.itemString$
ToolBox “PQ”,SetItem%,(MenuHandle&(MenuID%)),(theItem%), SADD(Pascal.itemString$) 

RETURN

GetItem: REM Retrieve the item string for a currently defined MENU resource
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item ?”
    GOSUB DoubleEntry
    IF (LEN(Entry0$) < 1) THEN RETURN
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    itemString$ = “”
    ToolBox “PQ”,GetItem%,(MenuHandle&(MenuID%)),(theItem%),itemString$
    PRINT  “The Item “theItem%” in Menu “MenuID%” is “itemString$
    RETURN
    
DisableItem: REM Disable or Grey out an Item in a currently defined Menu
    Entry0$ = “Disable Which Item ?”
    Entry1$ = “Which Menu ?”
    GOSUB DoubleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry1$)
    theItem% = VAL(Entry0$)
    ToolBox “PQ”,DisableItem%,(MenuHandle&(MenuID%)),(theItem%)
    PRINT “ Item “theItem%” in Menu # “MenuID% “ was disabled”
    RETURN
    
EnableItem:REM Enable of make active an item in a currently defined menu
    Entry0$ = “Enable Which Item ?”
    Entry1$ = “Which Menu ?”
    GOSUB DoubleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry1$)
    theItem% = VAL(Entry0$)
    ToolBox “PQ”,EnableItem%,(MenuHandle&(MenuID%)),(theItem%)
    PRINT “ Item “theItem%” in Menu # “MenuID% “ was enabled”
    RETURN

SetItemStyle: REM Set the style of an item in a currently defined Menu
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item ?”
    Entry2$ = “The Style String ?”
    GOSUB TripleEntry
    IF(LEN(Entry0$) < 1 ) THEN RETURN
    theStyle% = 0
    CALL StringtoStyle(Entry2$,theStyle%)
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    ToolBox “PQ”,SetItemStyle%,(MenuHandle&(MenuID%)),(theItem%),(theStyle%)
RETURN

GetItemStyle: REM retrieve the stryle string for a particular item in 
a currently defined Menu
    Entry0$ = “Which Menu ? “
    Entry1$ = “Which Item ?”
    GOSUB DoubleEntry
    IF(LEN(Entry0$) < 1) THEN RETURN
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    theStyle% = 0
    ToolBox “PQ”,GetItemStyle%,(MenuHandle&(MenuID%)),(theItem%),theStyle%
    CALL StyletoString(StyleString$,theStyle%)
    PRINT “The Style of item “theItem%” in Menu “MenuID%” is “theStyle%”,”StyleString$
    RETURN
    
 CheckItem:REM Put a check by an item in a currently defined Menu
     Entry0$ = “Which Menu ?”
     Entry1$ = “Which Item ? “
     Entry2$ = “Check (1) or Uncheck(0) Item ?”
     GOSUB TripleEntry
     IF (LEN(Entry0$) < 1 ) THEN RETURN
     MenuID% = VAL(Entry0$)
     theItem% = VAL(Entry1$)
     Checked% = 256*ABS(VAL(Entry2$) = 1) ‘ acount for using 2 bytes 
instead on one
     ToolBox “PQ”,CheckItem%,(MenuHandle&(MenuID%)),(theItem%),(Checked%)
 RETURN
    
SetItemMark:REM mark a particular item ina currently defined menu
REM  with the character whose ASCII code is given by the user
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item ?”
    Entry2$ = “What is the mark ASCII code ?”
    GOSUB TripleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    markChar% = VAL(Entry2$) ‘ account for use of integer instead of 
single byte
    ToolBox “PQ”,SetItemMark%,(MenuHandle&(MenuID%)),(theItem%),(markChar%)
    REM markChar% = markChar%/256
    PRINT  “Item “theItem%” of Menu “MenuID%” was marked with “CHR$(markChar%)”,”markChar%
    RETURN
RETURN

GetItemMark:REM get the Marking character if any 
            REM FOR a particular item in a currently defined MENU
    markChar% = 0
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item ?”
    GOSUB DoubleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    ToolBox “PQ”,GetItemMark%,(MenuHandle&(MenuID%)),(theItem%),markChar%
    PRINT “The Mark Character for item “ theItem%” in Menu Number “MenuID%” 
is “markChar%”,”CHR$(markChar%)
    RETURN
    
SetItemIcon: REM Give a particular item in a currently defined Menu an 
ICON that
REM already exists in the resources of this program.
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item ?”
    Entry2$ = “Resource # of ICON”
    GOSUB TripleEntry
    IF LEN(Entry0$) <1 THEN RETURN
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    iconRsrcID% = VAL(Entry2$)
    iconNum% = ABS((iconRsrcID% -256)*(iconRsrcID% > 256))
     ToolBox “PQ”,SetItemIcon%,(MenuHandle&(MenuID%)),(theItem%),(iconNum%)
RETURN

GetItemIcon:REM Retrieve the ICON number of a particular item in a currently 
defined Menu
                    REM If there is no ICON it will return 0
    iconNum% = 0
    Entry0$ = “Which Menu ?”
    Entry1$ = “Which Item ? “
    GOSUB DoubleEntry
    MenuID% = VAL(Entry0$)
    theItem% = VAL(Entry1$)
    ToolBox “PQ”,GetItemIcon%,(MenuHandle&(MenuID%)),(theItem%),iconNum%
    iconRsrcID% = iconNum%+256
    PRINT  “The Icon Number assiciated with Item “theItem%” in Menu “MenuID%” 
is “iconNum%
    PRINT “The resource number of this icon is “iconRsrcID%
RETURN

FlashMenuBar: REM Flash a Particular Menu, or inver the entire Menu bar
REM if the MenuID is 0 then the entire Menu Bar is inverted
Entry0$ = “Enter Menu ID (integer)”
GOSUB singleEntry
IF LEN(Entry0$) <1 THEN RETURN
MenuID% = VAL(Entry0$)
ToolBox “PQ”,FlashMenuBar%,(MenuID%)
RETURN

REM Dialog Box to single additional parameter for calling func
singleEntry:
ButtonPushed% = 0
GETNEWDIALOG res.ref%,146,Dialog.Hnd&
SetDialogText Dialog.Hnd&,4,Entry0$

ModalDialog Dialog.Hnd&,ButtonPushed%

REM if Cancel Button is pushed then send back nothing
IF ButtonPushed% = 2 THEN
    DisposeDialog Dialog.Hnd&
    Entry0$ = “”
    RETURN
END IF

GetDialogText Dialog.Hnd&,3,Entry0$

DisposeDialog Dialog.Hnd&
RETURN

DoubleEntry:
ButtonPushed% = 0
GETNEWDIALOG res.ref%,147,Dialog.Hnd&
SetDialogText Dialog.Hnd&,3,Entry0$
SetDialogText Dialog.Hnd&,4,Entry1$

ModalDialog Dialog.Hnd&,ButtonPushed%

REM if Cancel Button is pushed then send back nothing
IF ButtonPushed% = 2 THEN
    DisposeDialog Dialog.Hnd&
    Entry0$ = “”
    Entry1$ = “”
    RETURN
END IF

GetDialogText Dialog.Hnd&,5,Entry0$
GetDialogText Dialog.Hnd&,6,Entry1$

DisposeDialog Dialog.Hnd&
RETURN

TripleEntry:
ButtonPushed% = 0
GETNEWDIALOG res.ref%,148,Dialog.Hnd&
SetDialogText Dialog.Hnd&,3,Entry0$
SetDialogText Dialog.Hnd&,4,Entry1$
SetDialogText Dialog.Hnd&,5,Entry2$

ModalDialog Dialog.Hnd&,ButtonPushed%

REM if Cancel Button is pushed then send back nothing
IF ButtonPushed% = 2 THEN
    DisposeDialog Dialog.Hnd&
    Entry0$ = “”
    Entry1$ = “”
    Entry2$ = “”
    RETURN
END IF

GetDialogText Dialog.Hnd&,6,Entry0$
GetDialogText Dialog.Hnd&,7,Entry1$
GetDialogText Dialog.Hnd&,8,Entry2$

DisposeDialog Dialog.Hnd&
RETURN

REM Function to translate a string containing the name of a resource 
into 
REM the 4 byte packed character array that is required by the ROM routines
SUB StringtoResType(bString$,ResType&) STATIC
    IF (LEN(bString$) < 4) THEN EXIT SUB
    ResType& = ASC(RIGHT$(bString$,1))
    ResType& = ResType& + &H100*ASC(MID$(bString$,3,1))
    ResType& = ResType&+&H10000&*ASC(MID$(bString$,2,1))
    ResType& = ResType&+&H1000000&*ASC(LEFT$(bString$,1))
END SUB

REM Subroutine to convert the Style integer into a string that is understandable 
to us humans
SUB StyletoString(StyleString$,theStyle%) STATIC
    IF (theStyle% = 0) THEN
        StyleString$ = “<P”
        EXIT SUB
    END IF
    
    StyleString$ = “”
    IF (theStyle% AND 1) THEN StyleString$ =”<B”
    IF (theStyle% AND 2) THEN StyleString$ = StyleString$+”<I”
    IF(theStyle% AND 4) THEN StyleString$ = StyleString$+”<U”
    IF (the Style% AND 8) THEN StyleString$ = StyleString$ +”<O”
    IF(theStyle% AND 16) THEN StyleString$ = StyleString$ +”<S”
    IF(theStyle% AND 32) THEN StyleString$ = StyleString$ +”<C”
    IF(theStyle% AND 64) THEN StyleString$ = StyleString$+”<E”
END SUB

REM Subroutine to conver the Style String we humans understand into a 
style byte that the ROIM routines want and use
SUB StringtoStyle(StyleString$,theStyle%) STATIC
    IF (LEN(StyleString$) < 2) THEN
        theStyle% = 0
        EXIT SUB
    END IF
    
    strlen = LEN(StyleString$)
    TmpString$ = LEFT$(StyleString$,2)
    WHILE strlen > 0
        TmpString$ = LEFT$(StyleString$,2)
        IF (TmpString$ = “<P”) THEN theStyle% = 0 : EXIT SUB
        IF (TmpString$ = “<B”) THEN theStyle% = theStyle% OR 1 ‘ Bold 
Type
        IF (TmpString$ = “<I”) THEN theStyle% = theStyle% OR 2 ‘Italic 
Type
        IF (TmpString$ = “<U”) THEN theStyle% = theStyle% OR 4 ‘ Underline 
type
        IF (TmpString$ = “<O”) THEN theStyle% = theStyle% OR 8 ‘Outline 
type
        IF (TmpString$ = “<S”) THEN theStyle% = theStyle% OR 16 ‘ Shadow 
Type
        IF (TmpString$ = “<C”) THEN theStyle% = theStyle% OR 32 ‘Condensed 
Type
        IF (TmpString$ = “<E”) THEN theSytle% = theStyle% OR 64 ‘Extended 
type
        StyleString$ = RIGHT$(StyleString$,LEN(StyleString$)-2)
        strlen = LEN(StyleString$)
    WEND
END SUB

 

Community Search:
MacTech Search:

Software Updates via MacUpdate

Civilization VI 1.0.1 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
Chromium 55.0.2883.75 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 55.0.2883.75: Security fixes: High CVE-2016... Read more
Google Chrome 55.0.2883.75 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more
VirtualBox 5.1.10 - x86 virtualization s...
VirtualBox is a family of powerful x86 virtualization products for enterprise as well as home use. Not only is VirtualBox an extremely feature rich, high performance product for enterprise customers... Read more
Pixa 1.1.9 - Quickly and easily organize...
Pixa is an image-organizing application. The new app functions well, is easy to use, and helps people organize their images quickly and easily on their computers. For those who prefer not to use the... Read more
VirtualBox 5.1.10 - x86 virtualization s...
VirtualBox is a family of powerful x86 virtualization products for enterprise as well as home use. Not only is VirtualBox an extremely feature rich, high performance product for enterprise customers... Read more
Pixa 1.1.9 - Quickly and easily organize...
Pixa is an image-organizing application. The new app functions well, is easy to use, and helps people organize their images quickly and easily on their computers. For those who prefer not to use the... Read more
Civilization VI 1.0.1 - Next iteration o...
Sid Meier’s Civilization VI is the next entry in the popular Civilization franchise. Originally created by legendary game designer Sid Meier, Civilization is a strategy game in which you attempt to... Read more
Google Chrome 55.0.2883.75 - Modern and...
Google Chrome is a Web browser by Google, created to be a modern platform for Web pages and applications. It utilizes very fast loading of Web pages and has a V8 engine, which is a custom built... Read more
Chromium 55.0.2883.75 - Fast and stable...
Chromium is an open-source browser project that aims to build a safer, faster, and more stable way for all Internet users to experience the web. Version 55.0.2883.75: Security fixes: High CVE-2016... Read more

Latest Forum Discussions

See All

Amateur Surgeon 4 Guide: Become the worl...
It's time to wield your trusty pizza cutter again, as Amateur Surgeon has returned with a whole fresh set of challenges (and some old, familiar ones, too). Starting anew isn't easy, especially when all you have at your disposal is a lighter, the... | Read more »
Le Parker: Sous Chef Extraordinaire (Ga...
Le Parker: Sous Chef Extraordinaire 1.0 Device: iOS Universal Category: Games Price: $2.99, Version: 1.0 (iTunes) Description: | Read more »
Telltale Games really is working on a Gu...
Telltale Games' next episodic adventure is indeed Guardians of the Galaxy. A document tied to the voice actors strike suggested that the project was in the work, but now we have direct confirmation following an announcement at the Game Awards that... | Read more »
Amateur Surgeon returns to iOS and Andro...
Amateur Surgeon and its two sequels disappeared from the App Store some time and it was sad days for all. But now, just in time for the holidays, the Adult Swim favorite makes its joyous return in the shape of Amateur Surgeon 4, a remake with... | Read more »
The best board games on mobile
Sometimes you need to ditch all of the high speed, high action games in favor of something a little more traditional. If you don't feel like parting ways from your mobile device, though, there are still plenty of ways to get that old-school fix.... | Read more »
The best Facebook Messenger Instant Game...
Facebook's new Instant Games is now here, meaning you can play games with your friends directly via Facebook. It's a fun new way to connect with friends, of course, but it's also proving to be a solid gaming experience in its own right, with a... | Read more »
You can now play game's on Facebook...
Facebook launched its new Instant Games platform in an exciting new attempt to engage its user base. As a result, you can now play a number of different games directly through Facebook Messenger. All of these games run with HTML5, meaning you play... | Read more »
Apollo Justice Ace Attorney (Games)
Apollo Justice Ace Attorney 1.00.00 Device: iOS Universal Category: Games Price: $.99, Version: 1.00.00 (iTunes) Description: Court Is Back In Session Star as rookie defense attorney, Apollo Justice, as he visits crime scenes,... | Read more »
KORG iWAVESTATION (Music)
KORG iWAVESTATION 1.0 Device: iOS Universal Category: Music Price: $19.99, Version: 1.0 (iTunes) Description: A revolutionary new world of sound.The Wave Sequence Synthesizer for iPad - KORG iWAVESTATION | Read more »
Don't Grind Guide: Tips for becomin...
Don’t Grind is a surprising, derpy little one touch game with fun hand-drawn graphics. The goal is simple -- get the high score without being chopped to bits. That can be tough when you’re not used to the game, and that’s compounded by the fact... | Read more »

Price Scanner via MacPrices.net

13-inch Silver Touch Bar MacBook Pro in stock...
Amazon has the new 2016 13″ 2.9GHz/256GB Silver Touch Bar MacBook Pro (MLVP2LL/A) in stock today and on sale for $1749 including free shipping. That’s $50 off MSRP, and it’s the lowest price... Read more
Parallels Toolbox 1.3 for Mac Offers 25 Singl...
Parallels has launched Parallels Toolbox 1.3 for Mac, an upgrade that adds five new utilities to the stand-alone application which was released in August and is available exclusively online at http... Read more
OWC Mercury Elite Pro Dual mini Ultra-Portabl...
OWC has introduced the new OWC Mercury Elite Pro Dual mini, a powerful yet ultra-portable dual-drive RAID solution. The new Mercury Elite Pro Dual mini packs phenomenal performance into a small... Read more
Clearance 13-inch Retina MacBook Pros availab...
B&H Photo has clearance 2015 13″ Retina Apple MacBook Pros available for up to $200 off original MSRP. Shipping is free, and B&H charges NY tax only: - 13″ 2.7GHz/128GB Retina MacBook Pro: $... Read more
Roundup of 2016 13-inch 2.0GHz MacBook Pro sa...
B&H has the non-Touch Bar 13″ MacBook Pros in stock today for $50-$100 off MSRP. Shipping is free, and B&H charges NY sales tax only: - 13″ 2.0GHz MacBook Pro Space Gray (MLL42LL/A): $1449 $... Read more
New 13-inch 2.0GHz Space Gray MacBook Pro in...
Adorama has the new 13″ 2.0GHz Space Gray MacBook Pro (non-Touch Bar, MLL42LL/A) in stock for $1499 including a free 3-year AppleCare Protection Plan. Shipping is free, and Adorama charges sales tax... Read more
Finnair Adopts iOS Enterprise iPad Apps from...
Finnair and IBM have announced a first-of-its-kind agreement to utilize iOS enterprise apps from IBM to support the airline’s overall digital transformation. Finnair is focused on Asia-Europe traffic... Read more
Tech21 Launches Evo Go iPhone 7 Case Availabl...
Tech21 has announced the launch of the Evo Go case for Apple iPhone 7 and iPhone 7 Plus, exclusively at T-Mobile. Available online and at participating T-Mobile stores nationwide, Evo Go cases start... Read more
Apple Turns (RED) with More Ways to Join the...
In recognition of World AIDS Day, Apple is offering more ways than ever for customers to join (RED) in its mission to create an AIDS-free generation. Apple is the worlds largest corporate contributor... Read more
Deals on new 15-inch Touch Bar MacBook Pros,...
B&H Photo has new 2016 Apple 15″ Touch Bar MacBook Pro models in stock today with some available for $50 off MSRP, each including free shipping plus NY sales tax only: - 15″ 2.7GHz Touch Bar... Read more

Jobs Board

*Apple* Brand Ambassador (Macy's) - The...
…(T-ROC), is proud of its unprecedented relationship with our partner and client, APPLE ,in bringing amazing" APPLE ADVOCATES"to "non" Apple store locations. Read more
US- *Apple* Store Leader Program - Apple (Un...
…Summary Learn and grow as you explore the art of leadership at the Apple Store. You'll master our retail business inside and out through training, hands-on Read more
*Apple* Retail - Multiple Positions- White P...
Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, you're also the Read more
Automotive Detailer - *Apple* Used Autos -...
We are currently conductinginterviews and will be accepting applications for a part-time detailer. Apple Used Autos is a great place to work andstart a career. We Read more
*Apple* Retail - Multiple Positions - Apple,...
Job Description: Sales Specialist - Retail Customer Service and Sales Transform Apple Store visitors into loyal Apple customers. When customers enter the store, Read more
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.