home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / eagui30.lha / EAGUI / Modula2 / txt / TextField.def < prev    next >
Encoding:
Modula Definition  |  1994-12-01  |  2.5 KB  |  94 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.    
  3.  | $VER: TextField.imp 3.00 (23.11.94) by Stefan Schulz [sts]
  4.  
  5.  | Desc: Example of implementing custom images using EAGUI
  6.  
  7.  | Dist: This Module is © Copyright 1994 by Stefan Schulz
  8.  
  9.  | Rqrs: Amiga OS 2.0 or higher
  10.  |       EAGUI.library V3
  11.  |       EAGUI - Environment Adaptive Graphic User Interface
  12.  |       Copyright © 1993, 1994 by Marcel Offermans and Frank Groen
  13.  
  14.  | Lang: M2Amiga
  15.  | Trns: M2Amiga Modula 2 Software Development System
  16.  |       © Copyright by A+L AG, CH-2540 Grenchen
  17.  
  18.  | Hist: Version \date\
  19.  |
  20.  |       3.00   \23.11.94\
  21.  |              adapted to EAGUI.library V3
  22.  |
  23.  |       1.00   \01.05.94\
  24.  |              initial Version
  25.  
  26.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  27.  
  28. DEFINITION MODULE TextField;
  29.  
  30. (*$ DEFINE    Small:= FALSE
  31.  
  32.     IF    Small
  33.     StackChk   := FALSE
  34.     RangeChk   := FALSE
  35.     OverflowChk:= FALSE
  36.     NilChk     := FALSE
  37.     EntryClear := FALSE
  38.     CaseChk    := FALSE
  39.     ReturnChk  := FALSE
  40.     LargeVars  := FALSE
  41.     ENDIF            *)
  42.  
  43. (* IMPORTS ********************************************************************** *)
  44.  
  45. IMPORT    d    : EAGuiD;
  46.  
  47. IMPORT    gd    : GraphicsD,
  48.     R,
  49.     S    : SYSTEM,
  50.     ud    : UtilityD;
  51.  
  52. (* ****************************************************************************** *)
  53.  
  54. (* GLOBALS ====================================================================== *)
  55.  
  56. (* Alternative alignment flags. If these aren't specified, the default is to
  57.  * center the textfield both horizontally and vertically.
  58.  *)
  59. TYPE    CITFFlags    = (citfCenter,
  60.                citfAlignLeft, citfAlignRight,
  61.                citfAlignTop, citfAlignBottom,
  62.                citf5,  citf6,  citf7,  citf8,  citf9,  citf10,
  63.                citf11, citf12, citf13, citf14, citf15, citf16,
  64.                citf17, citf18, citf19, citf20, citf21, citf22,
  65.                citf23, citf24, citf25, citf26, citf27, citf28,
  66.                citf29, citf30, citf31
  67.               );
  68.     CITFFlagSet    = SET OF CITFFlags;
  69.  
  70. (* Information that is needed by this object, but that isn't maintained by EAGUI
  71.  * itself.
  72.  *)
  73. TYPE    ciTextFieldPtr    = POINTER TO ciTextField;
  74.     ciTextField    = RECORD
  75.               string    : d.StrPtr;
  76.               textAttr    : gd.TextAttrPtr;
  77.               flags        : CITFFlagSet;
  78.               frontPen    : SHORTCARD;
  79.               END;
  80.  
  81. (* ============================================================================== *)
  82.  
  83. PROCEDURE MethMinSizeTextField
  84.             ( hook{R.A0}    : ud.HookPtr;
  85.               obj{R.A2}    : S.ADDRESS;
  86.               msg{R.A1}    : S.ADDRESS    ) : S.ADDRESS;
  87.  
  88. PROCEDURE MethRenderTextField
  89.             ( hook{R.A0}    : ud.HookPtr;
  90.               obj{R.A2}    : S.ADDRESS;
  91.               msg{R.A1}    : S.ADDRESS    ) : S.ADDRESS;
  92.  
  93. END TextField.def
  94.