home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Applications / CornerClock 1.9 / Toolbox.p < prev   
Encoding:
Text File  |  1997-03-13  |  582 b   |  41 lines  |  [TEXT/CWIE]
  1. Unit Toolbox;
  2.  
  3. Interface
  4.  
  5. Uses
  6.     Windows, Fonts, Dialogs, Processes, ToolUtils, Devices, Resources, Sound, 
  7.     Icons, StandardFile, Folders, QDOffscreen, AppleEvents;
  8.     
  9. Type
  10.     str3    =    string[3];
  11.     
  12. Procedure InitToolbox;
  13.  
  14. Implementation
  15.     
  16. Procedure InitToolbox;
  17.  
  18.     begin
  19.     InitGraf(@qd.thePort);
  20.     InitFonts;
  21.     InitWindows;
  22.     InitMenus;
  23.     TEInit;
  24.     InitDialogs(NIL);
  25.     InitCursor;
  26.     MaxApplZone;
  27.     MoreMasters;
  28.     end;
  29.     
  30. Procedure Zero(varPtr: UNIV Ptr; len: integer);
  31.  
  32. Var
  33.     ZeroPtr: Ptr;
  34.     
  35.     begin
  36.     ZeroPtr := NewPtrClear(len);
  37.     BlockMoveData(@ZeroPtr, varPtr, len);
  38.     DisposePtr(ZeroPtr);
  39.     end;
  40.  
  41. End.