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