| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201 |
- 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
|
