home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBTextInfo.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  2.8 KB  |  75 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBKD
  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 GBTextInfo;
  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. CONST
  19.   TextInfoType   = CAST(LONGINT,"TINF".data);
  20.  
  21. TYPE
  22.   CharPtr        = POINTER TO CHAR;
  23.   CardArray      = ARRAY OF CARDINAL;
  24.   TextInfoGadPtr = POINTER TO TextInfoGadget;
  25.   TextInfoGadget = RECORD OF I.MasterGadget;
  26.                      prop     : I.PropGadPtr;         | the propgadget
  27.                      text     : CharPtr;              | first character
  28.                      lineDisp : POINTER TO CardArray; | pointer to displacements
  29.                                                       | to the line starts
  30.                      lines    : INTEGER;              | number of lines in the
  31.                                                       | full text
  32.                      cheight  : INTEGER;              | character height
  33.                      res      : GB.ResBox;            | location and size of the
  34.                                                       | text box
  35.                      x,y,w    : INTEGER;              | real centered text
  36.                                                       | location
  37.                      font     : EFontPtr;             | text font
  38.                      con      : GB.GadContext;        | pointer to the context
  39.                    END;
  40.  
  41. VAR
  42.   GBTextInfoBase : LibraryPtr;
  43.  
  44. LIBRARY GBTextInfoBase BY - 30
  45.     PROCEDURE CreateTextInfoGadget(con  IN A0 : GB.GadContext;
  46.                                    minW IN D0,
  47.                                    maxW IN D1,
  48.                                    minH IN D2,
  49.                                    maxH IN D3 : INTEGER;
  50.                                    font IN A1 : EFontPtr;
  51.                                    id   IN D4 : LONGINT):GB.GadBoxPtr;
  52.  
  53. LIBRARY GBTextInfoBase BY - 36
  54.     PROCEDURE ModifyTextInfoGadget(win  IN A0 : I.WindowPtr;
  55.                                    gad  IN A1 : TextInfoGadPtr;
  56.                                    text IN A2 : CharPtr);
  57.  
  58. LIBRARY GBTextInfoBase BY - 42
  59.     PROCEDURE SetTextInfoPos(win  IN A0 : I.WindowPtr;
  60.                              gad  IN A1 : TextInfoGadPtr;
  61.                              line IN D0 : INTEGER);
  62.  
  63. LIBRARY GBTextInfoBase BY - 48
  64.     PROCEDURE GCSetTextInfoData(con  IN A0 : GB.GadContext;
  65.                                 id   IN D0 : LONGINT;
  66.                                 text IN A1 : CharPtr);
  67.  
  68. LIBRARY GBTextInfoBase BY - 54
  69.     PROCEDURE GCSetTextInfoPos(con  IN A0 : GB.GadContext;
  70.                                id   IN D0 : LONGINT;
  71.                                line IN D1 : INTEGER);
  72.  
  73. END GBTextInfo.
  74.  
  75.