Topspeed_JPI/TS-V3/MODBASE/SCRNUTL1.LST

Listing:

    1  DEFINITION MODULE ScrnUtl1;
    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/scrnutl1.dev   1.4   30 Dec 1990 18:04:24   coleb  $
   12   *
   13   *)
   14  
   15  
   16  FROM SYSTEM IMPORT ADDRESS, BYTE, WORD;
   17  
   18  FROM GenLists IMPORT GenList;
   19  FROM ScrnTypes IMPORT AFrameName, DisplayFrame,
   20       InputFieldRecord, InputFieldPtr,
   21        ImageElement,
   22       ImageElmtPtr;
   23  FROM Rectangles IMPORT ARectangle;
   24  FROM VEditor IMPORT AnEdControlRec;
   25  FROM VWindows IMPORT AWindowHandle, Compass;
   26  
   27  
   28    CONST
   29      CoordCode = 20C;
   30      CommandCode = 200C;
   31      MenuCode = 'M';
   32      NoAttribCode = 377C;
   33      BadAttribCode = 376C;
   34  
   35  
   36    PROCEDURE AbsFieldRow( TheFrame: DisplayFrame;
   37        FieldNum: CARDINAL ): INTEGER;
   38    PROCEDURE AbsFieldCol( TheFrame: DisplayFrame;
   39        FieldNum: CARDINAL ): INTEGER;
   40  
   41    PROCEDURE AllFieldsThisType( TheFrame:
   42        DisplayFrame; TheType: CHAR ): BOOLEAN;
   43  
   44    PROCEDURE BoxFrame( TheFrame: DisplayFrame;
   45        Active: BOOLEAN );
   46  
   47    PROCEDURE BoxInFrame( TheFrame: DisplayFrame ):
   48        BOOLEAN;
   49  
   50    PROCEDURE ChoiceNumber( TheFrame: DisplayFrame;
   51        TheField: CARDINAL ): CARDINAL;
   52  
   53    PROCEDURE CoordsInField( TheFrame: DisplayFrame;
   54        TheField, TheCol, TheRow: CARDINAL ):
   55        BOOLEAN;
   56  
   57    PROCEDURE CurrentField( TheFrame: DisplayFrame
   58        ): CARDINAL;
   59  
   60    PROCEDURE DecodeByte( VAR AnyByte: BYTE );
   61  
   62    PROCEDURE DecodeImageRec( VAR TheImageRec:
   63        ImageElement );
   64  
   65    PROCEDURE DecodeWord( VAR AnyWord: WORD );
   66  
   67    PROCEDURE EncodeByte( VAR AnyByte: BYTE );
   68  
   69    PROCEDURE EncodeWord( VAR AnyWord: WORD );
   70  
   71    PROCEDURE EncodeImageRec( VAR TheImageRec:
   72        ImageElement );
   73  
   74    PROCEDURE EntirelyVisible( TheFrame:
   75        DisplayFrame; TheField: CARDINAL ): BOOLEAN;
   76  
   77    PROCEDURE FieldEntered( TheFrame: DisplayFrame;
   78        TheCol, TheRow: CARDINAL ): BOOLEAN;
   79  
   80    PROCEDURE FieldGroupTotal( TheFrame:
   81        DisplayFrame ): CARDINAL;
   82  
   83    PROCEDURE FieldHeight( TheFrame: DisplayFrame;
   84        TheField: CARDINAL ): CARDINAL;
   85  
   86    PROCEDURE FieldImageNum( TheFrame: DisplayFrame;
   87        FieldNumber: CARDINAL ): CARDINAL;
   88  
   89    PROCEDURE FieldIsBlank( TheFrame: DisplayFrame;
   90        FieldName: ARRAY OF CHAR; VAR FieldNumber:
*****                            ^ not supported yet
   91        CARDINAL ): BOOLEAN;
   92  
   93    PROCEDURE FieldListTotal( TheFrame: DisplayFrame
   94        ): CARDINAL;
   95  
   96    PROCEDURE FieldNum( TheFrame: DisplayFrame;
   97        FieldName: ARRAY OF CHAR ): CARDINAL;
