home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / EGSGadBox.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  27.9 KB  |  598 lines
  1. |##########|
  2. |#MAGIC   #|DBGFENIG
  3. |#PROJECT #|""
  4. |#PATHS   #|"EGSProject"
  5. |#FLAGS   #|xx---x--x---xxx-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE EGSGadBox;
  11.  
  12.  
  13. TYPE ContextPtr = HIDDEN;
  14.  
  15.  
  16. FROM EGSGfx    IMPORT EFontPtr;
  17.                IMPORT IntuiGfx,Trees;
  18. FROM System    IMPORT LONGSET,Regs,SysStringPtr;
  19.                IMPORT EGSIntui AS I;
  20.                IMPORT Exec,EGS;
  21.  
  22. TYPE
  23.   GadBoxPtr   = POINTER TO GadBox;
  24.  
  25.   DEFINITION MODULE GadBoxTrees = Trees.StdTrees(GadBoxPtr);
  26.  
  27. TYPE
  28.   ResBoxPtr   = POINTER TO ResBox;
  29.   ResBox      = RECORD
  30.                   x,y,w,h : INTEGER
  31.                 END;
  32.  
  33.   InfoBoxPtr  = POINTER TO InfoBox;
  34.   InfoBox     = RECORD
  35.                   font    : EFontPtr;
  36.                   justify : I.StringJustify;
  37.                   box     : ResBox;
  38.                 END;
  39.  
  40.   MultiPanelPtr = POINTER TO MultiPanel;
  41.   MultiPanel    = RECORD
  42.                     num,
  43.                     active  : INTEGER;
  44.                     data    : POINTER TO ARRAY OF I.GadgetPtr;
  45.                   END;
  46.  
  47.  
  48.   FillFlags   = (fillLeft,
  49.                  fillRight,
  50.                  fillTop,
  51.                  fillBottom);
  52.   FillFlagSet = SET OF FillFlags;
  53.  
  54.   Orientation = (horizontal,
  55.                  vertical,
  56.                  unknown,
  57.                  horizTable,
  58.                  vertiTable,
  59.                  select);
  60.  
  61.   GadBoxType  = (gbGadget,
  62.                  gbDraw,
  63.                  gbWindow,
  64.                  gbLate,
  65.                  gbResponse);
  66.  
  67.   GBCreate    = PROCEDURE(box IN A0 : GadBoxPtr);
  68.  
  69.   GadContextFlags   = (ownFont,ownTFont);
  70.   GadContextFlagSet = SET OF GadContextFlags;
  71.  
  72.   GadContext  = POINTER TO GadContextNode;
  73.  
  74.   GBFlags           = (SameSize);
  75.   GBFlagSet         = SET OF GBFlags;
  76.  
  77.   GadBox      = RECORD OF GadBoxTrees.Leaf;
  78.                   orient     : Orientation;
  79.                   minWidth,
  80.                   maxWidth,
  81.                   minHeight,
  82.                   maxHeight  : INTEGER;
  83.                   x,y        : INTEGER;
  84.                   pri        : SHORTINT;
  85.                   con        : GadContext;
  86.                   IF KEY type : GadBoxType
  87.                     OF gbGadget THEN gad  : I.GadgetPtr;
  88.                     OF gbDraw   THEN draw    : I.IntuiGfxPtr;
  89.                     OF gbWindow THEN new  : POINTER TO I.NewWindow;
  90.                     OF gbLate   THEN call : GBCreate;
  91.                     OF gbResponse THEN res : ResBoxPtr
  92.  
  93.                   END;
  94.                   selector   : PROCEDURE(to  IN A0 : GadBoxPtr;
  95.                                          num IN D0 : INTEGER;
  96.                                          gfx IN A1 : IntuiGfx.IntuiGfxPtr);
  97.                   userData   : ANYPTR;
  98.                   flags      : GBFlagSet;
  99.  
  100.                   cMinWidth,
  101.                   cMaxWidth,
  102.                   cMinHeight,
  103.                   cMaxHeight  : INTEGER;
  104.                   IF KEY cType : GadBoxType
  105.                     OF gbGadget,gbWindow,gbDraw THEN
  106.                       cRender     : I.IntuiGfxPtr;
  107.                     OF gbResponse THEN
  108.                       cRes        : ResBoxPtr;
  109.                   END
  110.                 END;
  111.  
  112.   GadContextNode =
  113.                   RECORD
  114.                     gadres,
  115.                     helpres  : ContextPtr;
  116.                     fHeight,
  117.                     fWidth   : INTEGER;
  118.                     font,
  119.                     tfont    : EFontPtr;
  120.                     newWin   : POINTER TO I.NewWindow;
  121.                     first    : I.GadgetPtr;
  122.                     num      : INTEGER;
  123.                     color,
  124.                     back     : LONGINT;
  125.                     flags    : GadContextFlagSet;
  126.                     error    : (Ok,
  127.                                 NotEnoughMemory=$4000,
  128.                                 UnknownWithMultipleSons,
  129.                                 StringGadNotFound,
  130.                                 IllegalSelect,
  131.                                 UnknownFont,
  132.                                 NoWindow,
  133.                                 NoGadSolution,
  134.                                 BadFonts,
  135.                                 UnmatchingTables);
  136.                     quickBox : POINTER TO ARRAY [32] OF GadBox;
  137.                     quickNum : INTEGER;
  138.  
  139.                     lateRes  : ContextPtr;
  140.  
  141.                     tfWidth,
  142.                     tfHeight : INTEGER;
  143.  
  144.                     sizeHook : I.ResizeHook;
  145.                     win      : I.WindowPtr;
  146.                     root     : GadBoxPtr;
  147.                   END;
  148.   StrArray    = ARRAY OF SysStringPtr;
  149.   StrArrayPtr = POINTER TO StrArray;
  150.   StrArray2   = ARRAY OF StrArrayPtr;
  151.   StrArray2Ptr= POINTER TO StrArray2;
  152.  
  153.   GadBoxArray = ARRAY OF GadBoxPtr;
  154.   GadBoxArrayPtr = POINTER TO GadBoxArray;
  155.  
  156. CONST
  157.   SuperPropType  = CAST(LONGINT,"SPRP".data);
  158.  
  159. TYPE
  160.   SPropGadPtr    = POINTER TO SPropGadget;
  161.   SPropGadget    = RECORD OF I.MasterGadget
  162.                      realProp : I.PropGadPtr;
  163.                    END;
  164.  
  165. CONST
  166.   max        = INTEGER'MAX;
  167.   min        = 0;
  168.   AllFill    = FillFlagSet:{fillLeft..fillBottom};
  169.  
  170. TYPE ArrowFlags   = (aDecUL,aDecBR,aIncUL,aIncBR);
  171.      ArrowFlagSet = SET OF ArrowFlags;
  172.  
  173. VAR
  174.   EGBBase    : Exec.LibraryPtr;
  175.  
  176. LIBRARY EGBBase BY -30  PROCEDURE AllocMemCon(con IN A0 : ContextPtr;size IN D0 : LONGINT):ANYPTR;
  177.  
  178. LIBRARY EGBBase BY -36  PROCEDURE FreeMemCon(mem IN A0 : ANYPTR);
  179.  
  180. LIBRARY EGBBase BY -42  PROCEDURE AddFirstSon(father IN A0,son IN A1 : GadBoxPtr);
  181.  
  182. LIBRARY EGBBase BY -48  PROCEDURE AddLastSon(father IN A0,son IN A1 : GadBoxPtr);
  183.  
  184. LIBRARY EGBBase BY -54  PROCEDURE MIN(a IN D0,b IN D1 : INTEGER):INTEGER;
  185.  
  186. LIBRARY EGBBase BY -60  PROCEDURE MAX(a IN D0,b IN D1 : INTEGER):INTEGER;
  187.  
  188. LIBRARY EGBBase BY -66  PROCEDURE SWidth(REF s IN A0 : STRING;f IN A1 : EFontPtr):INTEGER;
  189.  
  190. LIBRARY EGBBase BY -72  PROCEDURE SMatch(REF s IN A0 : STRING;
  191.                                              f IN A1 : EFontPtr;
  192.                                              w IN D2 : INTEGER):INTEGER;
  193.  
  194. LIBRARY EGBBase BY -78  PROCEDURE CWidth(c2 IN D2 : CHAR;f IN A1 : EFontPtr):INTEGER;
  195.  
  196. LIBRARY EGBBase BY -84  PROCEDURE FindGadget(first IN A0 : I.GadgetPtr;
  197.                                              num   IN D0 : INTEGER;
  198.                                              id    IN D1 : LONGINT):I.GadgetPtr;
  199.  
  200.  
  201.  
  202. LIBRARY EGBBase BY -90  PROCEDURE CreateGadContext(font  IN A0,
  203.                                                    tfont IN A1  : EFontPtr;
  204.                                                    color IN D0,
  205.                                                    back  IN D1  : LONGINT):GadContext;
  206.  
  207. LIBRARY EGBBase BY -96  PROCEDURE DeleteGadContext(con IN A0 : GadContext);
  208.  
  209.  
  210. LIBRARY EGBBase BY -102 PROCEDURE CreateBox(con        IN A0 : GadContext;
  211.                                             orient     IN D0 : Orientation;
  212.                                             minWidth   IN D1,
  213.                                             maxWidth   IN D2,
  214.                                             minHeight  IN D3,
  215.                                             maxHeight  IN D4 : INTEGER):GadBoxPtr;
  216.  
  217. LIBRARY EGBBase BY -108 PROCEDURE CreateLateBox(con       IN A0 : GadContext;
  218.                                                 create    IN A1 : GBCreate;
  219.                                                 minWidth  IN D0,
  220.                                                 maxWidth  IN D1,
  221.                                                 minHeight IN D2,
  222.                                                 maxHeight IN D3 : INTEGER):GadBoxPtr;
  223.  
  224. LIBRARY EGBBase BY -114 PROCEDURE CreateResponseBox(    con       IN A0 : GadContext;
  225.                                                     VAR response  IN A1 : ResBox;
  226.                                                         minWidth  IN D0,
  227.                                                         maxWidth  IN D1,
  228.                                                         minHeight IN D2,
  229.                                                         maxHeight IN D3 : INTEGER):GadBoxPtr;
  230.  
  231. LIBRARY EGBBase BY -120 PROCEDURE CreateInfoBox(    con      IN A0 : GadContext;
  232.                                                 VAR info     IN A1 : InfoBox;
  233.                                                     font     IN A2 : EFontPtr;
  234.                                                     minWidth IN D0,
  235.                                                     maxWidth IN D1 : INTEGER;
  236.                                                     justify  IN D2 : I.StringJustify):GadBoxPtr;
  237.  
  238. LIBRARY EGBBase BY -126 PROCEDURE WriteInfoBox(REF info IN A0 : InfoBox;
  239.                                                    win  IN A1 : I.WindowPtr;
  240.                                                REF str  IN A2 : STRING);
  241.  
  242. LIBRARY EGBBase BY -132 PROCEDURE WriteInfoBoxInt(REF info IN A0 : InfoBox;
  243.                                                       win  IN A1 : I.WindowPtr;
  244.                                                       i    IN D0 : LONGINT);
  245.  
  246.  
  247. LIBRARY EGBBase BY -138 PROCEDURE CreateHorizBox(con IN A0 : GadContext):GadBoxPtr;
  248.  
  249. PROCEDURE CreateHorizBoxL(con : GadContext;sons : LIST OF GadBoxPtr):GadBoxPtr;
  250.  
  251. LIBRARY EGBBase BY -144 PROCEDURE CreateVertiBox(con IN A0 : GadContext):GadBoxPtr;
  252.  
  253. PROCEDURE CreateVertiBoxL(con : GadContext;sons : LIST OF GadBoxPtr):GadBoxPtr;
  254.  
  255. LIBRARY EGBBase BY -150 PROCEDURE CreateHorizTable(con IN A0 : GadContext):GadBoxPtr;
  256.  
  257. PROCEDURE CreateHorizTableL(con : GadContext;sons : LIST OF GadBoxPtr):GadBoxPtr;
  258.  
  259. LIBRARY EGBBase BY -156 PROCEDURE CreateVertiTable(con IN A0 : GadContext):GadBoxPtr;
  260.  
  261. PROCEDURE CreateVertiTableL(con : GadContext;sons : LIST OF GadBoxPtr):GadBoxPtr;
  262.  
  263. LIBRARY EGBBase BY -162 PROCEDURE CreateFillBox(con IN A0 : GadContext;pri IN D0 : SHORTINT):GadBoxPtr;
  264.  
  265. LIBRARY EGBBase BY -168 PROCEDURE CreateHorizFill(con  IN A0 : GadContext;
  266.                                                   fill IN D0 : BOOLEAN;
  267.                                                   pri  IN D1 : SHORTINT):GadBoxPtr;
  268.  
  269. LIBRARY EGBBase BY -174 PROCEDURE CreateVertiFill(con  IN A0 : GadContext;
  270.                                                   fill IN D0 : BOOLEAN;
  271.                                                   pri  IN D1 : SHORTINT):GadBoxPtr;
  272.  
  273. LIBRARY EGBBase BY -180 PROCEDURE CreateBorder(con    IN A0 : GadContext;
  274.                                                around IN A1 : GadBoxPtr;
  275.                                                fill   IN D0 : FillFlagSet):GadBoxPtr;
  276.  
  277.  
  278.  
  279. LIBRARY EGBBase BY -186 PROCEDURE CreateText(con IN A0 : GadContext;REF s IN A1 : STRING):GadBoxPtr;
  280.  
  281. LIBRARY EGBBase BY -516 PROCEDURE CreateUText(    con IN A0 : GadContext;
  282.                                               REF s   IN A1 : STRING;
  283.                                               VAR c   IN A2 : CHAR):GadBoxPtr;
  284.  
  285. LIBRARY EGBBase BY -192 PROCEDURE CreateCenterText(con IN A0 : GadContext;REF s IN A1 : STRING):GadBoxPtr;
  286.  
  287. LIBRARY EGBBase BY -198 PROCEDURE CreateBackBorder(con    IN A0 : GadContext;
  288.                                                    around IN A1 : GadBoxPtr;
  289.                                                    fill   IN D0 : FillFlagSet):GadBoxPtr;
  290.  
  291. LIBRARY EGBBase BY -204 PROCEDURE CreateFrontBorder(con    IN A0 : GadContext;
  292.                                                     around IN A1 : GadBoxPtr;
  293.                                                     fill   IN D0 : FillFlagSet):GadBoxPtr;
  294.  
  295. LIBRARY EGBBase BY -210 PROCEDURE CreateButton24(con    IN A0 : GadContext;
  296.                                                  around IN A1 : GadBoxPtr;
  297.                                                  color  IN D0,
  298.                                                  back   IN D1 : LONGINT;
  299.                                                  fill   IN D2 : FillFlagSet):GadBoxPtr;
  300.  
  301. LIBRARY EGBBase BY -216 PROCEDURE CreateDoubleBorder(con    IN A0 : GadContext;
  302.                                                      around IN A1 : GadBoxPtr;
  303.                                                      fill   IN D0 : FillFlagSet):GadBoxPtr;
  304.  
  305.  
  306. LIBRARY EGBBase BY -504 PROCEDURE CreateGroupBorder(    con    IN A0 : GadContext;
  307.                                                         around IN A1 : GadBoxPtr;
  308.                                                         fill   IN D0 : FillFlagSet;
  309.                                                     REF name   IN A2 : STRING):GadBoxPtr;
  310.  
  311. LIBRARY EGBBase BY -222 PROCEDURE CreateMultiText(con IN A0 : GadContext;text IN A1 : StrArrayPtr):GadBoxPtr;
  312.  
  313. LIBRARY EGBBase BY -228 PROCEDURE CreateBoxedMultiText(con  IN A0 : GadContext;
  314.                                                        text IN A1 : StrArrayPtr):GadBoxPtr;
  315.  
  316.                         | 0 : Oben, 1: Unten, 2: Links, 3: Rechts;
  317. LIBRARY EGBBase BY -234 PROCEDURE CreateArrowGfx(con IN A0 : GadContext;dest IN D0 : INTEGER):GadBoxPtr;
  318.  
  319.  
  320. LIBRARY EGBBase BY -240 PROCEDURE NewPri(box IN A0 : GadBoxPtr;pri IN D0 : SHORTINT):GadBoxPtr;
  321.  
  322. LIBRARY EGBBase BY -246 PROCEDURE NewMinHeight(box IN A0 : GadBoxPtr;height IN D0 : INTEGER):GadBoxPtr;
  323.  
  324. LIBRARY EGBBase BY -252 PROCEDURE NewMinWidth(box IN A0 : GadBoxPtr;width IN D0 : INTEGER):GadBoxPtr;
  325.  
  326. LIBRARY EGBBase BY -258 PROCEDURE NewMaxHeight(box IN A0 : GadBoxPtr;height IN D0 : INTEGER):GadBoxPtr;
  327.  
  328. LIBRARY EGBBase BY -264 PROCEDURE NewMaxWidth(box IN A0 : GadBoxPtr;width IN D0 : INTEGER):GadBoxPtr;
  329.  
  330. LIBRARY EGBBase BY -270 PROCEDURE NewFixHeight(box IN A0 : GadBoxPtr):GadBoxPtr;
  331.  
  332. LIBRARY EGBBase BY -276 PROCEDURE NewFixWidth(box IN A0 : GadBoxPtr):GadBoxPtr;
  333.  
  334. LIBRARY EGBBase BY -480 PROCEDURE NewSameSize(box IN A0 : GadBoxPtr):GadBoxPtr;
  335.  
  336. LIBRARY EGBBase BY -522 PROCEDURE NewHotKey(box IN A0 : GadBoxPtr;key IN D0 : CHAR):GadBoxPtr;
  337.  
  338. LIBRARY EGBBase BY -282 PROCEDURE CreateMaster(con  IN A0 : GadContext;
  339.                                                type IN D0 : LONGINT;
  340.                                                id   IN D1 : LONGINT):GadBoxPtr;
  341.  
  342. LIBRARY EGBBase BY -288 PROCEDURE CreateActionGadget(con   IN A0 : GadContext;
  343.                                                      with  IN A1 : GadBoxPtr;
  344.                                                      id    IN D0 : LONGINT):GadBoxPtr;
  345.  
  346. LIBRARY EGBBase BY -294 PROCEDURE CreateTextAction(    con   IN A0 : GadContext;
  347.                                                    REF name  IN A1 : STRING;
  348.                                                        id    IN D0 : LONGINT;
  349.                                                        fill  IN D1 : FillFlagSet):GadBoxPtr;
  350.  
  351.  
  352. LIBRARY EGBBase BY -300 PROCEDURE CreateBoolGadget(con   IN A0 : GadContext;
  353.                                                    with  IN A1 : GadBoxPtr;
  354.                                                    id    IN D0 : LONGINT):GadBoxPtr;
  355.  
  356. LIBRARY EGBBase BY -306 PROCEDURE CreateTextBoolean(    con   IN A0 : GadContext;
  357.                                                     REF name  IN A1 : STRING;
  358.                                                         id    IN D0 : LONGINT;
  359.                                                         fill  IN D1 : FillFlagSet):GadBoxPtr;
  360.  
  361. LIBRARY EGBBase BY -312 PROCEDURE CreateMultiAction(con   IN A0 : GadContext;
  362.                                                     names IN A1 : StrArrayPtr;
  363.                                                     ids   IN D0 : LONGINT;
  364.                                                     fill  IN D1 : FillFlagSet):GadBoxPtr;
  365.  
  366. LIBRARY EGBBase BY -318 PROCEDURE CreateMultiActionV(con   IN A0 : GadContext;
  367.                                                      names IN A1 : StrArrayPtr;
  368.                                                      ids   IN D0 : LONGINT;
  369.                                                      fill  IN D1 : FillFlagSet):GadBoxPtr;
  370.  
  371. LIBRARY EGBBase BY -324 PROCEDURE CreateMultiAction2(con   IN A0 : GadContext;
  372.                                                      names IN A1 : StrArray2Ptr;
  373.                                                      ids   IN D0 : LONGINT):GadBoxPtr;
  374.  
  375. LIBRARY EGBBase BY -486 PROCEDURE CreateButtonGadget(con  IN A0 : GadContext;
  376.                                                      id   IN D0 : LONGINT):GadBoxPtr;
  377.  
  378. LIBRARY EGBBase BY -492 PROCEDURE CreateCheckmarkGadget(con  IN A0 : GadContext;
  379.                                                         id   IN D0 : LONGINT):GadBoxPtr;
  380.  
  381. LIBRARY EGBBase BY -510 PROCEDURE CreateDropGadget(con     IN A0 : GadContext;
  382.                                                    with    IN A1 : GadBoxPtr;
  383.                                                    accepts IN A2 : I.AcceptListPtr;
  384.                                                    flags   IN D0 : I.DropFlagSet;
  385.                                                    id      IN D1 : LONGINT):GadBoxPtr;
  386.  
  387.  
  388. LIBRARY EGBBase BY -330 PROCEDURE CreateArrow(con  IN A0 : GadContext;
  389.                                               dest IN D0 : INTEGER;
  390.                                               id   IN D1 : LONGINT):GadBoxPtr;
  391.  
  392. LIBRARY EGBBase BY -336 PROCEDURE CreateHorizProp(con      IN A0 : GadContext;
  393.                                                   maximum  IN D0,
  394.                                                   size     IN D1,
  395.                                                   val      IN D2 : INTEGER;
  396.                                                   id       IN D3 : LONGINT):GadBoxPtr;
  397.  
  398. LIBRARY EGBBase BY -342 PROCEDURE CreateVertiProp(con      IN A0: GadContext;
  399.                                                   maximum  IN D0,
  400.                                                   size     IN D1,
  401.                                                   val      IN D2 : INTEGER;
  402.                                                   id       IN D3 : LONGINT):GadBoxPtr;
  403.  
  404.  
  405. LIBRARY EGBBase BY -348 PROCEDURE CreateSuperHorizProp(con      IN A0: GadContext;
  406.                                                        maximum  IN D0,
  407.                                                        size     IN D1,
  408.                                                        value    IN D2 : INTEGER;
  409.                                                        id       IN D3 : LONGINT;
  410.                                                        flags    IN D4 : ArrowFlagSet):GadBoxPtr;
  411.  
  412. LIBRARY EGBBase BY -354 PROCEDURE CreateSuperVertiProp(con      IN A0 : GadContext;
  413.                                                        maximum  IN D0,
  414.                                                        size     IN D1,
  415.                                                        value    IN D2 : INTEGER;
  416.                                                        id       IN D3 : LONGINT;
  417.                                                        flags    IN D4 : ArrowFlagSet):GadBoxPtr;
  418. LIBRARY EGBBase BY -528 PROCEDURE SetPropBackMap(con      IN A0 : GadContext;
  419.                                                  win      IN A1 : I.WindowPtr;
  420.                                                  gad      IN A2 : I.PropGadPtr;
  421.                                                  map      IN A3 : EGS.EBitMapPtr);
  422.  
  423. LIBRARY EGBBase BY -360 PROCEDURE CreateStringGadget(con     IN A0 : GadContext;
  424.                                                      minChar IN D0 : INTEGER;
  425.                                                      buffLen IN D1 : INTEGER;
  426.                                                      justify IN D2 : I.StringJustify;
  427.                                                      id      IN D3 : LONGINT):GadBoxPtr;
  428.  
  429. LIBRARY EGBBase BY -366 PROCEDURE CreateNameStringGadget(    con     IN A0 : GadContext;
  430.                                                          REF name    IN A1 : STRING;
  431.                                                              minChar IN D0 : INTEGER;
  432.                                                              buffLen IN D1 : INTEGER;
  433.                                                              justify IN D2 : I.StringJustify;
  434.                                                              id      IN D3 : LONGINT):GadBoxPtr;
  435.  
  436.  
  437. LIBRARY EGBBase BY -372 PROCEDURE CreateIntegerGadget(con     IN A0 : GadContext;
  438.                                                       minChar IN D0 : INTEGER;
  439.                                                       digits  IN D1 : INTEGER;
  440.                                                       id      IN D2 : LONGINT):GadBoxPtr;
  441.  
  442. LIBRARY EGBBase BY -378 PROCEDURE CreateNameIntegerGadget(    con     IN A0 : GadContext;
  443.                                                           REF name    IN A1 : STRING;
  444.                                                               minChar IN D0 : INTEGER;
  445.                                                               digits  IN D1 : INTEGER;
  446.                                                               id      IN D2 : LONGINT):GadBoxPtr;
  447.  
  448.  
  449. LIBRARY EGBBase BY -384 PROCEDURE CreateRealGadget(con     IN A0 : GadContext;
  450.                                                    minChar IN D0 : INTEGER;
  451.                                                    digits  IN D1 : INTEGER;
  452.                                                    id      IN D2 : LONGINT):GadBoxPtr;
  453.  
  454. LIBRARY EGBBase BY -390 PROCEDURE CreateNameRealGadget(    con     IN A0 : GadContext;
  455.                                                        REF name    IN A1 : STRING;
  456.                                                            minChar IN D0 : INTEGER;
  457.                                                            digits  IN D1 : INTEGER;
  458.                                                            id      IN D2 : LONGINT):GadBoxPtr;
  459.  
  460.  
  461. LIBRARY EGBBase BY -396 PROCEDURE LinkStringGadgets(con     IN A0 : GadContext;
  462.                                                     from    IN A1,
  463.                                                     to      IN A2 : GadBoxPtr):BOOLEAN;
  464.  
  465.  
  466. LIBRARY EGBBase BY -402 PROCEDURE LinkStringGadgetsID(con     IN A0 : GadContext;
  467.                                                       from    IN D0,
  468.                                                       to      IN D1 : LONGINT;
  469.                                                       first   IN A1 : I.GadgetPtr;
  470.                                                       num     IN D2 : INTEGER):BOOLEAN;
  471.  
  472. LIBRARY EGBBase BY -408 PROCEDURE C_GetStringData(gad IN A0 : I.StringGadPtr;
  473.                                                   str IN A1 : SysStringPtr);
  474.  
  475.                         PROCEDURE GetStringData(    gad IN A0 : I.StringGadPtr;
  476.                                                 VAR str IN A1 : STRING);
  477.  
  478. LIBRARY EGBBase BY -414 PROCEDURE PutStringData(    win IN A0 : I.WindowPtr;
  479.                                                     gad IN A1 : I.StringGadPtr;
  480.                                                 REF str IN A2 : STRING);
  481.  
  482. LIBRARY EGBBase BY -420 PROCEDURE PutIntData(win IN A0 : I.WindowPtr;
  483.                                              gad IN A1 : I.IntGadPtr;
  484.                                              val IN D0 : LONGINT);
  485.  
  486. LIBRARY EGBBase BY -426 PROCEDURE PutRealData(win    IN A0 : I.WindowPtr;
  487.                                               gad    IN A1 : I.RealGadPtr;
  488.                                               val    IN D0 : LONGREAL;
  489.                                               field  IN D2 : INTEGER;
  490.                                               digits IN D3 : INTEGER;
  491.                                               exp    IN D4 : BOOLEAN);
  492.  
  493. LIBRARY EGBBase BY -432 PROCEDURE CreateWindow(con   IN A0 : GadContext;
  494.                                                left  IN D0,
  495.                                                top   IN D1 : INTEGER):GadBoxPtr;
  496.  
  497. LIBRARY EGBBase BY -438 PROCEDURE CreateMasterWindow(con  IN A0 : GadContext;
  498.                                                      win  IN A1 : I.WindowPtr;
  499.                                                      with IN A2 : GadBoxPtr):GadBoxPtr;
  500.  
  501.  
  502.  
  503.  
  504. LIBRARY EGBBase BY -444 PROCEDURE CalcMinMax(box IN A0 : GadBoxPtr):BOOLEAN;
  505.  
  506. LIBRARY EGBBase BY -450 PROCEDURE CalcRealSize(box IN A0 : GadBoxPtr):BOOLEAN;
  507.  
  508. LIBRARY EGBBase BY -456 PROCEDURE CalcPositions(box IN A0 : GadBoxPtr;
  509.                                                 x   IN D0,
  510.                                                 y   IN D1 : INTEGER):BOOLEAN;
  511.  
  512. LIBRARY EGBBase BY -462 PROCEDURE CalcGadgetGfx(con IN A0 : GadContext;
  513.                                                 box IN A1 : GadBoxPtr):BOOLEAN;
  514.  
  515. LIBRARY EGBBase BY -468 PROCEDURE ConnectGadgets(    box   IN A0 : GadBoxPtr;
  516.                                                  VAR first IN A1 : I.GadgetPtr;
  517.                                                  VAR num   IN A2 : INTEGER);
  518.  
  519. LIBRARY EGBBase BY -474 PROCEDURE ProcessGadBoxes(con  IN A0 : GadContext;
  520.                                                   root IN A1 : GadBoxPtr):BOOLEAN;
  521.  
  522. LIBRARY EGBBase BY -498 PROCEDURE ProcessGadBoxesSize(con  IN A0 : GadContext;
  523.                                                       root IN A1 : GadBoxPtr;
  524.                                                       w    IN D0 : INTEGER;
  525.                                                       h    IN D1 : INTEGER):BOOLEAN;
  526.  
  527. LIBRARY EGBBase BY -534 PROCEDURE ProcessGadBoxesResize(con  IN A0 : GadContext;
  528.                                                         root IN A1 : GadBoxPtr;
  529.                                                         win  IN A2 : I.WindowPtr;
  530.                                                         w    IN D0 : INTEGER;
  531.                                                         h    IN D1 : INTEGER):BOOLEAN;
  532.  
  533. LIBRARY EGBBase BY -540 PROCEDURE OpenGadWindow(con IN A0 : GadContext):I.WindowPtr;
  534.  
  535. LIBRARY EGBBase BY -546 PROCEDURE CloseGadWindow(con IN A0 : GadContext);
  536.  
  537. LIBRARY EGBBase BY -552 PROCEDURE NewPropFollow(box IN A0 : GadBoxPtr):GadBoxPtr;
  538.  
  539. LIBRARY EGBBase BY -558 PROCEDURE GetGadget(box IN A0 : GadBoxPtr;VAR gad IN A1 : I.GadgetPtr):GadBoxPtr;
  540.  
  541. LIBRARY EGBBase BY -564 PROCEDURE CreateTextCheckmark(con IN A0 : GadContext;text IN A1 : SysStringPtr;id IN D0 : LONGINT):GadBoxPtr;
  542.  
  543. LIBRARY EGBBase BY -570 PROCEDURE CreateTextCircleButton(con IN A0 : GadContext;text IN A1 : SysStringPtr;id IN D0 : LONGINT):GadBoxPtr;
  544.  
  545.  
  546. LIBRARY EGBBase BY -576 PROCEDURE GCFindGadget(con IN A0 : GadContext;id IN D0 : LONGINT):I.GadgetPtr;
  547.  
  548. LIBRARY EGBBase BY -582 PROCEDURE GCSetIntValue(con IN A0 : GadContext;id IN D0 : LONGINT;val IN D1 : LONGINT);
  549.  
  550. LIBRARY EGBBase BY -588 PROCEDURE GCGetIntValue(con IN A0 : GadContext;id IN D0 : LONGINT):LONGINT;
  551.  
  552. LIBRARY EGBBase BY -594 PROCEDURE GCSetRealValue(con IN A0 : GadContext;id IN D0 : LONGINT;
  553.                                                  val    IN D1 : LONGREAL;
  554.                                                  field  IN D2 : INTEGER;
  555.                                                  digits IN D3 : INTEGER;
  556.                                                  exp    IN D4 : BOOLEAN);
  557.  
  558. LIBRARY EGBBase BY -600 PROCEDURE GCGetRealValue(con IN A0 : GadContext;id IN D0 : LONGINT):LONGREAL;
  559.  
  560. LIBRARY EGBBase BY -606 PROCEDURE GCSetStringValue(con IN A0 : GadContext;id IN D0 : LONGINT;val IN A1 : SysStringPtr);
  561.  
  562. LIBRARY EGBBase BY -612 PROCEDURE GCGetStringValue(con IN A0 : GadContext;id IN D0 : LONGINT;val IN A1 : SysStringPtr;len IN D1 : INTEGER):INTEGER;
  563.  
  564. LIBRARY EGBBase BY -618 PROCEDURE GCSetBoolValue(con IN A0 : GadContext;id IN D0 : LONGINT;val IN D1 : BOOLEAN);
  565.  
  566. LIBRARY EGBBase BY -624 PROCEDURE GCGetBoolValue(con IN A0 : GadContext;id IN D0 : LONGINT):BOOLEAN;
  567.  
  568. LIBRARY EGBBase BY -630 PROCEDURE GCSetPropValue(con IN A0 : GadContext;id IN D0 : LONGINT;
  569.                                                  val IN D1,size IN D2,max IN D3 : INTEGER);
  570.  
  571. LIBRARY EGBBase BY -636 PROCEDURE GCGetPropValue(con IN A0 : GadContext;id IN D0 : LONGINT):INTEGER;
  572.  
  573. LIBRARY EGBBase BY -642 PROCEDURE GCOnGadget(con IN A0 : GadContext;id IN D0 : LONGINT);
  574.  
  575. LIBRARY EGBBase BY -648 PROCEDURE GCOffGadget(con IN A0 : GadContext;id IN D0 : LONGINT);
  576.  
  577. LIBRARY EGBBase BY -654 PROCEDURE GCLinkStringGadgets(con IN A0 : GadContext;from IN D0,to IN D1 : LONGINT);
  578.  
  579. LIBRARY EGBBase BY -660
  580.     PROCEDURE CreateMultiPanel(    con   IN A0 : GadContext;
  581.                                VAR panel IN A1 : MultiPanel;
  582.                                    boxes IN A2 : GadBoxArrayPtr):GadBoxPtr;
  583.  
  584. PROCEDURE CreateMultiPanelL(    con   : GadContext;
  585.                             VAR panel : MultiPanel;
  586.                                 boxes : LIST OF GadBoxPtr):GadBoxPtr;
  587.  
  588. LIBRARY EGBBase BY -666
  589.     PROCEDURE SetMultiPanel(    win   IN A0 : I.WindowPtr;
  590.                             REF panel IN A1 : MultiPanel;
  591.                                 sel   IN D0 : INTEGER);
  592.  
  593. |-552 CloseGadWindow
  594.  
  595.  
  596. END EGSGadBox.
  597.  
  598.