DEFINITION MODULE NumInput;
(*
 *  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/numinput.dev   1.3   30 Dec 1990 18:06:52   coleb  $
 *
 *)

(*
Author:     Mike Carter
Description:
  Enter or edit a numeric field. Replacement for PMI
  StrInput.ReadNumeric.  Note that parameters are
  slightly different:
  1.  PMI FloatingPoint and InDecimals parameters have
      been removed. They simply have no meaning the way
      real number input is now handled.
  2.  minusOK has been added - see below.
  3.  The meaning of DecimalPlaces has been changed -
      see below.

  Notes on parameters:
    * A new field was added in
      ScrnTypes.InputFieldRecord called "decimalPlace",
      with corresponding type DecimalPlaceType.  This
      was designed to be passed to this routine: a -1
      value indicates user-specified decimal points (or
      none); a 0 means no digits after the decimal
      point, a 1 means one digit, etc.
    * The value of minusOK determines whether negative
      numbers are allowed; this can be set from rMin,
      iMin within UserOps.  Must be FALSE for strings
      that are later to be interpreted as CARDINAL.
*)

IMPORT KbdInput;
IMPORT VWindows;
FROM ScrnTypes IMPORT DecimalPlaceType;

PROCEDURE ReadNumericField
(     WindowHandle : VWindows.AWindowHandle;
  VAR TheStr       : ARRAY OF CHAR;     (* in/out *)
      col1         : CARDINAL;          (* in     *)
      row1         : CARDINAL;          (* in     *)
      FieldWidth   : CARDINAL;          (* in     *)
      DecimalPlaces: DecimalPlaceType;  (* in     *)
      minusOK      : BOOLEAN;           (* in     *)
  VAR LastKey      : CARDINAL;          (* in/out *)
  VAR ExitKeys     : KbdInput.KeyNumSet (* in     *)
);
(*
 * This is a general-purpose numeric input routine that
 * replaces the StrInput.ReadNumeric procedure.  The
 * parameters are slightly different.
 *)

  PROCEDURE Init();

END NumInput.