Topspeed_JPI/TS-V3/MODBASE/CONTROLU.LST

Listing:

    1  DEFINITION MODULE ControlUtils;
    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/controlu.dev   1.4   30 Dec 1990 17:59:10   coleb  $
   12   *
   13   *)
   14  
   15  
   16  IMPORT GenLists;
   17  IMPORT MsColors;
   18  IMPORT ScrnTypes;
   19  IMPORT VEditor;
   20  IMPORT VWindows;
   21  
   22    PROCEDURE AddMenuItem( VAR TheFrame :
   23        ScrnTypes.DisplayFrame; Col, Row : CARDINAL;
*****                  ^ not supported yet
   24        text : ARRAY OF CHAR; width, MenuKey:
*****                        ^ not supported yet
   25        CARDINAL; ReturnVal : ARRAY OF CHAR );
*****                                       ^ not supported yet
   26  
   27    PROCEDURE AddEditorField(VAR TheFrame :
   28        ScrnTypes.DisplayFrame; VAR TheList:
*****                  ^ not supported yet
   29        GenLists.GenList; VAR ControlRec:
*****                 ^ not supported yet
   30        VEditor.AnEdControlRec );
*****                ^ not supported yet
   31  
   32    PROCEDURE AddStrField(VAR TheFrame :
   33        ScrnTypes.DisplayFrame; Col, Row : CARDINAL;
*****                  ^ not supported yet
   34        text : ARRAY OF CHAR; width: CARDINAL );
*****                        ^ not supported yet
   35  
   36    PROCEDURE AddToFrameList( TheFrame:
   37        ScrnTypes.DisplayFrame; VAR FrameList:
*****                  ^ not supported yet
   38        GenLists.GenList );
*****                 ^ not supported yet
   39  
   40    PROCEDURE ChangeField(VAR TheFrame :
   41        ScrnTypes.DisplayFrame; TheStr : ARRAY OF
*****                  ^ not supported yet
   42        CHAR; FieldName : ARRAY OF CHAR;
*****        ^ not supported yet
*****                                   ^ not supported yet
   43        PreserveLength: BOOLEAN);
   44  
   45    PROCEDURE Control(TheFrame:
   46        ScrnTypes.DisplayFrame);
*****                  ^ not supported yet
   47  
   48    PROCEDURE ControlFrameGroup(  TheFrame:
   49        ScrnTypes.DisplayFrame; VAR NextFrame:
*****                  ^ not supported yet
   50        ScrnTypes.AFrameName; VAR SelectedChar:
*****                  ^ not supported yet
   51        CHAR; VAR EndingFrame: ScrnTypes.AFrameName
*****                                         ^ not supported yet
   52        );
   53  
   54    PROCEDURE ControlFrameList( FrameList:
   55        GenLists.GenList; TheFrame:
*****                 ^ not supported yet
   56        ScrnTypes.DisplayFrame; VAR NextFrame:
*****                  ^ not supported yet
   57        ScrnTypes.AFrameName; VAR SelectedChar:
*****                  ^ not supported yet
   58        CHAR; VAR EndingFrame: ScrnTypes.AFrameName
*****                                         ^ not supported yet
   59        );
   60  
   61    PROCEDURE ControlSeparately( FrameList:
   62        GenLists.GenList; VAR NextFrame:
*****                 ^ not supported yet
   63        ScrnTypes.AFrameName; VAR SelectedChar:
*****                  ^ not supported yet
   64        CHAR; VAR EndingFrame: ScrnTypes.AFrameName
*****                                         ^ not supported yet
   65        );
   66  
   67    PROCEDURE DisposeFrameList( VAR FrameList:
   68        GenLists.GenList );
*****                 ^ not supported yet
   69  
   70    PROCEDURE FindNextField( TheFrame:
   71        ScrnTypes.DisplayFrame; typ: CHAR; VAR spot:
*****                  ^ not supported yet
   72        CARDINAL; VAR FieldPtr:
   73        ScrnTypes.InputFieldPtr ): BOOLEAN;
*****                  ^ not supported yet
   74  
   75    PROCEDURE FrameExists( TheScreenFile:
   76        ScrnTypes.DisplayFile; FrameName: ARRAY OF
*****                  ^ not supported yet
   77        CHAR ): BOOLEAN;
*****        ^ not supported yet
   78  
   79    PROCEDURE FrameListSpot( FrameName: ARRAY OF
   80        CHAR; FrameList: GenLists.GenList ):
*****        ^ not supported yet
*****                                  ^ not supported yet
   81        CARDINAL;
   82  
   83    PROCEDURE FrameSeq2( TheFile :
   84        ScrnTypes.DisplayFile; CheckFrame: ARRAY OF
*****                  ^ not supported yet
   85        CHAR; VAR StartFrame : ARRAY OF CHAR );
