home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / lang / p_image1.sit / LSP Source / User.p < prev    next >
Encoding:
Text File  |  1989-07-26  |  823 b   |  54 lines
  1. unit User;
  2.  
  3. {This module is the place to put user additions to Image. You will need }
  4. {to uncomment the call to InitUser in Image.p.}
  5.  
  6.  
  7. interface
  8.  
  9.     uses
  10.         QuickDraw, OSIntf, PickerIntf, PrintTraps, ToolIntf, globals, Utilities, Graphics;
  11.  
  12.  
  13.     procedure InitUser;
  14.     procedure DoUserCommand1;
  15.     procedure DoUserCommand2;
  16.     procedure DoUserMenuEvent (MenuItem: integer);
  17.  
  18.  
  19. implementation
  20.  
  21. {User global variables go here.}
  22.  
  23.  
  24.     procedure InitUser;
  25.     begin
  26.         UserMenuH := GetMenu(UserMenu);
  27.         InsertMenu(UserMenuH, 0);
  28.         DrawMenuBar;
  29. {Additional user initialization code goes here.}
  30.     end;
  31.  
  32.  
  33.     procedure DoUserCommand1;
  34.     begin
  35.         beep;
  36.     end;
  37.  
  38.  
  39.     procedure DoUserCommand2;
  40.     begin
  41.         beep;
  42.     end;
  43.  
  44.     procedure DoUserMenuEvent (MenuItem: integer);
  45.     begin
  46.         case MenuItem of
  47.             1: 
  48.                 DoUserCommand1;
  49.             2: 
  50.                 DoUserCommand1;
  51.         end;
  52.     end;
  53.  
  54. end.