21.30 Textfieldadds Interface

ORIGIN '../fields';
LIB_DEF 'guienvutilstextfld' '../../lib';
MDBODY default 'private/X11/textfieldadds_X11body'
        mac 'private/macintosh/textfieldadds_macbody'
        ppc 'private/macintosh/textfieldadds_macbody'
        ppcmac 'private/macintosh/textfieldadds_macbody'
        nti 'private/winnt/textfieldadds_ntibody'
       
-- textFieldLib: Attributes --
posToRowCol:
  (# pos: @integer; row,col: @integer;
     indexError:< exception
       (# 
       do 'pos out of range in posToRowCol' -> msg.append;
          INNER;
       #);
  enter pos
  do ...;
  exit (row,col)
  #);
rowColToPos:
  (#
     row,col: @integer;
     pos: @integer;
     indexError:< exception
       (# 
       do 'Row or col out of range error in rowColToPos' -> msg.append;
          INNER;
       #);
  enter (row,col)
  do ...;
  exit pos
  #);  

automaticScrolling:
  (# value: @boolean;
  enter value
  ...
  #);

disableUpdate:
  (# ... #);
enableUpdate:
  (# ... #);
updateLine:
  (* updateLine updates lineNumber in THIS(textField)
   *)
  (# lineNumber: @integer 
  enter lineNumber 
  ...
  #);
updateRegion:
  (* updateRegion updates the textfield from
   * (0,y1) to (size.x,y2) 
   * NB: the coordinates is in pixels
   *)
  (# y1,y2: @integer
  enter (y1,y2)
  ...
  #)