Listing: 1 IMPLEMENTATION MODULE VWindows; 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/vwindows.mov 1.7 10 Mar 1991 15:34:42 coleb $ 12 * 13 *) 14 15 16 (*EntryDiag: 17 IMPORT Diagnostics; 18 :EntryDiag*) 19 20 IMPORT LowLevel; 21 IMPORT MsColors; 22 IMPORT MsgBox1; 23 IMPORT SmartScreen; 24 IMPORT SYSTEM; 25 IMPORT WindowPrims; 26 27 VAR 28 Initialized : BOOLEAN; 29 handle: CARDINAL; 30 31 TYPE 32 AWindowHandle = POINTER TO CARDINAL; ***** ^ not supported yet 33 VAR 34 NormalBackGround: MsColors.AColor; ***** ^ not supported yet 35 NormalAttrib: MsColors.AMonoAttribute; ***** ^ not supported yet 36 37 PROCEDURE NullScan( StrAddr: SYSTEM.ADDRESS ): CARDINAL; ***** ^ not supported yet 38 BEGIN 39 RETURN LowLevel.ScanEQ( 32767, 0C, StrAddr ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 END NullScan; ***** ^ not supported yet 41 42 43 PROCEDURE AtrbSetToAtrb( TheSet: SmartScreen.AttributeSet ): ***** ^ not supported yet 44 SmartScreen.TextAttribute; ***** ^ not supported yet 45 BEGIN 46 IF SmartScreen.plain IN TheSet THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 47 RETURN SmartScreen.plain; ***** ^ not supported yet ***** ^ not supported yet 48 ELSIF SmartScreen.bold IN TheSet THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 49 RETURN SmartScreen.bold; ***** ^ not supported yet ***** ^ not supported yet 50 ELSIF SmartScreen.underscored IN TheSet THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 51 RETURN SmartScreen.underscored; ***** ^ not supported yet ***** ^ not supported yet 52 ELSIF SmartScreen.blinking IN TheSet THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 53 RETURN SmartScreen.blinking; ***** ^ not supported yet ***** ^ not supported yet 54 ELSIF SmartScreen.ReverseVideo IN TheSet THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 55 RETURN SmartScreen.ReverseVideo; ***** ^ not supported yet ***** ^ not supported yet 56 ELSE 57 RETURN SmartScreen.plain; ***** ^ not supported yet ***** ^ not supported yet 58 END; 59 END AtrbSetToAtrb; ***** ^ not supported yet 60 61 62 PROCEDURE DefaultGetCursorHeight( TheWindow: AWindowHandle ): 63 CARDINAL; 64 BEGIN 65 RETURN WindowPrims.GetCursorHeight(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 66 END DefaultGetCursorHeight; ***** ^ not supported yet 67 68 69 PROCEDURE DefaultSetCursorHeight( TheWindow: AWindowHandle; 70 LinesInCursor: CARDINAL ); 71 BEGIN 72 SmartScreen.SetCursorHeight( LinesInCursor ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 73 END DefaultSetCursorHeight; ***** ^ not supported yet 74 75 76 PROCEDURE DefaultGetCursorCoords( TheWindow: AWindowHandle; VAR 77 x, y: CARDINAL ); 78 BEGIN 79 WindowPrims.GetCursorCoords( x, y ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 80 END DefaultGetCursorCoords; ***** ^ not supported yet 81 82 83 PROCEDURE DefaultDrawBox( TheWindow: AWindowHandle; BoxChars: BoxStr; ***** ^ undeclared identifier 84 col1, row1, col2, row2 : CARDINAL); 85 BEGIN 86 WindowPrims.DrawThisBox( BoxStr(BoxChars), col1, row1, ***** ^ not supported yet ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 87 col2, row2 ); ***** ^ not supported yet 88 END DefaultDrawBox; ***** ^ not supported yet 89 90 PROCEDURE DefaultDrawStr( TheWindow: AWindowHandle; x, y: 91 CARDINAL; StrAddr: SYSTEM.ADDRESS; StrLength: CARDINAL ); ***** ^ not supported yet 92 BEGIN 93 IF StrLength = 0 THEN 94 StrLength := NullScan( StrAddr ); ***** ^ not supported yet ***** ^ not supported yet 95 END; 96 SmartScreen.AdrWriteAt( x, y, StrAddr, StrLength ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 97 END DefaultDrawStr; ***** ^ not supported yet 98 99 100 PROCEDURE DefaultClearPart( TheWindow: AWindowHandle; 101 col1, row1, col2, row2: CARDINAL ); 102 BEGIN 103 IF (col1 <= 1) AND (col2 >= SmartScreen.EndCol()) AND (row1 <= 1) ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 104 AND (row2 >= SmartScreen.EndRow() ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 105 (*If they're clearing the whole window, we assume they're 106 changing the NormalBackGround color.*) 107 NormalBackGround := MsColors.AColor(SmartScreen.BackGround); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 108 NormalAttrib := MsColors.AMonoAttribute( AtrbSetToAtrb( ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 109 SmartScreen.TextModeNow)); ***** ^ not supported yet ***** ^ not supported yet 110 END; 111 SmartScreen.ClearPart( col1, row1, col2, row2 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 112 END DefaultClearPart; ***** ^ not supported yet 113 114 115 PROCEDURE DefaultEndCol( TheWindow: AWindowHandle ): CARDINAL; 116 BEGIN 117 RETURN SmartScreen.EndCol(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 118 END DefaultEndCol; ***** ^ not supported yet 119 120 121 PROCEDURE DefaultEndRow( TheWindow: AWindowHandle ): CARDINAL; 122 BEGIN 123 RETURN SmartScreen.EndRow(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 124 END DefaultEndRow; ***** ^ not supported yet 125 126 127 PROCEDURE DefaultGotoXY( TheWindow: AWindowHandle; x, y: CARDINAL ); 128 BEGIN 129 SmartScreen.GotoXY( x, y ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 130 END DefaultGotoXY; ***** ^ not supported yet 131 132 133 PROCEDURE DefaultReverseColors( TheWindow: AWindowHandle ); 134 BEGIN 135 SmartScreen.ReverseColors(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 136 END DefaultReverseColors; ***** ^ not supported yet 137 138 139 PROCEDURE DefaultSetMonoAttr( TheWindow: AWindowHandle; 140 NewMonoAttr : MsColors.AMonoAttribute ); ***** ^ not supported yet 141 BEGIN 142 SmartScreen.SetAttribOrColor( SmartScreen.ForeGround, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 143 SmartScreen.BackGround, ***** ^ not supported yet ***** ^ not supported yet 144 SmartScreen.TextAttribute(NewMonoAttr) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 145 END DefaultSetMonoAttr; ***** ^ not supported yet 146 147 148 PROCEDURE DefaultSetForeColor( TheWindow: AWindowHandle; 149 NewForeColor : MsColors.AColor ); ***** ^ not supported yet 150 BEGIN 151 SmartScreen.SetAttribOrColor( SmartScreen.Colors( NewForeColor ), ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 152 SmartScreen.BackGround, AtrbSetToAtrb(SmartScreen.TextModeNow) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 153 END DefaultSetForeColor; ***** ^ not supported yet 154 155 156 PROCEDURE DefaultSetBackColor( TheWindow: AWindowHandle; 157 NewBackColor : MsColors.AColor ); ***** ^ not supported yet 158 BEGIN 159 SmartScreen.SetAttribOrColor( SmartScreen.ForeGround, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 160 SmartScreen.Colors( NewBackColor ), ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 161 AtrbSetToAtrb(SmartScreen.TextModeNow) ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 162 END DefaultSetBackColor; ***** ^ not supported yet 163 164 165 PROCEDURE DefaultMsgBox( TheWindow: AWindowHandle; 166 TextPtr: SYSTEM.ADDRESS; CaptionPtr: SYSTEM.ADDRESS; ***** ^ not supported yet ***** ^ not supported yet 167 WinType: CARDINAL ): CARDINAL; 168 BEGIN 169 RETURN MsgBox1.WinMsgBox( TheWindow, TextPtr, CaptionPtr, WinType ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 170 END DefaultMsgBox; ***** ^ not supported yet 171 172 173 PROCEDURE DefaultMonoAttr( TheWindow: AWindowHandle ): 174 MsColors.AMonoAttribute; ***** ^ not supported yet 175 VAR 176 TmpAttr : MsColors.AMonoAttribute; ***** ^ not supported yet 177 BEGIN 178 (* 179 TmpAttr := MsColors.AMonoAttribute( 180 AtrbSetToAtrb(SmartScreen.TextModeNow) ); 181 RETURN TmpAttr; 182 *) 183 RETURN NormalAttrib; ***** ^ not supported yet 184 END DefaultMonoAttr; ***** ^ not supported yet 185 186 187 PROCEDURE DefaultForeColor( TheWindow: AWindowHandle ): MsColors.AColor; ***** ^ not supported yet 188 BEGIN 189 RETURN MsColors.AColor( SmartScreen.ForeGround ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 190 END DefaultForeColor; ***** ^ not supported yet 191 192 193 PROCEDURE DefaultBackColor( TheWindow: AWindowHandle ): MsColors.AColor; ***** ^ not supported yet 194 BEGIN 195 (* We need something that tells us what color to use in 196 clearing the window, so we hijack this function for that 197 purpose. Neither it nor the ForeColor function were 198 particularly useful in their old roles because you 199 should always know the colors in which you want to 200 write. You don't need the window manager to tell you 201 the colors in which you are writing. *) 202 RETURN NormalBackGround; ***** ^ not supported yet 203 (* 204 RETURN MsColors.AColor( SmartScreen.BackGround ); 205 *) 206 END DefaultBackColor; ***** ^ not supported yet 207 208 209 PROCEDURE DefaultScrollVertically( TheWindow: AWindowHandle; 210 col1, row1, col2, row2: CARDINAL; lines: INTEGER ): BOOLEAN; 211 BEGIN 212 WindowPrims.ScrollWindow( col1, row1, col2, row2, lines ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 213 RETURN TRUE; 214 END DefaultScrollVertically; ***** ^ not supported yet 215 216 217 PROCEDURE DefaultScrollHorizontally( TheWindow: AWindowHandle; 218 col1, row1, col2, row2: CARDINAL; lines: INTEGER ): BOOLEAN; 219 BEGIN 220 (*We don't have a fast routine to scroll horizontally, so 221 we leave it to the client module to repaint. *) 222 RETURN FALSE; 223 END DefaultScrollHorizontally; ***** ^ not supported yet 224 225 226 VAR 227 col1, row1, col2, row2: CARDINAL; 228 229 PROCEDURE DefaultSetScrollPos( TheWindow: AWindowHandle; 230 WhichScrollBar: INTEGER; AmountScrolled: INTEGER ); 231 232 PROCEDURE DrawMarkedLine( col1, row1, col2, row2: 233 CARDINAL; LineType: CHAR; TotalLengthOrWidth, 234 scrolled: CARDINAL); 235 236 PROCEDURE FigurePlacement( VisibleUnits, TotalUnits, 237 ScrolledUnits: CARDINAL; VAR offs1, offs2: CARDINAL ); 238 VAR 239 ratio: CARDINAL; 240 BEGIN 241 (*First we figure out how many lines of TotalUnits a 242 single line of VisibleUnits corresponds to.*) 243 IF VisibleUnits >= TotalUnits THEN 244 offs1 := 1; 245 offs2 := 2; 246 RETURN; 247 END; 248 ratio := TotalUnits DIV VisibleUnits; 249 offs1 := ScrolledUnits DIV ratio; 250 offs2 := ((TotalUnits - VisibleUnits) - 251 ScrolledUnits); 252 (*offs2 now represents the number of units in 253 TotalUnits below those visible.*) 254 offs2 := VisibleUnits - (offs2 DIV ratio); 255 IF offs1 = 0 THEN 256 INC( offs1 ); ***** ^ undeclared identifier ***** ^ not supported yet 257 INC( offs2 ); ***** ^ undeclared identifier ***** ^ not supported yet 258 END; 259 IF offs2 = offs1 THEN 260 (*Now we make sure the marks don't come out on top of 261 each other.*) 262 IF offs1 > 1 THEN 263 DEC(offs1); ***** ^ undeclared identifier ***** ^ not supported yet 264 ELSE 265 INC(offs2); ***** ^ undeclared identifier ***** ^ not supported yet 266 END 267 END; 268 END FigurePlacement; ***** ^ not supported yet 269 270 VAR 271 LineChar, MarkChar: CHAR; 272 offs1, offs2: CARDINAL; 273 BEGIN 274 (*DrawMarkedLine*) 275 IF col1 < col2 THEN 276 (*We're drawing a horizontal line.*) 277 IF LineType = 'D' THEN 278 LineChar := 315C; 279 (*horizontal double-lined char*) 280 MarkChar := 330C; 281 ELSE 282 LineChar := 304C; 283 (*horizontal single-lined char*) 284 MarkChar := 305C; 285 END; 286 WindowPrims.DrawLine( col1 + 1, row2, col2 - 1, row2, ***** ^ not supported yet ***** ^ not supported yet 287 LineChar); ***** ^ not supported yet 288 (*This wipes out any previous marks.*) 289 FigurePlacement( (col2 - col1) - 1, TotalLengthOrWidth, ***** ^ not supported yet 290 scrolled, offs1, offs2 ); ***** ^ not supported yet 291 DrawStr( TheWindow, col1 + offs1, row2, SYSTEM.ADR(MarkChar), 1 ); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 292 DrawStr( TheWindow, col1 + offs2, row2, SYSTEM.ADR(MarkChar), 1 ); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 293 ELSE 294 (*We're drawing a vertical line.*) 295 IF LineType = 'D' THEN 296 LineChar := 272C; 297 (*vertical double-lined char*) 298 MarkChar := 327C; 299 ELSE 300 LineChar := CHR(179); ***** ^ undeclared identifier ***** ^ not supported yet 301 (*vertical single-lined char*) 302 MarkChar := CHR(197); ***** ^ undeclared identifier ***** ^ not supported yet 303 END; 304 WindowPrims.DrawLine( col2, row1 + 1, col2, row2 - 1, ***** ^ not supported yet ***** ^ not supported yet 305 LineChar ); ***** ^ not supported yet 306 (*This wipes out any previous marks.*) 307 FigurePlacement( (row2 - row1) - 1, TotalLengthOrWidth, ***** ^ not supported yet 308 scrolled, offs1, offs2 ); ***** ^ not supported yet 309 DrawStr( TheWindow, col2, row1 + offs1, ***** ^ undeclared identifier ***** ^ not supported yet 310 SYSTEM.ADR(MarkChar), 1 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 311 DrawStr( TheWindow, col2, row1 + offs2, ***** ^ undeclared identifier ***** ^ not supported yet 312 SYSTEM.ADR(MarkChar), 1 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 313 END; 314 END DrawMarkedLine; ***** ^ not supported yet 315 316 VAR 317 box: CHAR; 318 BEGIN 319 IF WhichScrollBar = SbVert THEN ***** ^ undeclared identifier 320 DrawMarkedLine( col2, row1, col2, ***** ^ not supported yet 321 row2, box, row2 - row1 + 1, AmountScrolled ); ***** ^ not supported yet 322 ELSIF WhichScrollBar = SbHorz THEN ***** ^ undeclared identifier 323 DrawMarkedLine( col1, row2, col2, ***** ^ not supported yet 324 row2, box, col2 - col1 + 1, AmountScrolled ); ***** ^ not supported yet 325 END; 326 END DefaultSetScrollPos; ***** ^ not supported yet 327 328 329 PROCEDURE DefaultSetScrollRange( TheWindow: AWindowHandle; 330 WhichScrollBar, MinPos, MaxPos: INTEGER ); 331 BEGIN 332 IF WhichScrollBar = SbVert THEN ***** ^ undeclared identifier 333 row1 := MinPos; 334 row2 := MaxPos; 335 ELSIF WhichScrollBar = SbHorz THEN ***** ^ undeclared identifier 336 col1 := MinPos; 337 col2 := MaxPos; 338 END; 339 END DefaultSetScrollRange; ***** ^ not supported yet 340 341 PROCEDURE Init(); 342 BEGIN 343 IF Initialized THEN 344 RETURN; 345 ELSE 346 Initialized := TRUE; 347 END; 348 (*EntryDiag: 349 Diagnostics.Init(); 350 :EntryDiag*) 351 LowLevel.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 352 MsColors.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 353 MsgBox1.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 354 SmartScreen.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 355 WindowPrims.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 356 357 (*EntryDiag: 358 Diagnostics.diagS( 'Entering VWindows', '' ); 359 :EntryDiag*) 360 361 SingleBox[0] := CHR(218); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 362 SingleBox[1] := CHR(196); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 363 SingleBox[2] := CHR(191); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 364 SingleBox[3] := CHR(179); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 365 SingleBox[4] := CHR(179); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 366 SingleBox[5] := CHR(192); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 367 SingleBox[6] := CHR(196); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 368 SingleBox[7] := CHR(217); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 369 SingleBox[8] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 370 DoubleBox[0] := CHR(201); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 371 DoubleBox[1] := CHR(205); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 372 DoubleBox[2] := CHR(187); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 373 DoubleBox[3] := CHR(186); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 374 DoubleBox[4] := CHR(186); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 375 DoubleBox[5] := CHR(200); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 376 DoubleBox[6] := CHR(205); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 377 DoubleBox[7] := CHR(188); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ undeclared identifier ***** ^ not supported yet 378 DoubleBox[8] := 0C; ***** ^ undeclared identifier ***** ^ not supported yet 379 NormalBackGround := MsColors.black; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 380 NormalAttrib := MsColors.plain; ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 381 BackColor := DefaultBackColor; ***** ^ undeclared identifier ***** ^ not supported yet 382 ClearPart := DefaultClearPart; ***** ^ undeclared identifier ***** ^ not supported yet 383 CurrentWindow := SYSTEM.ADR(handle); ***** ^ undeclared identifier ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 384 handle:=0; 385 DrawBox := DefaultDrawBox; ***** ^ undeclared identifier ***** ^ not supported yet 386 DrawStr := DefaultDrawStr; ***** ^ undeclared identifier ***** ^ not supported yet 387 EndCol := DefaultEndCol; ***** ^ undeclared identifier ***** ^ not supported yet 388 EndRow := DefaultEndRow; ***** ^ undeclared identifier ***** ^ not supported yet 389 ForeColor := DefaultForeColor; ***** ^ undeclared identifier ***** ^ not supported yet 390 GetCursorHeight := DefaultGetCursorHeight; ***** ^ undeclared identifier ***** ^ not supported yet 391 GetCursorCoords := DefaultGetCursorCoords; ***** ^ undeclared identifier ***** ^ not supported yet 392 GotoXY := DefaultGotoXY; ***** ^ undeclared identifier ***** ^ not supported yet 393 MessageBox := DefaultMsgBox; ***** ^ undeclared identifier ***** ^ not supported yet 394 MonoAttr := DefaultMonoAttr; ***** ^ undeclared identifier ***** ^ not supported yet 395 ReverseColors := DefaultReverseColors; ***** ^ undeclared identifier ***** ^ not supported yet 396 ScrollHorizontally := DefaultScrollHorizontally; ***** ^ undeclared identifier ***** ^ not supported yet 397 ScrollVertically := DefaultScrollVertically; ***** ^ undeclared identifier ***** ^ not supported yet 398 SetBackColor := DefaultSetBackColor; ***** ^ undeclared identifier ***** ^ not supported yet 399 SetCursorHeight := DefaultSetCursorHeight; ***** ^ undeclared identifier ***** ^ not supported yet 400 SetForeColor := DefaultSetForeColor; ***** ^ undeclared identifier ***** ^ not supported yet 401 SetMonoAttr := DefaultSetMonoAttr; ***** ^ undeclared identifier ***** ^ not supported yet 402 SetScrollPos := DefaultSetScrollPos; ***** ^ undeclared identifier ***** ^ not supported yet 403 SetScrollRange := DefaultSetScrollRange; ***** ^ undeclared identifier ***** ^ not supported yet 404 405 (*EntryDiag: 406 Diagnostics.diagS( 'Exiting VWindows', '' ); 407 :EntryDiag*) 408 END Init; ***** ^ not supported yet 409 410 BEGIN 411 Initialized := FALSE; 412 Init(); ***** ^ not supported yet ***** ^ not supported yet 413 END VWindows. ***** ^ not supported yet 361 errors