Ana Sayfa Keşfet Yardım
Giriş Yap
eric
/
Topspeed_JPI
1
0
Çatalla 0
Dosyalar Sorunlar 0 Değişiklik İstekleri 0 Wiki
Dal: master
Dallar Biçim İmleri
Topspeed_JPI
/
TS-V3
/
REP16
/
FRAMEMAN.LST

FRAMEMAN.LST 30 KB
Kalıcı Bağlantı Geçmiş Ham

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE FrameManager;
    4. 

  4.     2  (*
    5. 

  5.     3   *  REPERTOIRE
    6. 

  6.     4   *  Release 1.6
    7. 

  7.     5   *  By Charles Bradford and Cole Brecheen
    8. 

  8.     6   *  (c) Copyright 1985-1992 PMI
    9. 

  9.     7   *  Green Bay, Wisconsin
    10. 

  10.     8   *  All rights reserved
    11. 

  11.     9   *  (414) 468-6040
    12. 

  12.    10   *
    13. 

  13.    11   *  $Header:   D:/logfiles/mods/frameman.mov   1.5   10 Mar 1991 15:27:50   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  (*
    19. 

  19.    17  IMPORT Diagnostics;
    20. 

  20.    18  *)
    21. 

  21.    19  
    22. 

  22.    20  IMPORT ErrorManager;
    23. 

  23.    21  IMPORT FramePainter;
    24. 

  24.    22  IMPORT GenLists;
    25. 

  25.    23  IMPORT Hash;
    26. 

  26.    24  IMPORT ListUtils;
    27. 

  27.    25  IMPORT Rectangles;
    28. 

  28.    26  IMPORT ScrnTypes;
    29. 

  29.    27  IMPORT SYSTEM;
    30. 

  30.    28  IMPORT VWindows;
    31. 

  31.    29  
    32. 

  32.    30  VAR
    33. 

  33.    31    Initialized : BOOLEAN;
    34. 

  34.    32  
    35. 

  35.    33  
    36. 

  36.    34    (* The idea here is that we have a list of windows, each of
    37. 

  37.    35       which has a list of active DisplayFrames (pointers to
    38. 

  38.    36       DisplayFrameRecs) in the position immediately following it.
    39. 

  39.    37       A DisplayFrame's position in the window list indicates how
    40. 

  40.    38       it is stacked --position 1 means it is in the foreground,
    41. 

  41.    39       and each position after that means it is farther into the
    42. 

  42.    40       background *)
    43. 

  43.    41  
    44. 

  44.    42  CONST
    45. 

  45.    43    FrameCode = 65529;
    46. 

  46.    44    WindowCode = 65528;
    47. 

  47.    45      (* arbitrary *)
    48. 

  48.    46  
    49. 

  49.    47  VAR
    50. 

  50.    48    WindowListInitialized : BOOLEAN;
    51. 

  51.    49    WindowList: GenLists.GenList;
    52. 

  52. *****                         ^ not supported yet
    53. 

  53.    50  
    54. 

  54.    51  
    55. 

  55.    52    PROCEDURE CleanUp();
    56. 

  56.    53      BEGIN
    57. 

  57.    54  (*
    58. 

  58.    55  Diagnostics.diagS( 'About to DisposeList', '' );
    59. 

  59.    56  *)
    60. 

  60.    57        GenLists.DisposeList( WindowList );
    61. 

  61. *****        ^ not supported yet
    62. 

  62. *****                 ^ not supported yet
    63. 

  63. *****                              ^ not supported yet
    64. 

  64.    58      END CleanUp;
    65. 

  65. *****          ^ not supported yet
    66. 

  66.    59  
    67. 

  67.    60  
    68. 

  68.    61    PROCEDURE AddWindow( TheWindow: VWindows.AWindowHandle );
    69. 

  69. *****                                             ^ not supported yet
    70. 

  70.    62      VAR
    71. 

  71.    63        ActiveFrameList : GenLists.GenList;
    72. 

  72. *****                                   ^ not supported yet
    73. 

  73.    64      BEGIN
    74. 

  74.    65        IF NOT WindowListInitialized THEN
    75. 

  75.    66          GenLists.NewList( WindowList );
    76. 

  76. *****          ^ not supported yet
    77. 

  77. *****                   ^ not supported yet
    78. 

  78. *****                            ^ not supported yet
    79. 

  79.    67          WindowListInitialized := TRUE;
    80. 

  80.    68          ErrorManager.AddTermProc( CleanUp );
    81. 

  81. *****          ^ not supported yet
    82. 

  82. *****                       ^ not supported yet
    83. 

  83. *****                                    ^ not supported yet
    84. 

  84.    69        END;
    85. 

  85.    70        IF ListUtils.ObjectSpot( TheWindow, WindowList, 1, 65535 ) > 0 THEN
    86. 

  86. *****           ^ not supported yet
    87. 

  87. *****                     ^ not supported yet
    88. 

  88. *****                                 ^ not supported yet
    89. 

  89. *****                                            ^ not supported yet
    90. 

  90. *****                                                                 ^ not supported yet
    91. 

  91.    71          (*TheWindow is already in WindowList.  We don't complain
    92. 

  92.    72            about redundant adds because most frames will be
    93. 

  93.    73            associated with the same window, and we don't want
    94. 

  94.    74            InitDisplayFrame to have to worry about whether a
    95. 

  95.    75            window has already been added. *)
    96. 

  96.    76          RETURN;
    97. 

  97.    77        END;
    98. 

  98.    78        GenLists.NewList( ActiveFrameList );
    99. 

  99. *****        ^ not supported yet
    100. 

  100. *****                 ^ not supported yet
    101. 

  101. *****                          ^ not supported yet
    102. 

  102.    79        GenLists.ListInsert( ActiveFrameList, GenLists.ListCode, WindowList, 1 );
    103. 

  103. *****        ^ not supported yet
    104. 

  104. *****                 ^ not supported yet
    105. 

  105. *****                             ^ not supported yet
    106. 

  106. *****                                              ^ not supported yet
    107. 

  107. *****                                                       ^ not supported yet
    108. 

  108. *****                                                                 ^ not supported yet
    109. 

  109. *****                                                                               ^ not supported yet
    110. 

  110.    80        GenLists.ListInsert( TheWindow, WindowCode, WindowList, 1 );
    111. 

  111. *****        ^ not supported yet
    112. 

  112. *****                 ^ not supported yet
    113. 

  113. *****                             ^ not supported yet
    114. 

  114. *****                                                    ^ not supported yet
    115. 

  115. *****                                                                  ^ not supported yet
    116. 

  116.    81      END AddWindow;
    117. 

  117. *****          ^ not supported yet
    118. 

  118.    82  
    119. 

  119.    83  
    120. 

  120.    84    PROCEDURE DeleteWindow( TheWindow: VWindows.AWindowHandle );
    121. 

  121. *****                                                ^ not supported yet
    122. 

  122.    85      VAR
    123. 

  123.    86        ActiveFrameList : GenLists.GenList;
    124. 

  124. *****                                   ^ not supported yet
    125. 

  125.    87        spot : CARDINAL;
    126. 

  126.    88      BEGIN
    127. 

  127.    89        spot := ListUtils.ObjectSpot( TheWindow, WindowList, 1, 65535 );
    128. 

  128. *****                ^ not supported yet
    129. 

  129. *****                          ^ not supported yet
    130. 

  130. *****                                      ^ not supported yet
    131. 

  131. *****                                                 ^ not supported yet
    132. 

  132. *****                                                                      ^ not supported yet
    133. 

  133.    90        IF spot > 0 THEN
    134. 

  134.    91          GenLists.ListDelete( WindowList, spot, 2 );
    135. 

  135. *****          ^ not supported yet
    136. 

  136. *****                   ^ not supported yet
    137. 

  137. *****                               ^ not supported yet
    138. 

  138. *****                                                   ^ not supported yet
    139. 

  139.    92        END;
    140. 

  140.    93      END DeleteWindow;
    141. 

  141. *****          ^ not supported yet
    142. 

  142.    94  
    143. 

  143.    95  
    144. 

  144.    96    PROCEDURE GetAssociatedFrames( TheWindow:
    145. 

  145.    97        VWindows.AWindowHandle; VAR FrameList: GenLists.GenList );
    146. 

  146. *****                 ^ not supported yet
    147. 

  147. *****                                                        ^ not supported yet
    148. 

  148.    98      VAR
    149. 

  149.    99        spot: CARDINAL;
    150. 

  150.   100      BEGIN
    151. 

  151.   101        spot := ListUtils.ObjectSpot( TheWindow, WindowList, 1, 65535 );
    152. 

  152. *****                ^ not supported yet
    153. 

  153. *****                          ^ not supported yet
    154. 

  154. *****                                      ^ not supported yet
    155. 

  155. *****                                                 ^ not supported yet
    156. 

  156. *****                                                                      ^ not supported yet
    157. 

  157.   102        IF spot > 0 THEN
    158. 

  158.   103          GenLists.GetChildList( WindowList, spot + 1, FrameList );
    159. 

  159. *****          ^ not supported yet
    160. 

  160. *****                   ^ not supported yet
    161. 

  161. *****                                 ^ not supported yet
    162. 

  162. *****                                                       ^ not supported yet
    163. 

  163.   104          IF GenLists.Initialized( FrameList ) THEN
    164. 

  164. *****             ^ not supported yet
    165. 

  165. *****                      ^ not supported yet
    166. 

  166. *****                                   ^ not supported yet
    167. 

  167.   105            RETURN;
    168. 

  168.   106          END;
    169. 

  169.   107        END;
    170. 

  170.   108        ErrorManager.WARN( "You're missing a call to AddWindow somewhere" );
    171. 

  171. *****        ^ not supported yet
    172. 

  172. *****                     ^ not supported yet
    173. 

  173. *****                           ^ not supported yet
    174. 

  174.   109      END GetAssociatedFrames;
    175. 

  175. *****          ^ not supported yet
    176. 

  176.   110  
    177. 

  177.   111  
    178. 

  178.   112    PROCEDURE FrameIsInForeGround( TheFrame: ScrnTypes.DisplayFrame );
    179. 

  179. *****                                                       ^ not supported yet
    180. 

  180.   113      VAR
    181. 

  181.   114        ActiveFrameList : GenLists.GenList;
    182. 

  182. *****                                   ^ not supported yet
    183. 

  183.   115        spot: CARDINAL;
    184. 

  184.   116      BEGIN
    185. 

  185.   117        GetAssociatedFrames( TheFrame^.WindowHandle, ActiveFrameList );
    186. 

  186. *****        ^ not supported yet
    187. 

  187. *****                             ^ not supported yet
    188. 

  188. *****                                       ^ not supported yet
    189. 

  189. *****                                                     ^ not supported yet
    190. 

  190.   118        spot := ListUtils.ObjectSpot( TheFrame, ActiveFrameList, 1, 65535 );
    191. 

  191. *****                ^ not supported yet
    192. 

  192. *****                          ^ not supported yet
    193. 

  193. *****                                      ^ not supported yet
    194. 

  194. *****                                                ^ not supported yet
    195. 

  195. *****                                                                          ^ not supported yet
    196. 

  196.   119        IF spot = 0 THEN
    197. 

  197.   120          ErrorManager.WARN( 'Frame not active' );
    198. 

  198. *****          ^ not supported yet
    199. 

  199. *****                       ^ not supported yet
    200. 

  200. *****                             ^ not supported yet
    201. 

  201.   121        END;
    202. 

  202.   122          (* Now move TheFrame to the front of ActiveFrameList. *)
    203. 

  203.   123        IF spot # 1 THEN
    204. 

  204.   124          GenLists.ListDelete( ActiveFrameList, spot, 1 );
    205. 

  205. *****          ^ not supported yet
    206. 

  206. *****                   ^ not supported yet
    207. 

  207. *****                               ^ not supported yet
    208. 

  208. *****                                                        ^ not supported yet
    209. 

  209.   125          GenLists.ListInsert( TheFrame, FrameCode, ActiveFrameList, 1 );
    210. 

  210. *****          ^ not supported yet
    211. 

  211. *****                   ^ not supported yet
    212. 

  212. *****                               ^ not supported yet
    213. 

  213. *****                                                    ^ not supported yet
    214. 

  214. *****                                                                       ^ not supported yet
    215. 

  215.   126        END;
    216. 

  216.   127      END FrameIsInForeGround;
    217. 

  217. *****          ^ not supported yet
    218. 

  218.   128  
    219. 

  219.   129  
    220. 

  220.   130    PROCEDURE GetFrameFromList( list: GenLists.GenList; spot:
    221. 

  221. *****                                               ^ not supported yet
    222. 

  222.   131        CARDINAL; VAR frame: ScrnTypes.DisplayFrame );
    223. 

  223. *****                                       ^ not supported yet
    224. 

  224.   132      VAR
    225. 

  225.   133        TypeCode: CARDINAL;
    226. 

  226.   134      BEGIN
    227. 

  227.   135        GenLists.GetElmt( list, spot, frame, TypeCode );
    228. 

  228. *****        ^ not supported yet
    229. 

  229. *****                 ^ not supported yet
    230. 

  230. *****                          ^ not supported yet
    231. 

  231. *****                                      ^ not supported yet
    232. 

  232. *****                                                      ^ not supported yet
    233. 

  233.   136        IF TypeCode # FrameCode THEN
    234. 

  234.   137          ErrorManager.WARN( 'Error in frame list' );
    235. 

  235. *****          ^ not supported yet
    236. 

  236. *****                       ^ not supported yet
    237. 

  237. *****                             ^ not supported yet
    238. 

  238.   138        END;
    239. 

  239.   139      END GetFrameFromList;
    240. 

  240. *****          ^ not supported yet
    241. 

  241.   140  
    242. 

  242.   141  
    243. 

  243.   142    PROCEDURE FrameActivated( TheFrame: ScrnTypes.DisplayFrame );
    244. 

  244. *****                                                  ^ not supported yet
    245. 

  245.   143      VAR
    246. 

  246.   144        ActiveFrameList : GenLists.GenList;
    247. 

  247. *****                                   ^ not supported yet
    248. 

  248.   145        spot : CARDINAL;
    249. 

  249.   146      BEGIN
    250. 

  250.   147        GetAssociatedFrames( TheFrame^.WindowHandle, ActiveFrameList );
    251. 

  251. *****        ^ not supported yet
    252. 

  252. *****                             ^ not supported yet
    253. 

  253. *****                                       ^ not supported yet
    254. 

  254. *****                                                     ^ not supported yet
    255. 

  255.   148        spot := ListUtils.ObjectSpot( TheFrame, ActiveFrameList, 1, 65535 );
    256. 

  256. *****                ^ not supported yet
    257. 

  257. *****                          ^ not supported yet
    258. 

  258. *****                                      ^ not supported yet
    259. 

  259. *****                                                ^ not supported yet
    260. 

  260. *****                                                                          ^ not supported yet
    261. 

  261.   149        IF spot > 0 THEN
    262. 

  262.   150          (* TheFrame is already in the list. *)
    263. 

  263.   151          RETURN;
    264. 

  264.   152        END;
    265. 

  265.   153        GenLists.ListInsert( TheFrame, FrameCode, ActiveFrameList, 1 );
    266. 

  266. *****        ^ not supported yet
    267. 

  267. *****                 ^ not supported yet
    268. 

  268. *****                             ^ not supported yet
    269. 

  269. *****                                                  ^ not supported yet
    270. 

  270. *****                                                                     ^ not supported yet
    271. 

  271.   154      END FrameActivated;
    272. 

  272. *****          ^ not supported yet
    273. 

  273.   155  
    274. 

  274.   156    PROCEDURE FrameDeactivated( TheFrame: ScrnTypes.DisplayFrame );
    275. 

  275. *****                                                    ^ not supported yet
    276. 

  276.   157      VAR
    277. 

  277.   158        ActiveFrameList : GenLists.GenList;
    278. 

  278. *****                                   ^ not supported yet
    279. 

  279.   159        spot : CARDINAL;
    280. 

  280.   160      BEGIN
    281. 

  281.   161        GetAssociatedFrames( TheFrame^.WindowHandle, ActiveFrameList );
    282. 

  282. *****        ^ not supported yet
    283. 

  283. *****                             ^ not supported yet
    284. 

  284. *****                                       ^ not supported yet
    285. 

  285. *****                                                     ^ not supported yet
    286. 

  286.   162        spot := ListUtils.ObjectSpot( TheFrame, ActiveFrameList, 1, 65535 );
    287. 

  287. *****                ^ not supported yet
    288. 

  288. *****                          ^ not supported yet
    289. 

  289. *****                                      ^ not supported yet
    290. 

  290. *****                                                ^ not supported yet
    291. 

  291. *****                                                                          ^ not supported yet
    292. 

  292.   163        IF spot = 0 THEN
    293. 

  293.   164          (* TheFrame is not in the list. *)
    294. 

  294.   165          RETURN;
    295. 

  295.   166        END;
    296. 

  296.   167        GenLists.ListDelete( ActiveFrameList, spot, 1 );
    297. 

  297. *****        ^ not supported yet
    298. 

  298. *****                 ^ not supported yet
    299. 

  299. *****                             ^ not supported yet
    300. 

  300. *****                                                      ^ not supported yet
    301. 

  301.   168      END FrameDeactivated;
    302. 

  302. *****          ^ not supported yet
    303. 

  303.   169  
    304. 

  304.   170  
    305. 

  305.   171    PROCEDURE GetFrameCoords( TheFrame: ScrnTypes.DisplayFrame; VAR
    306. 

  306. *****                                                  ^ not supported yet
    307. 

  307.   172        rect: Rectangles.ARectangle );
    308. 

  308. *****                         ^ not supported yet
    309. 

  309.   173      BEGIN
    310. 

  310.   174        Rectangles.DefineRectangle( rect, TheFrame^.startcol +
    311. 

  311. *****        ^ not supported yet
    312. 

  312. *****                   ^ not supported yet
    313. 

  313. *****                                    ^ not supported yet
    314. 

  314. *****                                          ^ not supported yet
    315. 

  315. *****                                                    ^ not supported yet
    316. 

  316.   175            1, TheFrame^.startrow + 1, TheFrame^.endcol + 1,
    317. 

  317. *****               ^ not supported yet
    318. 

  318. *****                         ^ not supported yet
    319. 

  319. *****                                       ^ not supported yet
    320. 

  320. *****                                                 ^ not supported yet
    321. 

  321.   176            TheFrame^.endrow + 1 )
    322. 

  322. *****            ^ not supported yet
    323. 

  323. *****                      ^ not supported yet
    324. 

  324. *****                                 ^ not supported yet
    325. 

  325.   177      END GetFrameCoords;
    326. 

  326. *****          ^ not supported yet
    327. 

  327.   178  
    328. 

  328.   179  
    329. 

  329.   180    PROCEDURE IsFrameObscured( TheFrame: ScrnTypes.DisplayFrame ):
    330. 

  330. *****                                                   ^ not supported yet
    331. 

  331.   181        BOOLEAN;
    332. 

  332.   182      VAR
    333. 

  333.   183        FrameRect, tmprect, intersection : Rectangles.ARectangle;
    334. 

  334. *****                                                      ^ not supported yet
    335. 

  335.   184        ActiveFrameList : GenLists.GenList;
    336. 

  336. *****                                   ^ not supported yet
    337. 

  337.   185        ListEnd, cnt, spot : CARDINAL;
    338. 

  338.   186        TmpFrame : ScrnTypes.DisplayFrame;
    339. 

  339. *****                             ^ not supported yet
    340. 

  340.   187      BEGIN
    341. 

  341.   188        GetAssociatedFrames( TheFrame^.WindowHandle, ActiveFrameList );
    342. 

  342. *****        ^ not supported yet
    343. 

  343. *****                             ^ not supported yet
    344. 

  344. *****                                       ^ not supported yet
    345. 

  345. *****                                                     ^ not supported yet
    346. 

  346.   189        spot := ListUtils.ObjectSpot( TheFrame, ActiveFrameList, 1, 65535 );
    347. 

  347. *****                ^ not supported yet
    348. 

  348. *****                          ^ not supported yet
    349. 

  349. *****                                      ^ not supported yet
    350. 

  350. *****                                                ^ not supported yet
    351. 

  351. *****                                                                          ^ not supported yet
    352. 

  352.   190        IF spot = 0 THEN
    353. 

  353.   191          (* The frame itself has got to be in the list. *)
    354. 

  354.   192          ErrorManager.WARN( 'Error in frame list' );
    355. 

  355. *****          ^ not supported yet
    356. 

  356. *****                       ^ not supported yet
    357. 

  357. *****                             ^ not supported yet
    358. 

  358.   193          RETURN FALSE;
    359. 

  359.   194        ELSIF spot = 1 THEN
    360. 

  360.   195          (* We return if it's 1 because, if the system is working,
    361. 

  361.   196             a frame that's at the top of the list will never be
    362. 

  362.   197             obscured *)
    363. 

  363.   198          RETURN FALSE;
    364. 

  364.   199        END;
    365. 

  365.   200        GetFrameCoords( TheFrame, FrameRect );
    366. 

  366. *****        ^ not supported yet
    367. 

  367. *****                        ^ not supported yet
    368. 

  368. *****                                  ^ not supported yet
    369. 

  369.   201        ListEnd := GenLists.ListLength( ActiveFrameList );
    370. 

  370. *****                   ^ not supported yet
    371. 

  371. *****                            ^ not supported yet
    372. 

  372. *****                                        ^ not supported yet
    373. 

  373.   202        FOR cnt := 1 TO (spot - 1) DO
    374. 

  374.   203          GetFrameFromList( ActiveFrameList, cnt, TmpFrame );
    375. 

  375. *****          ^ not supported yet
    376. 

  376. *****                            ^ not supported yet
    377. 

  377. *****                                                  ^ not supported yet
    378. 

  378.   204          GetFrameCoords( TmpFrame, tmprect );
    379. 

  379. *****          ^ not supported yet
    380. 

  380. *****                          ^ not supported yet
    381. 

  381. *****                                    ^ not supported yet
    382. 

  382.   205          IF Rectangles.RectsIntersect( FrameRect, tmprect,
    383. 

  383. *****             ^ not supported yet
    384. 

  384. *****                        ^ not supported yet
    385. 

  385. *****                                        ^ not supported yet
    386. 

  386. *****                                                   ^ not supported yet
    387. 

  387.   206              intersection ) THEN
    388. 

  388. *****              ^ not supported yet
    389. 

  389.   207            RETURN TRUE;
    390. 

  390.   208          END;
    391. 

  391.   209        END;
    392. 

  392.   210        RETURN FALSE;
    393. 

  393.   211      END IsFrameObscured;
    394. 

  394. *****          ^ not supported yet
    395. 

  395.   212  
    396. 

  396.   213  
    397. 

  397.   214    PROCEDURE EraseFrame( TheFrame: ScrnTypes.DisplayFrame );
    398. 

  398. *****                                              ^ not supported yet
    399. 

  399.   215      VAR
    400. 

  400.   216        FrameRect, tmprect, intersection : Rectangles.ARectangle;
    401. 

  401. *****                                                      ^ not supported yet
    402. 

  402.   217        ActiveFrameList : GenLists.GenList;
    403. 

  403. *****                                   ^ not supported yet
    404. 

  404.   218        ListEnd, cnt, spot : CARDINAL;
    405. 

  405.   219        TmpFrame : ScrnTypes.DisplayFrame;
    406. 

  406. *****                             ^ not supported yet
    407. 

  407.   220      BEGIN
    408. 

  408.   221        FrameIsInForeGround( TheFrame );
    409. 

  409. *****        ^ not supported yet
    410. 

  410. *****                             ^ not supported yet
    411. 

  411.   222        FrameDeactivated( TheFrame );
    412. 

  412. *****        ^ not supported yet
    413. 

  413. *****                          ^ not supported yet
    414. 

  414.   223        GetFrameCoords( TheFrame, FrameRect );
    415. 

  415. *****        ^ not supported yet
    416. 

  416. *****                        ^ not supported yet
    417. 

  417. *****                                  ^ not supported yet
    418. 

  418.   224        GetAssociatedFrames( TheFrame^.WindowHandle, ActiveFrameList );
    419. 

  419. *****        ^ not supported yet
    420. 

  420. *****                             ^ not supported yet
    421. 

  421. *****                                       ^ not supported yet
    422. 

  422. *****                                                     ^ not supported yet
    423. 

  423.   225        ListEnd := GenLists.ListLength( ActiveFrameList );
    424. 

  424. *****                   ^ not supported yet
    425. 

  425. *****                            ^ not supported yet
    426. 

  426. *****                                        ^ not supported yet
    427. 

  427.   226          (* If FrameRect is wholly within an unobscured frame,
    428. 

  428.   227             redraw that frame. *)
    429. 

  429.   228        FOR cnt := 1 TO ListEnd DO
    430. 

  430.   229          GetFrameFromList( ActiveFrameList, cnt, TmpFrame );
    431. 

  431. *****          ^ not supported yet
    432. 

  432. *****                            ^ not supported yet
    433. 

  433. *****                                                  ^ not supported yet
    434. 

  434.   230          GetFrameCoords( TmpFrame, tmprect );
    435. 

  435. *****          ^ not supported yet
    436. 

  436. *****                          ^ not supported yet
    437. 

  437. *****                                    ^ not supported yet
    438. 

  438.   231          IF (NOT IsFrameObscured( TmpFrame )) AND
    439. 

  439. *****                  ^ not supported yet
    440. 

  440. *****                                   ^ not supported yet
    441. 

  441.   232              (Rectangles.RectIsInside( FrameRect, tmprect ) ) THEN
    442. 

  442. *****               ^ not supported yet
    443. 

  443. *****                          ^ not supported yet
    444. 

  444. *****                                        ^ not supported yet
    445. 

  445. *****                                                   ^ not supported yet
    446. 

  446.   233            FramePainter.RedrawArea( TmpFrame, FrameRect.col1,
    447. 

  447. *****            ^ not supported yet
    448. 

  448. *****                         ^ not supported yet
    449. 

  449. *****                                     ^ not supported yet
    450. 

  450. *****                                               ^ not supported yet
    451. 

  451. *****                                                         ^ not supported yet
    452. 

  452.   234                FrameRect.row1, FrameRect.col2, FrameRect.row2 );
    453. 

  453. *****                ^ not supported yet
    454. 

  454. *****                          ^ not supported yet
    455. 

  455. *****                                ^ not supported yet
    456. 

  456. *****                                          ^ not supported yet
    457. 

  457. *****                                                ^ not supported yet
    458. 

  458. *****                                                          ^ not supported yet
    459. 

  459.   235            RETURN
    460. 

  460.   236          END;
    461. 

  461.   237        END;
    462. 

  462.   238  
    463. 

  463.   239          (* otherwise clearpart(rec), then start from bottom and call
    464. 

  464.   240             redrawarea for each frame that extends into rec *)
    465. 

  465.   241        VWindows.SetBackColor( TheFrame^.WindowHandle,
    466. 

  466. *****        ^ not supported yet
    467. 

  467. *****                 ^ not supported yet
    468. 

  468. *****                               ^ not supported yet
    469. 

  469. *****                                         ^ not supported yet
    470. 

  470.   242            VWindows.BackColor(TheFrame^.WindowHandle) );
    471. 

  471. *****            ^ not supported yet
    472. 

  472. *****                     ^ not supported yet
    473. 

  473. *****                               ^ not supported yet
    474. 

  474. *****                                         ^ not supported yet
    475. 

  475.   243        VWindows.SetMonoAttr( TheFrame^.WindowHandle,
    476. 

  476. *****        ^ not supported yet
    477. 

  477. *****                 ^ not supported yet
    478. 

  478. *****                              ^ not supported yet
    479. 

  479. *****                                        ^ not supported yet
    480. 

  480.   244            VWindows.MonoAttr(TheFrame^.WindowHandle) );
    481. 

  481. *****            ^ not supported yet
    482. 

  482. *****                     ^ not supported yet
    483. 

  483. *****                              ^ not supported yet
    484. 

  484. *****                                        ^ not supported yet
    485. 

  485.   245        VWindows.ClearPart( TheFrame^.WindowHandle, FrameRect.col1,
    486. 

  486. *****        ^ not supported yet
    487. 

  487. *****                 ^ not supported yet
    488. 

  488. *****                            ^ not supported yet
    489. 

  489. *****                                      ^ not supported yet
    490. 

  490. *****                                                    ^ not supported yet
    491. 

  491. *****                                                              ^ not supported yet
    492. 

  492.   246            FrameRect.row1, FrameRect.col2, FrameRect.row2 );
    493. 

  493. *****            ^ not supported yet
    494. 

  494. *****                      ^ not supported yet
    495. 

  495. *****                            ^ not supported yet
    496. 

  496. *****                                      ^ not supported yet
    497. 

  497. *****                                            ^ not supported yet
    498. 

  498. *****                                                      ^ not supported yet
    499. 

  499.   247        cnt := ListEnd;
    500. 

  500.   248        WHILE cnt >= 1 DO
    501. 

  501.   249          GetFrameFromList( ActiveFrameList, cnt, TmpFrame );
    502. 

  502. *****          ^ not supported yet
    503. 

  503. *****                            ^ not supported yet
    504. 

  504. *****                                                  ^ not supported yet
    505. 

  505.   250          GetFrameCoords( TmpFrame, tmprect );
    506. 

  506. *****          ^ not supported yet
    507. 

  507. *****                          ^ not supported yet
    508. 

  508. *****                                    ^ not supported yet
    509. 

  509.   251          IF Rectangles.RectsIntersect( FrameRect, tmprect, intersection ) THEN
    510. 

  510. *****             ^ not supported yet
    511. 

  511. *****                        ^ not supported yet
    512. 

  512. *****                                        ^ not supported yet
    513. 

  513. *****                                                   ^ not supported yet
    514. 

  514. *****                                                            ^ not supported yet
    515. 

  515.   252            FramePainter.RedrawArea( TmpFrame, intersection.col1,
    516. 

  516. *****            ^ not supported yet
    517. 

  517. *****                         ^ not supported yet
    518. 

  518. *****                                     ^ not supported yet
    519. 

  519. *****                                               ^ not supported yet
    520. 

  520. *****                                                            ^ not supported yet
    521. 

  521.   253                intersection.row1, intersection.col2, intersection.row2 );
    522. 

  522. *****                ^ not supported yet
    523. 

  523. *****                             ^ not supported yet
    524. 

  524. *****                                   ^ not supported yet
    525. 

  525. *****                                                ^ not supported yet
    526. 

  526. *****                                                      ^ not supported yet
    527. 

  527. *****                                                                   ^ not supported yet
    528. 

  528.   254          END;
    529. 

  529.   255          DEC( cnt );
    530. 

  530. *****          ^ undeclared identifier
    531. 

  531. *****                   ^ not supported yet
    532. 

  532.   256        END;
    533. 

  533.   257      END EraseFrame;
    534. 

  534. *****          ^ not supported yet
    535. 

  535.   258  
    536. 

  536.   259    PROCEDURE RestoreWholeWindow( TheWindow: VWindows.AWindowHandle );
    537. 

  537. *****                                                      ^ not supported yet
    538. 

  538.   260      VAR
    539. 

  539.   261        ActiveFrameList : GenLists.GenList;
    540. 

  540. *****                                   ^ not supported yet
    541. 

  541.   262        ListEnd, cnt: CARDINAL;
    542. 

  542.   263        TmpFrame: ScrnTypes.DisplayFrame;
    543. 

  543. *****                            ^ not supported yet
    544. 

  544.   264      BEGIN
    545. 

  545.   265        GetAssociatedFrames( TheWindow, ActiveFrameList );
    546. 

  546. *****        ^ not supported yet
    547. 

  547. *****                             ^ not supported yet
    548. 

  548. *****                                        ^ not supported yet
    549. 

  549.   266        VWindows.SetBackColor( TheWindow, VWindows.BackColor(TheWindow) );
    550. 

  550. *****        ^ not supported yet
    551. 

  551. *****                 ^ not supported yet
    552. 

  552. *****                               ^ not supported yet
    553. 

  553. *****                                          ^ not supported yet
    554. 

  554. *****                                                   ^ not supported yet
    555. 

  555. *****                                                             ^ not supported yet
    556. 

  556.   267        VWindows.SetMonoAttr( TheWindow, VWindows.MonoAttr(TheWindow) );
    557. 

  557. *****        ^ not supported yet
    558. 

  558. *****                 ^ not supported yet
    559. 

  559. *****                              ^ not supported yet
    560. 

  560. *****                                         ^ not supported yet
    561. 

  561. *****                                                  ^ not supported yet
    562. 

  562. *****                                                           ^ not supported yet
    563. 

  563.   268        VWindows.ClearPart( TheWindow, 1, 1, VWindows.EndCol(TheWindow),
    564. 

  564. *****        ^ not supported yet
    565. 

  565. *****                 ^ not supported yet
    566. 

  566. *****                            ^ not supported yet
    567. 

  567. *****                                             ^ not supported yet
    568. 

  568. *****                                                      ^ not supported yet
    569. 

  569. *****                                                             ^ not supported yet
    570. 

  570.   269            VWindows.EndRow(TheWindow) );
    571. 

  571. *****            ^ not supported yet
    572. 

  572. *****                     ^ not supported yet
    573. 

  573. *****                            ^ not supported yet
    574. 

  574.   270        ListEnd := GenLists.ListLength( ActiveFrameList );
    575. 

  575. *****                   ^ not supported yet
    576. 

  576. *****                            ^ not supported yet
    577. 

  577. *****                                        ^ not supported yet
    578. 

  578.   271        cnt := ListEnd;
    579. 

  579.   272        WHILE cnt >= 1 DO
    580. 

  580.   273          GetFrameFromList( ActiveFrameList, cnt, TmpFrame );
    581. 

  581. *****          ^ not supported yet
    582. 

  582. *****                            ^ not supported yet
    583. 

  583. *****                                                  ^ not supported yet
    584. 

  584.   274          FramePainter.RedrawArea( TmpFrame, TmpFrame^.startcol + 1,
    585. 

  585. *****          ^ not supported yet
    586. 

  586. *****                       ^ not supported yet
    587. 

  587. *****                                   ^ not supported yet
    588. 

  588. *****                                             ^ not supported yet
    589. 

  589. *****                                                       ^ not supported yet
    590. 

  590.   275              TmpFrame^.startrow + 1, TmpFrame^.endcol + 1,
    591. 

  591. *****              ^ not supported yet
    592. 

  592. *****                        ^ not supported yet
    593. 

  593. *****                                      ^ not supported yet
    594. 

  594. *****                                                ^ not supported yet
    595. 

  595.   276              TmpFrame^.endrow + 1 );
    596. 

  596. *****              ^ not supported yet
    597. 

  597. *****                        ^ not supported yet
    598. 

  598. *****                                   ^ not supported yet
    599. 

  599.   277            (* Corrected 3 Nov 88 thanks to John McMonagle; was
    600. 

  600.   278               0,0,0,0 in 1.5c *)
    601. 

  601.   279          DEC( cnt );
    602. 

  602. *****          ^ undeclared identifier
    603. 

  603. *****                   ^ not supported yet
    604. 

  604.   280        END;
    605. 

  605.   281      END RestoreWholeWindow;
    606. 

  606. *****          ^ not supported yet
    607. 

  607.   282  
    608. 

  608.   283  
    609. 

  609.   284    PROCEDURE Init();
    610. 

  610.   285      BEGIN
    611. 

  611.   286        IF Initialized THEN
    612. 

  612.   287          RETURN;
    613. 

  613.   288        ELSE
    614. 

  614.   289          Initialized := TRUE;
    615. 

  615.   290        END;
    616. 

  616.   291        WindowListInitialized := FALSE;
    617. 

  617.   292  (*
    618. 

  618.   293        Diagnostics.Init();
    619. 

  619.   294  *)
    620. 

  620.   295  
    621. 

  621.   296        ErrorManager.Init();
    622. 

  622. *****        ^ not supported yet
    623. 

  623. *****                     ^ not supported yet
    624. 

  624. *****                          ^ not supported yet
    625. 

  625.   297        FramePainter.Init();
    626. 

  626. *****        ^ not supported yet
    627. 

  627. *****                     ^ not supported yet
    628. 

  628. *****                          ^ not supported yet
    629. 

  629.   298        GenLists.Init();
    630. 

  630. *****        ^ not supported yet
    631. 

  631. *****                 ^ not supported yet
    632. 

  632. *****                      ^ not supported yet
    633. 

  633.   299        Hash.Init();
    634. 

  634. *****        ^ not supported yet
    635. 

  635. *****             ^ not supported yet
    636. 

  636. *****                  ^ not supported yet
    637. 

  637.   300        ListUtils.Init();
    638. 

  638. *****        ^ not supported yet
    639. 

  639. *****                  ^ not supported yet
    640. 

  640. *****                       ^ not supported yet
    641. 

  641.   301        Rectangles.Init();
    642. 

  642. *****        ^ not supported yet
    643. 

  643. *****                   ^ not supported yet
    644. 

  644. *****                        ^ not supported yet
    645. 

  645.   302        ScrnTypes.Init();
    646. 

  646. *****        ^ not supported yet
    647. 

  647. *****                  ^ not supported yet
    648. 

  648. *****                       ^ not supported yet
    649. 

  649.   303        VWindows.Init();
    650. 

  650. *****        ^ not supported yet
    651. 

  651. *****                 ^ not supported yet
    652. 

  652. *****                      ^ not supported yet
    653. 

  653.   304      END Init;
    654. 

  654. *****          ^ not supported yet
    655. 

  655.   305  
    656. 

  656.   306  BEGIN
    657. 

  657.   307    Initialized := FALSE;
    658. 

  658.   308    Init();
    659. 

  659. *****    ^ not supported yet
    660. 

  660. *****         ^ not supported yet
    661. 

  661.   309  END FrameManager.
    662. 

  662. *****      ^ not supported yet
    663. 

  663. 

  664.   351 errors
    665. 

  665. 

  666.