Object Shell 2 (code)
Volume Number: 6
Issue Number: 9
Column Tag: MacOOPs!
Object Shell, Part II (code) 
By Dr. Christian Stratowa, Vienna, Austria
Listing: MyMenus.p
UNIT MyMenus;
{****************************************}
INTERFACE
USES
MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, MacPrint,
ObjIntf, GlobalStuff, StdWindows, StdMenus, MyDocuments;
TYPE
TSubMenu = OBJECT(TMenu)
PROCEDURE Create(vRsrcID: Integer);
override;
END;
TNewMenu = OBJECT(TSubMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TNewPictMenu = OBJECT(TNewMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TNewTextMenu = OBJECT(TNewMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TGraphMenu = OBJECT(TMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TColorMenu = OBJECT(TMenu)
END;
TForeCMenu = OBJECT(TSubMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TBackCMenu = OBJECT(TSubMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TTextMenu = OBJECT(TMenu)
END;
TFontMenu = OBJECT(TSubMenu)
PROCEDURE Create(vRsrcID: Integer);
override;
PROCEDURE Choose(vItem: Integer);
override;
END;
TSizeMenu = OBJECT(TSubMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TStyleMenu = OBJECT(TSubMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
TJustMenu = OBJECT(TSubMenu)
PROCEDURE Choose(vItem: Integer);
override;
END;
VAR
oNewMenu: TNewMenu;
oNewPictMenu: TNewPictMenu;
oNewTextMenu: TNewTextMenu;
oGraphMenu: TGraphMenu;
oColorMenu: TColorMenu;
oForeCMenu: TForeCMenu;
oBackCMenu: TBackCMenu;
oTextMenu: TTextMenu;
oFontMenu: TFontMenu;
oSizeMenu: TSizeMenu;
oStyleMenu: TStyleMenu;
oJustMenu: TJustMenu;