| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421 |
- 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
|