*****                            ^ not supported yet
   98  
   99    PROCEDURE FieldType( TheFrame: DisplayFrame;
  100        FieldNum: CARDINAL ): CHAR;
  101  
  102    PROCEDURE FieldWidth( TheFrame: DisplayFrame;
  103        TheField: CARDINAL ): CARDINAL;
  104  
  105    PROCEDURE FindField( TheFrame: DisplayFrame;
  106        FieldName: ARRAY OF CHAR; VAR FieldPtr:
*****                            ^ not supported yet
  107        InputFieldPtr; VAR ImageRec: ImageElement ):
  108        BOOLEAN;
  109  
  110    PROCEDURE FindFieldNum( TheFrame: DisplayFrame;
  111        FieldNum: CARDINAL; VAR FieldPtr:
  112        InputFieldPtr; VAR ImageRec: ImageElement ):
  113        BOOLEAN;
  114  
  115    PROCEDURE FirstMember( TheFrame: DisplayFrame;
  116        TheField: CARDINAL ): CARDINAL;
  117  
  118    PROCEDURE GetCardField( TheFrame: DisplayFrame;
  119        TheField: CARDINAL; VAR TheCard: CARDINAL );
  120  
  121    PROCEDURE GetEdField( FrameRec: DisplayFrame;
  122        FieldNum: CARDINAL; VAR TheList: GenList );
  123  
  124    PROCEDURE GetEdRec( FrameRec: DisplayFrame;
  125        FieldNum: CARDINAL; VAR TheList: GenList;
  126        VAR Rec: AnEdControlRec );
  127  
  128    PROCEDURE GetFrameLinks( FrameRec: DisplayFrame;
  129        VAR FrameAbove, FrameBelow, FrameLeft,
  130        FrameRight: AFrameName );
  131  
  132    PROCEDURE GetFrameLists( VAR TheFrame:
  133        DisplayFrame);
  134  
  135    PROCEDURE GetFieldDataList( TheFrame:
  136        DisplayFrame; TheField: CARDINAL; VAR
  137        FieldDataList: GenList ): BOOLEAN;
  138  
  139    PROCEDURE GetFieldImagePtr( TheFrame:
  140        DisplayFrame; TheField: CARDINAL; VAR
  141        ImagePtr: ImageElmtPtr );
  142  
  143    PROCEDURE GetFieldImageRec( TheFrame:
  144        DisplayFrame; TheField: CARDINAL; VAR
  145        ImageRec: ImageElement );
  146  
  147    PROCEDURE GetFieldPtr( TheFrame: DisplayFrame;
  148        TheField: CARDINAL; VAR FieldPtr:
  149        InputFieldPtr);
  150  
  151    PROCEDURE GetFieldRec( TheFrame: DisplayFrame;
  152        TheField: CARDINAL; VAR FieldRec:
  153        InputFieldRecord);
  154  
  155    PROCEDURE GetFieldText( TheFrame: DisplayFrame;
  156        TheField: CARDINAL; VAR TheText: ARRAY OF
  157        CHAR );
