Topspeed_JPI/TS-V3/REP16/VEDITOR.MOD

IMPLEMENTATION 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/mods/veditor.mov   1.5   10 Mar 1991 15:34:18   coleb  $
 *
 *)

IMPORT MsColors;
IMPORT VWindows;

VAR
  Initialized : BOOLEAN;

  PROCEDURE Init();
    BEGIN
      IF Initialized THEN
        RETURN;
      ELSE
        Initialized := TRUE;
      END;
      MsColors.Init();
      VWindows.Init();
    END Init;


  PROCEDURE InitEdRec( VAR Rec: AnEdControlRec );
    BEGIN
      Rec.Col1 := 1;
      Rec.Row1 := 1;
      Rec.Col2 := VWindows.EndCol( VWindows.CurrentWindow );
      Rec.Row2 := VWindows.EndRow( VWindows.CurrentWindow );
      Rec.TextRow1 := 1;
      Rec.CursorCol := 1;
      Rec.CursorRow := 1;
      Rec.Wrapping := FALSE;
      Rec.ReadOnly := FALSE;
      Rec.ChangeMade := FALSE;
      Rec.FrameRec := NIL;
      Rec.WindowHandle := VWindows.CurrentWindow;
      Rec.NextFrame := '';
      Rec.MaxLines := 0;
      Rec.EdLastKey := 0;
      Rec.overwriting := FALSE;
      Rec.DoCounting := FALSE;
        (* whether or not to use prompts *)
      Rec.ExitBox := 1;
      Rec.EntryBox := 2;
        (* if one of these is 0, no box is drawn around the editor
           window; 1 makes it a single-lined box, and 2 makes it
           a double-lined box. *)
      Rec.CountRow := Rec.Row2 - 1;
        (* the screen row to show counts if they are used *)
      Rec.EdPromptFore := MsColors.black;
      Rec.EdPromptBack := MsColors.cyan;
      Rec.EdPromptAttrib := MsColors.ReverseVideo;
      Rec.EntryAttrib := MsColors.plain;
      Rec.ExitAttrib := MsColors.plain;
      Rec.EntryForeColor := MsColors.lightgrey;
      Rec.EntryBackColor := MsColors.blue;
      Rec.ExitForeColor := MsColors.lightgrey;
      Rec.ExitBackColor := MsColors.blue;
      Rec.EntryForeBox := MsColors.red;
      Rec.EntryBackBox := MsColors.blue;
      Rec.ExitForeBox := MsColors.red;
      Rec.ExitBackBox := MsColors.blue;
    END InitEdRec;


BEGIN
  Initialized := FALSE;
  Init();
END VEditor.