Topspeed_JPI/TS-V3/MODBASE/SCRNUTL2.LST

Listing:

    1  DEFINITION MODULE ScrnUtl2;
    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/scrnutl2.dev   1.4   30 Dec 1990 18:04:34   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  IMPORT MsColors;
   18  IMPORT ScrnTypes;
   19  IMPORT VWindows;
   20  
   21  
   22    PROCEDURE ChoiceListToFrame( TheList:
   23        GenLists.GenList; TheFrame:
*****                 ^ not supported yet
   24        ScrnTypes.DisplayFrame );
*****                  ^ not supported yet
   25  
   26    PROCEDURE ClearFrameStack(VAR FrameRec :
   27        ScrnTypes.DisplayFrame);
*****                  ^ not supported yet
   28  
   29    PROCEDURE CloseDisplayFrame(VAR FrameRec :
   30        ScrnTypes.DisplayFrame);
*****                  ^ not supported yet
   31  
   32    PROCEDURE CopyEdField( frame1:
   33        ScrnTypes.DisplayFrame; FieldName1: ARRAY OF
*****                  ^ not supported yet
   34        CHAR; frame2: ScrnTypes.DisplayFrame;
*****        ^ not supported yet
*****                                ^ not supported yet
   35        FieldName2: ARRAY OF CHAR );
*****                             ^ not supported yet
   36  
   37    PROCEDURE CreateImageElement( VAR TheElmt:
   38        ScrnTypes.ImageElement; col, row: CARDINAL;
*****                  ^ not supported yet
   39        ForeColor, BackColor: MsColors.AColor;
*****                                       ^ not supported yet
   40        Attrib: MsColors.AMonoAttribute; FieldNum:
*****                         ^ not supported yet
   41        CARDINAL; VAR TheText: ARRAY OF CHAR);
*****                                        ^ not supported yet
   42  
   43    PROCEDURE AddImageElement( VAR FrameRec:
   44        ScrnTypes.DisplayFrame; VAR TheElmt:
*****                  ^ not supported yet
   45        ScrnTypes.ImageElement; VAR NewImageNum:
*****                  ^ not supported yet
   46        CARDINAL);
   47  
   48    PROCEDURE CheckPushedFrame(VAR FrameRec :
   49        ScrnTypes.DisplayFrame) :
*****                  ^ not supported yet
   50        ScrnTypes.DisplayFrame;
*****                  ^ not supported yet
   51  
   52    PROCEDURE Display( TheFrame:
   53        ScrnTypes.DisplayFrame; FrameName : ARRAY OF
*****                  ^ not supported yet
   54        CHAR );
*****        ^ not supported yet
   55  
   56    PROCEDURE GetEdField( TheFrame:
   57        ScrnTypes.DisplayFrame; FieldName: ARRAY OF
*****                  ^ not supported yet
   58        CHAR; VAR TheList: GenLists.GenList );
*****        ^ not supported yet
*****                                    ^ not supported yet
   59  
   60    PROCEDURE ListToFrame( TheList:
   61        GenLists.GenList; TheFrame:
*****                 ^ not supported yet
   62        ScrnTypes.DisplayFrame );
*****                  ^ not supported yet
   63  
   64    PROCEDURE PushFrame( VAR FrameRec :
   65        ScrnTypes.DisplayFrame);
*****                  ^ not supported yet
   66  
   67    PROCEDURE PopFrame(VAR FrameRec :
   68        ScrnTypes.DisplayFrame);
*****                  ^ not supported yet
   69  
   70    PROCEDURE PopZapFrame(VAR FrameRec :
   71        ScrnTypes.DisplayFrame);
*****                  ^ not supported yet
   72  
   73    PROCEDURE ReadAndShow( TheFile:
   74        ScrnTypes.DisplayFile; TheFrame:
*****                  ^ not supported yet
   75        ScrnTypes.DisplayFrame; FrameName : ARRAY OF
*****                  ^ not supported yet
   76        CHAR);
*****        ^ not supported yet
   77  
   78    PROCEDURE ShowMessage( TheFile:
   79        ScrnTypes.DisplayFile; FrameName : ARRAY OF
*****                  ^ not supported yet
   80        CHAR);
*****        ^ not supported yet
   81  
   82    PROCEDURE WriteToFrame( VAR FrameRec:
   83        ScrnTypes.DisplayFrame; col, row: CARDINAL;
*****                  ^ not supported yet
   84        text: ARRAY OF CHAR );
*****                       ^ not supported yet
   85  
   86    PROCEDURE Init();
   87  
   88  END ScrnUtl2.
*****      ^ not supported yet

   34 errors