DEFINITION MODULE ControlUtils;
(*
 *  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/controlu.dev   1.4   30 Dec 1990 17:59:10   coleb  $
 *
 *)


IMPORT GenLists;
IMPORT MsColors;
IMPORT ScrnTypes;
IMPORT VEditor;
IMPORT VWindows;

  PROCEDURE AddMenuItem( VAR TheFrame :
      ScrnTypes.DisplayFrame; Col, Row : CARDINAL;
      text : ARRAY OF CHAR; width, MenuKey:
      CARDINAL; ReturnVal : ARRAY OF CHAR );

  PROCEDURE AddEditorField(VAR TheFrame :
      ScrnTypes.DisplayFrame; VAR TheList:
      GenLists.GenList; VAR ControlRec:
      VEditor.AnEdControlRec );

  PROCEDURE AddStrField(VAR TheFrame :
      ScrnTypes.DisplayFrame; Col, Row : CARDINAL;
      text : ARRAY OF CHAR; width: CARDINAL );

  PROCEDURE AddToFrameList( TheFrame:
      ScrnTypes.DisplayFrame; VAR FrameList:
      GenLists.GenList );

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

  PROCEDURE Control(TheFrame:
      ScrnTypes.DisplayFrame);

  PROCEDURE ControlFrameGroup(  TheFrame:
      ScrnTypes.DisplayFrame; VAR NextFrame:
      ScrnTypes.AFrameName; VAR SelectedChar:
      CHAR; VAR EndingFrame: ScrnTypes.AFrameName
      );

  PROCEDURE ControlFrameList( FrameList:
      GenLists.GenList; TheFrame:
      ScrnTypes.DisplayFrame; VAR NextFrame:
      ScrnTypes.AFrameName; VAR SelectedChar:
      CHAR; VAR EndingFrame: ScrnTypes.AFrameName
      );

  PROCEDURE ControlSeparately( FrameList:
      GenLists.GenList; VAR NextFrame:
      ScrnTypes.AFrameName; VAR SelectedChar:
      CHAR; VAR EndingFrame: ScrnTypes.AFrameName
      );

  PROCEDURE DisposeFrameList( VAR FrameList:
      GenLists.GenList );

  PROCEDURE FindNextField( TheFrame:
      ScrnTypes.DisplayFrame; typ: CHAR; VAR spot:
      CARDINAL; VAR FieldPtr:
      ScrnTypes.InputFieldPtr ): BOOLEAN;

  PROCEDURE FrameExists( TheScreenFile:
      ScrnTypes.DisplayFile; FrameName: ARRAY OF
      CHAR ): BOOLEAN;

  PROCEDURE FrameListSpot( FrameName: ARRAY OF
      CHAR; FrameList: GenLists.GenList ):
      CARDINAL;

  PROCEDURE FrameSeq2( TheFile :
      ScrnTypes.DisplayFile; CheckFrame: ARRAY OF
      CHAR; VAR StartFrame : ARRAY OF CHAR );

  PROCEDURE FrameSequence( TheFrame:
      ScrnTypes.DisplayFrame; VAR StartFrame:
      ScrnTypes.AFrameName );

  PROCEDURE FrameSeqReturn(TheFrame:
      ScrnTypes.DisplayFrame; VAR StartFrame:
      ScrnTypes.AFrameName);

  PROCEDURE GetFrameFromList( FrameList:
      GenLists.GenList; FrameName: ARRAY OF CHAR;
      VAR TheFrame: ScrnTypes.DisplayFrame ):
      BOOLEAN;

  PROCEDURE GetStrResponse( TheFile:
      ScrnTypes.DisplayFile; FrameName, Default:
      ARRAY OF CHAR; VAR TheStr: ARRAY OF CHAR ):
      BOOLEAN;

  PROCEDURE Input( TheFrame:
      ScrnTypes.DisplayFrame; VAR FrameName :
      ScrnTypes.AFrameName);

  PROCEDURE InputConst( TheFrame:
      ScrnTypes.DisplayFrame; FrameName : ARRAY OF
      CHAR );

  PROCEDURE ListBox( TheDspFile:
      ScrnTypes.DisplayFile; FormFrameName: ARRAY
      OF CHAR; TheList: GenLists.GenList; VAR
      ItemChosen: ARRAY OF CHAR; VAR NextFrame:
      ScrnTypes.AFrameName ): BOOLEAN;

  PROCEDURE LoadFrameList( dfile:
      ScrnTypes.DisplayFile; StartFrame: ARRAY OF
      CHAR; VAR FrameList: GenLists.GenList );

  PROCEDURE PointFrameAtList( FrameList:
      GenLists.GenList; FrameName: ARRAY OF CHAR;
      VAR TheFrame: ScrnTypes.DisplayFrame ):
      BOOLEAN;

  PROCEDURE ReadInput(VAR TheFrame :
      ScrnTypes.DisplayFrame; VAR TheStr : ARRAY
      OF CHAR; FieldName : ARRAY OF CHAR);

  PROCEDURE ReadNextField(VAR TheFrame :
      ScrnTypes.DisplayFrame; VAR TheStr : ARRAY
      OF CHAR; skip : CARDINAL);

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

  PROCEDURE ReadShowAndCntrl( TheFile:
      ScrnTypes.DisplayFile; TheFrame:
      ScrnTypes.DisplayFrame; VAR FrameName :
      ScrnTypes.AFrameName );

  PROCEDURE RdShwAndCntrlConst( TheFile:
      ScrnTypes.DisplayFile; TheFrame:
      ScrnTypes.DisplayFrame; FrameName : ARRAY OF
      CHAR);

  PROCEDURE Init();

END ControlUtils.