|##########|
|#MAGIC   #|DBGFFBLG
|#PROJECT #|""
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x----xx-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx---xxxxx------
|##########|
DEFINITION MODULE GBSelect;

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

TYPE
  SelectGadPtr   = POINTER TO SelectGadget;
  SelectGadget   = RECORD OF I.Gadget
                     sel,
                     selnum  : INTEGER;
                     selGfx  : POINTER TO ARRAY OF I.IntuiGfxPtr;
                   END;
  GadBoxArray    = ARRAY OF GB.GadBoxPtr;
  GadBoxArrayPtr = POINTER TO GadBoxArray;

VAR GBSelectBase : LibraryPtr;

LIBRARY GBSelectBase BY - 30 PROCEDURE CreateSelect(con    IN A0 : GB.GadContext;
                                                    id     IN D0 : LONGINT;
                                                    elems  IN A1 : GadBoxArrayPtr):GB.GadBoxPtr;

LIBRARY GBSelectBase BY - 36 PROCEDURE CreateTextSelect(con    IN A0 : GB.GadContext;
                                                        id     IN D0 : LONGINT;
                                                        elems  IN A1 : GB.StrArrayPtr):GB.GadBoxPtr;

LIBRARY GBSelectBase BY - 42 PROCEDURE ModifySelectGadget(win IN A0 : I.WindowPtr;
                                                          gad IN A1 : SelectGadPtr;
                                                          sel IN D0 : INTEGER);

LIBRARY GBSelectBase BY - 48
    PROCEDURE GCSetSelectValue(con IN A0 : GB.GadContext;
                               id  IN D0 : LONGINT;
                               sel IN D1 : INTEGER);

LIBRARY GBSelectBase BY - 54
    PROCEDURE GCGetSelectValue(con IN A0 : GB.GadContext;
                               id  IN D0 : LONGINT):INTEGER;


END GBSelect.

