Topspeed_JPI/TS-V3/MODBASE/SCRNUTL1.DEF

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


FROM SYSTEM IMPORT ADDRESS, BYTE, WORD;

FROM GenLists IMPORT GenList;
FROM ScrnTypes IMPORT AFrameName, DisplayFrame,
     InputFieldRecord, InputFieldPtr,
      ImageElement,
     ImageElmtPtr;
FROM Rectangles IMPORT ARectangle;
FROM VEditor IMPORT AnEdControlRec;
FROM VWindows IMPORT AWindowHandle, Compass;


  CONST
    CoordCode = 20C;
    CommandCode = 200C;
    MenuCode = 'M';
    NoAttribCode = 377C;
    BadAttribCode = 376C;


  PROCEDURE AbsFieldRow( TheFrame: DisplayFrame;
      FieldNum: CARDINAL ): INTEGER;
  PROCEDURE AbsFieldCol( TheFrame: DisplayFrame;
      FieldNum: CARDINAL ): INTEGER;

  PROCEDURE AllFieldsThisType( TheFrame:
      DisplayFrame; TheType: CHAR ): BOOLEAN;

  PROCEDURE BoxFrame( TheFrame: DisplayFrame;
      Active: BOOLEAN );

  PROCEDURE BoxInFrame( TheFrame: DisplayFrame ):
      BOOLEAN;

  PROCEDURE ChoiceNumber( TheFrame: DisplayFrame;
      TheField: CARDINAL ): CARDINAL;

  PROCEDURE CoordsInField( TheFrame: DisplayFrame;
      TheField, TheCol, TheRow: CARDINAL ):
      BOOLEAN;

  PROCEDURE CurrentField( TheFrame: DisplayFrame
      ): CARDINAL;

  PROCEDURE DecodeByte( VAR AnyByte: BYTE );

  PROCEDURE DecodeImageRec( VAR TheImageRec:
      ImageElement );

  PROCEDURE DecodeWord( VAR AnyWord: WORD );

  PROCEDURE EncodeByte( VAR AnyByte: BYTE );

  PROCEDURE EncodeWord( VAR AnyWord: WORD );

  PROCEDURE EncodeImageRec( VAR TheImageRec:
      ImageElement );

  PROCEDURE EntirelyVisible( TheFrame:
      DisplayFrame; TheField: CARDINAL ): BOOLEAN;

  PROCEDURE FieldEntered( TheFrame: DisplayFrame;
      TheCol, TheRow: CARDINAL ): BOOLEAN;

  PROCEDURE FieldGroupTotal( TheFrame:
      DisplayFrame ): CARDINAL;

  PROCEDURE FieldHeight( TheFrame: DisplayFrame;
      TheField: CARDINAL ): CARDINAL;

  PROCEDURE FieldImageNum( TheFrame: DisplayFrame;
      FieldNumber: CARDINAL ): CARDINAL;

  PROCEDURE FieldIsBlank( TheFrame: DisplayFrame;
      FieldName: ARRAY OF CHAR; VAR FieldNumber:
      CARDINAL ): BOOLEAN;

  PROCEDURE FieldListTotal( TheFrame: DisplayFrame
      ): CARDINAL;

  PROCEDURE FieldNum( TheFrame: DisplayFrame;
      FieldName: ARRAY OF CHAR ): CARDINAL;

  PROCEDURE FieldType( TheFrame: DisplayFrame;
      FieldNum: CARDINAL ): CHAR;

  PROCEDURE FieldWidth( TheFrame: DisplayFrame;
      TheField: CARDINAL ): CARDINAL;

  PROCEDURE FindField( TheFrame: DisplayFrame;
      FieldName: ARRAY OF CHAR; VAR FieldPtr:
      InputFieldPtr; VAR ImageRec: ImageElement ):
      BOOLEAN;

  PROCEDURE FindFieldNum( TheFrame: DisplayFrame;
      FieldNum: CARDINAL; VAR FieldPtr:
      InputFieldPtr; VAR ImageRec: ImageElement ):
      BOOLEAN;

  PROCEDURE FirstMember( TheFrame: DisplayFrame;
      TheField: CARDINAL ): CARDINAL;

  PROCEDURE GetCardField( TheFrame: DisplayFrame;
      TheField: CARDINAL; VAR TheCard: CARDINAL );

  PROCEDURE GetEdField( FrameRec: DisplayFrame;
      FieldNum: CARDINAL; VAR TheList: GenList );

  PROCEDURE GetEdRec( FrameRec: DisplayFrame;
      FieldNum: CARDINAL; VAR TheList: GenList;
      VAR Rec: AnEdControlRec );

  PROCEDURE GetFrameLinks( FrameRec: DisplayFrame;
      VAR FrameAbove, FrameBelow, FrameLeft,
      FrameRight: AFrameName );

  PROCEDURE GetFrameLists( VAR TheFrame:
      DisplayFrame);

  PROCEDURE GetFieldDataList( TheFrame:
      DisplayFrame; TheField: CARDINAL; VAR
      FieldDataList: GenList ): BOOLEAN;

  PROCEDURE GetFieldImagePtr( TheFrame:
      DisplayFrame; TheField: CARDINAL; VAR
      ImagePtr: ImageElmtPtr );

  PROCEDURE GetFieldImageRec( TheFrame:
      DisplayFrame; TheField: CARDINAL; VAR
      ImageRec: ImageElement );

  PROCEDURE GetFieldPtr( TheFrame: DisplayFrame;
      TheField: CARDINAL; VAR FieldPtr:
      InputFieldPtr);

  PROCEDURE GetFieldRec( TheFrame: DisplayFrame;
      TheField: CARDINAL; VAR FieldRec:
      InputFieldRecord);

  PROCEDURE GetFieldText( TheFrame: DisplayFrame;
      TheField: CARDINAL; VAR TheText: ARRAY OF
      CHAR );

  PROCEDURE GetImagePtr( TheFrame: DisplayFrame;
      ImageNum: CARDINAL; VAR ImagePtr:
      ImageElmtPtr );

  PROCEDURE GetImageRec( TheFrame: DisplayFrame;
      ImageNum: CARDINAL; VAR ImageRec:
      ImageElement );

  PROCEDURE GetIntField( TheFrame: DisplayFrame;
      TheField: CARDINAL; VAR TheInt: INTEGER );

  PROCEDURE GetLongIntField( TheFrame:
      DisplayFrame; TheField: CARDINAL; VAR
      TheLongInt: LONGINT );

  PROCEDURE GetVisibleArea( TheFrame:
      DisplayFrame; VAR VisibleArea: ARectangle );

  PROCEDURE InputFieldsAbove( TheFrame:
      DisplayFrame; TheField: CARDINAL ): BOOLEAN;

  PROCEDURE InputFieldsBelow( TheFrame:
      DisplayFrame; TheField: CARDINAL ): BOOLEAN;

  PROCEDURE InputFieldsToLeft( TheFrame:
      DisplayFrame; TheField: CARDINAL ): BOOLEAN;

  PROCEDURE InputFieldsToRight( TheFrame:
      DisplayFrame; TheField: CARDINAL ): BOOLEAN;

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

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

  PROCEDURE MakeFieldDataList( TheFrame:
      DisplayFrame; TheField: CARDINAL;
      FieldDataList: GenList );

  PROCEDURE NumberOfChoices( TheFrame:
      DisplayFrame; TheField: CARDINAL ):
      CARDINAL;

  PROCEDURE NumberOfImages( TheFrame: DisplayFrame
      ): CARDINAL;

  PROCEDURE PartOutside( FrameRec: DisplayFrame;
      VAR VisibleArea: ARectangle; direction:
      Compass ): CARDINAL;

  PROCEDURE PutEdRec( FrameRec: DisplayFrame;
      FieldNum: CARDINAL; VAR TheList: GenList;
      VAR Rec: AnEdControlRec );

  PROCEDURE PutFieldImageRec( ImageRec:
      ImageElement; VAR TheFrame: DisplayFrame;
      TheField: CARDINAL);

  PROCEDURE PutFieldRec( VAR FieldRec:
      InputFieldRecord; VAR TheFrame:
      DisplayFrame; TheField: CARDINAL );

  PROCEDURE PutFrameLists( VAR TheFrame:
      DisplayFrame);

  PROCEDURE RelativeFieldRow( TheFrame:
      DisplayFrame; FieldNum: CARDINAL ):
      CARDINAL;
  PROCEDURE RelativeFieldCol( TheFrame:
      DisplayFrame; FieldNum: CARDINAL ):
      CARDINAL;

  PROCEDURE ResetFieldPtr( VAR TheFrame:
      DisplayFrame);

  PROCEDURE SelectedChar( TheFrame: DisplayFrame
      ): CHAR;

  PROCEDURE SetBorderColors( TheFrame:
      DisplayFrame );

  PROCEDURE SetCurrentField( VAR TheFrame:
      DisplayFrame; FieldNum: CARDINAL );

  PROCEDURE SetFieldColors( TheFrame:
      DisplayFrame; FieldNum: CARDINAL );

  PROCEDURE SetMessageColors( TheFrame:
      DisplayFrame );

  PROCEDURE SetNormalColors( TheFrame:
      DisplayFrame );

  PROCEDURE SetPointerBarColors( TheFrame:
      DisplayFrame);

  PROCEDURE SetPromptColors( TheFrame:
      DisplayFrame );

  PROCEDURE SetSelCharColors( TheFrame:
      DisplayFrame; FieldNum: CARDINAL );

  PROCEDURE SetSelectionColors( TheFrame:
      DisplayFrame);

  PROCEDURE VirtualFieldRow( TheFrame:
      DisplayFrame; FieldNum: CARDINAL ):
      CARDINAL;
  PROCEDURE VirtualFieldCol( TheFrame:
      DisplayFrame; FieldNum: CARDINAL ):
      CARDINAL;

  PROCEDURE VirtualImageCol( TheFrame:
      DisplayFrame; ImageNum: CARDINAL ):
      CARDINAL;
  PROCEDURE VirtualImageRow( TheFrame:
      DisplayFrame; ImageNum: CARDINAL ):
      CARDINAL;

  PROCEDURE WhichChoiceKey( TheFrame:
      DisplayFrame; OneOfTheFields: CARDINAL ):
      CARDINAL;
  PROCEDURE WhichChoiceNum( TheFrame:
      DisplayFrame; OneOfTheFields: CARDINAL ):
      CARDINAL;

  PROCEDURE WriteBetween( TheWindow:
      AWindowHandle; TheStr: ARRAY OF CHAR; col1,
      row1, col2, row2: CARDINAL );

  PROCEDURE WriteScrollMarks( TheFrame:
      DisplayFrame );

  PROCEDURE Init();

END ScrnUtl1.