|##########|
|#MAGIC   #|DBGFFBKM
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x----xx-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x----x----------
|##########|
DEFINITION MODULE GBSets;

FROM System IMPORT LONGSET,Regs;
IMPORT EGSIntui  AS I;
IMPORT EGSGadBox  AS GB;
FROM Exec IMPORT LibraryPtr;

CONST
  SuperSetType   = CAST(LONGINT,"SSET".data);

TYPE
  SetGadPtr  = POINTER TO SetGadget;
  SetGadget  = RECORD OF I.MasterGadget
                 data : LONGSET;
               END;


VAR GBSetBase : LibraryPtr;

LIBRARY GBSetBase BY - 30 PROCEDURE CreateSetGadget(con    IN A0 : GB.GadContext;
                                                    names  IN A1 : GB.StrArrayPtr;
                                                    height IN D0 : INTEGER;
                                                    id     IN D1 : LONGINT):GB.GadBoxPtr;

LIBRARY GBSetBase BY - 36 PROCEDURE ModifySetGadget(win IN A0 : I.WindowPtr;
                                                    gad IN A1 : I.GadgetPtr;
                                                    set IN D0 : LONGSET);

LIBRARY GBSetBase BY - 42
  PROCEDURE GCSetSetValue(con IN A0 : GB.GadContext;
                          id  IN D0 : LONGINT;
                          set IN D1 : LONGSET);

LIBRARY GBSetBase BY - 42
  PROCEDURE GCGetSetValue(con IN A0 : GB.GadContext;
                          id  IN D0 : LONGINT):LONGSET;


END GBSets.


