| 12345678910111213141516171819202122232425262728293031323334353637383940 |
- DEFINITION MODULE StrInput;
- (*
- * 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/strinput.dev 1.4 30 Dec 1990 18:05:54 coleb $
- *
- *)
- FROM KbdInput IMPORT KeyNumSet;
- FROM VWindows IMPORT AWindowHandle;
- VAR
- BeepAtNumbers : BOOLEAN;
- PROCEDURE ReadWithEdits( WindowHandle:
- AWindowHandle; VAR TheStr : ARRAY OF CHAR;
- col1, row1, FieldWidth: CARDINAL; VAR
- CursorPos: CARDINAL; VAR InsertMode:
- BOOLEAN; scrolling: BOOLEAN; VAR LastKey :
- CARDINAL; VAR LegalKeys, ExitKeys :
- KeyNumSet );
- PROCEDURE ReadNumeric( WindowHandle:
- AWindowHandle; VAR TheStr : ARRAY OF CHAR;
- col1, row1, FieldWidth: CARDINAL;
- DecimalPlaces: CARDINAL; FloatingPoint:
- BOOLEAN; VAR InDecimals: BOOLEAN; VAR
- LastKey : CARDINAL; VAR ExitKeys :
- KeyNumSet);
- PROCEDURE Init();
- END StrInput.
|
