Listing:

    1  DEFINITION MODULE VEditor;
    2  (*
    3   *  REPERTOIRE
    4   *  Release 1.6
    5   *  By Charles Bradford and Cole Brecheen
    6   *  (c) Copyright 1985-1992 PMI
    7   *  Green Bay, Wisconsin
    8   *  All rights reserved
    9   *  (414) 468-6040
   10   *
   11   *  $Header:   D:/logfiles/defs/veditor.dev   1.4   30 Dec 1990 18:06:18   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  IMPORT MsColors;
   18  IMPORT ScrnTypes;
   19  IMPORT VWindows;
   20  
   21  TYPE
   22    AnEdControlRec = RECORD
   23      Col1, Row1, Col2, Row2 : CARDINAL;
   24      TextRow1, CursorCol, CursorRow: CARDINAL;
   25      Wrapping, ReadOnly, overwriting, DoCounting,
   26          ChangeMade: BOOLEAN;
   27      FrameRec: ScrnTypes.DisplayFrame;
*****                          ^ not supported yet
   28      WindowHandle: VWindows.AWindowHandle;
*****                             ^ not supported yet
   29      NextFrame: ScrnTypes.AFrameName;
*****                           ^ not supported yet
   30      MaxLines, EdLastKey, EntryBox, ExitBox,
   31          CountRow : CARDINAL;
   32      EntryForeColor, EntryBackColor, ExitForeColor,
   33          ExitBackColor, EntryForeBox, EntryBackBox,
   34          ExitForeBox, ExitBackBox, EdPromptFore,
   35          EdPromptBack: MsColors.AColor;
*****                                 ^ not supported yet
   36      EntryAttrib, ExitAttrib, EdPromptAttrib:
   37          MsColors.AMonoAttribute;
*****                   ^ not supported yet
   38    END;
*****    ^ not supported yet
   39  
   40    AnEditor = PROCEDURE( VAR GenLists.GenList, VAR
*****               ^ not supported yet
*****                                       ^ not supported yet
   41        AnEdControlRec );
*****        ^ not supported yet
   42  
   43  VAR
   44    TheEditor : AnEditor;
   45  
   46    PROCEDURE InitEdRec( VAR Rec: AnEdControlRec );
   47  
   48    PROCEDURE Init();
   49  
   50  END VEditor.
*****      ^ not supported yet

   10 errors