home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBView.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  6.0 KB  |  177 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBGO
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE GBView;
  11.  
  12. FROM System IMPORT Regs;
  13. FROM EGSGfx IMPORT RastPortPtr;
  14. IMPORT EGSIntui AS I;
  15. IMPORT EGSGadBox AS GB;
  16. FROM EGS IMPORT EBitMapPtr;
  17. FROM Exec IMPORT LibraryPtr;
  18.  
  19.  
  20. CONST
  21.   ViewType       = CAST(LONGINT,"VIEW".data);
  22.  
  23. TYPE
  24.   ViewGadPtr     = POINTER TO ViewGadget;
  25.  
  26.   ViewGadFlags   = (scrollLeft,scrollRight,scrollTop,scrollBottom,
  27.                     scrollArrows,vgf31=31);
  28.   ViewGadFlagSet = SET OF ViewGadFlags;
  29.  
  30.  
  31.   FillDataPtr    = POINTER TO FillData;
  32.   FillData       = RECORD
  33.                      rp       : RastPortPtr;
  34.                      gad      : ViewGadPtr;
  35.                      sx,sy    : INTEGER;
  36.                      w,h      : INTEGER;
  37.                      dx,dy    : INTEGER;
  38.                    END;
  39.  
  40.   FillCall       = PROCEDURE(data IN A1 : FillDataPtr);
  41.  
  42.   ViewInfoPtr    = POINTER TO ViewInfo;
  43.   ViewInfo       = RECORD
  44.                      call     : FillCall;
  45.                      data     : ANYPTR;
  46.                      width,
  47.                      height   : INTEGER;
  48.                      zoom     : INTEGER;
  49.                    END;
  50.  
  51.   ViewGadget     = RECORD OF I.MasterGadget;
  52.                      vflags   : ViewGadFlagSet;
  53.  
  54.                      hprop,
  55.                      vprop    : I.PropGadPtr;
  56.  
  57.                      dispX,
  58.                      dispY    : INTEGER;
  59.  
  60.                      box      : I.MasterGadPtr;
  61.                      con      : GB.GadContext;
  62.  
  63.                      info     : ViewInfoPtr;
  64.                    END;
  65.  
  66. VAR
  67.   GBViewBase : LibraryPtr;
  68.  
  69. LIBRARY GBViewBase BY - 30
  70.   PROCEDURE CreateViewGadget(con   IN A0: GB.GadContext;
  71.                              minW  IN D0,
  72.                              maxW  IN D1,
  73.                              minH  IN D2,
  74.                              maxH  IN D3  : INTEGER;
  75.                              flags IN D4  : ViewGadFlagSet;
  76.                              id    IN D5  : LONGINT):GB.GadBoxPtr;
  77.  
  78. LIBRARY GBViewBase BY - 36
  79.   PROCEDURE ScrollViewGadget(win  IN A0 : I.WindowPtr;
  80.                              gad  IN A1 : ViewGadPtr;
  81.                              dx   IN D0,
  82.                              dy   IN D1 : INTEGER);
  83.  
  84. LIBRARY GBViewBase BY - 42
  85.   PROCEDURE ModifyViewGadget(win  IN A0 : I.WindowPtr;
  86.                              gad  IN A1 : ViewGadPtr;
  87.                              info IN A2 : ViewInfoPtr;
  88.                              x    IN D0,
  89.                              y    IN D1 : INTEGER);
  90.  
  91. LIBRARY GBViewBase BY - 48
  92.   PROCEDURE ModifyBMViewGadget(win  IN A0 : I.WindowPtr;
  93.                                gad  IN A1 : ViewGadPtr;
  94.                                bm   IN A2 : EBitMapPtr;
  95.                                x    IN D0,
  96.                                y    IN D1 : INTEGER);
  97.  
  98. LIBRARY GBViewBase BY - 54
  99.   PROCEDURE ModifyMaskViewGadget(win   IN A0 : I.WindowPtr;
  100.                                  gad   IN A1 : ViewGadPtr;
  101.                                  bm    IN A2 : EBitMapPtr;
  102.                                  front IN D0,
  103.                                  back  IN D1 : LONGINT;
  104.                                  x     IN D2,
  105.                                  y     IN D3 : INTEGER);
  106.  
  107. LIBRARY GBViewBase BY - 60
  108.   PROCEDURE UpdateViewRect(win   IN A0 : I.WindowPtr;
  109.                            gad   IN A1 : ViewGadPtr;
  110.                            x     IN D0,
  111.                            y     IN D1,
  112.                            w     IN D2,
  113.                            h     IN D3 : INTEGER);
  114.  
  115. LIBRARY GBViewBase BY - 66
  116.   PROCEDURE ModifyBMZoomViewGadget(win  IN A0 : I.WindowPtr;
  117.                                    gad  IN A1 : ViewGadPtr;
  118.                                    bm   IN A2 : EBitMapPtr;
  119.                                    x    IN D0,
  120.                                    y    IN D1 : INTEGER;
  121.                                    zoom IN D2 : INTEGER);
  122.  
  123. LIBRARY GBViewBase BY - 72
  124.   PROCEDURE GCScrollView(con  IN A0 : GB.GadContext;
  125.                          id   IN D0 : LONGINT;
  126.                          dx   IN D1,
  127.                          dy   IN D2 : INTEGER);
  128.  
  129. LIBRARY GBViewBase BY - 78
  130.   PROCEDURE GCGetViewDispX(con  IN A0 : GB.GadContext;
  131.                            id   IN D0 : LONGINT):INTEGER;
  132.  
  133. LIBRARY GBViewBase BY - 84
  134.   PROCEDURE GCGetViewDispY(con  IN A0 : GB.GadContext;
  135.                            id   IN D0 : LONGINT):INTEGER;
  136.  
  137. LIBRARY GBViewBase BY - 90
  138.   PROCEDURE GCSetViewValue(con  IN A0 : GB.GadContext;
  139.                            id   IN D0 : LONGINT;
  140.                            info IN A1 : ViewInfoPtr;
  141.                            x    IN D1,
  142.                            y    IN D2 : INTEGER);
  143.  
  144. LIBRARY GBViewBase BY - 96
  145.   PROCEDURE GCSetViewValueBM(con  IN A0 : GB.GadContext;
  146.                              id   IN D0 : LONGINT;
  147.                              map  IN A1 : EBitMapPtr;
  148.                              x    IN D1,
  149.                              y    IN D2 : INTEGER);
  150.  
  151. LIBRARY GBViewBase BY -102
  152.   PROCEDURE GCSetViewValueMask(con   IN A0 : GB.GadContext;
  153.                                id    IN D0 : LONGINT;
  154.                                map   IN A1 : EBitMapPtr;
  155.                                front IN D1 : LONGINT;
  156.                                back  IN D2 : LONGINT;
  157.                                x     IN D3,
  158.                                y     IN D4 : INTEGER);
  159.  
  160. LIBRARY GBViewBase BY -108
  161.   PROCEDURE GCSetViewValueBMZoom(con  IN A0 : GB.GadContext;
  162.                                  id   IN D0 : LONGINT;
  163.                                  map  IN A1 : EBitMapPtr;
  164.                                  x    IN D1,
  165.                                  y    IN D2 : INTEGER;
  166.                                  zoom IN D3 : INTEGER);
  167.  
  168. LIBRARY GBViewBase BY -114
  169.   PROCEDURE GCUpdateViewRect(con IN A0 : GB.GadContext;
  170.                              id  IN D0 : LONGINT;
  171.                              x   IN D1,
  172.                              y   IN D2,
  173.                              w   IN D3,
  174.                              h   IN D4 : INTEGER);
  175.  
  176. END GBView.
  177.