*****        ^ not supported yet
  158  
  159    PROCEDURE GetImagePtr( TheFrame: DisplayFrame;
  160        ImageNum: CARDINAL; VAR ImagePtr:
  161        ImageElmtPtr );
  162  
  163    PROCEDURE GetImageRec( TheFrame: DisplayFrame;
  164        ImageNum: CARDINAL; VAR ImageRec:
  165        ImageElement );
  166  
  167    PROCEDURE GetIntField( TheFrame: DisplayFrame;
  168        TheField: CARDINAL; VAR TheInt: INTEGER );
  169  
  170    PROCEDURE GetLongIntField( TheFrame:
  171        DisplayFrame; TheField: CARDINAL; VAR
  172        TheLongInt: LONGINT );
  173  
  174    PROCEDURE GetVisibleArea( TheFrame:
  175        DisplayFrame; VAR VisibleArea: ARectangle );
  176  
  177    PROCEDURE InputFieldsAbove( TheFrame:
  178        DisplayFrame; TheField: CARDINAL ): BOOLEAN;
  179  
  180    PROCEDURE InputFieldsBelow( TheFrame:
  181        DisplayFrame; TheField: CARDINAL ): BOOLEAN;
  182  
  183    PROCEDURE InputFieldsToLeft( TheFrame:
  184        DisplayFrame; TheField: CARDINAL ): BOOLEAN;
  185  
  186    PROCEDURE InputFieldsToRight( TheFrame:
  187        DisplayFrame; TheField: CARDINAL ): BOOLEAN;
  188  
  189    PROCEDURE ListFromEdField( TheFrame:
  190        DisplayFrame; TheField: CARDINAL; VAR
  191        TheList: GenList ): BOOLEAN;
  192  
  193    PROCEDURE ListToEdField( TheList: GenList;
  194        TheFrame: DisplayFrame; TheField: CARDINAL
  195        ): BOOLEAN;
  196  
  197    PROCEDURE MakeFieldDataList( TheFrame:
  198        DisplayFrame; TheField: CARDINAL;
  199        FieldDataList: GenList );
  200  
  201    PROCEDURE NumberOfChoices( TheFrame:
  202        DisplayFrame; TheField: CARDINAL ):
  203        CARDINAL;
  204  
  205    PROCEDURE NumberOfImages( TheFrame: DisplayFrame
  206        ): CARDINAL;
  207  
  208    PROCEDURE PartOutside( FrameRec: DisplayFrame;
  209        VAR VisibleArea: ARectangle; direction:
  210        Compass ): CARDINAL;
  211  
  212    PROCEDURE PutEdRec( FrameRec: DisplayFrame;
  213        FieldNum: CARDINAL; VAR TheList: GenList;
  214        VAR Rec: AnEdControlRec );
  215  
  216    PROCEDURE PutFieldImageRec( ImageRec:
  217        ImageElement; VAR TheFrame: DisplayFrame;
  218        TheField: CARDINAL);
  219  
  220    PROCEDURE PutFieldRec( VAR FieldRec:
  221        InputFieldRecord; VAR TheFrame:
  222        DisplayFrame; TheField: CARDINAL );
  223  
  224    PROCEDURE PutFrameLists( VAR TheFrame:
  225        DisplayFrame);
  226  
  227    PROCEDURE RelativeFieldRow( TheFrame:
  228        DisplayFrame; FieldNum: CARDINAL ):
  229        CARDINAL;
  230    PROCEDURE RelativeFieldCol( TheFrame:
  231        DisplayFrame; FieldNum: CARDINAL ):
  232        CARDINAL;
  233  
  234    PROCEDURE ResetFieldPtr( VAR TheFrame:
  235        DisplayFrame);
  236  
  237    PROCEDURE SelectedChar( TheFrame: DisplayFrame
  238        ): CHAR;
  239  
  240    PROCEDURE SetBorderColors( TheFrame:
  241        DisplayFrame );
  242  
  243    PROCEDURE SetCurrentField( VAR TheFrame:
  244        DisplayFrame; FieldNum: CARDINAL );
  245  
  246    PROCEDURE SetFieldColors( TheFrame:
  247        DisplayFrame; FieldNum: CARDINAL );
  248  
  249    PROCEDURE SetMessageColors( TheFrame:
  250        DisplayFrame );
  251  
  252    PROCEDURE SetNormalColors( TheFrame:
  253        DisplayFrame );
  254  
  255    PROCEDURE SetPointerBarColors( TheFrame:
  256        DisplayFrame);
  257  
  258    PROCEDURE SetPromptColors( TheFrame:
  259        DisplayFrame );
  260  
  261    PROCEDURE SetSelCharColors( TheFrame:
  262        DisplayFrame; FieldNum: CARDINAL );
  263  
  264    PROCEDURE SetSelectionColors( TheFrame:
  265        DisplayFrame);
  266  
  267    PROCEDURE VirtualFieldRow( TheFrame:
  268        DisplayFrame; FieldNum: CARDINAL ):
  269        CARDINAL;
  270    PROCEDURE VirtualFieldCol( TheFrame:
  271        DisplayFrame; FieldNum: CARDINAL ):
  272        CARDINAL;
  273  
  274    PROCEDURE VirtualImageCol( TheFrame:
  275        DisplayFrame; ImageNum: CARDINAL ):
  276        CARDINAL;
  277    PROCEDURE VirtualImageRow( TheFrame:
  278        DisplayFrame; ImageNum: CARDINAL ):
  279        CARDINAL;
  280  
  281    PROCEDURE WhichChoiceKey( TheFrame:
  282        DisplayFrame; OneOfTheFields: CARDINAL ):
  283        CARDINAL;
  284    PROCEDURE WhichChoiceNum( TheFrame:
  285        DisplayFrame; OneOfTheFields: CARDINAL ):
  286        CARDINAL;
  287  
  288    PROCEDURE WriteBetween( TheWindow:
  289        AWindowHandle; TheStr: ARRAY OF CHAR; col1,
*****                                        ^ not supported yet
  290        row1, col2, row2: CARDINAL );
  291  
  292    PROCEDURE WriteScrollMarks( TheFrame:
  293        DisplayFrame );
  294  
  295    PROCEDURE Init();
  296  
  297  END ScrnUtl1.
*****      ^ not supported yet

    6 errors