Topspeed_JPI/TS-V3/MODBASE/EDITOR.LST

Listing:

    1  DEFINITION MODULE Editor;
    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/editor.dev   1.4   30 Dec 1990 18:00:06   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  IMPORT KbdInput;
   18  IMPORT MsColors;
   19  IMPORT ScrnTypes;
   20  IMPORT VEditor;
   21  
   22    VAR
   23      overwriting, DoCounting : BOOLEAN;
   24      MaxLines, EdLastKey, EntryBox, ExitBox,
   25          CountRow : CARDINAL;
   26  
   27      EntryForeColor, EntryBackColor, ExitForeColor,
   28          ExitBackColor, EntryForeBox, EntryBackBox,
   29          ExitForeBox, ExitBackBox, EdPromptFore,
   30          EdPromptBack: MsColors.AColor;
*****                                 ^ not supported yet
   31  
   32      EntryAttrib, ExitAttrib, EdPromptAttrib:
   33          MsColors.AMonoAttribute;
*****                   ^ not supported yet
   34  
   35    PROCEDURE ScrnEdit(Col1, Row1, Col2, Row2 :
   36        CARDINAL; VAR TheList : GenLists.GenList;
*****                                         ^ not supported yet
   37        VAR TextRow1, CursorCol, CursorRow:
   38        CARDINAL; VAR ChangeMade: BOOLEAN; ReadOnly:
   39        BOOLEAN; VAR FrameRec:
   40        ScrnTypes.DisplayFrame): INTEGER;
*****                  ^ not supported yet
   41  
   42    PROCEDURE DefaultEditor( VAR TheList:
   43        GenLists.GenList; VAR Rec:
*****                 ^ not supported yet
   44        VEditor.AnEdControlRec);
*****                ^ not supported yet
   45  
   46    PROCEDURE Init();
   47  
   48  END Editor.
*****      ^ not supported yet

    7 errors