home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBSelect.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  1.8 KB  |  53 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBLG
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|xx---xxxxx------
  9. |##########|
  10. DEFINITION MODULE GBSelect;
  11.  
  12. FROM System IMPORT Regs;
  13. IMPORT EGSIntui  AS I;
  14. IMPORT EGSGadBox  AS GB;
  15. FROM Exec IMPORT LibraryPtr;
  16.  
  17. TYPE
  18.   SelectGadPtr   = POINTER TO SelectGadget;
  19.   SelectGadget   = RECORD OF I.Gadget
  20.                      sel,
  21.                      selnum  : INTEGER;
  22.                      selGfx  : POINTER TO ARRAY OF I.IntuiGfxPtr;
  23.                    END;
  24.   GadBoxArray    = ARRAY OF GB.GadBoxPtr;
  25.   GadBoxArrayPtr = POINTER TO GadBoxArray;
  26.  
  27. VAR GBSelectBase : LibraryPtr;
  28.  
  29. LIBRARY GBSelectBase BY - 30 PROCEDURE CreateSelect(con    IN A0 : GB.GadContext;
  30.                                                     id     IN D0 : LONGINT;
  31.                                                     elems  IN A1 : GadBoxArrayPtr):GB.GadBoxPtr;
  32.  
  33. LIBRARY GBSelectBase BY - 36 PROCEDURE CreateTextSelect(con    IN A0 : GB.GadContext;
  34.                                                         id     IN D0 : LONGINT;
  35.                                                         elems  IN A1 : GB.StrArrayPtr):GB.GadBoxPtr;
  36.  
  37. LIBRARY GBSelectBase BY - 42 PROCEDURE ModifySelectGadget(win IN A0 : I.WindowPtr;
  38.                                                           gad IN A1 : SelectGadPtr;
  39.                                                           sel IN D0 : INTEGER);
  40.  
  41. LIBRARY GBSelectBase BY - 48
  42.     PROCEDURE GCSetSelectValue(con IN A0 : GB.GadContext;
  43.                                id  IN D0 : LONGINT;
  44.                                sel IN D1 : INTEGER);
  45.  
  46. LIBRARY GBSelectBase BY - 54
  47.     PROCEDURE GCGetSelectValue(con IN A0 : GB.GadContext;
  48.                                id  IN D0 : LONGINT):INTEGER;
  49.  
  50.  
  51. END GBSelect.
  52.  
  53.