Listing:

    1  DEFINITION MODULE ScrnTypes;
    2  (*
    3   *  REPERTOIRE
    4   *  Release 1.6
    5   *  By Charles Bradford and Cole Brecheen
    6   *  (c) Copyright 1985-1992 PMI
    7   *  Green Bay, Wisconsin
    8   *  All rights reserved
    9   *  (414) 468-6040
   10   *
   11   *  $Header:   D:/logfiles/defs/scrntype.dev   1.4   30 Dec 1990 18:04:18   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  IMPORT MsColors;
   18  IMPORT NdxTypes;
   19  IMPORT NumTypes;
   20  IMPORT VWindows;
   21  
   22    CONST
   23      GotoCode = 'J';
   24      StringCode = 'S';
   25      IntCode = 'I';
   26      RealCode = 'R';
   27      GroupMember = 'C';
   28      EditorCode = 'E';
   29      DispCode = 'D';
   30  
   31      ProgramExit = '0';
   32      ContinueInput = 'CONTINUE';
*****                      ^ not supported yet
   33      SubmitInput = 'SUBMIT';
*****                    ^ not supported yet
   34      CancelInput = 'CANCEL';
*****                    ^ not supported yet
   35  
   36      FieldTypeCode = 65532;
   37      MaxDecPlaces = 20;
   38  
   39    TYPE
   40      FrameKey = INTEGER;
   41      AFrameName = NdxTypes.RecNameStr;
*****                            ^ not supported yet
   42  
   43      DecimalPlaceType = [-1 .. MaxDecPlaces];
*****                                ^ not supported yet
   44  
   45      DisplayFile = NdxTypes.NdxFileType;
*****                             ^ not supported yet
   46  
   47      DisplayFrame = POINTER TO DisplayFrameRec;
*****                                ^ undeclared identifier
   48      DisplayFrameRec =
   49        RECORD
   50          ThisFrame, HelpFrame, parent,
   51              normlnext : AFrameName;
   52          WindowHandle : VWindows.AWindowHandle;
*****                                  ^ not supported yet
   53          PushedFrame : DisplayFrame;
   54          CurrentField, VirtualWidth, VirtualHeight,
   55              RowsScrolled, ColsScrolled, headline :
   56              CARDINAL;
   57          startcol, endcol, startrow, endrow:
   58              CARDINAL;
   59          FromFile : DisplayFile;
   60          self, LinkedFrames, DataList, PromptList,
   61              HelpList, EdFieldList, FieldList,
   62              ImageList: GenLists.GenList;
*****                                  ^ not supported yet
   63          Caption: ARRAY [0..31] OF CHAR;
*****                             ^ not supported yet
*****                                    ^ not supported yet
   64          EntryBox, ExitBox: VWindows.BoxStr;
*****                                      ^ not supported yet
   65          pbfor, pbbak, selfor, selbak, normfor,
   66              normbak, bordfor, bordbak, msgfor,
   67              msgbak, promfor, prombak :
   68              MsColors.AColor;
*****                       ^ not supported yet
   69          pbatrb, selatrb, normatrb, bordatrb,
   70              msgatrb, promatrb :
   71              MsColors.AMonoAttribute;
*****                       ^ not supported yet
   72          action : CHAR;
   73          FrameChanged, ClearFirst, ClearAfter,
   74              SelfSharedWithFile : BOOLEAN;
   75        END;
*****        ^ not supported yet
   76  
   77      PackedFrame = POINTER TO PackedFrameRec;
*****                               ^ undeclared identifier
   78      PackedFrameRec =
   79        RECORD
   80          VirtualWidth, VirtualHeight, headline :
   81              CARDINAL;
   82          startcol, endcol, startrow, endrow:
   83              CARDINAL;
   84          Caption: ARRAY [0..31] OF CHAR;
*****                             ^ not supported yet
*****                                    ^ not supported yet
   85          EntryBox, ExitBox: VWindows.BoxStr;
*****                                      ^ not supported yet
   86          pbfor, pbbak, selfor, selbak, normfor,
   87              normbak, bordfor, bordbak, msgfor,
   88              msgbak, promfor, prombak :
   89              MsColors.AColor;
*****                       ^ not supported yet
   90          pbatrb, selatrb, normatrb, bordatrb,
   91              msgatrb, promatrb :
   92              MsColors.AMonoAttribute;
*****                       ^ not supported yet
   93          box, action : CHAR;
   94          ClearFirst, ClearAfter : BOOLEAN;
   95        END;
*****        ^ not supported yet
   96  
   97      InputFieldPtr = POINTER TO InputFieldRecord;
*****                                 ^ undeclared identifier
   98      InputFieldRecord =
   99        RECORD
  100          fnam : ARRAY [0..15] OF CHAR;
*****                           ^ not supported yet
*****                                  ^ not supported yet
  101          ImageNum, PromptNum : CARDINAL;
  102          ChangeMade, req : BOOLEAN;
  103          HelpFrame : AFrameName;
  104          CASE typ : CHAR OF
*****          ^ not supported yet
  105            DispCode, StringCode:
*****            ^ not supported yet
*****                      ^ not supported yet
  106          | GotoCode:
*****            ^ not supported yet
  107             MenuKey : CARDINAL;
  108             ReturnVal: AFrameName;
  109          | GroupMember:
*****            ^ not supported yet
  110             ChoiceKey : CARDINAL;
  111             GroupSize, GroupID : CARDINAL;
  112             selected: BOOLEAN;
  113          | EditorCode:
*****            ^ not supported yet
  114             EdFieldNum: CARDINAL;
  115             Col2, Row2, TextRow1, CursorCol,
  116                 CursorRow, MaxLines: CARDINAL;
  117             ReadOnly: BOOLEAN;
  118          | IntCode:
*****            ^ not supported yet
  119             iMax, iMin : LONGINT;
  120          | RealCode:
*****            ^ not supported yet
  121             rMax, rMin : NumTypes.Real8;
*****                                   ^ not supported yet
  122             decimalPlace : DecimalPlaceType;
  123          END;
  124        END;
*****        ^ not supported yet
  125  
  126      ImageElmtPtr = POINTER TO ImageElement;
*****                                ^ undeclared identifier
  127      ImageElement =
  128        RECORD
  129          row, col, field: CARDINAL;
  130          foreg, backg: MsColors.AColor;
*****                                 ^ not supported yet
  131          atrb: MsColors.AMonoAttribute;
*****                         ^ not supported yet
  132          text: ARRAY [0..255] OF CHAR;
*****                          ^ not supported yet
*****                                  ^ not supported yet
  133        END;
*****        ^ not supported yet
  134  
  135    PROCEDURE InitDisplayFrame(VAR FrameRec:
  136        DisplayFrame; AssociatedWindow:
  137        VWindows.AWindowHandle );
*****                 ^ not supported yet
  138  
  139    PROCEDURE InitField(VAR TheField:
  140        InputFieldRecord);
  141  
  142    PROCEDURE Init();
  143  
  144  END ScrnTypes.
*****      ^ not supported yet

   43 errors