home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBMultiPanel.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  2.1 KB  |  67 lines
  1. |##########|
  2. |#MAGIC   #|DBGIDJGK
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE GBMultiPanel;
  11.  
  12. IMPORT EGSGadBox AS GB;
  13. IMPORT EGSIntui  AS I;
  14. FROM Exec IMPORT LibraryPtr;
  15. FROM System IMPORT SysStringPtr,Regs;
  16.  
  17. CONST
  18.   SuperPanelType   = CAST(LONGINT,"PANL".data);
  19.  
  20. TYPE
  21.   MultiPanelGadPtr = POINTER TO MultiPanelGadget;
  22.   MultiPanelGadget = RECORD OF I.MasterGadget;
  23.                        selected : INTEGER;
  24.                        panel    : GB.MultiPanel;
  25.                        gads     : POINTER TO ARRAY OF I.BoolGadPtr;
  26.                      END;
  27.  
  28.   PanelPair        = RECORD
  29.                        name     : SysStringPtr;
  30.                        box      : GB.GadBoxPtr;
  31.                      END;
  32.   PanelPairArray   = ARRAY OF PanelPair;
  33.   PanelPairArrayPtr= POINTER TO PanelPairArray;
  34.  
  35.  
  36. VAR GBMPanelBase : LibraryPtr;
  37.  
  38. LIBRARY GBMPanelBase BY - 30
  39.     PROCEDURE CreateMultiPanelGadget(con   IN A0 : GB.GadContext;
  40.                                      pairs IN A1 : PanelPairArrayPtr;
  41.                                      id    IN D0 : LONGINT):GB.GadBoxPtr;
  42.  
  43. PROCEDURE CreatePanelPair(REF name   : STRING;
  44.                               box    : GB.GadBoxPtr):PanelPair;
  45.  
  46. PROCEDURE CreateMultiPanelGadgetL(    con   : GB.GadContext;
  47.                                       id    : LONGINT;
  48.                                   REF pairs : LIST OF PanelPair):GB.GadBoxPtr;
  49.  
  50.  
  51. LIBRARY GBMPanelBase BY - 36
  52.     PROCEDURE ModifyMultiPanelGadget(win IN A0 : I.WindowPtr;
  53.                                      gad IN A1 : MultiPanelGadPtr;
  54.                                      sel IN D0 : INTEGER);
  55.  
  56. LIBRARY GBMPanelBase BY - 42
  57.     PROCEDURE GCSetMultiPanelValue(con IN A0 : GB.GadContext;
  58.                                    id  IN D0 : LONGINT;
  59.                                    sel IN D1 : INTEGER);
  60.  
  61. LIBRARY GBMPanelBase BY - 48
  62.     PROCEDURE GCGetMultiPanelValue(con IN A0 : GB.GadContext;
  63.                                    id  IN D0 : LONGINT):INTEGER
  64.  
  65.  
  66. END GBMultiPanel.
  67.