(****************************************************************************

$RCSfile: GEClassD.def $

$Revision: 1.2 $
    $Date: 1994/12/16 16:20:00 $

    GUIEnvironment Class Library Definition

    M2Amiga Modula-2 Compiler V4.3

  Copyright © 1994, Carsten Ziegeler
                    Augustin-Wibbelt-Str.7, 33106 Paderborn, Germany

****************************************************************************)
DEFINITION MODULE GEClassD; (*$ Implementation:=FALSE *)

  FROM UtilityD IMPORT tagUser;

(* ======================================================================= *)
(*                       The Get File Image Class                          *)
(* ======================================================================= *)

CONST getfileiClass = "getfileiclass";

(* Default dimension: *)

  gfiWidth  = 20;
  gfiHeight = 14;


(* ======================================================================= *)
(*                       The TextField Gadget Class                        *)
(* ======================================================================= *)

(*
 * TextFieldGadget V2.0
 *
 * Copyright © 1994 Mark Thomas
 *
 *)

CONST textfieldgClass = "textfieldgclass";

(* ----------------------- Attributes ------------------------------------ *)

CONST
  dummy           = tagUser + 04000000H;

  text            = dummy + 1;    (* V1 *)
  insertText      = dummy + 2;
  textFont        = dummy + 3;
  delimiters      = dummy + 4;
  top             = dummy + 5;
  blockCursor     = dummy + 6;
  size            = dummy + 7;
  visible         = dummy + 8;
  lines           = dummy + 9;
  noGhost         = dummy + 10;
  maxSize         = dummy + 11;
  border          = dummy + 12;
  textAttr        = dummy + 13;
  fontStyle       = dummy + 14;
  up              = dummy + 15;
  down            = dummy + 16;
  alignment       = dummy + 17;
  vCenter         = dummy + 18;
  ruledPaper      = dummy + 19;
  paperPen        = dummy + 20;
  inkPen          = dummy + 21;
  linePen         = dummy + 22;
  userAlign       = dummy + 23;
  spacing         = dummy + 24;
  clipStream      = dummy + 25;
  clipStream2     = dummy + 26;
  undoStream      = dummy + 26;
  blinkRate       = dummy + 27;
  inverted        = dummy + 28;
  partial         = dummy + 29;
  cursorPos       = dummy + 30;

  readOnly        = dummy + 31;     (* V2 *)
  modified        = dummy + 32;
  acceptChars     = dummy + 33;
  rejectChars     = dummy + 34;
  passCommand     = dummy + 35;
  lineLength      = dummy + 36;
  maxSizeBeep     = dummy + 37;
  deleteText      = dummy + 38;
  selectSize      = dummy + 39;
  copy            = dummy + 40;
  copyAll         = dummy + 41;
  cut             = dummy + 42;
  paste           = dummy + 43;
  erase           = dummy + 44;
  undo            = dummy + 45;

(* ----------------------- Border ----------------------------------------- *)

  borderNone          = 0;
  borderBevel         = 1;
  borderDoubleBevel   = 2;

(* ----------------------- Alignment -------------------------------------- *)

  alignLeft           = 0;
  alignCenter         = 1;
  alignRight          = 2;

END GEClassD.