home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBScrollBox.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  5.5 KB  |  156 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFCAF
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE GBScrollBox;
  11.  
  12. FROM System IMPORT Regs;
  13. FROM EGSGfx IMPORT EFontPtr;
  14. IMPORT EGSIntui AS I;
  15. IMPORT EGSGadBox AS GB;
  16. FROM Exec IMPORT List,ListPtr,Node,NodePtr,LibraryPtr;
  17.  
  18.  
  19. TYPE
  20.   ScrollGadPtr = POINTER TO ScrollGadget;
  21.   ScrollGadget = RECORD OF I.MasterGadget
  22.                    pixWidth,
  23.                    pixHeight,
  24.                    width,
  25.                    height   : INTEGER;
  26.                    scroller : GB.SPropGadPtr;
  27.                    list     : List;
  28.                    actText,
  29.                    topText  : NodePtr;
  30.                    font     : EFontPtr;
  31.                    selects  : I.GadgetPtr;
  32.                    sort     : BOOLEAN;
  33.                    string   : I.StringGadPtr;
  34.                  END;
  35.  
  36. CONST
  37.   SuperScrType   = CAST(LONGINT,"SLCT".data);
  38.  
  39. VAR
  40.   GBScrollBase : LibraryPtr;
  41.  
  42. LIBRARY GBScrollBase BY - 30
  43.     PROCEDURE CreateLateScrollBox(con       IN A0 : GB.GadContext;
  44.                                   minWidth  IN D0,
  45.                                   maxWidth  IN D1,
  46.                                   minHeight IN D2,
  47.                                   maxHeight IN D3 : INTEGER;
  48.                                   sort      IN D4 : BOOLEAN;
  49.                                   id        IN D5 : LONGINT):GB.GadBoxPtr;
  50.  
  51. LIBRARY GBScrollBase BY - 36
  52.     PROCEDURE AddItemToScrollBox(win  IN A0 : I.WindowPtr;
  53.                                  gad  IN A1 : ScrollGadPtr;
  54.                                  item IN A2 : NodePtr);
  55.  
  56. LIBRARY GBScrollBase BY - 42
  57.     PROCEDURE AddListToScrollBox(win  IN A0 : I.WindowPtr;
  58.                                  gad  IN A1 : ScrollGadPtr;
  59.                                  list IN A2 : ListPtr);
  60.  
  61. LIBRARY GBScrollBase BY - 48
  62.     PROCEDURE RemItemFromScrollBox(win  IN A0 : I.WindowPtr;
  63.                                    gad  IN A1 : ScrollGadPtr;
  64.                                    item IN A2 : NodePtr);
  65.  
  66. LIBRARY GBScrollBase BY - 54
  67.     PROCEDURE UpdateScrollBox(win  IN A0 : I.WindowPtr;
  68.                               gad  IN A1 : ScrollGadPtr);
  69.  
  70. LIBRARY GBScrollBase BY - 60
  71.     PROCEDURE RemListFromScrollBox(win  IN A0 : I.WindowPtr;
  72.                                    gad  IN A1 : ScrollGadPtr;
  73.                                    list IN A2 : ListPtr);
  74.  
  75. LIBRARY GBScrollBase BY - 66
  76.     PROCEDURE NextElem(win  IN A0 : I.WindowPtr;
  77.                        gad  IN A1 : ScrollGadPtr);
  78.  
  79. LIBRARY GBScrollBase BY - 72
  80.     PROCEDURE PrevElem(win  IN A0 : I.WindowPtr;
  81.                        gad  IN A1 : ScrollGadPtr);
  82.  
  83. LIBRARY GBScrollBase BY - 78
  84.     PROCEDURE ActivateElem(win  IN A0 : I.WindowPtr;
  85.                            gad  IN A1 : ScrollGadPtr;
  86.                            elem IN A2 : NodePtr);
  87.  
  88. LIBRARY GBScrollBase BY - 84
  89.     PROCEDURE SetTopElem(win  IN A0 : I.WindowPtr;
  90.                          gad  IN A1 : ScrollGadPtr;
  91.                          elem IN A2 : NodePtr);
  92.  
  93. LIBRARY GBScrollBase BY - 90
  94.     PROCEDURE LinkStringToScroll(scroll IN A0 : ScrollGadPtr;
  95.                                  string IN A1 : I.StringGadPtr);
  96.  
  97.  
  98. LIBRARY GBScrollBase BY - 96
  99.     PROCEDURE GCAddItemToScrollBox(con  IN A0 : GB.GadContext;
  100.                                    id   IN D0 : LONGINT;
  101.                                    item IN A1 : NodePtr);
  102.  
  103. LIBRARY GBScrollBase BY -102
  104.     PROCEDURE GCRemItemFromScrollBox(con  IN A0 : GB.GadContext;
  105.                                      id   IN D0 : LONGINT;
  106.                                      item IN A1 : NodePtr);
  107.  
  108. LIBRARY GBScrollBase BY -108
  109.     PROCEDURE GCAddListToScrollBox(con  IN A0 : GB.GadContext;
  110.                                    id   IN D0 : LONGINT;
  111.                                    list IN A1 : ListPtr);
  112.  
  113. LIBRARY GBScrollBase BY -114
  114.     PROCEDURE GCRemListFromScrollBox(con  IN A0 : GB.GadContext;
  115.                                      id   IN D0 : LONGINT;
  116.                                      list IN A1 : ListPtr);
  117.  
  118. LIBRARY GBScrollBase BY -120
  119.     PROCEDURE GCChangeListInScrollBox(con  IN A0 : GB.GadContext;
  120.                                       id   IN D0 : LONGINT;
  121.                                       old  IN A1 : ListPtr;
  122.                                       new  IN A2 : ListPtr);
  123.  
  124. LIBRARY GBScrollBase BY -126
  125.     PROCEDURE GCNextItem(con  IN A0 : GB.GadContext;
  126.                          id   IN D0 : LONGINT);
  127.  
  128. LIBRARY GBScrollBase BY -132
  129.     PROCEDURE GCPrevItem(con  IN A0 : GB.GadContext;
  130.                          id   IN D0 : LONGINT);
  131.  
  132. LIBRARY GBScrollBase BY -138
  133.     PROCEDURE GCSetScrollBoxValue(con  IN A0 : GB.GadContext;
  134.                                   id   IN D0 : LONGINT;
  135.                                   item IN A1 : NodePtr);
  136.  
  137. LIBRARY GBScrollBase BY -144
  138.     PROCEDURE GCGetScrollBoxValue(con  IN A0 : GB.GadContext;
  139.                                   id   IN D0 : LONGINT):NodePtr;
  140.  
  141. LIBRARY GBScrollBase BY -160
  142.     PROCEDURE GCSetScrollBoxTop(con  IN A0 : GB.GadContext;
  143.                                 id   IN D0 : LONGINT;
  144.                                 item IN A1 : NodePtr);
  145.  
  146. LIBRARY GBScrollBase BY -166
  147.     PROCEDURE GCGetScrollBoxTop(con  IN A0 : GB.GadContext;
  148.                                 id   IN D0 : LONGINT):NodePtr;
  149.  
  150. LIBRARY GBScrollBase BY -172
  151.     PROCEDURE GCLinkScrollToString(con    IN A0 : GB.GadContext;
  152.                                    scroll IN D0,
  153.                                    string IN D1 : LONGINT);
  154.  
  155. END GBScrollBox.
  156.