Topspeed_JPI/TS-V3/REP16/VEDITOR.DEF

DEFINITION MODULE VEditor;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/veditor.dev   1.4   30 Dec 1990 18:06:18   coleb  $
 *
 *)


IMPORT GenLists;
IMPORT MsColors;
IMPORT ScrnTypes;
IMPORT VWindows;

TYPE
  AnEdControlRec = RECORD
    Col1, Row1, Col2, Row2 : CARDINAL;
    TextRow1, CursorCol, CursorRow: CARDINAL;
    Wrapping, ReadOnly, overwriting, DoCounting,
        ChangeMade: BOOLEAN;
    FrameRec: ScrnTypes.DisplayFrame;
    WindowHandle: VWindows.AWindowHandle;
    NextFrame: ScrnTypes.AFrameName;
    MaxLines, EdLastKey, EntryBox, ExitBox,
        CountRow : CARDINAL;
    EntryForeColor, EntryBackColor, ExitForeColor,
        ExitBackColor, EntryForeBox, EntryBackBox,
        ExitForeBox, ExitBackBox, EdPromptFore,
        EdPromptBack: MsColors.AColor;
    EntryAttrib, ExitAttrib, EdPromptAttrib:
        MsColors.AMonoAttribute;
  END;

  AnEditor = PROCEDURE( VAR GenLists.GenList, VAR
      AnEdControlRec );

VAR
  TheEditor : AnEditor;

  PROCEDURE InitEdRec( VAR Rec: AnEdControlRec );

  PROCEDURE Init();

END VEditor.