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

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

TYPE
  TwoDimPropGadPtr = POINTER TO TwoDimPropGadget;
  TwoDimPropGadget = RECORD OF I.UserGadget;
                       propflags  : I.PropFlagSet;
                       h_size,
                       h_value,
                       h_maximum,
                       v_size,
                       v_value,
                       v_maximum  : INTEGER;
                     END;

VAR
  GBTwoDimPropBase : LibraryPtr;

LIBRARY GBTwoDimPropBase BY - 30
    PROCEDURE CreateTwoDPropGadget(con   IN A0 : GB.GadContext;
                                   hmax  IN D0,
                                   hsize IN D1,
                                   hval  IN D2,
                                   vmax  IN D3,
                                   vsize IN D4,
                                   vval  IN D5 : INTEGER;
                                   id    IN D6 : LONGINT):GB.GadBoxPtr;

LIBRARY GBTwoDimPropBase BY - 36
    PROCEDURE ModifyTwoDPropGadget(win   IN A0 : I.WindowPtr;
                                   gad   IN A1 : I.GadgetPtr;
                                   hmax  IN D0,
                                   hsize IN D1,
                                   hval  IN D2,
                                   vmax  IN D3,
                                   vsize IN D4,
                                   vval  IN D5 : INTEGER);

LIBRARY GBTwoDimPropBase BY - 42
    PROCEDURE GCSetTwoDPropValue(con   IN A0 : GB.GadContext;
                                 id    IN D0 : LONGINT;
                                 hmax  IN D1,
                                 hsize IN D2,
                                 hval  IN D3,
                                 vmax  IN D4,
                                 vsize IN D5,
                                 vval  IN D6 : INTEGER);

LIBRARY GBTwoDimPropBase BY - 48
    PROCEDURE GCGetTwoDPropHValue(con   IN A0 : GB.GadContext;
                                  id    IN D0 : LONGINT):INTEGER;

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

END GBTwoDimProp.

