home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / guienv376.lha / GUIEnvironment / M2Amiga / Modules / GEClassD.def next >
Encoding:
Modula Definition  |  1994-12-16  |  3.1 KB  |  111 lines
  1. (****************************************************************************
  2.  
  3. $RCSfile: GEClassD.def $
  4.  
  5. $Revision: 1.2 $
  6.     $Date: 1994/12/16 16:20:00 $
  7.  
  8.     GUIEnvironment Class Library Definition
  9.  
  10.     M2Amiga Modula-2 Compiler V4.3
  11.  
  12.   Copyright © 1994, Carsten Ziegeler
  13.                     Augustin-Wibbelt-Str.7, 33106 Paderborn, Germany
  14.  
  15. ****************************************************************************)
  16. DEFINITION MODULE GEClassD; (*$ Implementation:=FALSE *)
  17.  
  18.   FROM UtilityD IMPORT tagUser;
  19.  
  20. (* ======================================================================= *)
  21. (*                       The Get File Image Class                          *)
  22. (* ======================================================================= *)
  23.  
  24. CONST getfileiClass = "getfileiclass";
  25.  
  26. (* Default dimension: *)
  27.  
  28.   gfiWidth  = 20;
  29.   gfiHeight = 14;
  30.  
  31.  
  32. (* ======================================================================= *)
  33. (*                       The TextField Gadget Class                        *)
  34. (* ======================================================================= *)
  35.  
  36. (*
  37.  * TextFieldGadget V2.0
  38.  *
  39.  * Copyright © 1994 Mark Thomas
  40.  *
  41.  *)
  42.  
  43. CONST textfieldgClass = "textfieldgclass";
  44.  
  45. (* ----------------------- Attributes ------------------------------------ *)
  46.  
  47. CONST
  48.   dummy           = tagUser + 04000000H;
  49.  
  50.   text            = dummy + 1;    (* V1 *)
  51.   insertText      = dummy + 2;
  52.   textFont        = dummy + 3;
  53.   delimiters      = dummy + 4;
  54.   top             = dummy + 5;
  55.   blockCursor     = dummy + 6;
  56.   size            = dummy + 7;
  57.   visible         = dummy + 8;
  58.   lines           = dummy + 9;
  59.   noGhost         = dummy + 10;
  60.   maxSize         = dummy + 11;
  61.   border          = dummy + 12;
  62.   textAttr        = dummy + 13;
  63.   fontStyle       = dummy + 14;
  64.   up              = dummy + 15;
  65.   down            = dummy + 16;
  66.   alignment       = dummy + 17;
  67.   vCenter         = dummy + 18;
  68.   ruledPaper      = dummy + 19;
  69.   paperPen        = dummy + 20;
  70.   inkPen          = dummy + 21;
  71.   linePen         = dummy + 22;
  72.   userAlign       = dummy + 23;
  73.   spacing         = dummy + 24;
  74.   clipStream      = dummy + 25;
  75.   clipStream2     = dummy + 26;
  76.   undoStream      = dummy + 26;
  77.   blinkRate       = dummy + 27;
  78.   inverted        = dummy + 28;
  79.   partial         = dummy + 29;
  80.   cursorPos       = dummy + 30;
  81.  
  82.   readOnly        = dummy + 31;     (* V2 *)
  83.   modified        = dummy + 32;
  84.   acceptChars     = dummy + 33;
  85.   rejectChars     = dummy + 34;
  86.   passCommand     = dummy + 35;
  87.   lineLength      = dummy + 36;
  88.   maxSizeBeep     = dummy + 37;
  89.   deleteText      = dummy + 38;
  90.   selectSize      = dummy + 39;
  91.   copy            = dummy + 40;
  92.   copyAll         = dummy + 41;
  93.   cut             = dummy + 42;
  94.   paste           = dummy + 43;
  95.   erase           = dummy + 44;
  96.   undo            = dummy + 45;
  97.  
  98. (* ----------------------- Border ----------------------------------------- *)
  99.  
  100.   borderNone          = 0;
  101.   borderBevel         = 1;
  102.   borderDoubleBevel   = 2;
  103.  
  104. (* ----------------------- Alignment -------------------------------------- *)
  105.  
  106.   alignLeft           = 0;
  107.   alignCenter         = 1;
  108.   alignRight          = 2;
  109.  
  110. END GEClassD.
  111.