| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566 |
- Listing:
- 1 DEFINITION 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/defs/veditor.dev 1.4 30 Dec 1990 18:06:18 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 IMPORT GenLists;
- 17 IMPORT MsColors;
- 18 IMPORT ScrnTypes;
- 19 IMPORT VWindows;
- 20
- 21 TYPE
- 22 AnEdControlRec = RECORD
- 23 Col1, Row1, Col2, Row2 : CARDINAL;
- 24 TextRow1, CursorCol, CursorRow: CARDINAL;
- 25 Wrapping, ReadOnly, overwriting, DoCounting,
- 26 ChangeMade: BOOLEAN;
- 27 FrameRec: ScrnTypes.DisplayFrame;
- ***** ^ not supported yet
- 28 WindowHandle: VWindows.AWindowHandle;
- ***** ^ not supported yet
- 29 NextFrame: ScrnTypes.AFrameName;
- ***** ^ not supported yet
- 30 MaxLines, EdLastKey, EntryBox, ExitBox,
- 31 CountRow : CARDINAL;
- 32 EntryForeColor, EntryBackColor, ExitForeColor,
- 33 ExitBackColor, EntryForeBox, EntryBackBox,
- 34 ExitForeBox, ExitBackBox, EdPromptFore,
- 35 EdPromptBack: MsColors.AColor;
- ***** ^ not supported yet
- 36 EntryAttrib, ExitAttrib, EdPromptAttrib:
- 37 MsColors.AMonoAttribute;
- ***** ^ not supported yet
- 38 END;
- ***** ^ not supported yet
- 39
- 40 AnEditor = PROCEDURE( VAR GenLists.GenList, VAR
- ***** ^ not supported yet
- ***** ^ not supported yet
- 41 AnEdControlRec );
- ***** ^ not supported yet
- 42
- 43 VAR
- 44 TheEditor : AnEditor;
- 45
- 46 PROCEDURE InitEdRec( VAR Rec: AnEdControlRec );
- 47
- 48 PROCEDURE Init();
- 49
- 50 END VEditor.
- ***** ^ not supported yet
- 10 errors
|
