home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / MODULAV2GERMAN.DMS / in.adf / Def.zoo / Icon.def < prev    next >
Encoding:
Modula Definition  |  1988-11-06  |  1.2 KB  |  39 lines
  1. DEFINITION MODULE Icon {"icon.library",33};
  2.  
  3. FROM SYSTEM IMPORT
  4.  ADDRESS;
  5. FROM Workbench IMPORT
  6.  FreeListPtr,DiskObjectPtr;
  7.  
  8. PROCEDURE BumpRevision(new{8},old{9}:ADDRESS); CODE -108;
  9.  
  10. PROCEDURE AddFreeList(free{8}:FreeListPtr; mem{9}:ADDRESS;
  11.                       len{10}:LONGINT):LONGINT; CODE -72;
  12. PROCEDURE FreeFreeList(free{8}:FreeListPtr); CODE -54;
  13.  
  14. PROCEDURE FindToolType(
  15.            toolTypes{8},
  16.            typeName{9}:ADDRESS):ADDRESS; CODE -96;
  17. PROCEDURE MatchToolValue(
  18.            typeString{8},val{9}:ADDRESS):LONGINT; CODE -102;
  19.  
  20. PROCEDURE AllocWBObject():ADDRESS; CODE -66;
  21. PROCEDURE GetWBObject(name{8}:ADDRESS):ADDRESS; CODE -30;
  22. PROCEDURE PutWBObject(name{8}:ADDRESS; 
  23.                       obj{9}:ADDRESS):LONGINT; CODE -36;
  24. PROCEDURE FreeWBObject(obj{8}:ADDRESS); CODE -60;
  25.  
  26. PROCEDURE GetIcon(name{8}:ADDRESS; icon{9}:DiskObjectPtr;
  27.                   f{10}:FreeListPtr):LONGINT; CODE -42;
  28. PROCEDURE PutIcon(name{8}:ADDRESS; 
  29.                   obj{9}:DiskObjectPtr):LONGINT; CODE -48;
  30.  
  31. PROCEDURE GetDiskObject(
  32.            name{8}:ADDRESS):DiskObjectPtr; CODE -78;
  33. PROCEDURE PutDiskObject(
  34.            name{8}:ADDRESS;
  35.            obj{9}:DiskObjectPtr):LONGINT; CODE -84;
  36. PROCEDURE FreeDiskObject(obj{8}:DiskObjectPtr); CODE -90;
  37.  
  38. END Icon.
  39.