home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBTwoDimProp.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  2.5 KB  |  73 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBHK
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x----xx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE GBTwoDimProp;
  11.  
  12. IMPORT EGSGadBox AS GB;
  13. IMPORT EGSIntui  AS I;
  14. FROM EGSGfx IMPORT EFontPtr;
  15. FROM Exec   IMPORT LibraryPtr;
  16. FROM System IMPORT Regs;
  17.  
  18. TYPE
  19.   TwoDimPropGadPtr = POINTER TO TwoDimPropGadget;
  20.   TwoDimPropGadget = RECORD OF I.UserGadget;
  21.                        propflags  : I.PropFlagSet;
  22.                        h_size,
  23.                        h_value,
  24.                        h_maximum,
  25.                        v_size,
  26.                        v_value,
  27.                        v_maximum  : INTEGER;
  28.                      END;
  29.  
  30. VAR
  31.   GBTwoDimPropBase : LibraryPtr;
  32.  
  33. LIBRARY GBTwoDimPropBase BY - 30
  34.     PROCEDURE CreateTwoDPropGadget(con   IN A0 : GB.GadContext;
  35.                                    hmax  IN D0,
  36.                                    hsize IN D1,
  37.                                    hval  IN D2,
  38.                                    vmax  IN D3,
  39.                                    vsize IN D4,
  40.                                    vval  IN D5 : INTEGER;
  41.                                    id    IN D6 : LONGINT):GB.GadBoxPtr;
  42.  
  43. LIBRARY GBTwoDimPropBase BY - 36
  44.     PROCEDURE ModifyTwoDPropGadget(win   IN A0 : I.WindowPtr;
  45.                                    gad   IN A1 : I.GadgetPtr;
  46.                                    hmax  IN D0,
  47.                                    hsize IN D1,
  48.                                    hval  IN D2,
  49.                                    vmax  IN D3,
  50.                                    vsize IN D4,
  51.                                    vval  IN D5 : INTEGER);
  52.  
  53. LIBRARY GBTwoDimPropBase BY - 42
  54.     PROCEDURE GCSetTwoDPropValue(con   IN A0 : GB.GadContext;
  55.                                  id    IN D0 : LONGINT;
  56.                                  hmax  IN D1,
  57.                                  hsize IN D2,
  58.                                  hval  IN D3,
  59.                                  vmax  IN D4,
  60.                                  vsize IN D5,
  61.                                  vval  IN D6 : INTEGER);
  62.  
  63. LIBRARY GBTwoDimPropBase BY - 48
  64.     PROCEDURE GCGetTwoDPropHValue(con   IN A0 : GB.GadContext;
  65.                                   id    IN D0 : LONGINT):INTEGER;
  66.  
  67. LIBRARY GBTwoDimPropBase BY - 54
  68.     PROCEDURE GCGetTwoDPropVValue(con   IN A0 : GB.GadContext;
  69.                                   id    IN D0 : LONGINT):INTEGER;
  70.  
  71. END GBTwoDimProp.
  72.  
  73.