*****        ^ not supported yet
*****                                        ^ not supported yet
   86  
   87    PROCEDURE FrameSequence( TheFrame:
   88        ScrnTypes.DisplayFrame; VAR StartFrame:
*****                  ^ not supported yet
   89        ScrnTypes.AFrameName );
*****                  ^ not supported yet
   90  
   91    PROCEDURE FrameSeqReturn(TheFrame:
   92        ScrnTypes.DisplayFrame; VAR StartFrame:
*****                  ^ not supported yet
   93        ScrnTypes.AFrameName);
*****                  ^ not supported yet
   94  
   95    PROCEDURE GetFrameFromList( FrameList:
   96        GenLists.GenList; FrameName: ARRAY OF CHAR;
*****                 ^ not supported yet
*****                                              ^ not supported yet
   97        VAR TheFrame: ScrnTypes.DisplayFrame ):
*****                                ^ not supported yet
   98        BOOLEAN;
   99  
  100    PROCEDURE GetStrResponse( TheFile:
  101        ScrnTypes.DisplayFile; FrameName, Default:
*****                  ^ not supported yet
  102        ARRAY OF CHAR; VAR TheStr: ARRAY OF CHAR ):
*****                 ^ not supported yet
*****                                            ^ not supported yet
  103        BOOLEAN;
  104  
  105    PROCEDURE Input( TheFrame:
  106        ScrnTypes.DisplayFrame; VAR FrameName :
*****                  ^ not supported yet
  107        ScrnTypes.AFrameName);
*****                  ^ not supported yet
  108  
  109    PROCEDURE InputConst( TheFrame:
  110        ScrnTypes.DisplayFrame; FrameName : ARRAY OF
*****                  ^ not supported yet
  111        CHAR );
*****        ^ not supported yet
  112  
  113    PROCEDURE ListBox( TheDspFile:
  114        ScrnTypes.DisplayFile; FormFrameName: ARRAY
*****                  ^ not supported yet
  115        OF CHAR; TheList: GenLists.GenList; VAR
*****           ^ not supported yet
*****                                   ^ not supported yet
  116        ItemChosen: ARRAY OF CHAR; VAR NextFrame:
*****                             ^ not supported yet
  117        ScrnTypes.AFrameName ): BOOLEAN;
*****                  ^ not supported yet
  118  
  119    PROCEDURE LoadFrameList( dfile:
  120        ScrnTypes.DisplayFile; StartFrame: ARRAY OF
*****                  ^ not supported yet
  121        CHAR; VAR FrameList: GenLists.GenList );
*****        ^ not supported yet
*****                                      ^ not supported yet
  122  
  123    PROCEDURE PointFrameAtList( FrameList:
  124        GenLists.GenList; FrameName: ARRAY OF CHAR;
*****                 ^ not supported yet
*****                                              ^ not supported yet
  125        VAR TheFrame: ScrnTypes.DisplayFrame ):
*****                                ^ not supported yet
  126        BOOLEAN;
  127  
  128    PROCEDURE ReadInput(VAR TheFrame :
  129        ScrnTypes.DisplayFrame; VAR TheStr : ARRAY
*****                  ^ not supported yet
  130        OF CHAR; FieldName : ARRAY OF CHAR);
*****           ^ not supported yet
*****                                      ^ not supported yet
  131  
  132    PROCEDURE ReadNextField(VAR TheFrame :
  133        ScrnTypes.DisplayFrame; VAR TheStr : ARRAY
*****                  ^ not supported yet
  134        OF CHAR; skip : CARDINAL);
*****           ^ not supported yet
  135  
  136    PROCEDURE ReadNextInput(VAR TheFrame :
  137        ScrnTypes.DisplayFrame; VAR TheStr : ARRAY
*****                  ^ not supported yet
  138        OF CHAR; skip : CARDINAL);
*****           ^ not supported yet
  139  
  140    PROCEDURE ReadShowAndCntrl( TheFile:
  141        ScrnTypes.DisplayFile; TheFrame:
*****                  ^ not supported yet
  142        ScrnTypes.DisplayFrame; VAR FrameName :
*****                  ^ not supported yet
  143        ScrnTypes.AFrameName );
*****                  ^ not supported yet
  144  
  145    PROCEDURE RdShwAndCntrlConst( TheFile:
  146        ScrnTypes.DisplayFile; TheFrame:
*****                  ^ not supported yet
  147        ScrnTypes.DisplayFrame; FrameName : ARRAY OF
*****                  ^ not supported yet
  148        CHAR);
*****        ^ not supported yet
  149  
  150    PROCEDURE Init();
  151  
  152  END ControlUtils.
*****      ^ not supported yet

   73 errors