home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / EGS / egssys71.lha / EGSClusterInc.lha / GBTextEdit.def < prev    next >
Encoding:
Text File  |  1994-12-13  |  3.6 KB  |  101 lines
  1. |##########|
  2. |#MAGIC   #|DBGFFBIF
  3. |#PROJECT #|""
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---xxx--x--------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----xxxxx-xx---
  9. |##########|
  10. DEFINITION MODULE GBTextEdit;
  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,SysStringPtr;
  17.  
  18. CONST
  19.   TextEditType   = CAST(LONGINT,"TEDI".data);
  20.  
  21. TYPE
  22.   TextEditFlags  = (modified,dummy31=31);
  23.   TextEditFlagSet= SET OF TextEditFlags;
  24.   FlowTextGadPtr = POINTER TO FlowTextGadget;
  25.   FlowTextGadget = RECORD OF I.MasterGadget;
  26.                      textFlags : TextEditFlagSet;
  27.                    END;
  28.  
  29. VAR
  30.   GBTextEditBase : LibraryPtr;
  31.  
  32. LIBRARY GBTextEditBase BY - 30
  33.     PROCEDURE CreateFlowTextGadget(con   IN A0 : GB.GadContext;
  34.                                    minW  IN D0,
  35.                                    maxW  IN D1,
  36.                                    minH  IN D2,
  37.                                    maxH  IN D3 : INTEGER;
  38.                                    font  IN A1 : EFontPtr;
  39.                                    bsize IN D4 : INTEGER;
  40.                                    id    IN D5 : LONGINT):GB.GadBoxPtr;
  41.  
  42. LIBRARY GBTextEditBase BY - 36
  43.     PROCEDURE ModifyFlowTextGadget(win  IN A0 : I.WindowPtr;
  44.                                    gad  IN A1 : FlowTextGadPtr;
  45.                                    text IN A2 : SysStringPtr);
  46.  
  47. LIBRARY GBTextEditBase BY - 42
  48.     PROCEDURE GetFlowTextValue(gad  IN A0 : FlowTextGadPtr;
  49.                                buff IN A1 : SysStringPtr;
  50.                                len  IN D0 : INTEGER):INTEGER;
  51.  
  52. LIBRARY GBTextEditBase BY - 48
  53.     PROCEDURE SetFlowTextCursor(win  IN A0 : I.WindowPtr;
  54.                                 gad  IN A1 : FlowTextGadPtr;
  55.                                 pos  IN D0 : INTEGER);
  56.  
  57. LIBRARY GBTextEditBase BY - 54
  58.     PROCEDURE ActivateFlowTextGadget(win   IN A0 : I.WindowPtr;
  59.                                      gad   IN A1 : FlowTextGadPtr;
  60.                                      force IN D0 : BOOLEAN);
  61.  
  62. LIBRARY GBTextEditBase BY - 60
  63.     PROCEDURE GetFlowTextBlock(gad  IN A0 : FlowTextGadPtr;
  64.                                buff IN A1 : SysStringPtr;
  65.                                len  IN D0 : INTEGER):INTEGER;
  66.  
  67. LIBRARY GBTextEditBase BY - 66
  68.     PROCEDURE GCSetFlowTextValue(con  IN A0 : GB.GadContext;
  69.                                  id   IN D0 : LONGINT;
  70.                                  text IN A1 : SysStringPtr);
  71.  
  72. LIBRARY GBTextEditBase BY - 72
  73.     PROCEDURE GCGetFlowTextValue(con  IN A0 : GB.GadContext;
  74.                                  id   IN D0 : LONGINT;
  75.                                  buff IN A1 : SysStringPtr;
  76.                                  len  IN D1 : INTEGER):INTEGER;
  77.  
  78. LIBRARY GBTextEditBase BY - 78
  79.     PROCEDURE GCSetFlowTextCursor(con IN A0 : GB.GadContext;
  80.                                   id  IN D0 : LONGINT;
  81.                                   pos IN D1 : INTEGER);
  82.  
  83. LIBRARY GBTextEditBase BY - 84
  84.     PROCEDURE GCGetFlowTextCursor(con IN A0 : GB.GadContext;
  85.                                   id  IN D0 : LONGINT):INTEGER;
  86.  
  87. LIBRARY GBTextEditBase BY - 90
  88.     PROCEDURE GCGetFlowTextBlock(con  IN A0 : GB.GadContext;
  89.                                  id   IN D0 : LONGINT;
  90.                                  buff IN A1 : SysStringPtr;
  91.                                  len  IN D1 : INTEGER):INTEGER;
  92.  
  93. LIBRARY GBTextEditBase BY - 96
  94.     PROCEDURE GCActivateFlowTextGadget(con   IN A0 : GB.GadContext;
  95.                                        id    IN D0 : LONGINT;
  96.                                        force IN D1 : BOOLEAN);
  97.  
  98.  
  99. END GBTextEdit.
  100.  
  101.