Topspeed_JPI/TS/MODBASE/STRINPUT.DEF

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.