home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Workbench.def < prev   
Encoding:
Modula Definition  |  1988-12-05  |  1.3 KB  |  69 lines
  1. (*$M-*)
  2. DEFINITION MODULE Workbench;
  3.  
  4. FROM SYSTEM IMPORT
  5.  ADDRESS;
  6. FROM Dos IMPORT
  7.  FileLockPtr;
  8. FROM Intuition IMPORT
  9.  Gadget,GadgetFlags,GadgetFlagSet,NewWindow;
  10. FROM Exec IMPORT
  11.  Message,MsgPortPtr,List;
  12.  
  13. CONST
  14.  diskMagic=0E310H;
  15.  diskVersion=1;
  16.  gadgetBackFill=GadgetFlagSet{gadgHBox};
  17.  noIconPosition=MIN(LONGINT);
  18.  
  19. TYPE
  20.  WBObjectType=(
  21.   wb0,disk,drawer,tool,project,garbage,device,kick
  22.  );
  23.  MType=(mt0,pstd,toolExit,diskChange,timer,closeDown,ioProc);
  24.  DiskObjectPtr=POINTER TO DiskObject;
  25.  DrawerDataPtr=POINTER TO DrawerData;
  26.  FreeListPtr=POINTER TO FreeList;
  27.  WBArgPtr=POINTER TO WBArg;
  28.  WBStartupPtr=POINTER TO WBStartup;
  29.  WBArg=RECORD
  30.   lock:FileLockPtr;
  31.   name:ADDRESS
  32.  END;
  33.  WBArgumentsPtr=POINTER TO ARRAY [0..255] OF WBArg;
  34.  WBStartup=RECORD
  35.   message:Message;
  36.   process:MsgPortPtr;
  37.   segment:ADDRESS;
  38.   numArgs:LONGINT;
  39.   toolWindow:ADDRESS;
  40.   argList:WBArgumentsPtr;
  41.  END;
  42.  FreeList=RECORD
  43.   numFree:INTEGER;
  44.   memList:List
  45.  END;
  46.  DiskObject=RECORD
  47.   magic:CARDINAL;
  48.   version:CARDINAL;
  49.   gadget:Gadget;
  50.   type:WBObjectType;
  51.   defaultTool:ADDRESS;
  52.   toolTypes:ADDRESS;
  53.   currentX:LONGINT;
  54.   currentY:LONGINT;
  55.   drawerData:DrawerDataPtr;
  56.   toolWindow:ADDRESS;
  57.   stackSize:LONGINT
  58.  END;
  59.  DrawerData=RECORD
  60.   newWindow:NewWindow;
  61.   currentX:LONGINT;
  62.   currentY:LONGINT;
  63.  END;
  64.  
  65. CONST
  66.  drawerDataFileSize=SIZE(DrawerData);
  67.  
  68. END Workbench.
  69.