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


IMPORT GenLists;
IMPORT MsColors;
IMPORT NdxTypes;
IMPORT NumTypes;
IMPORT VWindows;

  CONST
    GotoCode = 'J';
    StringCode = 'S';
    IntCode = 'I';
    RealCode = 'R';
    GroupMember = 'C';
    EditorCode = 'E';
    DispCode = 'D';

    ProgramExit = '0';
    ContinueInput = 'CONTINUE';
    SubmitInput = 'SUBMIT';
    CancelInput = 'CANCEL';

    FieldTypeCode = 65532;
    MaxDecPlaces = 20;

  TYPE
    FrameKey = INTEGER;
    AFrameName = NdxTypes.RecNameStr;

    DecimalPlaceType = [-1 .. MaxDecPlaces];

    DisplayFile = NdxTypes.NdxFileType;

    DisplayFrame = POINTER TO DisplayFrameRec;
    DisplayFrameRec =
      RECORD
        ThisFrame, HelpFrame, parent,
            normlnext : AFrameName;
        WindowHandle : VWindows.AWindowHandle;
        PushedFrame : DisplayFrame;
        CurrentField, VirtualWidth, VirtualHeight,
            RowsScrolled, ColsScrolled, headline :
            CARDINAL;
        startcol, endcol, startrow, endrow:
            CARDINAL;
        FromFile : DisplayFile;
        self, LinkedFrames, DataList, PromptList,
            HelpList, EdFieldList, FieldList,
            ImageList: GenLists.GenList;
        Caption: ARRAY [0..31] OF CHAR;
        EntryBox, ExitBox: VWindows.BoxStr;
        pbfor, pbbak, selfor, selbak, normfor,
            normbak, bordfor, bordbak, msgfor,
            msgbak, promfor, prombak :
            MsColors.AColor;
        pbatrb, selatrb, normatrb, bordatrb,
            msgatrb, promatrb :
            MsColors.AMonoAttribute;
        action : CHAR;
        FrameChanged, ClearFirst, ClearAfter,
            SelfSharedWithFile : BOOLEAN;
      END;

    PackedFrame = POINTER TO PackedFrameRec;
    PackedFrameRec =
      RECORD
        VirtualWidth, VirtualHeight, headline :
            CARDINAL;
        startcol, endcol, startrow, endrow:
            CARDINAL;
        Caption: ARRAY [0..31] OF CHAR;
        EntryBox, ExitBox: VWindows.BoxStr;
        pbfor, pbbak, selfor, selbak, normfor,
            normbak, bordfor, bordbak, msgfor,
            msgbak, promfor, prombak :
            MsColors.AColor;
        pbatrb, selatrb, normatrb, bordatrb,
            msgatrb, promatrb :
            MsColors.AMonoAttribute;
        box, action : CHAR;
        ClearFirst, ClearAfter : BOOLEAN;
      END;

    InputFieldPtr = POINTER TO InputFieldRecord;
    InputFieldRecord =
      RECORD
        fnam : ARRAY [0..15] OF CHAR;
        ImageNum, PromptNum : CARDINAL;
        ChangeMade, req : BOOLEAN;
        HelpFrame : AFrameName;
        CASE typ : CHAR OF
          DispCode, StringCode:
        | GotoCode:
           MenuKey : CARDINAL;
           ReturnVal: AFrameName;
        | GroupMember:
           ChoiceKey : CARDINAL;
           GroupSize, GroupID : CARDINAL;
           selected: BOOLEAN;
        | EditorCode:
           EdFieldNum: CARDINAL;
           Col2, Row2, TextRow1, CursorCol,
               CursorRow, MaxLines: CARDINAL;
           ReadOnly: BOOLEAN;
        | IntCode:
           iMax, iMin : LONGINT;
        | RealCode:
           rMax, rMin : NumTypes.Real8;
           decimalPlace : DecimalPlaceType;
        END;
      END;

    ImageElmtPtr = POINTER TO ImageElement;
    ImageElement =
      RECORD
        row, col, field: CARDINAL;
        foreg, backg: MsColors.AColor;
        atrb: MsColors.AMonoAttribute;
        text: ARRAY [0..255] OF CHAR;
      END;

  PROCEDURE InitDisplayFrame(VAR FrameRec:
      DisplayFrame; AssociatedWindow:
      VWindows.AWindowHandle );

  PROCEDURE InitField(VAR TheField:
      InputFieldRecord);

  PROCEDURE Init();

END ScrnTypes.