DEFINITION MODULE ScreenInput;
(*
 *  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/screenin.dev   1.4   30 Dec 1990 18:04:06   coleb  $
 *
 *)


IMPORT GenLists;
IMPORT MsColors;
IMPORT ScrnTypes;

  PROCEDURE ReadNextInput(VAR TheFrame :
      ScrnTypes.DisplayFrame; VAR thestr : ARRAY
      OF CHAR; VAR selected : BOOLEAN; skip :
      CARDINAL);

  PROCEDURE ReadInput(VAR TheFrame :
      ScrnTypes.DisplayFrame; VAR thestr : ARRAY
      OF CHAR; VAR selected : BOOLEAN; FieldName :
      ARRAY OF CHAR);

  PROCEDURE ChangeField(VAR TheFrame :
      ScrnTypes.DisplayFrame; thestr : ARRAY OF
      CHAR; FieldName : ARRAY OF CHAR;
      PreserveLength: BOOLEAN);

  PROCEDURE ListToEdField( TheList:
      GenLists.GenList; TheFrame:
      ScrnTypes.DisplayFrame; TheField: CARDINAL
      ): BOOLEAN;

  PROCEDURE ListFromEdField( TheFrame:
      ScrnTypes.DisplayFrame; TheField: CARDINAL;
      VAR TheList: GenLists.GenList ): BOOLEAN;

  PROCEDURE AddToMenu(VAR TheFrame :
      ScrnTypes.DisplayFrame; ScrCol, ScrRow :
      CARDINAL; ScrText : ARRAY OF CHAR; FieldType
      : CHAR; foreground, background:
      MsColors.AColor; MonoAttribute:
      MsColors.AMonoAttribute );

  PROCEDURE FrameSequence( StartFrame:
      ScrnTypes.FrameKey);

  PROCEDURE Input( VAR FrameNum :
      ScrnTypes.FrameKey);

  PROCEDURE Control(): ScrnTypes.FrameKey;

  PROCEDURE ControlFrame(VAR FrameRec :
      ScrnTypes.DisplayFrame; LandingField :
      CARDINAL; message : ARRAY OF CHAR;
      showfields : BOOLEAN) : ScrnTypes.FrameKey;

  PROCEDURE Init();

END ScreenInput.