Listing: 1 IMPLEMENTATION 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/mods/scrntype.mov 1.5 10 Mar 1991 15:32:10 coleb $ 12 * 13 *) 14 15 16 17 IMPORT ErrorNames; 18 IMPORT FrameManager; 19 IMPORT GenLists; 20 IMPORT LowLevel; 21 IMPORT MsColors; 22 IMPORT NdxTypes; 23 IMPORT SYSTEM; 24 IMPORT VStorage; 25 IMPORT VWindows; 26 27 VAR 28 Initialized : BOOLEAN; 29 30 PROCEDURE Init(); 31 BEGIN 32 IF Initialized THEN 33 RETURN; 34 ELSE 35 Initialized := TRUE; 36 END; 37 ErrorNames.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 FrameManager.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 GenLists.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 LowLevel.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 41 MsColors.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 42 NdxTypes.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 43 VStorage.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 44 VWindows.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 45 END Init; ***** ^ not supported yet 46 47 48 (* The purpose of ScrnTypes is to allow other parts of 49 Repertoire to refer to data types in the screen system 50 without importing all screen system's code where it isn't 51 necessary. We do include initialization procedures here, 52 however, to prevent programs that do not use the screen 53 system from doing dangerous things with improperly 54 initialized or uninitialized data types.*) 55 56 PROCEDURE InitDisplayFrame( VAR FrameRec : DisplayFrame; ***** ^ undeclared identifier 57 AssociatedWindow: VWindows.AWindowHandle ); ***** ^ not supported yet 58 (* Initializes a DisplayFrame before first use. *) 59 VAR 60 FrameSize: CARDINAL; 61 BEGIN (* procedure InitDisplayFrame *) 62 FrameSize := SYSTEM.TSIZE( DisplayFrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 63 VStorage.DosAlloc( FrameRec, FrameSize ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 64 FrameManager.AddWindow( AssociatedWindow ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 65 (*Note that we don't call FrameActivated here because 66 FrameManager only begins to care about a frame once 67 part of it becomes visible.*) 68 WITH FrameRec^ DO ***** ^ not supported yet 69 ThisFrame[0] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 70 WindowHandle := AssociatedWindow; ***** ^ undeclared identifier ***** ^ not supported yet 71 PushedFrame := NIL; ***** ^ undeclared identifier 72 (*initialize the frame stack to empty*) 73 ClearFirst := TRUE; ***** ^ undeclared identifier 74 ClearAfter := FALSE; ***** ^ undeclared identifier 75 FrameChanged := FALSE; ***** ^ undeclared identifier 76 EntryBox := VWindows.DoubleBox; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 77 ExitBox := VWindows.SingleBox; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 78 Caption[0] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 79 (*changed in 1.5a*) 80 SelfSharedWithFile := FALSE; ***** ^ undeclared identifier 81 (*changed in 1.5b*) 82 GenLists.NewList( self ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 83 GenLists.NilList( DataList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 84 GenLists.NilList( PromptList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 85 GenLists.NilList( HelpList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 86 GenLists.NilList( EdFieldList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 87 GenLists.NilList( FieldList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 88 GenLists.NilList( ImageList ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 89 GenLists.NilList( LinkedFrames ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 90 91 (*Now we set up the odd structure of the self; see 92 the manual for explanation.*) 93 GenLists.ListInsert( '', GenLists.StrCode, self, 1 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 94 (*Insert null at position of the HelpFrame.*) 95 GenLists.ListInsert( '', GenLists.StrCode, self, 2 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 96 (*Insert null at position of the ParentFrame.*) 97 GenLists.ListInsert( '', GenLists.StrCode, self, 3 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 98 (*Insert null at position of the NormalNextFrame.*) 99 GenLists.ListInsert( '', GenLists.StrCode, self, 4 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 100 (*Insert null at position of the DisplayFrameRec.*) 101 GenLists.ListInsert( DataList, GenLists.ListCode, self, 5 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 102 GenLists.ListInsert( PromptList, GenLists.ListCode, self, 6 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 103 GenLists.ListInsert( HelpList, GenLists.ListCode, self, 7 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 104 GenLists.ListInsert( EdFieldList, GenLists.ListCode, self, 8 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 105 GenLists.ListInsert( FieldList, GenLists.ListCode, self, 9 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 106 GenLists.ListInsert( ImageList, GenLists.ListCode, self, 10 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 107 GenLists.ListInsert( LinkedFrames, GenLists.ListCode, self, 11 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 108 109 HelpFrame[0] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 110 (* initialize the screen fields area to empty *) 111 startcol := 0; ***** ^ undeclared identifier 112 startrow := 0; ***** ^ undeclared identifier 113 endcol := VWindows.EndCol(AssociatedWindow) - 1; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 114 endrow := VWindows.EndRow(AssociatedWindow) - 1; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 115 RowsScrolled := 0; ***** ^ undeclared identifier 116 ColsScrolled := 0; ***** ^ undeclared identifier 117 CurrentField := 0; ***** ^ undeclared identifier 118 VirtualWidth := 0; ***** ^ undeclared identifier 119 VirtualHeight := 0; ***** ^ undeclared identifier 120 headline := 0; ***** ^ undeclared identifier 121 action := 'W'; ***** ^ undeclared identifier 122 (*Wait for any key.*) 123 parent[0] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 124 normlnext[0] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 125 (* Now, initialize defaults for colors & mono attributes: *) 126 normatrb := MsColors.plain; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 127 normfor := MsColors.lightgrey; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 128 normbak := MsColors.blue; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 129 (* Normal text *) 130 bordatrb := MsColors.plain; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 131 bordfor := MsColors.lightcyan; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 132 bordbak := MsColors.blue; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 133 (* Border colors *) 134 selatrb := MsColors.bold; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 135 selfor := MsColors.lightmagenta; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 136 selbak := MsColors.blue; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 137 (* Selected text *) 138 pbatrb := MsColors.ReverseVideo; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 139 pbfor := MsColors.black; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 140 pbbak := MsColors.red; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 141 (* Pointer Bar Colors *) 142 msgatrb := MsColors.plain; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 143 msgfor := MsColors.black; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 144 msgbak := MsColors.lightgrey; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 145 (* Message Box Colors *) 146 promatrb := MsColors.ReverseVideo; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 147 promfor := MsColors.black; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 148 prombak := MsColors.cyan; ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet 149 (* Prompt Line Colors *) 150 FromFile := NIL; ***** ^ undeclared identifier 151 END; ***** ^ not supported yet 152 END InitDisplayFrame; ***** ^ not supported yet 153 154 155 PROCEDURE InitField( VAR TheField: InputFieldRecord ); ***** ^ undeclared identifier 156 BEGIN 157 LowLevel.Fill( SYSTEM.ADR(TheField), ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 158 SYSTEM.TSIZE(InputFieldRecord), 0C ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 159 TheField.typ := DispCode; ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier 160 END InitField; ***** ^ not supported yet 161 162 163 BEGIN 164 Initialized := FALSE; 165 Init(); ***** ^ not supported yet ***** ^ not supported yet 166 END ScrnTypes. ***** ^ not supported yet 249 errors