home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBRadio.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  2.4 KB  |  70 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFCAP
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE GBRadio;
  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.   SuperRadType   = CAST(LONGINT,"SRAD".data);
  19.   NoneSelected   = -1;
  20.  
  21. TYPE
  22.   RadioGadPtr= POINTER TO RadioGadget;
  23.   RadioGadget= RECORD OF I.MasterGadget
  24.                  selected : INTEGER;
  25.                  selGad   : I.BoolGadPtr;
  26.                END;
  27.  
  28. VAR GBRadioBase : LibraryPtr;
  29.  
  30. LIBRARY GBRadioBase BY - 30 PROCEDURE CreateRadioGadget(con    IN A0 : GB.GadContext;
  31.                                                         names  IN A1 : GB.StrArrayPtr;
  32.                                                         height IN D0 : INTEGER;
  33.                                                         id     IN D1 : LONGINT):GB.GadBoxPtr;
  34.  
  35. LIBRARY GBRadioBase BY -36 PROCEDURE ModifyRadioGadget(win IN A0 : I.WindowPtr;
  36.                                                        gad IN A1 : RadioGadPtr;
  37.                                                        sel IN D0 : INTEGER);
  38.  
  39. LIBRARY GBRadioBase BY -42 PROCEDURE OnRadioElems(win   IN A0 : I.WindowPtr;
  40.                                                   gad   IN A1 : RadioGadPtr;
  41.                                                   elems IN D0 : LONGSET);
  42.  
  43. LIBRARY GBRadioBase BY -48 PROCEDURE OffRadioElems(win   IN A0 : I.WindowPtr;
  44.                                                    gad   IN A1 : RadioGadPtr;
  45.                                                    elems IN D0 : LONGSET);
  46.  
  47. LIBRARY GBRadioBase BY -54
  48.     PROCEDURE GCSetRadioValue(con IN A0 : GB.GadContext;
  49.                               id  IN D0 : LONGINT;
  50.                               sel IN D1 : INTEGER);
  51.  
  52. LIBRARY GBRadioBase BY -60
  53.     PROCEDURE GCGetRadioValue(con IN A0 : GB.GadContext;
  54.                               id  IN D0 : LONGINT):INTEGER;
  55.  
  56. LIBRARY GBRadioBase BY -66
  57.     PROCEDURE GCOnRadioElems(con   IN A0 : GB.GadContext;
  58.                              id    IN D0 : LONGINT;
  59.                              elems IN D1 : LONGSET);
  60.  
  61. LIBRARY GBRadioBase BY -72
  62.     PROCEDURE GCOffRadioElems(con   IN A0 : GB.GadContext;
  63.                               id    IN D0 : LONGINT;
  64.                               elems IN D1 : LONGSET);
  65.  
  66.  
  67. END GBRadio.
  68.  
  69.  
  70.