home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Frameworks / DropShell Pascal / DSGlobals.p < prev    next >
Encoding:
Text File  |  1994-05-27  |  1.8 KB  |  68 lines  |  [TEXT/MPS ]
  1. {******************************************************************************
  2. **
  3. **  Project Name:    DropShell
  4. **     File Name:    DSGlobals.p
  5. **
  6. **   Description:    Globals used by DropShell
  7. **
  8. *******************************************************************************
  9. **                       A U T H O R   I D E N T I T Y
  10. *******************************************************************************
  11. **
  12. **    Initials    Name
  13. **    --------    -----------------------------------------------
  14. **    LDR            Leonard Rosenthol
  15. **
  16. *******************************************************************************
  17. **                      R E V I S I O N   H I S T O R Y
  18. *******************************************************************************
  19. **
  20. **      Date        Time    Author    Description
  21. **    --------    -----    ------    ---------------------------------------------
  22. **  05/27/94    11:46    MXM        Ported to MetroWerks
  23. **    11/24/91            LDR        Added some new consts for error handling
  24. **    10/30/91            LDR        Modified USES clause for new include & ifc'ed ThP
  25. **    10/28/91            LDR        Officially renamed DropShell (from QuickShell)
  26. **                                Added a bunch of comments for clarification
  27. **    04/09/91    00:03    LDR        Original Version
  28. **
  29. ******************************************************************************}
  30.  
  31. UNIT DSGlobals;
  32.  
  33. INTERFACE
  34.  
  35. {$IFC THINK_Pascal}
  36. {$ELSEC}
  37.     USES
  38.     { First load standard interface files}
  39.         MemTypes, QuickDraw, 
  40.  
  41.     { Now include the stuff from OSIntf }
  42.         OSIntf, 
  43.  
  44.     { Now Include the stuff from ToolIntf.p }
  45.         ToolIntf, Packages, GestaltEqu, 
  46.  
  47.     { Then any OTHER Toolbox interfaces... }
  48.         Files, Aliases, AppleEvents;
  49. {$ENDC THINK_Pascal}
  50.  
  51.     CONST
  52.         kAppleNum = 128;
  53.         kFileNum = 129;
  54.         
  55.         kErrStringID = 100;
  56.         kCantRunErr = 1;
  57.         kAEVTErr = 2;
  58.         
  59.     VAR
  60.         gDone, gOApped, gHasAppleEvents, gWasEvent: Boolean;
  61.         gEvent: EventRecord;
  62.         gAppleMenu, gFileMenu: MenuHandle;
  63.         gSplashScreen: WindowPtr;
  64.  
  65. IMPLEMENTATION
  66.  
  67. END.
  68.