Home Esplora Aiuto
Accedi
eric
/
Topspeed_JPI
1
0
Forka 0
File Problemi 0 Pull Requests 0 Wiki
Ramo (Branch): master
Rami (Branch) Tag
Topspeed_JPI
/
TS-V3
/
REP16
/
CONTROLU.LST

CONTROLU.LST 92 KB
Permalink Cronologia Originale

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964 
  1. Listing:
    2. 

  2. 

  3.     1  IMPLEMENTATION MODULE ControlUtils;
    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/controlu.mov   1.5   10 Mar 1991 15:25:34   coleb  $
    14. 

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  IMPORT DspFiles;
    19. 

  19.    17  IMPORT ErrorManager;
    20. 

  20.    18  IMPORT ErrorNames;
    21. 

  21.    19  IMPORT FrameManager;
    22. 

  22.    20  IMPORT FramePainter;
    23. 

  23.    21  IMPORT GenLists;
    24. 

  24.    22  IMPORT InputManager;
    25. 

  25.    23  IMPORT LowLevel;
    26. 

  26.    24  IMPORT M2Strings;
    27. 

  27.    25  IMPORT MsColors;
    28. 

  28.    26  IMPORT NdxBones;
    29. 

  29.    27  IMPORT Numbers;
    30. 

  30.    28  IMPORT PosUtils;
    31. 

  31.    29  IMPORT Rectangles;
    32. 

  32.    30  IMPORT ScrnTypes;
    33. 

  33.    31  IMPORT ScrnUtl1;
    34. 

  34.    32  IMPORT ScrnUtl2;
    35. 

  35.    33  IMPORT StrConv;
    36. 

  36.    34  IMPORT StrEdit;
    37. 

  37.    35  IMPORT SYSTEM;
    38. 

  38.    36  IMPORT VEditor;
    39. 

  39.    37  IMPORT VWindows;
    40. 

  40.    38  
    41. 

  41.    39  
    42. 

  42.    40  VAR
    43. 

  43.    41    Initialized : BOOLEAN;
    44. 

  44.    42  
    45. 

  45.    43    PROCEDURE Init();
    46. 

  46.    44      BEGIN
    47. 

  47.    45        IF Initialized THEN
    48. 

  48.    46          RETURN;
    49. 

  49.    47        ELSE
    50. 

  50.    48          Initialized := TRUE;
    51. 

  51.    49        END;
    52. 

  52.    50        DspFiles.Init();
    53. 

  53. *****        ^ not supported yet
    54. 

  54. *****                 ^ not supported yet
    55. 

  55. *****                      ^ not supported yet
    56. 

  56.    51        ErrorManager.Init();
    57. 

  57. *****        ^ not supported yet
    58. 

  58. *****                     ^ not supported yet
    59. 

  59. *****                          ^ not supported yet
    60. 

  60.    52        ErrorNames.Init();
    61. 

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

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

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

  64.    53        FrameManager.Init();
    65. 

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

  66. *****                     ^ not supported yet
    67. 

  67. *****                          ^ not supported yet
    68. 

  68.    54        FramePainter.Init();
    69. 

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

  70. *****                     ^ not supported yet
    71. 

  71. *****                          ^ not supported yet
    72. 

  72.    55        GenLists.Init();
    73. 

  73. *****        ^ not supported yet
    74. 

  74. *****                 ^ not supported yet
    75. 

  75. *****                      ^ not supported yet
    76. 

  76.    56        InputManager.Init();
    77. 

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

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

  79. *****                          ^ not supported yet
    80. 

  80.    57        LowLevel.Init();
    81. 

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

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

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

  84.    58        M2Strings.Init();
    85. 

  85. *****        ^ not supported yet
    86. 

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

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

  88.    59        MsColors.Init();
    89. 

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

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

  91. *****                      ^ not supported yet
    92. 

  92.    60        NdxBones.Init();
    93. 

  93. *****        ^ not supported yet
    94. 

  94. *****                 ^ not supported yet
    95. 

  95. *****                      ^ not supported yet
    96. 

  96.    61        Numbers.Init();
    97. 

  97. *****        ^ not supported yet
    98. 

  98. *****                ^ not supported yet
    99. 

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

  100.    62        PosUtils.Init();
    101. 

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

  102. *****                 ^ not supported yet
    103. 

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

  104.    63        Rectangles.Init();
    105. 

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

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

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

  108.    64        ScrnTypes.Init();
    109. 

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

  110. *****                  ^ not supported yet
    111. 

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

  112.    65        ScrnUtl1.Init();
    113. 

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

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

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

  116.    66        ScrnUtl2.Init();
    117. 

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

  118. *****                 ^ not supported yet
    119. 

  119. *****                      ^ not supported yet
    120. 

  120.    67        StrConv.Init();
    121. 

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

  122. *****                ^ not supported yet
    123. 

  123. *****                     ^ not supported yet
    124. 

  124.    68        StrEdit.Init();
    125. 

  125. *****        ^ not supported yet
    126. 

  126. *****                ^ not supported yet
    127. 

  127. *****                     ^ not supported yet
    128. 

  128.    69        VEditor.Init();
    129. 

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

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

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

  132.    70        VWindows.Init();
    133. 

  133. *****        ^ not supported yet
    134. 

  134. *****                 ^ not supported yet
    135. 

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

  136.    71      END Init;
    137. 

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

  138.    72  
    139. 

  139.    73  
    140. 

  140.    74  CONST
    141. 

  141.    75    AfterLastElmt = 65535;
    142. 

  142.    76  
    143. 

  143.    77    PROCEDURE NotFieldWarning( FieldName, FrameName: ARRAY OF CHAR );
    144. 

  144. *****                                                              ^ not supported yet
    145. 

  145.    78      VAR
    146. 

  146.    79        dumstr1: ARRAY [0..79] OF CHAR;
    147. 

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

  148. *****                                  ^ not supported yet
    149. 

  149.    80      BEGIN
    150. 

  150.    81        StrEdit.AssignStr( ' is not a field in frame ', dumstr1 );
    151. 

  151. *****        ^ not supported yet
    152. 

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

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

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

  155.    82        M2Strings.Insert( FieldName, dumstr1, 0 );
    156. 

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

  157. *****                  ^ not supported yet
    158. 

  158. *****                          ^ not supported yet
    159. 

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

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

  161.    83        StrEdit.Append( dumstr1, FrameName );
    162. 

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

  163. *****                ^ not supported yet
    164. 

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

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

  166.    84        ErrorManager.WARN( dumstr1 );
    167. 

  167. *****        ^ not supported yet
    168. 

  168. *****                     ^ not supported yet
    169. 

  169. *****                           ^ not supported yet
    170. 

  170.    85      END NotFieldWarning;
    171. 

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

  172.    86  
    173. 

  173.    87  
    174. 

  174.    88  
    175. 

  175.    89    PROCEDURE AddEditorField(VAR TheFrame : ScrnTypes.DisplayFrame;
    176. 

  176. *****                                                      ^ not supported yet
    177. 

  177.    90        VAR TheList: GenLists.GenList; VAR ControlRec:
    178. 

  178. *****                              ^ not supported yet
    179. 

  179.    91        VEditor.AnEdControlRec );
    180. 

  180. *****                ^ not supported yet
    181. 

  181.    92      VAR
    182. 

  182.    93        ImageNum: CARDINAL;
    183. 

  183.    94        TmpRec: ScrnTypes.ImageElement;
    184. 

  184. *****                          ^ not supported yet
    185. 

  185.    95        FieldRec: ScrnTypes.InputFieldRecord;
    186. 

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

  187.    96        dumstr : ARRAY [0..1] OF CHAR;
    188. 

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

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

  190.    97        AreaInBox : Rectangles.ARectangle;
    191. 

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

  192.    98      BEGIN
    193. 

  193.    99        ControlRec.FrameRec := TheFrame;
    194. 

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

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

  196. *****                               ^ not supported yet
    197. 

  197.   100        IF NOT GenLists.Initialized( TheFrame^.FieldList ) THEN
    198. 

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

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

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

  201. *****                                               ^ not supported yet
    202. 

  202.   101          GenLists.NewList( TheFrame^.FieldList );
    203. 

  203. *****          ^ not supported yet
    204. 

  204. *****                   ^ not supported yet
    205. 

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

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

  207.   102          ScrnUtl1.PutFrameLists( TheFrame );
    208. 

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

  209. *****                   ^ not supported yet
    210. 

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

  211.   103            (*Make sure the new FieldList gets inserted into
    212. 

  212.   104              TheFrame's .self list. *)
    213. 

  213.   105        END;
    214. 

  214.   106        IF NOT GenLists.Initialized( TheFrame^.EdFieldList ) THEN
    215. 

  215. *****               ^ not supported yet
    216. 

  216. *****                        ^ not supported yet
    217. 

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

  218. *****                                               ^ not supported yet
    219. 

  219.   107          GenLists.NewList( TheFrame^.EdFieldList );
    220. 

  220. *****          ^ not supported yet
    221. 

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

  222. *****                            ^ not supported yet
    223. 

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

  224.   108          ScrnUtl1.PutFrameLists( TheFrame );
    225. 

  225. *****          ^ not supported yet
    226. 

  226. *****                   ^ not supported yet
    227. 

  227. *****                                  ^ not supported yet
    228. 

  228.   109            (*Make sure the new EdFieldList gets inserted into
    229. 

  229.   110              TheFrame's .self list. *)
    230. 

  230.   111        END;
    231. 

  231.   112        dumstr[0] := 0C;
    232. 

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

  233. *****                ^ not supported yet
    234. 

  234.   113        dumstr[1] := 0C;
    235. 

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

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

  237.   114        Rectangles.DefineRectangle( AreaInBox, ControlRec.Col1,
    238. 

  238. *****        ^ not supported yet
    239. 

  239. *****                   ^ not supported yet
    240. 

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

  241. *****                                               ^ not supported yet
    242. 

  242. *****                                                          ^ not supported yet
    243. 

  243.   115            ControlRec.Row1, ControlRec.Col2, ControlRec.Row2 );
    244. 

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

  245. *****                       ^ not supported yet
    246. 

  246. *****                             ^ not supported yet
    247. 

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

  248. *****                                              ^ not supported yet
    249. 

  249. *****                                                         ^ not supported yet
    250. 

  250.   116        IF ControlRec.EntryBox > 0 THEN
    251. 

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

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

  253.   117          Rectangles.ShrinkRect( AreaInBox );
    254. 

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

  255. *****                     ^ not supported yet
    256. 

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

  257.   118        END;
    258. 

  258.   119        ScrnUtl2.CreateImageElement( TmpRec, AreaInBox.col1,
    259. 

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

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

  261. *****                                     ^ not supported yet
    262. 

  262. *****                                             ^ not supported yet
    263. 

  263. *****                                                       ^ not supported yet
    264. 

  264.   120            AreaInBox.row1, TheFrame^.normfor, TheFrame^.normbak,
    265. 

  265. *****            ^ not supported yet
    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.   121            TheFrame^.normatrb, GenLists.ListLength(
    272. 

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

  273. *****                      ^ not supported yet
    274. 

  274. *****                                ^ not supported yet
    275. 

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

  276.   122            TheFrame^.FieldList ) + 1, dumstr );
    277. 

  277. *****            ^ not supported yet
    278. 

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

  279. *****                                       ^ not supported yet
    280. 

  280.   123        ScrnUtl2.AddImageElement( TheFrame, TmpRec, ImageNum );
    281. 

  281. *****        ^ not supported yet
    282. 

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

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

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

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

  286.   124        ScrnTypes.InitField( FieldRec );
    287. 

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

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

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

  290.   125        FieldRec.ImageNum := ImageNum;
    291. 

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

  292. *****                 ^ not supported yet
    293. 

  293.   126        FieldRec.typ := ScrnTypes.EditorCode;
    294. 

  294. *****        ^ not supported yet
    295. 

  295. *****                 ^ not supported yet
    296. 

  296. *****                        ^ not supported yet
    297. 

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

  298.   127        FieldRec.req := FALSE;
    299. 

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

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

  301.   128        FieldRec.EdFieldNum := GenLists.ListLength( TheFrame^.EdFieldList ) + 1;
    302. 

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

  303. *****                 ^ not supported yet
    304. 

  304. *****                               ^ not supported yet
    305. 

  305. *****                                        ^ not supported yet
    306. 

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

  307. *****                                                              ^ not supported yet
    308. 

  308.   129        GenLists.ListInsert( TheList, GenLists.ListCode, TheFrame^.EdFieldList,
    309. 

  309. *****        ^ not supported yet
    310. 

  310. *****                 ^ not supported yet
    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.   130            FieldRec.EdFieldNum );
    317. 

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

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

  319.   131        FieldRec.Col2 := AreaInBox.col2;
    320. 

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

  321. *****                 ^ not supported yet
    322. 

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

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

  324.   132        FieldRec.Row2 := AreaInBox.row2;
    325. 

  325. *****        ^ not supported yet
    326. 

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

  327. *****                         ^ not supported yet
    328. 

  328. *****                                   ^ not supported yet
    329. 

  329.   133        FieldRec.TextRow1 := ControlRec.TextRow1;
    330. 

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

  331. *****                 ^ not supported yet
    332. 

  332. *****                             ^ not supported yet
    333. 

  333. *****                                        ^ not supported yet
    334. 

  334.   134        FieldRec.CursorCol := ControlRec.CursorCol;
    335. 

  335. *****        ^ not supported yet
    336. 

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

  337. *****                              ^ not supported yet
    338. 

  338. *****                                         ^ not supported yet
    339. 

  339.   135        FieldRec.CursorRow := ControlRec.CursorRow;
    340. 

  340. *****        ^ not supported yet
    341. 

  341. *****                 ^ not supported yet
    342. 

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

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

  344.   136        FieldRec.MaxLines := ControlRec.MaxLines;
    345. 

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

  346. *****                 ^ not supported yet
    347. 

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

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

  349.   137        FieldRec.ReadOnly := ControlRec.ReadOnly;
    350. 

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

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

  352. *****                             ^ not supported yet
    353. 

  353. *****                                        ^ not supported yet
    354. 

  354.   138        ScrnUtl1.PutFieldRec( FieldRec, TheFrame, AfterLastElmt );
    355. 

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

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

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

  358. *****                                        ^ not supported yet
    359. 

  359. *****                                                                ^ not supported yet
    360. 

  360.   139        IF TheFrame^.action = 'W' THEN
    361. 

  361. *****           ^ not supported yet
    362. 

  362. *****                     ^ not supported yet
    363. 

  363.   140          TheFrame^.action := 'I';
    364. 

  364. *****          ^ not supported yet
    365. 

  365. *****                    ^ not supported yet
    366. 

  366.   141        END;
    367. 

  367.   142          (* The action char is lower case while the frame is
    368. 

  368.   143             active. *)
    369. 

  369.   144        IF TheFrame^.action = 'w' THEN
    370. 

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

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

  372.   145          TheFrame^.action := 'i';
    373. 

  373. *****          ^ not supported yet
    374. 

  374. *****                    ^ not supported yet
    375. 

  375.   146        END;
    376. 

  376.   147      END AddEditorField;
    377. 

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

  378.   148  
    379. 

  379.   149  
    380. 

  380.   150    PROCEDURE AddStrField(VAR TheFrame : ScrnTypes.DisplayFrame;
    381. 

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

  382.   151        Col, Row : CARDINAL; text : ARRAY OF CHAR; width: CARDINAL );
    383. 

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

  384.   152      VAR
    385. 

  385.   153        ImageNum: CARDINAL;
    386. 

  386.   154        TmpRec: ScrnTypes.ImageElement;
    387. 

  387. *****                          ^ not supported yet
    388. 

  388.   155        FieldRec: ScrnTypes.InputFieldRecord;
    389. 

  389. *****                            ^ not supported yet
    390. 

  390.   156      BEGIN
    391. 

  391.   157        IF M2Strings.Length(text) # width THEN
    392. 

  392. *****           ^ not supported yet
    393. 

  393. *****                     ^ not supported yet
    394. 

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

  395.   158          StrEdit.LeftJustify( text, width );
    396. 

  396. *****          ^ not supported yet
    397. 

  397. *****                  ^ not supported yet
    398. 

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

  399. *****                                           ^ not supported yet
    400. 

  400.   159        END;
    401. 

  401.   160        IF NOT GenLists.Initialized( TheFrame^.FieldList ) THEN
    402. 

  402. *****               ^ not supported yet
    403. 

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

  404. *****                                     ^ not supported yet
    405. 

  405. *****                                               ^ not supported yet
    406. 

  406.   161          GenLists.NewList( TheFrame^.FieldList );
    407. 

  407. *****          ^ not supported yet
    408. 

  408. *****                   ^ not supported yet
    409. 

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

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

  411.   162          ScrnUtl1.PutFrameLists( TheFrame );
    412. 

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

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

  414. *****                                  ^ not supported yet
    415. 

  415.   163            (*Make sure the new FieldList gets inserted into
    416. 

  416.   164              TheFrame's .self list. *)
    417. 

  417.   165        END;
    418. 

  418.   166        ScrnUtl2.CreateImageElement( TmpRec, Col, Row, TheFrame^.normfor,
    419. 

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

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

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

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

  423. *****                                                                 ^ not supported yet
    424. 

  424.   167            TheFrame^.normbak, TheFrame^.normatrb, GenLists.ListLength(
    425. 

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

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

  427. *****                               ^ not supported yet
    428. 

  428. *****                                         ^ not supported yet
    429. 

  429. *****                                                   ^ not supported yet
    430. 

  430. *****                                                            ^ not supported yet
    431. 

  431.   168            TheFrame^.FieldList ) + 1, text );
    432. 

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

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

  434. *****                                       ^ not supported yet
    435. 

  435.   169        ScrnUtl2.AddImageElement( TheFrame, TmpRec, ImageNum );
    436. 

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

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

  438. *****                                  ^ not supported yet
    439. 

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

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

  441.   170        ScrnTypes.InitField( FieldRec );
    442. 

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

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

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

  445.   171        FieldRec.ImageNum := ImageNum;
    446. 

  446. *****        ^ not supported yet
    447. 

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

  448.   172        FieldRec.typ := ScrnTypes.StringCode;
    449. 

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

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

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

  452. *****                                  ^ not supported yet
    453. 

  453.   173        FieldRec.req := FALSE;
    454. 

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

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

  456.   174        ScrnUtl1.PutFieldRec( FieldRec, TheFrame, AfterLastElmt );
    457. 

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

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

  459. *****                              ^ not supported yet
    460. 

  460. *****                                        ^ not supported yet
    461. 

  461. *****                                                                ^ not supported yet
    462. 

  462.   175        IF TheFrame^.action = 'W' THEN
    463. 

  463. *****           ^ not supported yet
    464. 

  464. *****                     ^ not supported yet
    465. 

  465.   176          TheFrame^.action := 'I';
    466. 

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

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

  468.   177        END;
    469. 

  469.   178          (* The action char is lower case while the frame is
    470. 

  470.   179             active. *)
    471. 

  471.   180        IF TheFrame^.action = 'w' THEN
    472. 

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

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

  474.   181          TheFrame^.action := 'i';
    475. 

  475. *****          ^ not supported yet
    476. 

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

  477.   182        END;
    478. 

  478.   183      END AddStrField;
    479. 

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

  480.   184  
    481. 

  481.   185  
    482. 

  482.   186    PROCEDURE AddMenuItem( VAR TheFrame : ScrnTypes.DisplayFrame;
    483. 

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

  484.   187        Col, Row : CARDINAL; text : ARRAY OF CHAR; width, MenuKey: CARDINAL;
    485. 

  485. *****                                             ^ not supported yet
    486. 

  486.   188        ReturnVal : ARRAY OF CHAR );
    487. 

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

  488.   189      VAR
    489. 

  489.   190        FieldRec: ScrnTypes.InputFieldRecord;
    490. 

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

  491.   191      BEGIN
    492. 

  492.   192        AddStrField( TheFrame, Col, Row, text, width );
    493. 

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

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

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

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

  497.   193        ScrnUtl1.GetFieldRec( TheFrame, ScrnUtl1.FieldListTotal(TheFrame),
    498. 

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

  499. *****                 ^ not supported yet
    500. 

  500. *****                              ^ not supported yet
    501. 

  501. *****                                        ^ not supported yet
    502. 

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

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

  504.   194            FieldRec );
    505. 

  505. *****            ^ not supported yet
    506. 

  506.   195        FieldRec.typ := ScrnTypes.GotoCode;
    507. 

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

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

  509. *****                        ^ not supported yet
    510. 

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

  511.   196        FieldRec.MenuKey := MenuKey;
    512. 

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

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

  514.   197        M2Strings.Assign( ReturnVal, FieldRec.ReturnVal );
    515. 

  515. *****        ^ not supported yet
    516. 

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

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

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

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

  520.   198        ScrnUtl1.PutFieldRec( FieldRec, TheFrame,
    521. 

  521. *****        ^ not supported yet
    522. 

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

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

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

  525.   199            ScrnUtl1.FieldListTotal(TheFrame) );
    526. 

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

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

  528. *****                                    ^ not supported yet
    529. 

  529.   200        IF TheFrame^.action = 'W' THEN
    530. 

  530. *****           ^ not supported yet
    531. 

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

  532.   201          TheFrame^.action := 'I';
    533. 

  533. *****          ^ not supported yet
    534. 

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

  535.   202        END;
    536. 

  536.   203          (* The action char is lower case while the frame is
    537. 

  537.   204             active. *)
    538. 

  538.   205        IF TheFrame^.action = 'w' THEN
    539. 

  539. *****           ^ not supported yet
    540. 

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

  541.   206          TheFrame^.action := 'i';
    542. 

  542. *****          ^ not supported yet
    543. 

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

  544.   207        END;
    545. 

  545.   208      END AddMenuItem;
    546. 

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

  547.   209  
    548. 

  548.   210  
    549. 

  549.   211    PROCEDURE ListBox( TheDspFile: ScrnTypes.DisplayFile;
    550. 

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

  551.   212        FormFrameName: ARRAY OF CHAR; TheList: GenLists.GenList;
    552. 

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

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

  554.   213        VAR ItemChosen: ARRAY OF CHAR; VAR NextFrame:
    555. 

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

  556.   214        ScrnTypes.AFrameName ): BOOLEAN;
    557. 

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

  558.   215      VAR
    559. 

  559.   216        TmpFrame: ScrnTypes.DisplayFrame;
    560. 

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

  561.   217        AnItemWasChosen: BOOLEAN;
    562. 

  562.   218      BEGIN
    563. 

  563.   219        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    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.   220        DspFiles.ReadFrame( TheDspFile, TmpFrame, FormFrameName );
    570. 

  570. *****        ^ not supported yet
    571. 

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

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

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

  574. *****                                                  ^ not supported yet
    575. 

  575.   221        ScrnUtl2.ChoiceListToFrame( TheList, TmpFrame );
    576. 

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

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

  578. *****                                    ^ not supported yet
    579. 

  579. *****                                             ^ not supported yet
    580. 

  580.   222        FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    581. 

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

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

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

  584. *****                                                            ^ not supported yet
    585. 

  585.   223        InputManager.ControlFrame( TmpFrame, 0, '', FALSE, NextFrame );
    586. 

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

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

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

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

  590.   224        AnItemWasChosen := (NextFrame[0] = 0C);
    591. 

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

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

  593.   225          (* Dangerous.  We are relying here on knowlegde that
    594. 

  594.   226             ChoiceListToFrame makes '' the return value for each
    595. 

  595.   227             choice. *)
    596. 

  596.   228        ScrnUtl1.GetFieldText( TmpFrame,
    597. 

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

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

  599. *****                               ^ not supported yet
    600. 

  600.   229            TmpFrame^.CurrentField, ItemChosen );
    601. 

  601. *****            ^ not supported yet
    602. 

  602. *****                      ^ not supported yet
    603. 

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

  604.   230        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    605. 

  605. *****        ^ not supported yet
    606. 

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

  607. *****                                    ^ not supported yet
    608. 

  608.   231        RETURN AnItemWasChosen;
    609. 

  609.   232      END ListBox;
    610. 

  610. *****          ^ not supported yet
    611. 

  611.   233  
    612. 

  612.   234  
    613. 

  613.   235    PROCEDURE ChangeField(VAR TheFrame : ScrnTypes.DisplayFrame;
    614. 

  614. *****                                                   ^ not supported yet
    615. 

  615.   236        TheStr : ARRAY OF CHAR; FieldName : ARRAY OF
    616. 

  616. *****                          ^ not supported yet
    617. 

  617.   237        CHAR; PreserveLength: BOOLEAN);
    618. 

  618. *****        ^ not supported yet
    619. 

  619.   238      VAR
    620. 

  620.   239        padding: ARRAY [0..79] OF CHAR;
    621. 

  621. *****                           ^ not supported yet
    622. 

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

  623.   240        OldLngth, NewLngth: CARDINAL;
    624. 

  624.   241        FieldPtr : ScrnTypes.InputFieldPtr;
    625. 

  625. *****                             ^ not supported yet
    626. 

  626.   242        ImageRec: ScrnTypes.ImageElement;
    627. 

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

  628.   243      BEGIN
    629. 

  629.   244        IF NOT ScrnUtl1.FindField( TheFrame, FieldName,
    630. 

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

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

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

  633. *****                                             ^ not supported yet
    634. 

  634.   245            FieldPtr, ImageRec ) THEN
    635. 

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

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

  637.   246          NotFieldWarning( FieldName, TheFrame^.ThisFrame );
    638. 

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

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

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

  641. *****                                                ^ not supported yet
    642. 

  642.   247        END;
    643. 

  643.   248        FieldPtr^.ChangeMade := TRUE;
    644. 

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

  645. *****                  ^ not supported yet
    646. 

  646.   249        IF PreserveLength THEN
    647. 

  647.   250          LowLevel.Fill( SYSTEM.ADR(padding), HIGH(padding) + 1, ' ' );
    648. 

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

  649. *****                   ^ not supported yet
    650. 

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

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

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

  653. *****                                              ^ undeclared identifier
    654. 

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

  655. *****                                                                     ^ not supported yet
    656. 

  656.   251          OldLngth := M2Strings.Length( ImageRec.text );
    657. 

  657. *****                      ^ not supported yet
    658. 

  658. *****                                ^ not supported yet
    659. 

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

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

  661.   252          NewLngth := M2Strings.Length( TheStr );
    662. 

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

  663. *****                                ^ not supported yet
    664. 

  664. *****                                        ^ not supported yet
    665. 

  665.   253          M2Strings.Assign(TheStr, ImageRec.text );
    666. 

  666. *****          ^ not supported yet
    667. 

  667. *****                    ^ not supported yet
    668. 

  668. *****                           ^ not supported yet
    669. 

  669. *****                                   ^ not supported yet
    670. 

  670. *****                                            ^ not supported yet
    671. 

  671.   254          IF OldLngth > NewLngth THEN
    672. 

  672.   255            StrEdit.SetLength( padding, OldLngth - NewLngth );
    673. 

  673. *****            ^ not supported yet
    674. 

  674. *****                    ^ not supported yet
    675. 

  675. *****                               ^ not supported yet
    676. 

  676. *****                                                            ^ not supported yet
    677. 

  677.   256            StrEdit.Append( ImageRec.text, padding );
    678. 

  678. *****            ^ not supported yet
    679. 

  679. *****                    ^ not supported yet
    680. 

  680. *****                            ^ not supported yet
    681. 

  681. *****                                     ^ not supported yet
    682. 

  682. *****                                           ^ not supported yet
    683. 

  683.   257          ELSE
    684. 

  684.   258            StrEdit.SetLength( ImageRec.text, OldLngth );
    685. 

  685. *****            ^ not supported yet
    686. 

  686. *****                    ^ not supported yet
    687. 

  687. *****                               ^ not supported yet
    688. 

  688. *****                                        ^ not supported yet
    689. 

  689. *****                                                       ^ not supported yet
    690. 

  690.   259          END;
    691. 

  691.   260        ELSE
    692. 

  692.   261          M2Strings.Assign(TheStr, ImageRec.text);
    693. 

  693. *****          ^ not supported yet
    694. 

  694. *****                    ^ not supported yet
    695. 

  695. *****                           ^ not supported yet
    696. 

  696. *****                                   ^ not supported yet
    697. 

  697. *****                                            ^ not supported yet
    698. 

  698.   262        END;
    699. 

  699.   263        ScrnUtl1.PutFieldImageRec( ImageRec, TheFrame, ImageRec.field );
    700. 

  700. *****        ^ not supported yet
    701. 

  701. *****                 ^ not supported yet
    702. 

  702. *****                                   ^ not supported yet
    703. 

  703. *****                                             ^ not supported yet
    704. 

  704. *****                                                       ^ not supported yet
    705. 

  705. *****                                                                ^ not supported yet
    706. 

  706.   264      END ChangeField;
    707. 

  707. *****          ^ not supported yet
    708. 

  708.   265  
    709. 

  709.   266  
    710. 

  710.   267    PROCEDURE CheckFieldName( TheFrame: ScrnTypes.DisplayFrame; FieldName:
    711. 

  711. *****                                                  ^ not supported yet
    712. 

  712.   268        ARRAY OF CHAR );
    713. 

  713. *****                 ^ not supported yet
    714. 

  714.   269      (*Displays a warning message if it can't find FieldName in TheFrame.*)
    715. 

  715.   270      VAR
    716. 

  716.   271        FieldPtr: ScrnTypes.InputFieldPtr;
    717. 

  717. *****                            ^ not supported yet
    718. 

  718.   272        ImageRec: ScrnTypes.ImageElement;
    719. 

  719. *****                            ^ not supported yet
    720. 

  720.   273      BEGIN
    721. 

  721.   274        IF NOT ScrnUtl1.FindField( TheFrame, FieldName, FieldPtr, ImageRec ) THEN
    722. 

  722. *****               ^ not supported yet
    723. 

  723. *****                        ^ not supported yet
    724. 

  724. *****                                   ^ not supported yet
    725. 

  725. *****                                             ^ not supported yet
    726. 

  726. *****                                                        ^ not supported yet
    727. 

  727. *****                                                                  ^ not supported yet
    728. 

  728.   275          NotFieldWarning( FieldName, TheFrame^.ThisFrame );
    729. 

  729. *****          ^ not supported yet
    730. 

  730. *****                           ^ not supported yet
    731. 

  731. *****                                      ^ not supported yet
    732. 

  732. *****                                                ^ not supported yet
    733. 

  733.   276        END;
    734. 

  734.   277      END CheckFieldName;
    735. 

  735. *****          ^ not supported yet
    736. 

  736.   278  
    737. 

  737.   279  
    738. 

  738.   280    PROCEDURE Control( TheFrame: ScrnTypes.DisplayFrame );
    739. 

  739. *****                                           ^ not supported yet
    740. 

  740.   281      VAR
    741. 

  741.   282        FrameName : ScrnTypes.AFrameName;
    742. 

  742. *****                              ^ not supported yet
    743. 

  743.   283          (*This gets thrown away.*)
    744. 

  744.   284      BEGIN
    745. 

  745.   285        InputManager.ControlFrame( TheFrame, 0, '', FALSE, FrameName );
    746. 

  746. *****        ^ not supported yet
    747. 

  747. *****                     ^ not supported yet
    748. 

  748. *****                                   ^ not supported yet
    749. 

  749. *****                                                           ^ not supported yet
    750. 

  750.   286      END Control;
    751. 

  751. *****          ^ not supported yet
    752. 

  752.   287  
    753. 

  753.   288  
    754. 

  754.   289    PROCEDURE FrameListSpot( FrameName: ARRAY OF CHAR;
    755. 

  755. *****                                                 ^ not supported yet
    756. 

  756.   290        FrameList: GenLists.GenList ): CARDINAL;
    757. 

  757. *****                            ^ not supported yet
    758. 

  758.   291      VAR
    759. 

  759.   292        TypeCode, cnt, ListEnd: CARDINAL;
    760. 

  760.   293        TmpFrame: ScrnTypes.DisplayFrameRec;
    761. 

  761. *****                            ^ not supported yet
    762. 

  762.   294      BEGIN
    763. 

  763.   295        cnt := 1;
    764. 

  764.   296        ListEnd := GenLists.ListLength( FrameList );
    765. 

  765. *****                   ^ not supported yet
    766. 

  766. *****                            ^ not supported yet
    767. 

  767. *****                                        ^ not supported yet
    768. 

  768.   297        WHILE cnt < ListEnd DO
    769. 

  769.   298          GenLists.GetElmt( FrameList, cnt, TmpFrame, TypeCode );
    770. 

  770. *****          ^ not supported yet
    771. 

  771. *****                   ^ not supported yet
    772. 

  772. *****                            ^ not supported yet
    773. 

  773. *****                                            ^ not supported yet
    774. 

  774. *****                                                               ^ not supported yet
    775. 

  775.   299          IF PosUtils.Equal( TmpFrame.ThisFrame, FrameName ) THEN
    776. 

  776. *****             ^ not supported yet
    777. 

  777. *****                      ^ not supported yet
    778. 

  778. *****                             ^ not supported yet
    779. 

  779. *****                                      ^ not supported yet
    780. 

  780. *****                                                 ^ not supported yet
    781. 

  781.   300            RETURN cnt;
    782. 

  782.   301          END;
    783. 

  783.   302          cnt := cnt + 2;
    784. 

  784.   303        END;
    785. 

  785.   304        RETURN 0;
    786. 

  786.   305      END FrameListSpot;
    787. 

  787. *****          ^ not supported yet
    788. 

  788.   306  
    789. 

  789.   307  
    790. 

  790.   308    PROCEDURE AddToFrameList( TheFrame: ScrnTypes.DisplayFrame;
    791. 

  791. *****                                                  ^ not supported yet
    792. 

  792.   309        VAR FrameList: GenLists.GenList );
    793. 

  793. *****                                ^ not supported yet
    794. 

  794.   310      VAR
    795. 

  795.   311        TmpList: GenLists.GenList;
    796. 

  796. *****                          ^ not supported yet
    797. 

  797.   312        spot: CARDINAL;
    798. 

  798.   313        SavedFlag : BOOLEAN;
    799. 

  799.   314      BEGIN
    800. 

  800.   315        spot := FrameListSpot( TheFrame^.ThisFrame, FrameList );
    801. 

  801. *****                ^ not supported yet
    802. 

  802. *****                               ^ not supported yet
    803. 

  803. *****                                         ^ not supported yet
    804. 

  804. *****                                                    ^ not supported yet
    805. 

  805.   316        IF spot > 0 THEN
    806. 

  806.   317          (*A frame of this name is already in the FrameList.  We can't just
    807. 

  807.   318            delete it and add the new copy because they probably share lists;
    808. 

  808.   319            look at how GetFrameFromList gives the gotten frame pointers
    809. 

  809.   320            directly into its own sublists.*)
    810. 

  810.   321          RETURN;
    811. 

  811.   322        END;
    812. 

  812.   323        TheFrame^.CurrentField := 1;
    813. 

  813. *****        ^ not supported yet
    814. 

  814. *****                  ^ not supported yet
    815. 

  815.   324        SavedFlag := TheFrame^.SelfSharedWithFile;
    816. 

  816. *****                     ^ not supported yet
    817. 

  817. *****                               ^ not supported yet
    818. 

  818.   325          (* Added this SavedFlag thing on 2 Nov 88 at suggestion
    819. 

  819.   326             of John McMonagle to prevent memory loss problems. *)
    820. 

  820.   327        TheFrame^.SelfSharedWithFile := TRUE;
    821. 

  821. *****        ^ not supported yet
    822. 

  822. *****                  ^ not supported yet
    823. 

  823.   328          (* We're using this to prevent ReadFrame from
    824. 

  824.   329             disposing of the .self list next time. *)
    825. 

  825.   330        GenLists.ListInsert( TheFrame^, 0, FrameList, AfterLastElmt );
    826. 

  826. *****        ^ not supported yet
    827. 

  827. *****                 ^ not supported yet
    828. 

  828. *****                             ^ not supported yet
    829. 

  829. *****                                           ^ not supported yet
    830. 

  830. *****                                                                    ^ not supported yet
    831. 

  831.   331        TheFrame^.SelfSharedWithFile := SavedFlag;
    832. 

  832. *****        ^ not supported yet
    833. 

  833. *****                  ^ not supported yet
    834. 

  834.   332        GenLists.CopyList( TheFrame^.self, TmpList );
    835. 

  835. *****        ^ not supported yet
    836. 

  836. *****                 ^ not supported yet
    837. 

  837. *****                           ^ not supported yet
    838. 

  838. *****                                     ^ not supported yet
    839. 

  839. *****                                           ^ not supported yet
    840. 

  840.   333          (*We copy the self list so it won't go away when the
    841. 

  841.   334            ListBuf changes.*)
    842. 

  842.   335        GenLists.ListInsert( TmpList, GenLists.ListCode,
    843. 

  843. *****        ^ not supported yet
    844. 

  844. *****                 ^ not supported yet
    845. 

  845. *****                             ^ not supported yet
    846. 

  846. *****                                      ^ not supported yet
    847. 

  847. *****                                               ^ not supported yet
    848. 

  848.   336            FrameList, AfterLastElmt );
    849. 

  849. *****            ^ not supported yet
    850. 

  850. *****                                     ^ not supported yet
    851. 

  851.   337      END AddToFrameList;
    852. 

  852. *****          ^ not supported yet
    853. 

  853.   338  
    854. 

  854.   339  
    855. 

  855.   340    PROCEDURE DisposeFrameList( VAR FrameList: GenLists.GenList );
    856. 

  856. *****                                                        ^ not supported yet
    857. 

  857.   341      VAR
    858. 

  858.   342        ListEnd, cnt, dumc, TypeCode: CARDINAL;
    859. 

  859.   343        TmpFrame: ScrnTypes.DisplayFrame;
    860. 

  860. *****                            ^ not supported yet
    861. 

  861.   344      BEGIN
    862. 

  862.   345        ListEnd := GenLists.ListLength( FrameList );
    863. 

  863. *****                   ^ not supported yet
    864. 

  864. *****                            ^ not supported yet
    865. 

  865. *****                                        ^ not supported yet
    866. 

  866.   346        cnt := 1;
    867. 

  867.   347        WHILE cnt < ListEnd DO
    868. 

  868.   348          GenLists.GetElmtAdr( FrameList, cnt, TmpFrame, dumc, TypeCode );
    869. 

  869. *****          ^ not supported yet
    870. 

  870. *****                   ^ not supported yet
    871. 

  871. *****                               ^ not supported yet
    872. 

  872. *****                                               ^ not supported yet
    873. 

  873. *****                                                                        ^ not supported yet
    874. 

  874.   349          FrameManager.FrameDeactivated( TmpFrame );
    875. 

  875. *****          ^ not supported yet
    876. 

  876. *****                       ^ not supported yet
    877. 

  877. *****                                         ^ not supported yet
    878. 

  878.   350          cnt := cnt + 2;
    879. 

  879.   351        END;
    880. 

  880.   352        GenLists.DisposeList( FrameList );
    881. 

  881. *****        ^ not supported yet
    882. 

  882. *****                 ^ not supported yet
    883. 

  883. *****                              ^ not supported yet
    884. 

  884.   353      END DisposeFrameList;
    885. 

  885. *****          ^ not supported yet
    886. 

  886.   354  
    887. 

  887.   355  
    888. 

  888.   356    PROCEDURE DeleteFrom( VAR TheFrame: ScrnTypes.DisplayFrame;
    889. 

  889. *****                                                  ^ not supported yet
    890. 

  890.   357        VAR FrameList: GenLists.GenList );
    891. 

  891. *****                                ^ not supported yet
    892. 

  892.   358      VAR
    893. 

  893.   359        TmpList: GenLists.GenList;
    894. 

  894. *****                          ^ not supported yet
    895. 

  895.   360        spot: CARDINAL;
    896. 

  896.   361      BEGIN
    897. 

  897.   362        spot := FrameListSpot( TheFrame^.ThisFrame, FrameList );
    898. 

  898. *****                ^ not supported yet
    899. 

  899. *****                               ^ not supported yet
    900. 

  900. *****                                         ^ not supported yet
    901. 

  901. *****                                                    ^ not supported yet
    902. 

  902.   363        IF spot > 0 THEN
    903. 

  903.   364          GenLists.GetChildList( FrameList, spot + 1, TmpList );
    904. 

  904. *****          ^ not supported yet
    905. 

  905. *****                   ^ not supported yet
    906. 

  906. *****                                 ^ not supported yet
    907. 

  907. *****                                                      ^ not supported yet
    908. 

  908.   365          IF GenLists.SameList( TmpList, TheFrame^.self ) THEN
    909. 

  909. *****             ^ not supported yet
    910. 

  910. *****                      ^ not supported yet
    911. 

  911. *****                                ^ not supported yet
    912. 

  912. *****                                         ^ not supported yet
    913. 

  913. *****                                                   ^ not supported yet
    914. 

  914.   366            (*We're going to confuse the hell out of the programmer
    915. 

  915.   367              who deletes a frame from a FrameList after retrieving it
    916. 

  916.   368              but before using it.  We leave some tracks to make it
    917. 

  917.   369              easier to find the problem.*)
    918. 

  918.   370            StrEdit.AssignStr( 'DeleteFrom', TheFrame^.ThisFrame );
    919. 

  919. *****            ^ not supported yet
    920. 

  920. *****                    ^ not supported yet
    921. 

  921. *****                               ^ not supported yet
    922. 

  922. *****                                             ^ not supported yet
    923. 

  923. *****                                                       ^ not supported yet
    924. 

  924.   371            GenLists.NilList( TheFrame^.self );
    925. 

  925. *****            ^ not supported yet
    926. 

  926. *****                     ^ not supported yet
    927. 

  927. *****                              ^ not supported yet
    928. 

  928. *****                                        ^ not supported yet
    929. 

  929.   372            GenLists.NilList( TheFrame^.ImageList );
    930. 

  930. *****            ^ not supported yet
    931. 

  931. *****                     ^ not supported yet
    932. 

  932. *****                              ^ not supported yet
    933. 

  933. *****                                        ^ not supported yet
    934. 

  934.   373            GenLists.NilList( TheFrame^.FieldList );
    935. 

  935. *****            ^ not supported yet
    936. 

  936. *****                     ^ not supported yet
    937. 

  937. *****                              ^ not supported yet
    938. 

  938. *****                                        ^ not supported yet
    939. 

  939.   374          END;
    940. 

  940.   375          GenLists.ListDelete( FrameList, spot, 2 );
    941. 

  941. *****          ^ not supported yet
    942. 

  942. *****                   ^ not supported yet
    943. 

  943. *****                               ^ not supported yet
    944. 

  944. *****                                                  ^ not supported yet
    945. 

  945.   376        END;
    946. 

  946.   377      END DeleteFrom;
    947. 

  947. *****          ^ not supported yet
    948. 

  948.   378  
    949. 

  949.   379  
    950. 

  950.   380    PROCEDURE PointFrameAtList( FrameList: GenLists.GenList;
    951. 

  951. *****                                                    ^ not supported yet
    952. 

  952.   381        FrameName: ARRAY OF CHAR; VAR TheFrame:
    953. 

  953. *****                            ^ not supported yet
    954. 

  954.   382        ScrnTypes.DisplayFrame ): BOOLEAN;
    955. 

  955. *****                  ^ not supported yet
    956. 

  956.   383      (* The difference between this and GetFrameFromList is that
    957. 

  957.   384         PointFrameAtList forces TheFrame to point at the DisplayFrameRec
    958. 

  958.   385         which is stored in the list; GetFrameFromList copies the
    959. 

  959.   386         DisplayFrameRec out into whatever TheFrame happens to be
    960. 

  960.   387         pointing at. *)
    961. 

  961.   388      VAR
    962. 

  962.   389        dumc, spot, TypeCode: CARDINAL;
    963. 

  963.   390      BEGIN
    964. 

  964.   391        spot := FrameListSpot( FrameName, FrameList );
    965. 

  965. *****                ^ not supported yet
    966. 

  966. *****                               ^ not supported yet
    967. 

  967. *****                                          ^ not supported yet
    968. 

  968.   392        IF spot = 0 THEN
    969. 

  969.   393          RETURN FALSE;
    970. 

  970.   394        END;
    971. 

  971.   395        GenLists.GetElmtAdr( FrameList, spot, TheFrame, dumc, TypeCode );
    972. 

  972. *****        ^ not supported yet
    973. 

  973. *****                 ^ not supported yet
    974. 

  974. *****                             ^ not supported yet
    975. 

  975. *****                                              ^ not supported yet
    976. 

  976. *****                                                                       ^ not supported yet
    977. 

  977.   396        GenLists.GetChildList( FrameList, spot + 1, TheFrame^.self );
    978. 

  978. *****        ^ not supported yet
    979. 

  979. *****                 ^ not supported yet
    980. 

  980. *****                               ^ not supported yet
    981. 

  981. *****                                                    ^ not supported yet
    982. 

  982. *****                                                              ^ not supported yet
    983. 

  983.   397        ScrnUtl1.GetFrameLists( TheFrame );
    984. 

  984. *****        ^ not supported yet
    985. 

  985. *****                 ^ not supported yet
    986. 

  986. *****                                ^ not supported yet
    987. 

  987.   398        TheFrame^.CurrentField := GenLists.ElmtNow(TheFrame^.FieldList);
    988. 

  988. *****        ^ not supported yet
    989. 

  989. *****                  ^ not supported yet
    990. 

  990. *****                                  ^ not supported yet
    991. 

  991. *****                                           ^ not supported yet
    992. 

  992. *****                                                   ^ not supported yet
    993. 

  993. *****                                                             ^ not supported yet
    994. 

  994.   399          (*ElmtNow returns 0 if the list is NIL.*)
    995. 

  995.   400        RETURN TRUE;
    996. 

  996.   401      END PointFrameAtList;
    997. 

  997. *****          ^ not supported yet
    998. 

  998.   402  
    999. 

  999.   403  
    1000. 

  1000.   404    PROCEDURE GetFrameFromList( FrameList: GenLists.GenList;
    1001. 

  1001. *****                                                    ^ not supported yet
    1002. 

  1002.   405        FrameName: ARRAY OF CHAR; VAR TheFrame:
    1003. 

  1003. *****                            ^ not supported yet
    1004. 

  1004.   406        ScrnTypes.DisplayFrame ): BOOLEAN;
    1005. 

  1005. *****                  ^ not supported yet
    1006. 

  1006.   407      VAR
    1007. 

  1007.   408        spot, TypeCode: CARDINAL;
    1008. 

  1008.   409      BEGIN
    1009. 

  1009.   410        spot := FrameListSpot( FrameName, FrameList );
    1010. 

  1010. *****                ^ not supported yet
    1011. 

  1011. *****                               ^ not supported yet
    1012. 

  1012. *****                                          ^ not supported yet
    1013. 

  1013.   411        IF spot = 0 THEN
    1014. 

  1014.   412          RETURN FALSE;
    1015. 

  1015.   413        END;
    1016. 

  1016.   414        IF GenLists.SameList( TheFrame^.self,
    1017. 

  1017. *****           ^ not supported yet
    1018. 

  1018. *****                    ^ not supported yet
    1019. 

  1019. *****                              ^ not supported yet
    1020. 

  1020. *****                                        ^ not supported yet
    1021. 

  1021.   415            TheFrame^.FromFile^.ListBuf ) THEN
    1022. 

  1022. *****            ^ not supported yet
    1023. 

  1023. *****                      ^ not supported yet
    1024. 

  1024. *****                                ^ not supported yet
    1025. 

  1025.   416          (*Make sure the NdxFile system doesn't think it is still
    1026. 

  1026.   417            managing this frame.*)
    1027. 

  1027.   418          GenLists.DisposeList( TheFrame^.FromFile^.ListBuf );
    1028. 

  1028. *****          ^ not supported yet
    1029. 

  1029. *****                   ^ not supported yet
    1030. 

  1030. *****                                ^ not supported yet
    1031. 

  1031. *****                                          ^ not supported yet
    1032. 

  1032. *****                                                    ^ not supported yet
    1033. 

  1033.   419          TheFrame^.FromFile^.BufRecName[0] := 0C;
    1034. 

  1034. *****          ^ not supported yet
    1035. 

  1035. *****                    ^ not supported yet
    1036. 

  1036. *****                              ^ not supported yet
    1037. 

  1037. *****                                          ^ not supported yet
    1038. 

  1038.   420        END;
    1039. 

  1039.   421          (*Note that we don't dispose of TheFrame's self list if
    1040. 

  1040.   422            it's not part of the list buffer because it may be part
    1041. 

  1041.   423            of the FrameList.  Means someone else has to be in charge
    1042. 

  1042.   424            of disposing of the self list if it was created by CopyList.*)
    1043. 

  1043.   425        GenLists.GetElmt( FrameList, spot, TheFrame^,  TypeCode );
    1044. 

  1044. *****        ^ not supported yet
    1045. 

  1045. *****                 ^ not supported yet
    1046. 

  1046. *****                          ^ not supported yet
    1047. 

  1047. *****                                           ^ not supported yet
    1048. 

  1048. *****                                                                ^ not supported yet
    1049. 

  1049.   426        GenLists.GetChildList( FrameList, spot + 1, TheFrame^.self );
    1050. 

  1050. *****        ^ not supported yet
    1051. 

  1051. *****                 ^ not supported yet
    1052. 

  1052. *****                               ^ not supported yet
    1053. 

  1053. *****                                                    ^ not supported yet
    1054. 

  1054. *****                                                              ^ not supported yet
    1055. 

  1055.   427        ScrnUtl1.GetFrameLists( TheFrame );
    1056. 

  1056. *****        ^ not supported yet
    1057. 

  1057. *****                 ^ not supported yet
    1058. 

  1058. *****                                ^ not supported yet
    1059. 

  1059.   428        TheFrame^.CurrentField := GenLists.ElmtNow(TheFrame^.FieldList);
    1060. 

  1060. *****        ^ not supported yet
    1061. 

  1061. *****                  ^ not supported yet
    1062. 

  1062. *****                                  ^ not supported yet
    1063. 

  1063. *****                                           ^ not supported yet
    1064. 

  1064. *****                                                   ^ not supported yet
    1065. 

  1065. *****                                                             ^ not supported yet
    1066. 

  1066.   429          (*ElmtNow returns 0 if the list is NIL.*)
    1067. 

  1067.   430        RETURN TRUE;
    1068. 

  1068.   431      END GetFrameFromList;
    1069. 

  1069. *****          ^ not supported yet
    1070. 

  1070.   432  
    1071. 

  1071.   433  
    1072. 

  1072.   434    PROCEDURE LoadFrameList( dfile: ScrnTypes.DisplayFile;
    1073. 

  1073. *****                                              ^ not supported yet
    1074. 

  1074.   435        StartFrame: ARRAY OF CHAR; VAR FrameList: GenLists.GenList );
    1075. 

  1075. *****                             ^ not supported yet
    1076. 

  1076. *****                                                           ^ not supported yet
    1077. 

  1077.   436      VAR
    1078. 

  1078.   437        TmpFrame: ScrnTypes.DisplayFrame;
    1079. 

  1079. *****                            ^ not supported yet
    1080. 

  1080.   438        FrameAbove, FrameBelow, FrameRight, FrameLeft: ScrnTypes.AFrameName;
    1081. 

  1081. *****                                                                 ^ not supported yet
    1082. 

  1082.   439      BEGIN
    1083. 

  1083.   440        IF NOT FrameExists( dfile, StartFrame ) THEN
    1084. 

  1084. *****               ^ undeclared identifier
    1085. 

  1085. *****                            ^ not supported yet
    1086. 

  1086. *****                                   ^ not supported yet
    1087. 

  1087.   441          RETURN;
    1088. 

  1088.   442        END;
    1089. 

  1089.   443        IF FrameListSpot( StartFrame, FrameList ) > 0 THEN
    1090. 

  1090. *****           ^ not supported yet
    1091. 

  1091. *****                          ^ not supported yet
    1092. 

  1092. *****                                      ^ not supported yet
    1093. 

  1093.   444          (*StartFrame is already in FrameList *)
    1094. 

  1094.   445          RETURN;
    1095. 

  1095.   446        END;
    1096. 

  1096.   447        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    1097. 

  1097. *****        ^ not supported yet
    1098. 

  1098. *****                  ^ not supported yet
    1099. 

  1099. *****                                    ^ not supported yet
    1100. 

  1100. *****                                              ^ not supported yet
    1101. 

  1101. *****                                                       ^ not supported yet
    1102. 

  1102.   448        DspFiles.ReadFrameFast( dfile, TmpFrame, StartFrame );
    1103. 

  1103. *****        ^ not supported yet
    1104. 

  1104. *****                 ^ not supported yet
    1105. 

  1105. *****                                ^ not supported yet
    1106. 

  1106. *****                                       ^ not supported yet
    1107. 

  1107. *****                                                 ^ not supported yet
    1108. 

  1108.   449          (* It's okay here to use ReadFrameFast, which does not
    1109. 

  1109.   450             copy the file's listbuf, because AddToFrameList is
    1110. 

  1110.   451             about to make a copy anyway. *)
    1111. 

  1111.   452        AddToFrameList( TmpFrame, FrameList );
    1112. 

  1112. *****        ^ not supported yet
    1113. 

  1113. *****                        ^ not supported yet
    1114. 

  1114. *****                                  ^ not supported yet
    1115. 

  1115.   453        ScrnUtl1.GetFrameLinks( TmpFrame, FrameAbove, FrameBelow,
    1116. 

  1116. *****        ^ not supported yet
    1117. 

  1117. *****                 ^ not supported yet
    1118. 

  1118. *****                                ^ not supported yet
    1119. 

  1119. *****                                          ^ not supported yet
    1120. 

  1120. *****                                                      ^ not supported yet
    1121. 

  1121.   454            FrameLeft, FrameRight );
    1122. 

  1122. *****            ^ not supported yet
    1123. 

  1123. *****                       ^ not supported yet
    1124. 

  1124.   455        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    1125. 

  1125. *****        ^ not supported yet
    1126. 

  1126. *****                 ^ not supported yet
    1127. 

  1127. *****                                    ^ not supported yet
    1128. 

  1128.   456        IF FrameAbove[0] # 0C THEN
    1129. 

  1129. *****           ^ not supported yet
    1130. 

  1130. *****                       ^ not supported yet
    1131. 

  1131.   457          LoadFrameList( dfile, FrameAbove, FrameList );
    1132. 

  1132. *****          ^ not supported yet
    1133. 

  1133. *****                         ^ not supported yet
    1134. 

  1134. *****                                ^ not supported yet
    1135. 

  1135. *****                                            ^ not supported yet
    1136. 

  1136.   458        END;
    1137. 

  1137.   459        IF FrameBelow[0] # 0C THEN
    1138. 

  1138. *****           ^ not supported yet
    1139. 

  1139. *****                       ^ not supported yet
    1140. 

  1140.   460          LoadFrameList( dfile, FrameBelow, FrameList );
    1141. 

  1141. *****          ^ not supported yet
    1142. 

  1142. *****                         ^ not supported yet
    1143. 

  1143. *****                                ^ not supported yet
    1144. 

  1144. *****                                            ^ not supported yet
    1145. 

  1145.   461        END;
    1146. 

  1146.   462        IF FrameLeft[0] # 0C THEN
    1147. 

  1147. *****           ^ not supported yet
    1148. 

  1148. *****                      ^ not supported yet
    1149. 

  1149.   463          LoadFrameList( dfile, FrameLeft, FrameList );
    1150. 

  1150. *****          ^ not supported yet
    1151. 

  1151. *****                         ^ not supported yet
    1152. 

  1152. *****                                ^ not supported yet
    1153. 

  1153. *****                                           ^ not supported yet
    1154. 

  1154.   464        END;
    1155. 

  1155.   465        IF FrameRight[0] # 0C THEN
    1156. 

  1156. *****           ^ not supported yet
    1157. 

  1157. *****                       ^ not supported yet
    1158. 

  1158.   466          LoadFrameList( dfile, FrameRight, FrameList );
    1159. 

  1159. *****          ^ not supported yet
    1160. 

  1160. *****                         ^ not supported yet
    1161. 

  1161. *****                                ^ not supported yet
    1162. 

  1162. *****                                            ^ not supported yet
    1163. 

  1163.   467        END;
    1164. 

  1164.   468      END LoadFrameList;
    1165. 

  1165. *****          ^ not supported yet
    1166. 

  1166.   469  
    1167. 

  1167.   470  
    1168. 

  1168.   471    PROCEDURE ControlSeparately( FrameList: GenLists.GenList;
    1169. 

  1169. *****                                                     ^ not supported yet
    1170. 

  1170.   472        VAR NextFrame: ScrnTypes.AFrameName; VAR SelectedChar:
    1171. 

  1171. *****                                 ^ not supported yet
    1172. 

  1172.   473        CHAR; VAR EndingFrame: ScrnTypes.AFrameName );
    1173. 

  1173. *****                                         ^ not supported yet
    1174. 

  1174.   474      VAR
    1175. 

  1175.   475        FrameAbove, FrameBelow, FrameRight, FrameLeft: ScrnTypes.AFrameName;
    1176. 

  1176. *****                                                                 ^ not supported yet
    1177. 

  1177.   476        TmpFrame: ScrnTypes.DisplayFrame;
    1178. 

  1178. *****                            ^ not supported yet
    1179. 

  1179.   477      BEGIN
    1180. 

  1180.   478        (* Notice that we don't initialize TmpFrame because we are
    1181. 

  1181.   479           forcing it to point into the FrameList. *)
    1182. 

  1182.   480        LOOP
    1183. 

  1183.   481          IF NOT PointFrameAtList( FrameList, NextFrame, TmpFrame ) THEN
    1184. 

  1184. *****                 ^ not supported yet
    1185. 

  1185. *****                                   ^ not supported yet
    1186. 

  1186. *****                                              ^ not supported yet
    1187. 

  1187. *****                                                         ^ not supported yet
    1188. 

  1188.   482            EXIT;
    1189. 

  1189.   483          END;
    1190. 

  1190.   484          M2Strings.Assign( NextFrame, EndingFrame );
    1191. 

  1191. *****          ^ not supported yet
    1192. 

  1192. *****                    ^ not supported yet
    1193. 

  1193. *****                            ^ not supported yet
    1194. 

  1194. *****                                       ^ not supported yet
    1195. 

  1195.   485          ScrnUtl1.GetFrameLinks( TmpFrame, FrameAbove, FrameBelow,
    1196. 

  1196. *****          ^ not supported yet
    1197. 

  1197. *****                   ^ not supported yet
    1198. 

  1198. *****                                  ^ not supported yet
    1199. 

  1199. *****                                            ^ not supported yet
    1200. 

  1200. *****                                                        ^ not supported yet
    1201. 

  1201.   486              FrameLeft, FrameRight );
    1202. 

  1202. *****              ^ not supported yet
    1203. 

  1203. *****                         ^ not supported yet
    1204. 

  1204.   487          FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    1205. 

  1205. *****          ^ not supported yet
    1206. 

  1206. *****                       ^ not supported yet
    1207. 

  1207. *****                                         ^ not supported yet
    1208. 

  1208. *****                                                              ^ not supported yet
    1209. 

  1209.   488          InputManager.ControlFrame( TmpFrame, TmpFrame^.CurrentField, '',
    1210. 

  1210. *****          ^ not supported yet
    1211. 

  1211. *****                       ^ not supported yet
    1212. 

  1212. *****                                     ^ not supported yet
    1213. 

  1213. *****                                               ^ not supported yet
    1214. 

  1214. *****                                                         ^ not supported yet
    1215. 

  1215.   489              FALSE, NextFrame );
    1216. 

  1216. *****                     ^ not supported yet
    1217. 

  1217.   490          SelectedChar := ScrnUtl1.SelectedChar( TmpFrame );
    1218. 

  1218. *****                          ^ not supported yet
    1219. 

  1219. *****                                   ^ not supported yet
    1220. 

  1220. *****                                                 ^ not supported yet
    1221. 

  1221.   491        END;
    1222. 

  1222.   492      END ControlSeparately;
    1223. 

  1223. *****          ^ not supported yet
    1224. 

  1224.   493  
    1225. 

  1225.   494  
    1226. 

  1226.   495    PROCEDURE ControlFrameList( FrameList: GenLists.GenList;
    1227. 

  1227. *****                                                    ^ not supported yet
    1228. 

  1228.   496        TheFrame: ScrnTypes.DisplayFrame; VAR NextFrame:
    1229. 

  1229. *****                            ^ not supported yet
    1230. 

  1230.   497        ScrnTypes.AFrameName; VAR SelectedChar: CHAR; VAR
    1231. 

  1231. *****                  ^ not supported yet
    1232. 

  1232.   498        EndingFrame: ScrnTypes.AFrameName );
    1233. 

  1233. *****                               ^ not supported yet
    1234. 

  1234.   499      VAR
    1235. 

  1235.   500        FrameAbove, FrameBelow, FrameRight, FrameLeft: ScrnTypes.AFrameName;
    1236. 

  1236. *****                                                                 ^ not supported yet
    1237. 

  1237.   501      BEGIN
    1238. 

  1238.   502        LOOP
    1239. 

  1239.   503          IF NOT GetFrameFromList( FrameList, NextFrame, TheFrame ) THEN
    1240. 

  1240. *****                 ^ not supported yet
    1241. 

  1241. *****                                   ^ not supported yet
    1242. 

  1242. *****                                              ^ not supported yet
    1243. 

  1243. *****                                                         ^ not supported yet
    1244. 

  1244.   504            EXIT;
    1245. 

  1245.   505          END;
    1246. 

  1246.   506          M2Strings.Assign( NextFrame, EndingFrame );
    1247. 

  1247. *****          ^ not supported yet
    1248. 

  1248. *****                    ^ not supported yet
    1249. 

  1249. *****                            ^ not supported yet
    1250. 

  1250. *****                                       ^ not supported yet
    1251. 

  1251.   507          ScrnUtl1.GetFrameLinks( TheFrame, FrameAbove, FrameBelow,
    1252. 

  1252. *****          ^ not supported yet
    1253. 

  1253. *****                   ^ not supported yet
    1254. 

  1254. *****                                  ^ not supported yet
    1255. 

  1255. *****                                            ^ not supported yet
    1256. 

  1256. *****                                                        ^ not supported yet
    1257. 

  1257.   508              FrameLeft, FrameRight );
    1258. 

  1258. *****              ^ not supported yet
    1259. 

  1259. *****                         ^ not supported yet
    1260. 

  1260.   509          FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0 );
    1261. 

  1261. *****          ^ not supported yet
    1262. 

  1262. *****                       ^ not supported yet
    1263. 

  1263. *****                                         ^ not supported yet
    1264. 

  1264. *****                                                              ^ not supported yet
    1265. 

  1265.   510          InputManager.ControlFrame( TheFrame, TheFrame^.CurrentField, '',
    1266. 

  1266. *****          ^ not supported yet
    1267. 

  1267. *****                       ^ not supported yet
    1268. 

  1268. *****                                     ^ not supported yet
    1269. 

  1269. *****                                               ^ not supported yet
    1270. 

  1270. *****                                                         ^ not supported yet
    1271. 

  1271.   511              FALSE, NextFrame );
    1272. 

  1272. *****                     ^ not supported yet
    1273. 

  1273.   512          SelectedChar := ScrnUtl1.SelectedChar( TheFrame );
    1274. 

  1274. *****                          ^ not supported yet
    1275. 

  1275. *****                                   ^ not supported yet
    1276. 

  1276. *****                                                 ^ not supported yet
    1277. 

  1277.   513        END;
    1278. 

  1278.   514      END ControlFrameList;
    1279. 

  1279. *****          ^ not supported yet
    1280. 

  1280.   515  
    1281. 

  1281.   516  
    1282. 

  1282.   517    PROCEDURE ControlFrameGroup(  TheFrame: ScrnTypes.DisplayFrame;
    1283. 

  1283. *****                                                      ^ not supported yet
    1284. 

  1284.   518        VAR NextFrame: ScrnTypes.AFrameName; VAR SelectedChar: CHAR;
    1285. 

  1285. *****                                 ^ not supported yet
    1286. 

  1286.   519        VAR EndingFrame: ScrnTypes.AFrameName );
    1287. 

  1287. *****                                   ^ not supported yet
    1288. 

  1288.   520  
    1289. 

  1289.   521      VAR
    1290. 

  1290.   522        FrameList : GenLists.GenList;
    1291. 

  1291. *****                             ^ not supported yet
    1292. 

  1292.   523  
    1293. 

  1293.   524      BEGIN
    1294. 

  1294.   525        GenLists.NewList( FrameList );
    1295. 

  1295. *****        ^ not supported yet
    1296. 

  1296. *****                 ^ not supported yet
    1297. 

  1297. *****                          ^ not supported yet
    1298. 

  1298.   526        LoadFrameList( TheFrame^.FromFile, NextFrame, FrameList );
    1299. 

  1299. *****        ^ not supported yet
    1300. 

  1300. *****                       ^ not supported yet
    1301. 

  1301. *****                                 ^ not supported yet
    1302. 

  1302. *****                                           ^ not supported yet
    1303. 

  1303. *****                                                      ^ not supported yet
    1304. 

  1304.   527        ControlFrameList( FrameList, TheFrame, NextFrame, SelectedChar,
    1305. 

  1305. *****        ^ not supported yet
    1306. 

  1306. *****                          ^ not supported yet
    1307. 

  1307. *****                                     ^ not supported yet
    1308. 

  1308. *****                                               ^ not supported yet
    1309. 

  1309.   528            EndingFrame );
    1310. 

  1310. *****            ^ not supported yet
    1311. 

  1311.   529        DisposeFrameList( FrameList );
    1312. 

  1312. *****        ^ not supported yet
    1313. 

  1313. *****                          ^ not supported yet
    1314. 

  1314.   530      END ControlFrameGroup;
    1315. 

  1315. *****          ^ not supported yet
    1316. 

  1316.   531  
    1317. 

  1317.   532  
    1318. 

  1318.   533    PROCEDURE FrameExists( TheScreenFile: ScrnTypes.DisplayFile;
    1319. 

  1319. *****                                                    ^ not supported yet
    1320. 

  1320.   534        FrameName: ARRAY OF CHAR ): BOOLEAN;
    1321. 

  1321. *****                            ^ not supported yet
    1322. 

  1322.   535      VAR
    1323. 

  1323.   536        duml: LONGINT;
    1324. 

  1324.   537        dumc: CARDINAL;
    1325. 

  1325.   538      BEGIN
    1326. 

  1326.   539        StrEdit.CrunchBlanks( FrameName );
    1327. 

  1327. *****        ^ not supported yet
    1328. 

  1328. *****                ^ not supported yet
    1329. 

  1329. *****                              ^ not supported yet
    1330. 

  1330.   540        RETURN NdxBones.FindRecord( TheScreenFile, FrameName, duml,
    1331. 

  1331. *****               ^ not supported yet
    1332. 

  1332. *****                        ^ not supported yet
    1333. 

  1333. *****                                    ^ not supported yet
    1334. 

  1334. *****                                                   ^ not supported yet
    1335. 

  1335.   541            dumc, dumc );
    1336. 

  1336. *****                       ^ not supported yet
    1337. 

  1337.   542      END FrameExists;
    1338. 

  1338. *****          ^ not supported yet
    1339. 

  1339.   543  
    1340. 

  1340.   544  
    1341. 

  1341.   545    PROCEDURE FrameSequence( TheFrame: ScrnTypes.DisplayFrame;
    1342. 

  1342. *****                                                 ^ not supported yet
    1343. 

  1343.   546        VAR StartFrame: ScrnTypes.AFrameName );
    1344. 

  1344. *****                                  ^ not supported yet
    1345. 

  1345.   547      BEGIN
    1346. 

  1346.   548        ScrnUtl2.PushFrame( TheFrame );
    1347. 

  1347. *****        ^ not supported yet
    1348. 

  1348. *****                 ^ not supported yet
    1349. 

  1349. *****                            ^ not supported yet
    1350. 

  1350.   549        FrameSeqReturn( TheFrame, StartFrame);
    1351. 

  1351. *****        ^ undeclared identifier
    1352. 

  1352. *****                        ^ not supported yet
    1353. 

  1353. *****                                  ^ not supported yet
    1354. 

  1354.   550        ScrnUtl2.PopFrame( TheFrame );
    1355. 

  1355. *****        ^ not supported yet
    1356. 

  1356. *****                 ^ not supported yet
    1357. 

  1357. *****                           ^ not supported yet
    1358. 

  1358.   551        InputManager.ReconstructFrame( TheFrame );
    1359. 

  1359. *****        ^ not supported yet
    1360. 

  1360. *****                     ^ not supported yet
    1361. 

  1361. *****                                       ^ not supported yet
    1362. 

  1362.   552      END FrameSequence;
    1363. 

  1363. *****          ^ not supported yet
    1364. 

  1364.   553  
    1365. 

  1365.   554  
    1366. 

  1366.   555    PROCEDURE FrameSeqReturn( TheFrame : ScrnTypes.DisplayFrame;
    1367. 

  1367. *****                                                   ^ not supported yet
    1368. 

  1368.   556        VAR StartFrame : ScrnTypes.AFrameName );
    1369. 

  1369. *****                                   ^ not supported yet
    1370. 

  1370.   557      VAR
    1371. 

  1371.   558        CheckFrame: ScrnTypes.AFrameName;
    1372. 

  1372. *****                              ^ not supported yet
    1373. 

  1373.   559        SavedHeight: CARDINAL;
    1374. 

  1374.   560      BEGIN
    1375. 

  1375.   561        IF NOT FrameExists( TheFrame^.FromFile, StartFrame ) THEN
    1376. 

  1376. *****               ^ not supported yet
    1377. 

  1377. *****                            ^ not supported yet
    1378. 

  1378. *****                                      ^ not supported yet
    1379. 

  1379. *****                                                ^ not supported yet
    1380. 

  1380.   562          RETURN;
    1381. 

  1381.   563        END;
    1382. 

  1382.   564        SavedHeight := VWindows.GetCursorHeight( TheFrame^.WindowHandle );
    1383. 

  1383. *****                       ^ not supported yet
    1384. 

  1384. *****                                ^ not supported yet
    1385. 

  1385. *****                                                 ^ not supported yet
    1386. 

  1386. *****                                                           ^ not supported yet
    1387. 

  1387.   565        VWindows.SetCursorHeight( TheFrame^.WindowHandle, 0 );
    1388. 

  1388. *****        ^ not supported yet
    1389. 

  1389. *****                 ^ not supported yet
    1390. 

  1390. *****                                  ^ not supported yet
    1391. 

  1391. *****                                            ^ not supported yet
    1392. 

  1392. *****                                                            ^ not supported yet
    1393. 

  1393.   566        CheckFrame := TheFrame^.ThisFrame;
    1394. 

  1394. *****        ^ not supported yet
    1395. 

  1395. *****                      ^ not supported yet
    1396. 

  1396. *****                                ^ not supported yet
    1397. 

  1397.   567        LOOP
    1398. 

  1398.   568          DspFiles.ReadFrame( TheFrame^.FromFile, TheFrame,
    1399. 

  1399. *****          ^ not supported yet
    1400. 

  1400. *****                   ^ not supported yet
    1401. 

  1401. *****                              ^ not supported yet
    1402. 

  1402. *****                                        ^ not supported yet
    1403. 

  1403. *****                                                  ^ not supported yet
    1404. 

  1404.   569              StartFrame );
    1405. 

  1405. *****              ^ not supported yet
    1406. 

  1406.   570          FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0 );
    1407. 

  1407. *****          ^ not supported yet
    1408. 

  1408. *****                       ^ not supported yet
    1409. 

  1409. *****                                         ^ not supported yet
    1410. 

  1410. *****                                                              ^ not supported yet
    1411. 

  1411.   571          InputManager.ControlFrame( TheFrame, 0, '', FALSE, StartFrame );
    1412. 

  1412. *****          ^ not supported yet
    1413. 

  1413. *****                       ^ not supported yet
    1414. 

  1414. *****                                     ^ not supported yet
    1415. 

  1415. *****                                                             ^ not supported yet
    1416. 

  1416.   572          IF PosUtils.Equal( StartFrame, ScrnTypes.ProgramExit ) THEN
    1417. 

  1417. *****             ^ not supported yet
    1418. 

  1418. *****                      ^ not supported yet
    1419. 

  1419. *****                             ^ not supported yet
    1420. 

  1420. *****                                         ^ not supported yet
    1421. 

  1421. *****                                                   ^ not supported yet
    1422. 

  1422.   573            EXIT;
    1423. 

  1423.   574          END;
    1424. 

  1424.   575          IF PosUtils.Equal( StartFrame, CheckFrame ) THEN
    1425. 

  1425. *****             ^ not supported yet
    1426. 

  1426. *****                      ^ not supported yet
    1427. 

  1427. *****                             ^ not supported yet
    1428. 

  1428. *****                                         ^ not supported yet
    1429. 

  1429.   576            ErrorNames.WarningName('CircSeq');
    1430. 

  1430. *****            ^ not supported yet
    1431. 

  1431. *****                       ^ not supported yet
    1432. 

  1432. *****                                   ^ not supported yet
    1433. 

  1433.   577            EXIT;
    1434. 

  1434.   578          END;
    1435. 

  1435.   579          IF NOT FrameExists( TheFrame^.FromFile, StartFrame ) THEN
    1436. 

  1436. *****                 ^ not supported yet
    1437. 

  1437. *****                              ^ not supported yet
    1438. 

  1438. *****                                        ^ not supported yet
    1439. 

  1439. *****                                                  ^ not supported yet
    1440. 

  1440.   580            EXIT;
    1441. 

  1441.   581          END;
    1442. 

  1442.   582        END;
    1443. 

  1443.   583        VWindows.SetCursorHeight( TheFrame^.WindowHandle, SavedHeight );
    1444. 

  1444. *****        ^ not supported yet
    1445. 

  1445. *****                 ^ not supported yet
    1446. 

  1446. *****                                  ^ not supported yet
    1447. 

  1447. *****                                            ^ not supported yet
    1448. 

  1448. *****                                                                      ^ not supported yet
    1449. 

  1449.   584      END FrameSeqReturn;
    1450. 

  1450. *****          ^ not supported yet
    1451. 

  1451.   585  
    1452. 

  1452.   586  
    1453. 

  1453.   587    PROCEDURE FrameSeq2( TheFile : ScrnTypes.DisplayFile;
    1454. 

  1454. *****                                             ^ not supported yet
    1455. 

  1455.   588        CheckFrame: ARRAY OF CHAR; VAR StartFrame : ARRAY OF CHAR );
    1456. 

  1456. *****                             ^ not supported yet
    1457. 

  1457. *****                                                             ^ not supported yet
    1458. 

  1458.   589      VAR
    1459. 

  1459.   590        NextFrame, DummyName: ScrnTypes.AFrameName;
    1460. 

  1460. *****                                        ^ not supported yet
    1461. 

  1461.   591        TmpFrame: ScrnTypes.DisplayFrame;
    1462. 

  1462. *****                            ^ not supported yet
    1463. 

  1463.   592        FrameAbove, FrameBelow, FrameRight, FrameLeft: ScrnTypes.AFrameName;
    1464. 

  1464. *****                                                                 ^ not supported yet
    1465. 

  1465.   593        FrameList : GenLists.GenList;
    1466. 

  1466. *****                             ^ not supported yet
    1467. 

  1467.   594        dumc: CHAR;
    1468. 

  1468.   595      BEGIN
    1469. 

  1469.   596        IF NOT FrameExists( TheFile, StartFrame ) THEN
    1470. 

  1470. *****               ^ not supported yet
    1471. 

  1471. *****                            ^ not supported yet
    1472. 

  1472. *****                                     ^ not supported yet
    1473. 

  1473.   597          RETURN;
    1474. 

  1474.   598        END;
    1475. 

  1475.   599        M2Strings.Assign( StartFrame, NextFrame );
    1476. 

  1476. *****        ^ not supported yet
    1477. 

  1477. *****                  ^ not supported yet
    1478. 

  1478. *****                          ^ not supported yet
    1479. 

  1479. *****                                      ^ not supported yet
    1480. 

  1480.   600        ScrnTypes.InitDisplayFrame( TmpFrame, VWindows.CurrentWindow );
    1481. 

  1481. *****        ^ not supported yet
    1482. 

  1482. *****                  ^ not supported yet
    1483. 

  1483. *****                                    ^ not supported yet
    1484. 

  1484. *****                                              ^ not supported yet
    1485. 

  1485. *****                                                       ^ not supported yet
    1486. 

  1486.   601        LOOP
    1487. 

  1487.   602          DspFiles.ReadFrame( TheFile, TmpFrame, NextFrame );
    1488. 

  1488. *****          ^ not supported yet
    1489. 

  1489. *****                   ^ not supported yet
    1490. 

  1490. *****                              ^ not supported yet
    1491. 

  1491. *****                                       ^ not supported yet
    1492. 

  1492. *****                                                 ^ not supported yet
    1493. 

  1493.   603          ScrnUtl1.GetFrameLinks( TmpFrame, FrameAbove, FrameBelow,
    1494. 

  1494. *****          ^ not supported yet
    1495. 

  1495. *****                   ^ not supported yet
    1496. 

  1496. *****                                  ^ not supported yet
    1497. 

  1497. *****                                            ^ not supported yet
    1498. 

  1498. *****                                                        ^ not supported yet
    1499. 

  1499.   604              FrameLeft, FrameRight );
    1500. 

  1500. *****              ^ not supported yet
    1501. 

  1501. *****                         ^ not supported yet
    1502. 

  1502.   605          IF (FrameAbove[0] # 0C) OR (FrameBelow[0] # 0C) OR
    1503. 

  1503. *****              ^ not supported yet
    1504. 

  1504. *****                          ^ not supported yet
    1505. 

  1505. *****                                      ^ not supported yet
    1506. 

  1506. *****                                                  ^ not supported yet
    1507. 

  1507.   606              (FrameLeft[0] # 0C) OR (FrameRight[0] # 0C) THEN
    1508. 

  1508. *****               ^ not supported yet
    1509. 

  1509. *****                          ^ not supported yet
    1510. 

  1510. *****                                      ^ not supported yet
    1511. 

  1511. *****                                                  ^ not supported yet
    1512. 

  1512.   607            GenLists.NewList( FrameList );
    1513. 

  1513. *****            ^ not supported yet
    1514. 

  1514. *****                     ^ not supported yet
    1515. 

  1515. *****                              ^ not supported yet
    1516. 

  1516.   608            LoadFrameList( TheFile, NextFrame, FrameList );
    1517. 

  1517. *****            ^ not supported yet
    1518. 

  1518. *****                           ^ not supported yet
    1519. 

  1519. *****                                    ^ not supported yet
    1520. 

  1520. *****                                               ^ not supported yet
    1521. 

  1521.   609            ControlSeparately( FrameList, NextFrame, dumc,
    1522. 

  1522. *****            ^ not supported yet
    1523. 

  1523. *****                               ^ not supported yet
    1524. 

  1524. *****                                          ^ not supported yet
    1525. 

  1525.   610                DummyName );
    1526. 

  1526. *****                ^ not supported yet
    1527. 

  1527.   611            DisposeFrameList( FrameList );
    1528. 

  1528. *****            ^ not supported yet
    1529. 

  1529. *****                              ^ not supported yet
    1530. 

  1530.   612          ELSE
    1531. 

  1531.   613            FramePainter.ShowDisplayFrame( TmpFrame, 0, 0, 0, 0 );
    1532. 

  1532. *****            ^ not supported yet
    1533. 

  1533. *****                         ^ not supported yet
    1534. 

  1534. *****                                           ^ not supported yet
    1535. 

  1535. *****                                                                ^ not supported yet
    1536. 

  1536.   614            InputManager.ControlFrame( TmpFrame, 0, '', FALSE, NextFrame );
    1537. 

  1537. *****            ^ not supported yet
    1538. 

  1538. *****                         ^ not supported yet
    1539. 

  1539. *****                                       ^ not supported yet
    1540. 

  1540. *****                                                               ^ not supported yet
    1541. 

  1541.   615          END;
    1542. 

  1542.   616          IF PosUtils.Equal( NextFrame, ScrnTypes.ProgramExit ) THEN
    1543. 

  1543. *****             ^ not supported yet
    1544. 

  1544. *****                      ^ not supported yet
    1545. 

  1545. *****                             ^ not supported yet
    1546. 

  1546. *****                                        ^ not supported yet
    1547. 

  1547. *****                                                  ^ not supported yet
    1548. 

  1548.   617            EXIT;
    1549. 

  1549.   618          END;
    1550. 

  1550.   619          IF PosUtils.Equal( NextFrame, CheckFrame ) THEN
    1551. 

  1551. *****             ^ not supported yet
    1552. 

  1552. *****                      ^ not supported yet
    1553. 

  1553. *****                             ^ not supported yet
    1554. 

  1554. *****                                        ^ not supported yet
    1555. 

  1555.   620            ErrorNames.WarningName('CircSeq');
    1556. 

  1556. *****            ^ not supported yet
    1557. 

  1557. *****                       ^ not supported yet
    1558. 

  1558. *****                                   ^ not supported yet
    1559. 

  1559.   621            EXIT;
    1560. 

  1560.   622          END;
    1561. 

  1561.   623          IF NOT FrameExists( TheFile, NextFrame ) THEN
    1562. 

  1562. *****                 ^ not supported yet
    1563. 

  1563. *****                              ^ not supported yet
    1564. 

  1564. *****                                       ^ not supported yet
    1565. 

  1565.   624            EXIT;
    1566. 

  1566.   625          END;
    1567. 

  1567.   626        END;
    1568. 

  1568.   627        M2Strings.Assign( NextFrame, StartFrame );
    1569. 

  1569. *****        ^ not supported yet
    1570. 

  1570. *****                  ^ not supported yet
    1571. 

  1571. *****                          ^ not supported yet
    1572. 

  1572. *****                                     ^ not supported yet
    1573. 

  1573.   628        ScrnUtl2.CloseDisplayFrame( TmpFrame );
    1574. 

  1574. *****        ^ not supported yet
    1575. 

  1575. *****                 ^ not supported yet
    1576. 

  1576. *****                                    ^ not supported yet
    1577. 

  1577.   629      END FrameSeq2;
    1578. 

  1578. *****          ^ not supported yet
    1579. 

  1579.   630  
    1580. 

  1580.   631  
    1581. 

  1581.   632    PROCEDURE FindNextField( TheFrame: ScrnTypes.DisplayFrame; typ:
    1582. 

  1582. *****                                                 ^ not supported yet
    1583. 

  1583.   633        CHAR; VAR spot: CARDINAL; VAR FieldPtr:
    1584. 

  1584.   634        ScrnTypes.InputFieldPtr ): BOOLEAN;
    1585. 

  1585. *****                  ^ not supported yet
    1586. 

  1586.   635      VAR
    1587. 

  1587.   636        found: BOOLEAN;
    1588. 

  1588.   637        ListEnd: CARDINAL;
    1589. 

  1589.   638      BEGIN
    1590. 

  1590.   639        ListEnd := ScrnUtl1.FieldListTotal( TheFrame );
    1591. 

  1591. *****                   ^ not supported yet
    1592. 

  1592. *****                            ^ not supported yet
    1593. 

  1593. *****                                            ^ not supported yet
    1594. 

  1594.   640        FieldPtr := NIL;
    1595. 

  1595. *****        ^ not supported yet
    1596. 

  1596.   641        found := FALSE;
    1597. 

  1597.   642        WHILE (spot <= ListEnd) AND (NOT found) DO
    1598. 

  1598.   643          ScrnUtl1.GetFieldPtr( TheFrame, spot, FieldPtr );
    1599. 

  1599. *****          ^ not supported yet
    1600. 

  1600. *****                   ^ not supported yet
    1601. 

  1601. *****                                ^ not supported yet
    1602. 

  1602. *****                                                ^ not supported yet
    1603. 

  1603.   644          IF (typ = 0C) OR (FieldPtr^.typ = typ) THEN
    1604. 

  1604. *****                            ^ not supported yet
    1605. 

  1605. *****                                      ^ not supported yet
    1606. 

  1606.   645            found := TRUE;
    1607. 

  1607.   646          ELSE
    1608. 

  1608.   647            INC( spot );
    1609. 

  1609. *****            ^ undeclared identifier
    1610. 

  1610. *****                      ^ not supported yet
    1611. 

  1611.   648          END;
    1612. 

  1612.   649        END;
    1613. 

  1613.   650        RETURN found;
    1614. 

  1614.   651      END FindNextField;
    1615. 

  1615. *****          ^ not supported yet
    1616. 

  1616.   652  
    1617. 

  1617.   653  
    1618. 

  1618.   654    PROCEDURE GetStrResponse( TheFile:
    1619. 

  1619.   655        ScrnTypes.DisplayFile; FrameName, Default: ARRAY
    1620. 

  1620. *****                  ^ not supported yet
    1621. 

  1621.   656        OF CHAR; VAR TheStr: ARRAY OF CHAR ): BOOLEAN;
    1622. 

  1622. *****           ^ not supported yet
    1623. 

  1623. *****                                      ^ not supported yet
    1624. 

  1624.   657      VAR
    1625. 

  1625.   658        MsgFrame: ScrnTypes.DisplayFrame;
    1626. 

  1626. *****                            ^ not supported yet
    1627. 

  1627.   659        fnum : CARDINAL;
    1628. 

  1628.   660        FieldPtr: ScrnTypes.InputFieldPtr;
    1629. 

  1629. *****                            ^ not supported yet
    1630. 

  1630.   661        result: BOOLEAN;
    1631. 

  1631.   662        NextFrame: ScrnTypes.AFrameName;
    1632. 

  1632. *****                             ^ not supported yet
    1633. 

  1633.   663        TmpFrame: ScrnTypes.DisplayFrame;
    1634. 

  1634. *****                            ^ not supported yet
    1635. 

  1635.   664      BEGIN
    1636. 

  1636.   665        ScrnTypes.InitDisplayFrame( MsgFrame, VWindows.CurrentWindow );
    1637. 

  1637. *****        ^ not supported yet
    1638. 

  1638. *****                  ^ not supported yet
    1639. 

  1639. *****                                    ^ not supported yet
    1640. 

  1640. *****                                              ^ not supported yet
    1641. 

  1641. *****                                                       ^ not supported yet
    1642. 

  1642.   666        DspFiles.ReadFrame( TheFile, MsgFrame, FrameName );
    1643. 

  1643. *****        ^ not supported yet
    1644. 

  1644. *****                 ^ not supported yet
    1645. 

  1645. *****                            ^ not supported yet
    1646. 

  1646. *****                                     ^ not supported yet
    1647. 

  1647. *****                                               ^ not supported yet
    1648. 

  1648.   667        fnum := 1;
    1649. 

  1649.   668        IF NOT FindNextField( MsgFrame, ScrnTypes.StringCode, fnum,
    1650. 

  1650. *****               ^ not supported yet
    1651. 

  1651. *****                              ^ not supported yet
    1652. 

  1652. *****                                        ^ not supported yet
    1653. 

  1653. *****                                                  ^ not supported yet
    1654. 

  1654.   669            FieldPtr ) THEN
    1655. 

  1655. *****            ^ not supported yet
    1656. 

  1656.   670          result := FALSE;
    1657. 

  1657.   671        ELSE
    1658. 

  1658.   672          ChangeField( MsgFrame, Default, FieldPtr^.fnam, TRUE );
    1659. 

  1659. *****          ^ not supported yet
    1660. 

  1660. *****                       ^ not supported yet
    1661. 

  1661. *****                                 ^ not supported yet
    1662. 

  1662. *****                                          ^ not supported yet
    1663. 

  1663. *****                                                    ^ not supported yet
    1664. 

  1664. *****                                                               ^ not supported yet
    1665. 

  1665.   673          FramePainter.ShowDisplayFrame( MsgFrame, 0, 0, 0, 0 );
    1666. 

  1666. *****          ^ not supported yet
    1667. 

  1667. *****                       ^ not supported yet
    1668. 

  1668. *****                                         ^ not supported yet
    1669. 

  1669. *****                                                              ^ not supported yet
    1670. 

  1670.   674          InputManager.ControlFrame( MsgFrame, 1, '', FALSE, NextFrame );
    1671. 

  1671. *****          ^ not supported yet
    1672. 

  1672. *****                       ^ not supported yet
    1673. 

  1673. *****                                     ^ not supported yet
    1674. 

  1674. *****                                                             ^ not supported yet
    1675. 

  1675.   675          IF PosUtils.Equal( MsgFrame^.parent, NextFrame ) THEN
    1676. 

  1676. *****             ^ not supported yet
    1677. 

  1677. *****                      ^ not supported yet
    1678. 

  1678. *****                             ^ not supported yet
    1679. 

  1679. *****                                       ^ not supported yet
    1680. 

  1680. *****                                               ^ not supported yet
    1681. 

  1681.   676            result := FALSE;
    1682. 

  1682.   677          ELSE
    1683. 

  1683.   678            result := TRUE;
    1684. 

  1684.   679          END;
    1685. 

  1685.   680          ReadInput( MsgFrame, TheStr, FieldPtr^.fnam );
    1686. 

  1686. *****          ^ undeclared identifier
    1687. 

  1687. *****                     ^ not supported yet
    1688. 

  1688. *****                               ^ not supported yet
    1689. 

  1689. *****                                       ^ not supported yet
    1690. 

  1690. *****                                                 ^ not supported yet
    1691. 

  1691.   681        END;
    1692. 

  1692.   682        StrEdit.CrunchBlanks( TheStr );
    1693. 

  1693. *****        ^ not supported yet
    1694. 

  1694. *****                ^ not supported yet
    1695. 

  1695. *****                              ^ not supported yet
    1696. 

  1696.   683        ScrnUtl2.CloseDisplayFrame( MsgFrame );
    1697. 

  1697. *****        ^ not supported yet
    1698. 

  1698. *****                 ^ not supported yet
    1699. 

  1699. *****                                    ^ not supported yet
    1700. 

  1700.   684        RETURN result;
    1701. 

  1701.   685      END GetStrResponse;
    1702. 

  1702. *****          ^ not supported yet
    1703. 

  1703.   686  
    1704. 

  1704.   687  
    1705. 

  1705.   688    PROCEDURE ReadShowAndCntrl( TheFile: ScrnTypes.DisplayFile;
    1706. 

  1706. *****                                                   ^ not supported yet
    1707. 

  1707.   689        TheFrame: ScrnTypes.DisplayFrame; VAR FrameName :
    1708. 

  1708. *****                            ^ not supported yet
    1709. 

  1709.   690        ScrnTypes.AFrameName );
    1710. 

  1710. *****                  ^ not supported yet
    1711. 

  1711.   691      BEGIN
    1712. 

  1712.   692        DspFiles.ReadFrame( TheFile, TheFrame, FrameName );
    1713. 

  1713. *****        ^ not supported yet
    1714. 

  1714. *****                 ^ not supported yet
    1715. 

  1715. *****                            ^ not supported yet
    1716. 

  1716. *****                                     ^ not supported yet
    1717. 

  1717. *****                                               ^ not supported yet
    1718. 

  1718.   693        FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0 );
    1719. 

  1719. *****        ^ not supported yet
    1720. 

  1720. *****                     ^ not supported yet
    1721. 

  1721. *****                                       ^ not supported yet
    1722. 

  1722. *****                                                            ^ not supported yet
    1723. 

  1723.   694        InputManager.ControlFrame( TheFrame, 1, '', FALSE, FrameName );
    1724. 

  1724. *****        ^ not supported yet
    1725. 

  1725. *****                     ^ not supported yet
    1726. 

  1726. *****                                   ^ not supported yet
    1727. 

  1727. *****                                                           ^ not supported yet
    1728. 

  1728.   695      END ReadShowAndCntrl;
    1729. 

  1729. *****          ^ not supported yet
    1730. 

  1730.   696  
    1731. 

  1731.   697  
    1732. 

  1732.   698    PROCEDURE RdShwAndCntrlConst( TheFile: ScrnTypes.DisplayFile;
    1733. 

  1733. *****                                                     ^ not supported yet
    1734. 

  1734.   699        TheFrame: ScrnTypes.DisplayFrame; FrameName : ARRAY OF CHAR );
    1735. 

  1735. *****                            ^ not supported yet
    1736. 

  1736. *****                                                               ^ not supported yet
    1737. 

  1737.   700      VAR
    1738. 

  1738.   701        TmpName: ScrnTypes.AFrameName;
    1739. 

  1739. *****                           ^ not supported yet
    1740. 

  1740.   702      BEGIN
    1741. 

  1741.   703        M2Strings.Assign( FrameName, TmpName );
    1742. 

  1742. *****        ^ not supported yet
    1743. 

  1743. *****                  ^ not supported yet
    1744. 

  1744. *****                          ^ not supported yet
    1745. 

  1745. *****                                     ^ not supported yet
    1746. 

  1746.   704        ReadShowAndCntrl( TheFile, TheFrame, TmpName );
    1747. 

  1747. *****        ^ not supported yet
    1748. 

  1748. *****                          ^ not supported yet
    1749. 

  1749. *****                                   ^ not supported yet
    1750. 

  1750. *****                                             ^ not supported yet
    1751. 

  1751.   705      END RdShwAndCntrlConst;
    1752. 

  1752. *****          ^ not supported yet
    1753. 

  1753.   706  
    1754. 

  1754.   707  
    1755. 

  1755.   708    PROCEDURE Input( TheFrame: ScrnTypes.DisplayFrame; VAR
    1756. 

  1756. *****                                         ^ not supported yet
    1757. 

  1757.   709        FrameName : ScrnTypes.AFrameName );
    1758. 

  1758. *****                              ^ not supported yet
    1759. 

  1759.   710      BEGIN
    1760. 

  1760.   711        DspFiles.ReadFrame( TheFrame^.FromFile, TheFrame,
    1761. 

  1761. *****        ^ not supported yet
    1762. 

  1762. *****                 ^ not supported yet
    1763. 

  1763. *****                            ^ not supported yet
    1764. 

  1764. *****                                      ^ not supported yet
    1765. 

  1765. *****                                                ^ not supported yet
    1766. 

  1766.   712            FrameName );
    1767. 

  1767. *****            ^ not supported yet
    1768. 

  1768.   713        FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0 );
    1769. 

  1769. *****        ^ not supported yet
    1770. 

  1770. *****                     ^ not supported yet
    1771. 

  1771. *****                                       ^ not supported yet
    1772. 

  1772. *****                                                            ^ not supported yet
    1773. 

  1773.   714        InputManager.ControlFrame( TheFrame, 1, '', FALSE, FrameName );
    1774. 

  1774. *****        ^ not supported yet
    1775. 

  1775. *****                     ^ not supported yet
    1776. 

  1776. *****                                   ^ not supported yet
    1777. 

  1777. *****                                                           ^ not supported yet
    1778. 

  1778.   715      END Input;
    1779. 

  1779. *****          ^ not supported yet
    1780. 

  1780.   716  
    1781. 

  1781.   717  
    1782. 

  1782.   718    PROCEDURE InputConst( TheFrame: ScrnTypes.DisplayFrame;
    1783. 

  1783. *****                                              ^ not supported yet
    1784. 

  1784.   719        FrameName : ARRAY OF CHAR );
    1785. 

  1785. *****                             ^ not supported yet
    1786. 

  1786.   720      VAR
    1787. 

  1787.   721        TmpName: ScrnTypes.AFrameName;
    1788. 

  1788. *****                           ^ not supported yet
    1789. 

  1789.   722      BEGIN
    1790. 

  1790.   723        M2Strings.Assign( FrameName, TmpName );
    1791. 

  1791. *****        ^ not supported yet
    1792. 

  1792. *****                  ^ not supported yet
    1793. 

  1793. *****                          ^ not supported yet
    1794. 

  1794. *****                                     ^ not supported yet
    1795. 

  1795.   724        DspFiles.ReadFrame( TheFrame^.FromFile, TheFrame,
    1796. 

  1796. *****        ^ not supported yet
    1797. 

  1797. *****                 ^ not supported yet
    1798. 

  1798. *****                            ^ not supported yet
    1799. 

  1799. *****                                      ^ not supported yet
    1800. 

  1800. *****                                                ^ not supported yet
    1801. 

  1801.   725            TmpName );
    1802. 

  1802. *****            ^ not supported yet
    1803. 

  1803.   726        FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0 );
    1804. 

  1804. *****        ^ not supported yet
    1805. 

  1805. *****                     ^ not supported yet
    1806. 

  1806. *****                                       ^ not supported yet
    1807. 

  1807. *****                                                            ^ not supported yet
    1808. 

  1808.   727        InputManager.ControlFrame( TheFrame, 0, '', FALSE, TmpName );
    1809. 

  1809. *****        ^ not supported yet
    1810. 

  1810. *****                     ^ not supported yet
    1811. 

  1811. *****                                   ^ not supported yet
    1812. 

  1812. *****                                                           ^ not supported yet
    1813. 

  1813.   728      END InputConst;
    1814. 

  1814. *****          ^ not supported yet
    1815. 

  1815.   729  
    1816. 

  1816.   730  
    1817. 

  1817.   731    PROCEDURE ReadInput(VAR TheFrame : ScrnTypes.DisplayFrame; VAR TheStr :
    1818. 

  1818. *****                                                 ^ not supported yet
    1819. 

  1819.   732          ARRAY OF CHAR; FieldName : ARRAY OF CHAR);
    1820. 

  1820. *****                   ^ not supported yet
    1821. 

  1821. *****                                              ^ not supported yet
    1822. 

  1822.   733      VAR
    1823. 

  1823.   734        FieldPtr : ScrnTypes.InputFieldPtr;
    1824. 

  1824. *****                             ^ not supported yet
    1825. 

  1825.   735        ImageRec: ScrnTypes.ImageElement;
    1826. 

  1826. *****                            ^ not supported yet
    1827. 

  1827.   736      BEGIN
    1828. 

  1828.   737        IF NOT ScrnUtl1.FindField( TheFrame, FieldName, FieldPtr, ImageRec ) THEN
    1829. 

  1829. *****               ^ not supported yet
    1830. 

  1830. *****                        ^ not supported yet
    1831. 

  1831. *****                                   ^ not supported yet
    1832. 

  1832. *****                                             ^ not supported yet
    1833. 

  1833. *****                                                        ^ not supported yet
    1834. 

  1834. *****                                                                  ^ not supported yet
    1835. 

  1835.   738          NotFieldWarning( FieldName, TheFrame^.ThisFrame );
    1836. 

  1836. *****          ^ not supported yet
    1837. 

  1837. *****                           ^ not supported yet
    1838. 

  1838. *****                                      ^ not supported yet
    1839. 

  1839. *****                                                ^ not supported yet
    1840. 

  1840.   739        END;
    1841. 

  1841.   740        M2Strings.Assign(ImageRec.text, TheStr);
    1842. 

  1842. *****        ^ not supported yet
    1843. 

  1843. *****                  ^ not supported yet
    1844. 

  1844. *****                         ^ not supported yet
    1845. 

  1845. *****                                  ^ not supported yet
    1846. 

  1846. *****                                        ^ not supported yet
    1847. 

  1847.   741      END ReadInput;
    1848. 

  1848. *****          ^ not supported yet
    1849. 

  1849.   742  
    1850. 

  1850.   743  
    1851. 

  1851.   744    PROCEDURE ReadNextField(VAR TheFrame : ScrnTypes.DisplayFrame;
    1852. 

  1852. *****                                                     ^ not supported yet
    1853. 

  1853.   745        VAR TheStr : ARRAY OF CHAR; skip : CARDINAL);
    1854. 

  1854. *****                              ^ not supported yet
    1855. 

  1855.   746    (* will skip first field if it is input field *)
    1856. 

  1856.   747      VAR
    1857. 

  1857.   748        i : CARDINAL;
    1858. 

  1858.   749        ImagePtr: ScrnTypes.ImageElmtPtr;
    1859. 

  1859. *****                            ^ not supported yet
    1860. 

  1860.   750      BEGIN
    1861. 

  1861.   751        IF (skip + TheFrame^.CurrentField) >
    1862. 

  1862. *****                   ^ not supported yet
    1863. 

  1863. *****                             ^ not supported yet
    1864. 

  1864.   752            GenLists.ListLength(TheFrame^.FieldList) THEN
    1865. 

  1865. *****            ^ not supported yet
    1866. 

  1866. *****                     ^ not supported yet
    1867. 

  1867. *****                                ^ not supported yet
    1868. 

  1868. *****                                          ^ not supported yet
    1869. 

  1869.   753          ErrorNames.WarningName('EndFld');
    1870. 

  1870. *****          ^ not supported yet
    1871. 

  1871. *****                     ^ not supported yet
    1872. 

  1872. *****                                 ^ not supported yet
    1873. 

  1873.   754        END;
    1874. 

  1874.   755        FOR i := 0 TO skip DO
    1875. 

  1875.   756          INC( TheFrame^.CurrentField );
    1876. 

  1876. *****          ^ undeclared identifier
    1877. 

  1877. *****               ^ not supported yet
    1878. 

  1878. *****                         ^ not supported yet
    1879. 

  1879.   757        END;
    1880. 

  1880.   758      END ReadNextField;
    1881. 

  1881. *****          ^ not supported yet
    1882. 

  1882.   759  
    1883. 

  1883.   760  
    1884. 

  1884.   761    PROCEDURE ReadNextInput(VAR TheFrame : ScrnTypes.DisplayFrame;
    1885. 

  1885. *****                                                     ^ not supported yet
    1886. 

  1886.   762        VAR TheStr : ARRAY OF CHAR; skip : CARDINAL);
    1887. 

  1887. *****                              ^ not supported yet
    1888. 

  1888.   763    (* will skip first field if it is input field *)
    1889. 

  1889.   764      VAR
    1890. 

  1890.   765        MaxField, i : CARDINAL;
    1891. 

  1891.   766        ImagePtr: ScrnTypes.ImageElmtPtr;
    1892. 

  1892. *****                            ^ not supported yet
    1893. 

  1893.   767      BEGIN
    1894. 

  1894.   768  (*
    1895. 

  1895.   769  This version of ReadNextInput added at suggestion of Douglas Wrege
    1896. 

  1896.   770  on 27 Dec 89 to make ReadNextInput skip Display fields, as it did
    1897. 

  1897.   771  in release 1.4.  ReadNextField, above, reads every field, display
    1898. 

  1898.   772  or not.
    1899. 

  1899.   773  *)
    1900. 

  1900.   774        MaxField := GenLists.ListLength( TheFrame^.FieldList );
    1901. 

  1901. *****                    ^ not supported yet
    1902. 

  1902. *****                             ^ not supported yet
    1903. 

  1903. *****                                         ^ not supported yet
    1904. 

  1904. *****                                                   ^ not supported yet
    1905. 

  1905.   775        FOR i := 0 TO skip DO
    1906. 

  1906.   776          IF TheFrame^.CurrentField < MaxField THEN
    1907. 

  1907. *****             ^ not supported yet
    1908. 

  1908. *****                       ^ not supported yet
    1909. 

  1909.   777        INC( TheFrame^.CurrentField );
    1910. 

  1910. *****        ^ undeclared identifier
    1911. 

  1911. *****             ^ not supported yet
    1912. 

  1912. *****                       ^ not supported yet
    1913. 

  1913.   778      ELSE
    1914. 

  1914.   779        ErrorNames.WarningName( 'EndFld' );
    1915. 

  1915. *****        ^ not supported yet
    1916. 

  1916. *****                   ^ not supported yet
    1917. 

  1917. *****                                ^ not supported yet
    1918. 

  1918.   780      END;
    1919. 

  1919.   781      WHILE (TheFrame^.CurrentField < MaxField) AND
    1920. 

  1920. *****             ^ not supported yet
    1921. 

  1921. *****                       ^ not supported yet
    1922. 

  1922.   782          (ScrnUtl1.FieldType(TheFrame,TheFrame^.CurrentField)
    1923. 

  1923. *****           ^ not supported yet
    1924. 

  1924. *****                    ^ not supported yet
    1925. 

  1925. *****                              ^ not supported yet
    1926. 

  1926. *****                                       ^ not supported yet
    1927. 

  1927. *****                                                 ^ not supported yet
    1928. 

  1928.   783          = ScrnTypes.DispCode) DO
    1929. 

  1929. *****            ^ not supported yet
    1930. 

  1930. *****                      ^ not supported yet
    1931. 

  1931.   784            INC( TheFrame^.CurrentField );
    1932. 

  1932. *****            ^ undeclared identifier
    1933. 

  1933. *****                 ^ not supported yet
    1934. 

  1934. *****                           ^ not supported yet
    1935. 

  1935.   785      END;
    1936. 

  1936.   786        END;
    1937. 

  1937.   787  
    1938. 

  1938.   788        ScrnUtl1.GetFieldImagePtr( TheFrame, TheFrame^.CurrentField, ImagePtr );
    1939. 

  1939. *****        ^ not supported yet
    1940. 

  1940. *****                 ^ not supported yet
    1941. 

  1941. *****                                   ^ not supported yet
    1942. 

  1942. *****                                             ^ not supported yet
    1943. 

  1943. *****                                                       ^ not supported yet
    1944. 

  1944. *****                                                                     ^ not supported yet
    1945. 

  1945.   789        M2Strings.Assign( ImagePtr^.text, TheStr );
    1946. 

  1946. *****        ^ not supported yet
    1947. 

  1947. *****                  ^ not supported yet
    1948. 

  1948. *****                          ^ not supported yet
    1949. 

  1949. *****                                    ^ not supported yet
    1950. 

  1950. *****                                          ^ not supported yet
    1951. 

  1951.   790      END ReadNextInput;
    1952. 

  1952. *****          ^ not supported yet
    1953. 

  1953.   791  
    1954. 

  1954.   792  BEGIN
    1955. 

  1955.   793    Initialized := FALSE;
    1956. 

  1956.   794    Init();
    1957. 

  1957. *****    ^ not supported yet
    1958. 

  1958. *****         ^ not supported yet
    1959. 

  1959.   795  END ControlUtils.
    1960. 

  1960. *****      ^ not supported yet
    1961. 

  1961. 

  1962.  1163 errors
    1963. 

  1963. 

  1964.