Topspeed_JPI/TS/MODBASE/SCRNUTL2.DEF

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


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


  PROCEDURE ChoiceListToFrame( TheList:
      GenLists.GenList; TheFrame:
      ScrnTypes.DisplayFrame );

  PROCEDURE ClearFrameStack(VAR FrameRec :
      ScrnTypes.DisplayFrame);

  PROCEDURE CloseDisplayFrame(VAR FrameRec :
      ScrnTypes.DisplayFrame);

  PROCEDURE CopyEdField( frame1:
      ScrnTypes.DisplayFrame; FieldName1: ARRAY OF
      CHAR; frame2: ScrnTypes.DisplayFrame;
      FieldName2: ARRAY OF CHAR );

  PROCEDURE CreateImageElement( VAR TheElmt:
      ScrnTypes.ImageElement; col, row: CARDINAL;
      ForeColor, BackColor: MsColors.AColor;
      Attrib: MsColors.AMonoAttribute; FieldNum:
      CARDINAL; VAR TheText: ARRAY OF CHAR);

  PROCEDURE AddImageElement( VAR FrameRec:
      ScrnTypes.DisplayFrame; VAR TheElmt:
      ScrnTypes.ImageElement; VAR NewImageNum:
      CARDINAL);

  PROCEDURE CheckPushedFrame(VAR FrameRec :
      ScrnTypes.DisplayFrame) :
      ScrnTypes.DisplayFrame;

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

  PROCEDURE GetEdField( TheFrame:
      ScrnTypes.DisplayFrame; FieldName: ARRAY OF
      CHAR; VAR TheList: GenLists.GenList );

  PROCEDURE ListToFrame( TheList:
      GenLists.GenList; TheFrame:
      ScrnTypes.DisplayFrame );

  PROCEDURE PushFrame( VAR FrameRec :
      ScrnTypes.DisplayFrame);

  PROCEDURE PopFrame(VAR FrameRec :
      ScrnTypes.DisplayFrame);

  PROCEDURE PopZapFrame(VAR FrameRec :
      ScrnTypes.DisplayFrame);

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

  PROCEDURE ShowMessage( TheFile:
      ScrnTypes.DisplayFile; FrameName : ARRAY OF
      CHAR);

  PROCEDURE WriteToFrame( VAR FrameRec:
      ScrnTypes.DisplayFrame; col, row: CARDINAL;
      text: ARRAY OF CHAR );

  PROCEDURE Init();

END ScrnUtl2.