home *** CD-ROM | disk | FTP | other *** search
/ AMIGA PD 1 / AMIGA-PD-1.iso / Programme_zum_Heft / Programmieren / Kurztests / PascalPCQ / Include / Workbench / Startup.i < prev    next >
Text File  |  1990-08-28  |  753b  |  30 lines
  1. {
  2.     Startup.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/Ports.i"}
  6. {$I "Include:Libraries/DOS.i"}
  7.  
  8. Type
  9.  
  10.     WBArg = record
  11.     wa_Lock        : BPTR;        { a lock descriptor }
  12.     wa_Name        : String;    { a string relative to that lock }
  13.     end;
  14.     WBArgPtr = ^WBArg;
  15.  
  16.     WBArgList = Array [1..100] of WBArg; { Only 1..smNumArgs are valid }
  17.     WBArgListPtr = ^WBArgList;
  18.  
  19.     WBStartup = record
  20.     sm_Message    : Message;    { a standard message structure }
  21.     sm_Process    : MsgPortPtr;    { the process descriptor for you }
  22.     sm_Segment    : BPTR;        { a descriptor for your code }
  23.     sm_NumArgs    : Integer;    { the number of elements in ArgList }
  24.     sm_ToolWindow    : String;    { description of window }
  25.     sm_ArgList    : WBArgListPtr;    { the arguments themselves }
  26.     end;
  27.     WBStartupPtr = ^WBStartup;
  28.  
  29.  
  30.