TweetFollow Us on Twitter

Hierarchical
Volume Number:3
Issue Number:8
Column Tag:Macintosh II

Hierarchical Menus

By Steven Sheets, Hoffman Estates, IL

MenuFun: Macintosh // Menu Manager

Like most of the toolbox managers, the Menu Manager of the Macintosh // has undergone several enhancements and improvements. The Apple Menu is automatically multicolored (like the Apple logo) on any color monitor, while every portion of the menu bar and menus can be displayed in any RGB color by the program. Menus can now include Hierarchical Menus. These Hierarchical menus (sometimes called Cascading Menus or Submenus, or Nested menus ) can have menus within menus within menus, up to 5 levels of depth. This article will show you how to include Hierarchical and Color Menus in your own program.

The Menu Manager programmers have implemented the new features in a exceptionally intelligent way. Of course the new Menu Manager is backwardly compatible so that all the old programs will run their menus correctly, however the new features can be added to a program that will run on either the old or new Manager. Color can added without any new Tool Box calls (though there are a few new ones for Mac // only programs). By adding certain resources, which the new Menu Manager looks for and uses, the Menus will be displayed in color. Of course these resources are ignored by the old Menu Manager. Thus Color Menus will be automatically used when the program is running on a Mac //, and will not be used when it runs on the Mac Plus or SE. The use of Hierarchical Menus are even more universal. Not only do they function on the Mac //, but Hierarchical Menus have been implement into the latest System/Finder (ie. they run on the Mac Plus and/or SE). Programs using Hierarchical menus can be written without having to worry about what machine the program will run on.

Documenting Programs

The new system file does have an impact on documenting programs however. The capture menu script used to restore the ability to capture pulled down menus with cmd-shift-3 only partially works with the new system. The figures in this article were captured using it, but only after cleaning them up. The little arrow character is not correctly displayed when the menu capture resource is installed, and in fact, the menu manager pretty much gets clobbered so don’t try to use it except on a floppy system dedicated to that purpose. Another interesting change is that cmd-shift-3, which captures the screen in a paint document, only works in black and white 2-bit mode. If you try to capture a color display, it beeps!

[This is a good place for the Editor to begin his editorial Apple bashing about how none of Apple’s programs (paint, draw, write, project and terminal) have ever been upgraded for new system features. The ‘ole Do as I say, not as I do syndrome. Since Apple has announced upgrades of these products, it will be interesting next month to see if they work any differently. In any case, the very useful menu capture facility, removed with the 128K ROMS, is nearly dead and buried now, and that is a shame, since it was very useful for this article, even if it didn’t really work correctly. For anyone wondering what to write about or develop, a new screen capture function that handles both nested menus and color would be very nice. -Ed]

Fig. 1 Hierarchal Menus

RGB Color

First a quick review of Macintosh // RGB color is needed. Unlike the old Quickdraw color where only 8 colors are available, the new Macintosh // Quickdraw allows 16,777,216 colors. The new Color Quickdraw does this by using the new record type RGBColor to define exactly what color is being used (to draw, erase, fill, etc.). The format of RGBColor is:

TYPE
 RGBColor = RECORD
 red  : INTEGER;
 green  : INTEGER;
 blue : INTEGER;
 END;

The three unsigned 16-Bit integer values in the RGBColor record defines the intensity values for the 3 additive primary colors (Red, Green, Blue). Since values of each primary colors are in the range 0 to 65535, hex notation is usually easier to work with. For example the values ($FFFF,$0,$0) gives a solid red RGB color. White is ($FFFF,$FFFF,$FFFF), Black is ($0,$0,$0), medium Gray is ($7FFF,$7FFF,$7FFF) and Yellow is ($FFFF,$FFFF,$0).

Remember that the display device (monitor, printer, etc.) that is being used defines what actual color is displayed. When some drawing is done in a specific RGB color, the output device tries to match the closest specific color it has to draw with. Most devices (like the Apple Video Card/Monitor) can display any of the range of 16,777,216 colors, but can only display so many at a given time. For example the Apple Video Card/Monitor, can either display 16 or 256 colors depending on how much memory is on the card. So subtle differences in colors can sometimes be lost on monitors, especially if many colors are being displayed at the same time.

Color Menus

As stated, all parts of the menu bar and menus can be displayed in any RGB color. These parts include each Menu (Title and Background color) and each Menu Item (Title, Mark, Command Key and Background color). The information for what color to draw each menu part is not stored in the MenuHandle nor the MenuList, but in a new data structure, the Menu Color Information Table (or MCIT). The MCIT is created by the InitMenu call of the Mac // Menu Manager, and is modified by subsequential Menu Manager calls. The MCIT contains 1 or more Menu Color Entries. There are different types of entries, but they all have the following format:

TYPE
 MCInfoRec = RECORD
 MenuID : INTEGER;
 MenuItem : INTEGER;
 RGB1 : RGBColor;
 RGB2 : RGBColor;
 RGB3 : RGBColor;
 RGB4 : RGBColor;
 Filler : INTEGER;
 END;

The MCIT will always contain a special “End-of-table” entry (MenuID = -99). The MCIT can also include 3 other types of entries; the Menu Bar Entry, the Menu Title Entry and the Menu Item Entry. In all three entries, filler is a reserved integer used by the Menu Manager (should not be used by the program).

In a Menu Bar Entry, MenuID and MenuItem equals 0. It contains the 4 RGB Colors that are used to draw the default Menu Title color, default Menu Background color (background of the pull down menu), default Menu Item color and default Menu Bar color (RGB1-RGB4, in that order). There should be at most only 1 Menu Bar Entry, though there does not have to be one. If there is not a Menu Bar Entry, the default colors are Black on White (normal monochrome menu).

In a Menu Title Entry, MenuID is not equal to 0 and MenuItem is equal to 0. The MenuID number will match the ID number of the Menu it is describing. RGB1 is the Title Color; RGB2 is the Menu Bar Color; RGB3 is the default Menu Item color; RGB4 is the default Menu Background color. There should be at most only 1 Menu Title Entry per each Menu displayed in the MenuList, though there does not have to be one. If there is no Menu Title Entry to match a Menu, the Menu uses the colors defined in the Menu Bar Entry.

In a Menu Item Entry, MenuID and MenuItem do not equal 0. The MenuID and MenuItem defines a specific Menu Item (with the Menu ID of MenuID and the Menu Item number of MenuItem). RGB1 is the Mark color of that Menu, RGB2 is the Name color (ie. text), RGB3 is the Command Key color and RGB4 is the Background color. There should be at most only 1 Menu Item Entry per each Menu Item displayed in the MenuList, though there does not have to be one. If there is no Menu Item Entry for a specific Menu Item, the Menu Title Entry is used.

Thus the Menu Bar Entry defines the global default colors. These default colors can be overridden for a specific menu by a Menu Title Entry. The Menu Title Entry defines the default colors for a single Menu, unless overridden by the Menu Item Entry. The Menu Item Entry defines the colors for a single Menu Item.

There are a few ways to alter the MCIT. The Mac // Menu Manager has modified two of the older calls so that they work with the MCIT. When InitMenu is called, InitMenu checks for a resource of type “mctb” and ID number 0. Resource of this type contain 1 or more Menu Color Entries. InitMenu loads the entries the resource contains into the MCIT (assuming the resource exists). That specific resource (type “mctb” and ID number 0) is usually in the System file of the Macintosh // and usually contains the Menu Bar Entry. For most Mac // System files, this resource contains the color information for a Black on White menu. By altering this resource in the System file, the colors of the menu can be changed for all programs. A modified version of the resource can be added to any application so that the colors change for that application only (because resources inside an application override the resource of the same type and ID number that reside in the System file).

The other older Menu Manager call that works with the MCIT is the GetMenu call. When GetMenu load a certain “MENU” resource, it also looks for the resource of type “mctb” with the same ID number. GetMenu then loads the Entries, contained in the resource, into the MCIT. Usually the resource holds the Menu Title Entry and Menu Item Entries for that specific Menu.

The “mctb” resources is a variable size resource with the following format:

TYPE
 MenuCInfo = RECORD
 NumEntries :  INTEGER;
 Entry  : ARRAY[1.. NumEntries] OF MCInfoRec;
 END;
 MenuCInfoPtr  = ^ MenuCInfo;
 MenuCInfoHdl  = ^ MenuCInfoPtr;

There are also 6 new Mac // Menu Manager calls that work with or alter the MCIT. They can get, set and dispose of the MCIT, and can get, set and delete individual entries in the MCIT. However this is not the best way to alter the MCIT for most cases. By using these older calls, the program can still display Menus in color, without having to write Macintosh // specific code.

The sample program shows how to create resources inside a program that display color menus. However, instead of using RMaker, ResEdit could be used to make these resources. Color could even be added to preexisting programs without having any effect on the functionality of that program. The following is the ResEdit Template to be used when modifying “mctb” resources. To add a template to ResEdit, create a resource of type “TMPL” and name “mctb”. The template contains the following information:

Label Type Comments

# of Entries OCNT

***** LSTC

Menu ID DWRD

Menu ID DWRD

Red1 HWRD could be DWRD also

Green1 HWRD

Blue1 HWRD

Red2 HWRD

Green2 HWRD

Blue2 HWRD

Red3 HWRD

Green3 HWRD

Blue3 HWRD

Red4 HWRD

Green4 HWRD

Blue4 HWRD

Filler DWRD leave empty

***** LSTE

Hierarchical Menus

Hierarchical Menus are created the same way as any other menus; either by using GetMenu or using NewMenu. You can use any of the normal Menu Manager (AddResMenu, SetItem, CheckItem, etc.) calls to create or modify the Menu. As such, any SubMenu can have all the variations (different Styles, Keyboard Equivalents, Disable, Icons, Marks, Scrolling) available on a normal menu.

Fig. 2 Menus nested three deep!

A Menu becomes a Hierarchical Menu when it is inserted into the Menu List with the InsertMenu call. Normally InsertMenu contains the MenuHandle and a integer value that explains where in the list to insert that specific Menu. If that value is zero, the menu is added to the end of the Menu List. With the new Menu Manager, if that value was set to -1, the Menu becomes a Hierarchical Menu. It will become part of the MenuList, but it will be placed in a “Hierarchical” portion of the list. It will not be displayed in the Menu bar. Hierarchical Menu will only be displayed when the menu item it attached is highlighted.

Menu Items become attached to another Hierarchical Menu by having 2 values in their data structure. First the Keyboard Equivalent byte must be set to $1B. Next the Menu ID of the Hierarchical Menu must be placed in the Character Mark byte. This can be done directly in the program with the AppendMenu and/or SetItemMark calls, or the values can be placed in the MENU resources of the program. The example program does it this way. Note that the fact that the Character Mark byte must hold the Menu ID of the Hierarchical Menu. This limit all Hierarchical Menus to the ID numbers 0 to 255.

When a Menu is selected that contains a Menu Item that is attached to a Hierarchical Menu, first the “Father” Menu is displayed. If the specific Menu Item is highlighted, the Hierarchical Menu is displayed. If some item in the Hierarchical Menu is finally chosen, it’s Menu ID and Item ID are returned in MenuSelect (or MenuKey). The fact that the “Father” Menu was initially selected is completely invisible to the program. If the “Father” Menu contains nothing but SubMenus, it might not even be checked for in the Menu Case statement of the program. The example program contains such a Menu.

Final Comments

The example program demonstrates a simple use of Color Menus and Hierarchical Menus. It creates a window and displays a text message. The user can control the message contents, font, size, style, justification and color (Foreground and Background colors using the Old Quickdraw color commands).

The program places the Color, Font, Size, Style and Justification menus into the Display Menu, and places the Foreground and Background menus into the Color Menu. Thus, one Hierarchical Menu controls all of the standard Text editing menus that are appearing in more and more programs. This will provide more space on the Menu Bar; space that is needed as features are added to programs.

The “mctb” resources color the Menu Titles Green, the Desk Accessory’s Menu Items Red, the Color Menu Items the various colors and the rest of the Menu Items Blue. Besides showing the colors the text can be displayed in, the other color menus form the Menus Items into logical groups for quick recognition.

Some last hints about using Color Menus and Hierarchical Menus, overuse of these new features will confuse a user, not enhance the program. Do not use colors combinations that are hard to read (ie. Red on Blue background). Group types of menu items into the same color; do not give menu items arbitrary colors. Do not go down too many layers of depth with Hierarchical Menu, or a user will lose track of where he is. Be restrained!

The is one other change to the Menu Manager on the Mac // that is worth mentioning. How and where a menu bar is drawn is no longer in ROM. Now the ROM calls a Menu Bar Defproc to place the Menu Bar. The same way the Menu Defproc handles the menu (drawing, highlighting, calculation size), the Menu Bar Defproc handle the Menu Bar. Menu Bar Defproc are stored in resources as type “mbdf” and the default Menu Bar Defproc has ID number 0. There is a new Menu Manager call, named InitProcMenu, that allows switching of a Menu Bar Defproc. Perhaps a Menu Bar that displays icons or pictures, or a defproc that draws the Menu Bar along the bottom or right side of the screen will be seen in a future article.

Fig. 3 MenuFun selects color


{MenuFun by Steve Sheets 6/3/87  }

{Simple Demonstration of Mac // Menu Manager.}

PROGRAM LMC;

{Various Constants:Menu ID Numbers  }
 CONST
 AppleMenuID = 40;
 FileMenuID = 41;
 EditMenuID = 42;
 DisplayMenuID = 43;
 ColorMenuID = 44;
 FontMenuID = 45;
 SizeMenuID = 46;
 StyleMenuID = 47;
 JustMenuID = 48;
 FColorMenuID = 49;
 BColorMenuID = 50;

{Var:Menus, Window, Text, Rectangle, Done Flag,}
{Colors, Font, Size and Justification Settings.}
 VAR
 AppleMenu, FileMenu, EditMenu, DisplayMenu, ColorMenu,        
 FontMenu, SizeMenu, StyleMenu, JustMenu, FColorMenu, 
 BColorMenu : MenuHandle;
 MyWindow : windowptr;
 Done : boolean;
 MyStr : str255;
 MyRect : Rect;
 MyFColor, MyBColor, MyFont, MySize, MyJust : integer;
 MyBold, MyItalic, MyUnderline, MyOutline, MyShadow,           
 MyCondense, MyExtend : boolean;
 MyStyle : Style;

{Redraws the window, by creating an update event.}
 PROCEDURE ReDraw;
 VAR
 tempPort : Grafptr;
 BEGIN
 GetPort(tempPort);
 SetPort(MyWindow);
 InvalRect(MyRect);
 SetPort(tempPort);
 END;

{Given the style settings, checks the various Style Menus and createsthe 
correct Style variable.}
 PROCEDURE CheckStyle;
 BEGIN
 MyStyle := [];
 IF MyBold THEN
 BEGIN
 SetItemMark(StyleMenu, 1, CHAR(diamondMark));
 MyStyle := MyStyle + [Bold];
 END
 ELSE
 SetItemMark(StyleMenu, 1, CHAR(noMark));
 IF MyItalic THEN
 BEGIN
 SetItemMark(StyleMenu, 2, CHAR(diamondMark));
 MyStyle := MyStyle + [Italic];
 END
 ELSE
 SetItemMark(StyleMenu, 2, CHAR(noMark));
 IF MyUnderLine THEN
 BEGIN
 SetItemMark(StyleMenu, 3, CHAR(diamondMark));
 MyStyle := MyStyle + [Underline];
 END
 ELSE
 SetItemMark(StyleMenu, 3, CHAR(noMark));
 IF MyOutline THEN
 BEGIN
 SetItemMark(StyleMenu, 4, CHAR(diamondMark));
 MyStyle := MyStyle + [Outline];
 END
 ELSE
 SetItemMark(StyleMenu, 4, CHAR(noMark));
 IF MyShadow THEN
 BEGIN
 SetItemMark(StyleMenu, 5, CHAR(diamondMark));
 MyStyle := MyStyle + [Shadow];
 END
 ELSE
 SetItemMark(StyleMenu, 5, CHAR(noMark));
 IF MyCondense THEN
 BEGIN
 SetItemMark(StyleMenu, 6, CHAR(diamondMark));
 MyStyle := MyStyle + [Condense];
 END
 ELSE
 SetItemMark(StyleMenu, 6, CHAR(noMark));
 IF MyExtend THEN
 BEGIN
 SetItemMark(StyleMenu, 7, CHAR(diamondMark));
 MyStyle := MyStyle + [Extend];
 END
 ELSE
 SetItemMark(StyleMenu, 7, CHAR(noMark));
 END;

{Given the color number (1-8), returns color constant.}
 FUNCTION GetColor (C : integer) : longint;
 BEGIN
 CASE C OF
 1 : 
 GetColor := BlackColor;
 2 : 
 GetColor := WhiteColor;
 3 : 
 GetColor := RedColor;
 4 : 
 GetColor := GreenColor;
 5 : 
 GetColor := BlueColor;
 6 : 
 GetColor := CyanColor;
 7 : 
 GetColor := MagentaColor;
 8 : 
 GetColor := YellowColor;
 END;
 END;

{Draws Text in Rectangle in correct Colors, Font,  Size, Style and Justification.}
 PROCEDURE DoDraw;
 VAR
 tempStr : str255;
 tempInteger : integer;
 BEGIN
 ForeColor(GetColor(MyFColor));
 BackColor(GetColor(MyBColor));
 GetItem(FontMenu, MyFont, tempStr);
 GetFNum(tempStr, tempInteger);
 TextFont(tempInteger);
 CASE MySize OF
 1 : 
 TextSize(9);
 2 : 
 TextSize(10);
 3 : 
 TextSize(12);
 4 : 
 TextSize(18);
 5 : 
 TextSize(24);
 6 : 
 TextSize(32);
 END;
 TextFace(MyStyle);
 TextBox(POINTER(ord4(@MyStr) + 1), LENGTH(MyStr), MyRect, MyJust - 2);
 END;

{Edit the Text.  }
 PROCEDURE DoEdit;
 VAR
 MyDialog : DialogPtr;
 N : integer;
 MyH : handle;
 MyR : rect;
 BEGIN
 MyDialog := GetNewDialog(130, NIL, POINTER(-1));
 GetDItem(MyDialog, 4, N, MyH, MyR);
 SetIText(MyH, MyStr);
 REPEAT
 ModalDialog(NIL, N);
 UNTIL (N = 1) OR (N = 2);
 IF N = 1 THEN
 BEGIN
 GetIText(MyH, MyStr);
 ReDraw;
 END;
 DisposDialog(MyDialog);
 END;

{Standard main menu procedure that handles menu selections.  Can show 
About Box, Edit the Text, change the Done Flag (so the program quits), 
handle edit commands (Cut,Copy,Paste,Clear), and change all the Colors, 
Font, Size, Style and Justification of the Text. }
 PROCEDURE MainMenu (tempResult : LONGINT);
 VAR
 tempInteger : integer;
 tempStr : str255;
 BEGIN
 tempInteger := LoWord(tempResult);
 CASE HiWord(tempResult) OF
 AppleMenuID : 
 IF tempInteger = 1 THEN
 tempInteger := Alert(128, NIL)
 ELSE
 BEGIN
 GetItem(appleMenu, tempInteger, tempStr);
 tempInteger := OpenDeskAcc(tempStr);
 END;
 FileMenuID : 
 IF tempInteger = 1 THEN
 DoEdit
 ELSE IF tempInteger = 3 THEN
 Done := (Alert(129, NIL) = 2);
 EditMenuID : 
 IF NOT SystemEdit(tempInteger - 1) THEN
 sysbeep(1);
 FColorMenuID : 
 IF (tempInteger <> 0) AND (tempInteger <> MyFColor) THEN
 BEGIN
 CheckItem(FColorMenu, MyFColor, false);
 MyFColor := tempInteger;
 CheckItem(FColorMenu, MyFColor, true);
 ReDraw;
 END;
 BColorMenuID : 
 IF (tempInteger <> 0) AND (tempInteger <> MyBColor) THEN
 BEGIN
 CheckItem(BColorMenu, MyBColor, false);
 MyBColor := tempInteger;
 CheckItem(BColorMenu, MyBColor, true);
 ReDraw;
 END;
 FontMenuID : 
 IF (tempInteger <> 0) AND (tempInteger <> MyFont) THEN
 BEGIN
 CheckItem(FontMenu, MyFont, false);
 MyFont := tempInteger;
 CheckItem(FontMenu, MyFont, true);
 ReDraw;
 END;
 SizeMenuID : 
 IF (tempInteger <> 0) AND (tempInteger <> MySize) THEN
 BEGIN
 CheckItem(SizeMenu, MySize, false);
 MySize := tempInteger;
 CheckItem(SizeMenu, MySize, true);
 ReDraw;
 END;
 StyleMenuID : 
 BEGIN
 CASE tempInteger OF
 1 : 
 MyBold := NOT MyBold;
 2 : 
 MyItalic := NOT MyItalic;
 3 : 
 MyUnderLine := NOT MyUnderLine;
 4 : 
 MyOutline := NOT MyOutline;
 5 : 
 MyShadow := NOT MyShadow;
 6 : 
 MyCondense := NOT MyCondense;
 7 : 
 MyExtend := NOT MyExtend;
 OTHERWISE
 END;
 CheckStyle;
 ReDraw;
 END;
 JustMenuID : 
 IF (tempInteger <> 0) AND (tempInteger <> MyJust) THEN
 BEGIN
 CheckItem(JustMenu, MyJust, false);
 MyJust := tempInteger;
 CheckItem(JustMenu, MyJust, true);
 ReDraw;
 END;
 OTHERWISE
 END;
 HiliteMenu(0);
 END;

{Setup for Menus, Window, Done flag, Text, Rectangle, Colors, Font, Size, 
Style and Justification of the Text.}
 PROCEDURE DoSetup;
 BEGIN
 AppleMenu := GetMenu(AppleMenuID);
 AddResMenu(AppleMenu, ‘DRVR’);

 FileMenu := GetMenu(FileMenuID);

 EditMenu := GetMenu(EditMenuID);

 DisplayMenu := GetMenu(DisplayMenuID);

 ColorMenu := GetMenu(ColorMenuID);

 FontMenu := GetMenu(FontMenuID);
 AddResMenu(FontMenu, ‘FONT’);
 MyFont := 1;
 CheckItem(FontMenu, MyFont, true);

 SizeMenu := GetMenu(SizeMenuID);
 MySize := 3;
 CheckItem(SizeMenu, MySize, true);

 StyleMenu := GetMenu(StyleMenuID);
 MyBold := false;
 MyItalic := false;
 MyUnderLine := false;
 MyOutline := false;
 MyShadow := false;
 MyCondense := false;
 MyExtend := false;
 CheckStyle;

 JustMenu := GetMenu(JustMenuID);
 MyJust := 3;
 CheckItem(JustMenu, MyJust, true);

 FColorMenu := GetMenu(FColorMenuID);
 MyFColor := 1;
 CheckItem(FColorMenu, MyFColor, true);

 BColorMenu := GetMenu(BColorMenuID);
 MyBColor := 2;
 CheckItem(BColorMenu, MyBColor, true);

 InsertMenu(AppleMenu, 0);
 InsertMenu(FileMenu, 0);
 InsertMenu(EditMenu, 0);
 InsertMenu(DisplayMenu, 0);
 InsertMenu(ColorMenu, -1);
 InsertMenu(FontMenu, -1);
 InsertMenu(SizeMenu, -1);
 InsertMenu(StyleMenu, -1);
 InsertMenu(JustMenu, -1);
 InsertMenu(FColorMenu, -1);
 InsertMenu(BColorMenu, -1);

 DrawMenuBar;
 MyWindow := GetNewWindow(128, NIL, POINTER(-1));
 MyRect := MyWindow^.portRect;
 GetIndString(MyStr, 128, 1);
 InitCursor;
 Done := false;
 END;

{Standard main program loop that handles all events (ie. mouse down, 
key downs & updates) until the Done flag is set.   }
 PROCEDURE MainLoop;
 VAR
 tempEvent : EventRecord;
 tempWindow : windowptr;
 tempCode : integer;
 tempPort : Grafptr;
 tempRect : rect;
 tempLong : longint;
BEGIN
REPEAT
 SystemTask;
 IF GetNextEvent(everyEvent, tempEvent) THEN
 BEGIN
 CASE tempEvent.what OF
 mouseDown : 
 BEGIN
 tempCode := FindWindow(tempEvent.where, tempWindow);
 CASE tempCode OF
 inDrag, inContent : 
 BEGIN
 IF tempWindow <> FrontWindow THEN
 SelectWindow(tempWindow)
 ELSE
 BEGIN
 IF MyWindow = tempWindow THEN
 BEGIN
 SetRect(tempRect, -25000, -25000, 25000, 25000);
 DragWindow(MyWindow, tempEvent.where, tempRect);
 END;
 END;
 END;
 inGrow : 
 BEGIN
 IF tempWindow <> FrontWindow THEN
 SelectWindow(tempWindow)
 ELSE
 BEGIN
 IF MyWindow = tempWindow THEN
 BEGIN
 SetRect(tempRect, -25000, -25000, 25000, 25000);
 tempLong := GrowWindow(MyWindow, tempEvent.where, tempRect);
 SizeWindow(MyWindow, LoWord(tempLong), HiWord(tempLong), false);
 MyRect := MyWindow^.portRect;
 ReDraw;
 END;
 END;
 END;
 inMenuBar : 
 MainMenu(MenuSelect(tempEvent.where));
 inSysWindow : 
 SystemClick(tempEvent, tempWindow);
 OTHERWISE
 END; { of tempCode case }
 END; { of mouseDown }
 keydown, autoKey : 
 IF BitAnd(tempEvent.modifiers, cmdKey) <> 0 THEN
 MainMenu(MenuKey(CHR(tempEvent.message MOD 256)));
 updateEvt : 
 IF MyWindow = WindowPtr(tempEvent.message) THEN
 BEGIN
 GetPort(tempPort);
 SetPort(MyWindow);
 BeginUpdate(MyWindow);
 DoDraw;
 EndUpdate(MyWindow);
 SetPort(tempPort);
 END;
 OTHERWISE
 END;
 END;
 UNTIL Done;
END;

{***PROGRAM*** }
BEGIN
 DoSetup;
 MainLoop;
END.

*  MenuFun.R
*    RMaker Source code for resources to be included in
*    the MenuFun application.  Includes about info.
* 
MenuFun Rsrc

* Main Window, Alerts, & Text Edit Dialog
Type WIND
  ,128
MenuFun
40 106 240 406
Visible NoGoAway
0
0

Type ALRT
  ,128
50 106 230 406
128
4444

  ,129
50 106 150 406
129
444

Type DLOG
  ,130

50 56 175 456
Visible NoGoAway
3
0
130

Type DITL
  ,128
4

button
140 120 159 180
OK

staticText
20 65 39 235
MenuFun by Steve Sheets

staticText
40 50 59 250
Sample Mac // Menu Program

staticText
60 30 119 270
This program uses the Mac // Menu Manager to create Hierarchical and 
Color Menus.

  ,129
3

button
60 180 80 240
Cancel

button
60 60 80 120
OK

staticText
20 37 40 263
Do you wish to quit this program?

  ,130
4

button
85 110 105 170
OK

button
85 230 105 290
Cancel

staticText
20 20 40 160
Text to be Diplayed:

editText
45 20 65 380


* Menu Resources
Type MENU
  ,40
\14
  About MenuFun...
  (-

  ,41
File
  Edit Text/E
  (-
  Quit/Q

  ,42
Edit
  Undo/Z
  (-
  Cut/X
  Copy/C
  Paste/V
  Clear

* Menu containing various Menu Items that are attached
*   to other SubMenus (ie. Hierarchical Menu).  Note
*   inserted hex values using the \ command.  Ex:
*   /\1B sets Keyboard Equivalent to $1B and !\2C sets
*   Character Mark to $2C or 44 (Color Menu ID number).
  ,43
Display
  Color/\1B!\2C
  Font/\1B!\2D
  Size/\1B!\2E
  Style/\1B!\2F
  Justification/\1B!\30

* SubMenus attached to Display Menu
  ,44
Color
  Foreground/\1B!\31
  Background/\1B!\32

  ,45
Font

  ,46
Font
  9
  10
  12
  18
  24
  32

  ,47
Style
  Bold<B/B
  Italic<I/I
  Underline<U/U
  Outline<O/O
  Shadow<S/S
  Condense
  Extended

  ,48
Justification
  Right/R
  Left/L
  Center

* SubMenus attached to Color SubMenu
  ,49
Foreground
  Black
  White
  Red
  Green
  Blue
  Cyan
  Magenta
  Yellow

  ,50
Background
  Black
  White
  Red
  Green
  Blue
  Cyan
  Magenta
  Yellow

* Starting Display Text
Type STR#
  ,128
1
Welcome to MenuFun

* Menu Color Resources
*   First comes the number of entries.  Each entry contatins 
*   the Menu ID number & the Menu Item number, followed by 
*   4 RGB values (three 16-bit integers in Hex) ending with
*   a single integer filler.
Type mctb = GNRL
* For MMenu Bar Entry (ID #0), Default Title & Title Back
* ground Color is Green on White, while Default Item (Command, 
* Mark & Name) and Item Background is Blue on White.
  ,0
* Number of entries
.I
1
.I
* Menu ID number & the Menu Item number, in this case 0 & 0
* Menu Bar Entry.
0 0
.H
* 4 RGB Colors each containing 3 integers (Green, White,
*   Blue, White) and the final placing holding integer.
0000 FFFF 0000 FFFF FFFF FFFF 0000 0000 FFFF FFFF FFFF FFFF 0000

* For Apple Menu (ID #40), 3 entries.  Title & Title Back
* ground Coloris Green on White, while Default Item (Command, 
* Mark & Name) and Item Background is Red on White.  Items 1 
* & 2 set Mark, Command and Name Color to Blue and Background 
* to White.
  ,40
.I
3
.I
40 0
.H
0000 FFFF 0000 FFFF FFFF FFFF FFFF 0000 0000 FFFF FFFF FFFF 0000
.I
40 1
.H
0000 0000 FFFF 0000 0000 FFFF 0000 0000 FFFF FFFF FFFF FFFF 0000
.I
40 2
.H
0000 0000 FFFF 0000 0000 FFFF 0000 0000 FFFF FFFF FFFF FFFF 0000

* For Foreground Menu (ID #49), 8 entries (1 per Menu Item).
*   1st and 2nd Items, Mark, Command and Name colors are 
* black, while Background color is White.  3rd through 8th 
* Items are the same as 1st Item, except that the Mark, 
* Command and Name colors are Red, Green, Blue, Cyan, Magenta 
* or Yellow (in that order).
  ,49
.I
8
.I
49 1
.H
0000 0000 0000 0000 0000 0000 0000 0000 0000 FFFF FFFF FFFF 0000
.I
49 2
.H
0000 0000 0000 0000 0000 0000 0000 0000 0000 FFFF FFFF FFFF 0000
.I
49 3
.H
FFFF 0000 0000 FFFF 0000 0000 FFFF 0000 0000 FFFF FFFF FFFF 0000
.I
49 4
.H
0000 FFFF 0000 0000 FFFF 0000 0000 FFFF 0000 FFFF FFFF FFFF 0000
.I
49 5
.H
0000 0000 FFFF 0000 0000 FFFF 0000 0000 FFFF FFFF FFFF FFFF 0000
.I
49 6
.H
0000 FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF FFFF FFFF FFFF 0000
.I
49 7
.H
FFFF 0000 FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF FFFF FFFF 0000
.I
49 8
.H
FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF FFFF 0000

* For Background Menu (ID #50), identical to Foreground Menu.
  ,50
.I
8
.I
50 1
.H
0000 0000 0000 0000 0000 0000 0000 0000 0000 FFFF FFFF FFFF 0000
.I
50 2
.H
0000 0000 0000 0000 0000 0000 0000 0000 0000 FFFF FFFF FFFF 0000
.I
50 3
.H
FFFF 0000 0000 FFFF 0000 0000 FFFF 0000 0000 FFFF FFFF FFFF 0000
.I
50 4
.H
0000 FFFF 0000 0000 FFFF 0000 0000 FFFF 0000 FFFF FFFF FFFF 0000
.I
50 5
.H
0000 0000 FFFF 0000 0000 FFFF 0000 0000 FFFF FFFF FFFF FFFF 0000
.I
50 6
.H
0000 FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF FFFF FFFF FFFF 0000
.I
50 7
.H
FFFF 0000 FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF FFFF FFFF 0000
.I
50 8
.H
FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF 0000 FFFF FFFF FFFF 0000
 
AAPL
$117.38
Apple Inc.
+0.91
MSFT
$47.69
Microsoft Corpora
-0.29
GOOG
$541.69
Google Inc.
+4.19

MacTech Search:
Community Search:

Software Updates via MacUpdate

Cobook 3.0.7 - Intelligent address book....
Cobook Contacts is an intuitive, engaging address book. Solve the problem of contact management with Cobook Contacts and its simple interface and powerful syncing and integration possibilities.... Read more
StatsBar 1.9 - Monitor system processes...
StatsBar gives you a comprehensive and detailed analysis of the following areas of your Mac: CPU usage Memory usage Disk usage Network and bandwidth usage Battery power and health (MacBooks only)... Read more
Cyberduck 4.6 - FTP and SFTP browser. (F...
Cyberduck is a robust FTP/FTP-TLS/SFTP browser for the Mac whose lack of visual clutter and cleverly intuitive features make it easy to use. Support for external editors and system technologies such... Read more
Maya 2015 - Professional 3D modeling and...
Maya is an award-winning software and powerful, integrated 3D modeling, animation, visual effects, and rendering solution. Because Maya is based on an open architecture, all your work can be scripted... Read more
Evernote 6.0.1 - Create searchable notes...
Evernote allows you to easily capture information in any environment using whatever device or platform you find most convenient, and makes this information accessible and searchable at anytime, from... Read more
calibre 2.11 - Complete e-library manage...
Calibre is a complete e-book library manager. Organize your collection, convert your books to multiple formats, and sync with all of your devices. Let Calibre be your multi-tasking digital... Read more
Herald 5.0.1 - Notification plugin for M...
Note: Versions 2.1.3 (for OS X 10.7), 3.0.6 (for OS X 10.8), and 4.0.8 (for OS X 10.9) are no longer supported by the developer. Herald is a notification plugin for Mail.app, Apple's Mac OS X email... Read more
Firetask 3.7 - Innovative task managemen...
Firetask uniquely combines the advantages of classical priority-and-due-date-based task management with GTD. Stay focused and on top of your commitments - Firetask's "Today" view shows all relevant... Read more
TechTool Pro 7.0.6 - Hard drive and syst...
TechTool Pro is now 7, and this is the most advanced version of the acclaimed Macintosh troubleshooting utility created in its 20-year history. Micromat has redeveloped TechTool Pro 7 to be fully 64... Read more
PhotoDesk 3.0.1 - Instagram client for p...
PhotoDesk lets you view, like, comment, and download Instagram pictures/videos! (NO Uploads! / Image Posting! Instagram forbids that! AND you *need* an *existing* Instagram account). But you can do... Read more

Latest Forum Discussions

See All

The Hunted Review
The Hunted Review By Jordan Minor on November 24th, 2014 Our Rating: :: A GROAN IN THE DARKUniversal App - Designed for iPhone and iPad The Hunted’s multiplayer thrills are overshadowed by bland visuals and average gameplay.   | Read more »
Need for Speed No Limits has Been Unveil...
Need for Speed No Limits has Been Unveiled for iOS Posted by Ellis Spice on November 24th, 2014 [ permalink ] EA and Firemonkeys have announced Need for Speed No Limits, the next mobile installment | Read more »
Space Expedition Review
Space Expedition Review By Jordan Minor on November 24th, 2014 Our Rating: :: ONE SMALL STEPUniversal App - Designed for iPhone and iPad The only thing boring about Space Expedition’s lonely journey is its title.   | Read more »
Ubisoft Gives Everyone Two New Ways to E...
Ubisoft Gives Everyone Two New Ways to Earn In-Game Stuff for Far Cry 4 Posted by Jessica Fisher on November 21st, 2014 [ permalink ] | Read more »
Golfinity – Tips, Tricks, Strategies, an...
Dig this: Would you like to know what we thought of being an infinite golfer? Check out our Golfinity review! Golfinity offers unlimited ways to test your skills at golf. Here are a few ways to make sure your score doesn’t get too high and your... | Read more »
Dark Hearts, The Sequel to Haunting Meli...
Dark Hearts, The Sequel to Haunting Melissa, is Available Now Posted by Jessica Fisher on November 21st, 2014 [ permalink ] Universal App - Designed for iPhone and iPad | Read more »
Meowza! Toyze Brings Talking Tom to Life...
Meowza! | Read more »
Square Enix Announces New Tactical RPG f...
Square Enix Announces New Tactical RPG for Mobile, Heavenstrike Rivals. Posted by Jessica Fisher on November 21st, 2014 [ permalink ] With their epic stories and gorgeous graphics, | Read more »
Quest for Revenge (Games)
Quest for Revenge 1.0.0 Device: iOS Universal Category: Games Price: $4.99, Version: 1.0.0 (iTunes) Description: The great Kingdom of the west has fallen. The gods ignore the prayers of the desperate. A dark warlord has extinguished... | Read more »
Threadz is a New Writing Adventure for Y...
Threadz is a New Writing Adventure for You and Your Friends Posted by Jessica Fisher on November 21st, 2014 [ permalink ] In the tradition of round-robin storytelling, | Read more »

Price Scanner via MacPrices.net

Jumptuit Launches One-Tap Windows 8.1 iTunes...
Jumptuit has launched Windows 8.1 support for One-Tap iTunes Sync. with which Windows 8.1 users can now easily sync their iTunes libraries with Microsoft OneDrive. Jumptuit provides easy access from... Read more
CEA Study Finds More People Recycling Electro...
A new study by the Consumer Electronics Association (CEA) finds that electronics recycling receives the continued and growing support of consumers. According to the CEA,s Recycling and Reuse Study,... Read more
15″ 2.2GHz Retina MacBook Pro on sale for $17...
 B&H Photo has the 2014 15″ 2.2GHz Retina MacBook Pro on sale today for $1749. Shipping is free, and B&H charges NY sales tax only. B&H will also include free copies of Parallels Desktop... Read more
27-inch 3.5GHz 5K iMac in stock today and on...
 B&H Photo has the new 27″ 3.5GHz 5K iMac in stock today and on sale for $2299 including free shipping plus NY sales tax only. Their price is $200 off MSRP, and it’s the lowest price available... Read more
21-inch 1.4GHz iMac on sale for $979, save $1...
B&H Photo has the new 21″ 1.4GHz iMac on sale for $979.99 including free shipping plus NY sales tax only. Their price is $120 off MSRP. B&H will also include free copies of Parallels Desktop... Read more
13-inch 1.4GHz/256GB MacBook Air on sale for...
B&H Photo has lowered their price on the 13″ 1.4GHz/256GB MacBook Air to $1059.99 including free shipping plus NY sales tax only. Their price is $140 off MSRP, and it’s the lowest price for this... Read more
Save up to $400 with Apple refurbished 2014 1...
The Apple Store has restocked Apple Certified Refurbished 2014 15″ Retina MacBook Pros for up to $400 off the cost of new models. An Apple one-year warranty is included with each model, and shipping... Read more
New 13-inch 1.4GHz MacBook Air on sale for $8...
 Adorama has the 2014 13″ 1.4GHz/128GB MacBook Air on sale for $899.99 including free shipping plus NY & NJ tax only. Their price is $100 off MSRP. B&H Photo has the 13″ 1.4GHz/128GB MacBook... Read more
Apple Expected to Reverse Nine-Month Tablet S...
Apple and Samsung combined accounted for 62 percent of the nearly 36 million branded tablets shipped in 3Q 2014, according to early vendor shipment share estimates from market intelligence firm ABI... Read more
Stratos: 30 Percent of US Smartphone Owners t...
Stratos, Inc., creator of the Bluetooth Connected Card Platform, has announced results from its 2014 Holiday Mobile Payments Survey. The consumer survey found that nearly one out of three (30 percent... Read more

Jobs Board

*Apple* Solutions Consultant (ASC) - Apple (...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
*Apple* Solutions Consultant (ASC)- Retail S...
**Job Summary** The ASC is an Apple employee who serves as an Apple brand ambassador and influencer in a Reseller's store. The ASC's role is to grow Apple Read more
Project Manager, *Apple* Financial Services...
**Job Summary** Apple Financial Services (AFS) offers consumers, businesses and educational institutions ways to finance Apple purchases. We work with national and Read more
*Apple* Store Leader Program - College Gradu...
Job Description: Job Summary As an Apple Store Leader Program agent, you can continue your education as you major in the art of leadership at the Apple Store. You'll Read more
*Apple* Retail - Multiple Positions (US) - A...
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
All contents are Copyright 1984-2011 by Xplain Corporation. All rights reserved. Theme designed by Icreon.