home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBSets.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  1.5 KB  |  51 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBKM
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE GBSets;
  11.  
  12. FROM System IMPORT LONGSET,Regs;
  13. IMPORT EGSIntui  AS I;
  14. IMPORT EGSGadBox  AS GB;
  15. FROM Exec IMPORT LibraryPtr;
  16.  
  17. CONST
  18.   SuperSetType   = CAST(LONGINT,"SSET".data);
  19.  
  20. TYPE
  21.   SetGadPtr  = POINTER TO SetGadget;
  22.   SetGadget  = RECORD OF I.MasterGadget
  23.                  data : LONGSET;
  24.                END;
  25.  
  26.  
  27. VAR GBSetBase : LibraryPtr;
  28.  
  29. LIBRARY GBSetBase BY - 30 PROCEDURE CreateSetGadget(con    IN A0 : GB.GadContext;
  30.                                                     names  IN A1 : GB.StrArrayPtr;
  31.                                                     height IN D0 : INTEGER;
  32.                                                     id     IN D1 : LONGINT):GB.GadBoxPtr;
  33.  
  34. LIBRARY GBSetBase BY - 36 PROCEDURE ModifySetGadget(win IN A0 : I.WindowPtr;
  35.                                                     gad IN A1 : I.GadgetPtr;
  36.                                                     set IN D0 : LONGSET);
  37.  
  38. LIBRARY GBSetBase BY - 42
  39.   PROCEDURE GCSetSetValue(con IN A0 : GB.GadContext;
  40.                           id  IN D0 : LONGINT;
  41.                           set IN D1 : LONGSET);
  42.  
  43. LIBRARY GBSetBase BY - 42
  44.   PROCEDURE GCGetSetValue(con IN A0 : GB.GadContext;
  45.                           id  IN D0 : LONGINT):LONGSET;
  46.  
  47.  
  48. END GBSets.
  49.  
  50.  
  51.