home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / Icon.def < prev    next >
Text File  |  1994-05-25  |  3KB  |  99 lines
  1. |##########|
  2. |#MAGIC   #|CLABLMDO
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx-x-x--x---x-x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE Icon;
  11. (* $A- *)
  12. FROM Exec      IMPORT LibraryPtr;
  13. FROM Workbench IMPORT FreeListPtr,DiskObjectPtr,ToolTypeArrayPtr,
  14.                       WBObjectType;
  15. FROM System    IMPORT SysStringPtr,Regs;
  16.  
  17. VAR
  18.   IconBase : LibraryPtr;
  19.  
  20. |---------------- Funktions for Icons ------------------------------------
  21.  
  22. LIBRARY IconBase BY -42
  23.   PROCEDURE GetIcon(REF Name  IN A0  : STRING;
  24.                         icon  IN A1  : DiskObjectPtr;
  25.                         f     IN A2  : FreeListPtr):LONGINT;
  26.  
  27. LIBRARY IconBase BY -48
  28.   PROCEDURE PutIcon(REF Name  IN A0  : STRING;
  29.                         Obj   IN A1  : DiskObjectPtr):BOOLEAN;
  30.  
  31. GROUP
  32.   IconGrp  = GetIcon,DiskObjectPtr,FreeListPtr,PutIcon;
  33.  
  34. |---------------- Funktions for Disks-Objects ----------------------------
  35.  
  36. LIBRARY IconBase BY -78
  37.   PROCEDURE GetDiskObject(REF Name IN A0 : STRING):DiskObjectPtr;
  38.  
  39. LIBRARY IconBase BY -84
  40.   PROCEDURE PutDiskObject(REF Name IN A0 : STRING;
  41.                               Obj  IN A1 : DiskObjectPtr):BOOLEAN;
  42.  
  43. LIBRARY IconBase BY -90
  44.   PROCEDURE FreeDiskObject(Obj IN A0 : DiskObjectPtr);
  45.  
  46. LIBRARY IconBase BY -120
  47.   PROCEDURE GetDefDiskObject(type IN D0 : WBObjectType):DiskObjectPtr;
  48.  
  49. LIBRARY IconBase BY -126
  50.   PROCEDURE PutDefDiskObject(obj IN A0 : DiskObjectPtr);
  51.  
  52. LIBRARY IconBase BY -132
  53.   PROCEDURE GetDiskObjectNew(REF name IN A0 : STRING):DiskObjectPtr;
  54.  
  55. LIBRARY IconBase BY -138
  56.   PROCEDURE DeleteDiskObject(REF name IN A0 : STRING):BOOLEAN;
  57.  
  58.  
  59. GROUP
  60.   DiskObjectGrp  = GetDiskObject,DiskObjectPtr,PutDiskObject,
  61.                    FreeDiskObject,GetDefDiskObject,PutDefDiskObject,
  62.                    GetDiskObjectNew,DeleteDiskObject;
  63.  
  64. |---------------- Funktions for FreeLists --------------------------------
  65.  
  66. LIBRARY IconBase BY -72
  67.   PROCEDURE AddFreeList(Free IN A0  : FreeListPtr;
  68.                         mem  IN A1  : ANYPTR;
  69.                         len  IN A2 : LONGINT):BOOLEAN;
  70.  
  71. LIBRARY IconBase BY -54
  72.   PROCEDURE FreeFreeList(Free IN A0 : FreeListPtr);
  73.  
  74.  
  75. GROUP
  76.   FreeListGrp  = AddFreeList,FreeFreeList,FreeListPtr;
  77.  
  78. |---------------- Help-Funktions -----------------------------------------
  79.  
  80. LIBRARY IconBase BY -108
  81.   PROCEDURE BumpRevision(New IN A0 : ANYPTR;
  82.                          Old IN A1 : ANYPTR);
  83.  
  84. LIBRARY IconBase BY -96
  85.   PROCEDURE FindToolType(ToolTypes  IN A0 : ToolTypeArrayPtr;
  86.                          TypeName   IN A1 : SysStringPtr):SysStringPtr;
  87.  
  88. LIBRARY IconBase BY -102
  89.   PROCEDURE MatchToolValue(TypeString IN A0 : SysStringPtr;
  90.                            Val        IN A1 : SysStringPtr):BOOLEAN;
  91.  
  92.  
  93. GROUP
  94.   ToolTypeGrp  = BumpRevision,FindToolType,MatchToolValue,SysStringPtr;
  95.  
  96.   All          = IconGrp,DiskObjectGrp,FreeListGrp,ToolTypeGrp,IconBase;
  97.  
  98. END Icon.
  99.