Listing: 1 IMPLEMENTATION 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/mods/veditor.mov 1.5 10 Mar 1991 15:34:18 coleb $ 12 * 13 *) 14 15 IMPORT MsColors; 16 IMPORT VWindows; 17 18 VAR 19 Initialized : BOOLEAN; 20 21 PROCEDURE Init(); 22 BEGIN 23 IF Initialized THEN 24 RETURN; 25 ELSE 26 Initialized := TRUE; 27 END; 28 MsColors.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 29 VWindows.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 30 END Init; ***** ^ not supported yet 31 32 33 PROCEDURE InitEdRec( VAR Rec: AnEdControlRec ); ***** ^ undeclared identifier 34 BEGIN 35 Rec.Col1 := 1; ***** ^ not supported yet ***** ^ not supported yet 36 Rec.Row1 := 1; ***** ^ not supported yet ***** ^ not supported yet 37 Rec.Col2 := VWindows.EndCol( VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 Rec.Row2 := VWindows.EndRow( VWindows.CurrentWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 Rec.TextRow1 := 1; ***** ^ not supported yet ***** ^ not supported yet 40 Rec.CursorCol := 1; ***** ^ not supported yet ***** ^ not supported yet 41 Rec.CursorRow := 1; ***** ^ not supported yet ***** ^ not supported yet 42 Rec.Wrapping := FALSE; ***** ^ not supported yet ***** ^ not supported yet 43 Rec.ReadOnly := FALSE; ***** ^ not supported yet ***** ^ not supported yet 44 Rec.ChangeMade := FALSE; ***** ^ not supported yet ***** ^ not supported yet 45 Rec.FrameRec := NIL; ***** ^ not supported yet ***** ^ not supported yet 46 Rec.WindowHandle := VWindows.CurrentWindow; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 Rec.NextFrame := ''; ***** ^ not supported yet ***** ^ not supported yet 48 Rec.MaxLines := 0; ***** ^ not supported yet ***** ^ not supported yet 49 Rec.EdLastKey := 0; ***** ^ not supported yet ***** ^ not supported yet 50 Rec.overwriting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 51 Rec.DoCounting := FALSE; ***** ^ not supported yet ***** ^ not supported yet 52 (* whether or not to use prompts *) 53 Rec.ExitBox := 1; ***** ^ not supported yet ***** ^ not supported yet 54 Rec.EntryBox := 2; ***** ^ not supported yet ***** ^ not supported yet 55 (* if one of these is 0, no box is drawn around the editor 56 window; 1 makes it a single-lined box, and 2 makes it 57 a double-lined box. *) 58 Rec.CountRow := Rec.Row2 - 1; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 59 (* the screen row to show counts if they are used *) 60 Rec.EdPromptFore := MsColors.black; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 61 Rec.EdPromptBack := MsColors.cyan; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 62 Rec.EdPromptAttrib := MsColors.ReverseVideo; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 63 Rec.EntryAttrib := MsColors.plain; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 Rec.ExitAttrib := MsColors.plain; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 Rec.EntryForeColor := MsColors.lightgrey; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 66 Rec.EntryBackColor := MsColors.blue; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 67 Rec.ExitForeColor := MsColors.lightgrey; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 68 Rec.ExitBackColor := MsColors.blue; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 69 Rec.EntryForeBox := MsColors.red; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 70 Rec.EntryBackBox := MsColors.blue; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 71 Rec.ExitForeBox := MsColors.red; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 72 Rec.ExitBackBox := MsColors.blue; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 73 END InitEdRec; ***** ^ not supported yet 74 75 76 BEGIN 77 Initialized := FALSE; 78 Init(); ***** ^ not supported yet ***** ^ not supported yet 79 END VEditor. ***** ^ not supported yet 116 errors