Halaman utama Jelajahi Bantuan
Masuk
eric
/
Topspeed_JPI
1
0
Fork 0
Berkas Masalah 0 Permintaan Tarik 0 Wiki
Cabang: master
Ranting Tag
Topspeed_JPI
/
TS-V3
/
REP16
/
INPUTMAN.LST

INPUTMAN.LST 158 KB
Permalink Riwayat Mentahan

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343134413451346134713481349135013511352135313541355135613571358135913601361136213631364136513661367136813691370137113721373137413751376137713781379138013811382138313841385138613871388138913901391139213931394139513961397139813991400140114021403140414051406140714081409141014111412141314141415141614171418141914201421142214231424142514261427142814291430143114321433143414351436143714381439144014411442144314441445144614471448144914501451145214531454145514561457145814591460146114621463146414651466146714681469147014711472147314741475147614771478147914801481148214831484148514861487148814891490149114921493149414951496149714981499150015011502150315041505150615071508150915101511151215131514151515161517151815191520152115221523152415251526152715281529153015311532153315341535153615371538153915401541154215431544154515461547154815491550155115521553155415551556155715581559156015611562156315641565156615671568156915701571157215731574157515761577157815791580158115821583158415851586158715881589159015911592159315941595159615971598159916001601160216031604160516061607160816091610161116121613161416151616161716181619162016211622162316241625162616271628162916301631163216331634163516361637163816391640164116421643164416451646164716481649165016511652165316541655165616571658165916601661166216631664166516661667166816691670167116721673167416751676167716781679168016811682168316841685168616871688168916901691169216931694169516961697169816991700170117021703170417051706170717081709171017111712171317141715171617171718171917201721172217231724172517261727172817291730173117321733173417351736173717381739174017411742174317441745174617471748174917501751175217531754175517561757175817591760176117621763176417651766176717681769177017711772177317741775177617771778177917801781178217831784178517861787178817891790179117921793179417951796179717981799180018011802180318041805180618071808180918101811181218131814181518161817181818191820182118221823182418251826182718281829183018311832183318341835183618371838183918401841184218431844184518461847184818491850185118521853185418551856185718581859186018611862186318641865186618671868186918701871187218731874187518761877187818791880188118821883188418851886188718881889189018911892189318941895189618971898189919001901190219031904190519061907190819091910191119121913191419151916191719181919192019211922192319241925192619271928192919301931193219331934193519361937193819391940194119421943194419451946194719481949195019511952195319541955195619571958195919601961196219631964196519661967196819691970197119721973197419751976197719781979198019811982198319841985198619871988198919901991199219931994199519961997199819992000200120022003200420052006200720082009201020112012201320142015201620172018201920202021202220232024202520262027202820292030203120322033203420352036203720382039204020412042204320442045204620472048204920502051205220532054205520562057205820592060206120622063206420652066206720682069207020712072207320742075207620772078207920802081208220832084208520862087208820892090209120922093209420952096209720982099210021012102210321042105210621072108210921102111211221132114211521162117211821192120212121222123212421252126212721282129213021312132213321342135213621372138213921402141214221432144214521462147214821492150215121522153215421552156215721582159216021612162216321642165216621672168216921702171217221732174217521762177217821792180218121822183218421852186218721882189219021912192219321942195219621972198219922002201220222032204220522062207220822092210221122122213221422152216221722182219222022212222222322242225222622272228222922302231223222332234223522362237223822392240224122422243224422452246224722482249225022512252225322542255225622572258225922602261226222632264226522662267226822692270227122722273227422752276227722782279228022812282228322842285228622872288228922902291229222932294229522962297229822992300230123022303230423052306230723082309231023112312231323142315231623172318231923202321232223232324232523262327232823292330233123322333233423352336233723382339234023412342234323442345234623472348234923502351235223532354235523562357235823592360236123622363236423652366236723682369237023712372237323742375237623772378237923802381238223832384238523862387238823892390239123922393239423952396239723982399240024012402240324042405240624072408240924102411241224132414241524162417241824192420242124222423242424252426242724282429243024312432243324342435243624372438243924402441244224432444244524462447244824492450245124522453245424552456245724582459246024612462246324642465246624672468246924702471247224732474247524762477247824792480248124822483248424852486248724882489249024912492249324942495249624972498249925002501250225032504250525062507250825092510251125122513251425152516251725182519252025212522252325242525252625272528252925302531253225332534253525362537253825392540254125422543254425452546254725482549255025512552255325542555255625572558255925602561256225632564256525662567256825692570257125722573257425752576257725782579258025812582258325842585258625872588258925902591259225932594259525962597259825992600260126022603260426052606260726082609261026112612261326142615261626172618261926202621262226232624262526262627262826292630263126322633263426352636263726382639264026412642264326442645264626472648264926502651265226532654265526562657265826592660266126622663266426652666266726682669267026712672267326742675267626772678267926802681268226832684268526862687268826892690269126922693269426952696269726982699270027012702270327042705270627072708270927102711271227132714271527162717271827192720272127222723272427252726272727282729273027312732273327342735273627372738273927402741274227432744274527462747274827492750275127522753275427552756275727582759276027612762276327642765276627672768276927702771277227732774277527762777277827792780278127822783278427852786278727882789279027912792279327942795279627972798279928002801280228032804280528062807280828092810281128122813281428152816281728182819282028212822282328242825282628272828282928302831283228332834283528362837283828392840284128422843284428452846284728482849285028512852285328542855285628572858285928602861286228632864286528662867286828692870287128722873287428752876287728782879288028812882288328842885288628872888288928902891289228932894289528962897289828992900290129022903290429052906290729082909291029112912291329142915291629172918291929202921292229232924292529262927292829292930293129322933293429352936293729382939294029412942294329442945294629472948294929502951295229532954295529562957295829592960296129622963296429652966296729682969297029712972297329742975297629772978297929802981298229832984298529862987298829892990299129922993299429952996299729982999300030013002300330043005300630073008300930103011301230133014301530163017301830193020302130223023302430253026302730283029303030313032303330343035303630373038303930403041304230433044304530463047304830493050305130523053305430553056305730583059306030613062306330643065306630673068306930703071307230733074307530763077307830793080308130823083308430853086308730883089309030913092309330943095309630973098309931003101310231033104310531063107310831093110311131123113311431153116311731183119312031213122312331243125312631273128312931303131313231333134313531363137313831393140314131423143314431453146314731483149315031513152315331543155315631573158315931603161316231633164316531663167316831693170317131723173317431753176317731783179318031813182318331843185318631873188318931903191319231933194319531963197319831993200320132023203320432053206320732083209321032113212321332143215321632173218 
  1. Listing:
    2. 

  2. 

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

  14.    12   *
    15. 

  15.    13   *)
    16. 

  16.    14  
    17. 

  17.    15  
    18. 

  18.    16  
    19. 

  19.    17  IMPORT BigSets;
    20. 

  20.    18  IMPORT ErrorManager;
    21. 

  21.    19  IMPORT ErrorNames;
    22. 

  22.    20  IMPORT FieldTypes;
    23. 

  23.    21  IMPORT FrameManager;
    24. 

  24.    22  IMPORT FramePainter;
    25. 

  25.    23  IMPORT GenLists;
    26. 

  26.    24  IMPORT KbdInput;
    27. 

  27.    25  IMPORT Key;
    28. 

  28.    26  IMPORT ListUtils;
    29. 

  29.    27  IMPORT M2Strings;
    30. 

  30.    28  IMPORT MsgBox2;
    31. 

  31.    29  IMPORT Numbers;
    32. 

  32.    30  IMPORT PosUtils;
    33. 

  33.    31  IMPORT Rectangles;
    34. 

  34.    32  IMPORT ScrnTypes;
    35. 

  35.    33  IMPORT ScrnUtl1;
    36. 

  36.    34  IMPORT StrConv;
    37. 

  37.    35  IMPORT StrEdit;
    38. 

  38.    36  IMPORT SYSTEM;
    39. 

  39.    37  IMPORT UserOps;
    40. 

  40.    38  IMPORT VWindows;
    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        BigSets.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        FieldTypes.Init();
    65. 

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

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

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

  68.    54        FrameManager.Init();
    69. 

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

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

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

  72.    55        FramePainter.Init();
    73. 

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

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

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

  76.    56        GenLists.Init();
    77. 

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

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

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

  80.    57        KbdInput.Init();
    81. 

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

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

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

  84.    58        Key.Init();
    85. 

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

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

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

  88.    59        ListUtils.Init();
    89. 

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

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

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

  92.    60        M2Strings.Init();
    93. 

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

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

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

  96.    61        MsgBox2.Init();
    97. 

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

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

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

  100.    62        Numbers.Init();
    101. 

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

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

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

  104.    63        PosUtils.Init();
    105. 

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

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

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

  108.    64        Rectangles.Init();
    109. 

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

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

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

  112.    65        ScrnTypes.Init();
    113. 

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

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

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

  116.    66        ScrnUtl1.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        UserOps.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  CONST
    140. 

  140.    74    RequiredMessage = "This field must be filled in. Press Return to continue.";
    141. 

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

  142.    75  
    143. 

  143.    76      PROCEDURE GetScrollableArea(TheFrame : ScrnTypes.DisplayFrame;
    144. 

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

  145.    77          VAR ScrollRect : Rectangles.ARectangle);
    146. 

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

  147.    78      (*
    148. 

  148.    79          Returns a rectangle with the absolute field coordinates of
    149. 

  149.    80          the scrollable area in the frame
    150. 

  150.    81      *)
    151. 

  151.    82      BEGIN
    152. 

  152.    83        ScrnUtl1.GetVisibleArea(TheFrame, ScrollRect);
    153. 

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

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

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

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

  157.    84          (* Gets physical screen coordinates of visible part of frame. *)
    158. 

  158.    85        IF TheFrame^.headline > 0 THEN
    159. 

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

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

  161.    86          IF NOT ScrnUtl1.BoxInFrame(TheFrame) THEN
    162. 

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

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

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

  165.    87            INC(ScrollRect.row1, TheFrame^.headline)
    166. 

  166. *****            ^ undeclared identifier
    167. 

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

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

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

  170. *****                                           ^ not supported yet
    171. 

  171.    88          ELSE
    172. 

  172.    89            INC(ScrollRect.row1, TheFrame^.headline-1)
    173. 

  173. *****            ^ undeclared identifier
    174. 

  174. *****                ^ not supported yet
    175. 

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

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

  177. *****                                           ^ not supported yet
    178. 

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

  179.    90          END;
    180. 

  180.    91        END;
    181. 

  181.    92      END GetScrollableArea;
    182. 

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

  183.    93  
    184. 

  184.    94  
    185. 

  185.    95    PROCEDURE ClosestField( TheFrame: ScrnTypes.DisplayFrame;
    186. 

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

  187.    96        TheField, col, row: CARDINAL; direction: VWindows.Compass ): CARDINAL;
    188. 

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

  189.    97  
    190. 

  190.    98      (*Returns the number of the field closest to TheField in the
    191. 

  191.    99        direction specified.  If you pass 0 to col and row, it
    192. 

  192.   100        figures out where TheField is automatically.  If you pass 0
    193. 

  193.   101        to TheField, it assumes the cursor is presently outside of
    194. 

  194.   102        a field, and that col and row indicate where it is.*)
    195. 

  195.   103  
    196. 

  196.   104      VAR
    197. 

  197.   105        dist, FieldCount, BestGuess, BestDistance,
    198. 

  198.   106            ListStart, ListEnd, StartField, OldField: CARDINAL;
    199. 

  199.   107        p1, p2, BestPoint: Rectangles.APoint;
    200. 

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

  201.   108  
    202. 

  202.   109      PROCEDURE Candidate( TheFrame: ScrnTypes.DisplayFrame;
    203. 

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

  204.   110          TheField: CARDINAL; VAR Cursor, FieldSpot:
    205. 

  205.   111          Rectangles.APoint; direction: VWindows.Compass; VAR dist:
    206. 

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

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

  208.   112          CARDINAL ): BOOLEAN;
    209. 

  209.   113        VAR
    210. 

  210.   114          tmpcol, tmprow: CARDINAL;
    211. 

  211.   115        BEGIN
    212. 

  212.   116          tmpcol := ScrnUtl1.VirtualFieldCol( TheFrame, TheField );
    213. 

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

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

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

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

  217.   117          tmprow := ScrnUtl1.VirtualFieldRow( TheFrame, TheField );
    218. 

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

  219. *****                             ^ not supported yet
    220. 

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

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

  222.   118          FieldSpot.col := INTEGER(tmpcol);
    223. 

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

  224. *****                    ^ not supported yet
    225. 

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

  226.   119          FieldSpot.row := INTEGER(tmprow);
    227. 

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

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

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

  230.   120  
    231. 

  231.   121          CASE direction OF
    232. 

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

  233.   122            VWindows.North, VWindows.NE, VWindows.NW:
    234. 

  234. *****            ^ not supported yet
    235. 

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

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

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

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

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

  240.   123              IF (tmprow >= CARDINAL(Cursor.row)) THEN
    241. 

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

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

  243.   124                RETURN FALSE;
    244. 

  244.   125              END
    245. 

  245.   126          ELSE
    246. 

  246.   127          END;
    247. 

  247.   128          CASE direction OF
    248. 

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

  249.   129            VWindows.South, VWindows.SE, VWindows.SW:
    250. 

  250. *****            ^ not supported yet
    251. 

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

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

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

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

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

  256.   130              IF (tmprow <= CARDINAL(Cursor.row)) THEN
    257. 

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

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

  259.   131                RETURN FALSE;
    260. 

  260.   132              END;
    261. 

  261.   133          ELSE
    262. 

  262.   134          END;
    263. 

  263.   135          CASE direction OF
    264. 

  264. *****               ^ not supported yet
    265. 

  265.   136            VWindows.East, VWindows.SE, VWindows.NE:
    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. *****                                                 ^ not supported yet
    272. 

  272.   137              IF (tmpcol <= CARDINAL(Cursor.col)) THEN
    273. 

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

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

  275.   138                RETURN FALSE;
    276. 

  276.   139              END
    277. 

  277.   140          ELSE
    278. 

  278.   141          END;
    279. 

  279.   142          CASE direction OF
    280. 

  280. *****               ^ not supported yet
    281. 

  281.   143            VWindows.West, VWindows.NW, VWindows.SW:
    282. 

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

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

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

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

  286. *****                                        ^ not supported yet
    287. 

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

  288.   144              IF (tmpcol >= CARDINAL(Cursor.col)) THEN
    289. 

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

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

  291.   145                RETURN FALSE;
    292. 

  292.   146              END;
    293. 

  293.   147          ELSE
    294. 

  294.   148          END;
    295. 

  295.   149          dist := Rectangles.Distance( Cursor, p2 );
    296. 

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

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

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

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

  300.   150          RETURN TRUE;
    301. 

  301.   151        END Candidate;
    302. 

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

  303.   152  
    304. 

  304.   153      BEGIN (*ClosestField*)
    305. 

  305.   154        OldField := TheFrame^.CurrentField;
    306. 

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

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

  308.   155        IF TheField # 0 THEN
    309. 

  309.   156          col := ScrnUtl1.VirtualFieldCol( TheFrame, TheField );
    310. 

  310. *****                 ^ not supported yet
    311. 

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

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

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

  314.   157          row := ScrnUtl1.VirtualFieldRow( TheFrame, TheField );
    315. 

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

  316. *****                          ^ not supported yet
    317. 

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

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

  319.   158        ELSE
    320. 

  320.   159          TheFrame^.CurrentField := 0;
    321. 

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

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

  323.   160        END;
    324. 

  324.   161        p1.col := INTEGER(col);
    325. 

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

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

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

  328.   162        p1.row := INTEGER(row);
    329. 

  329. *****        ^ not supported yet
    330. 

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

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

  332.   163        BestGuess := 0;
    333. 

  333.   164        BestDistance := 65535;
    334. 

  334.   165  
    335. 

  335.   166        CASE direction OF
    336. 

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

  337.   167          VWindows.East, VWindows.SW, VWindows.South, VWindows.SE:
    338. 

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

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

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

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

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

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

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

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

  346.   168            ListEnd := LastInputField(TheFrame);
    347. 

  347. *****                       ^ undeclared identifier
    348. 

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

  349.   169            FieldCount := NextInputField( TheFrame, 0 );
    350. 

  350. *****                          ^ undeclared identifier
    351. 

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

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

  353.   170            BestPoint.col := 32767;
    354. 

  354. *****            ^ not supported yet
    355. 

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

  356.   171            BestPoint.row := 32767;
    357. 

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

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

  359.   172            LOOP
    360. 

  360.   173              IF TheFrame^.CurrentField = ListEnd THEN
    361. 

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

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

  363.   174                EXIT
    364. 

  364.   175              END;
    365. 

  365.   176              IF Candidate( TheFrame, FieldCount, p1, p2, direction, dist ) THEN
    366. 

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

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

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

  369. *****                                                      ^ not supported yet
    370. 

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

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

  372.   177                IF (dist < BestDistance) THEN
    373. 

  373.   178                  BestDistance := dist;
    374. 

  374.   179                  BestPoint := p2;
    375. 

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

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

  377.   180                  BestGuess := FieldCount;
    378. 

  378.   181                END;
    379. 

  379.   182                IF (direction = VWindows.South)
    380. 

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

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

  382. *****                                         ^ not supported yet
    383. 

  383.   183                    AND (p2.row > BestPoint.row) THEN
    384. 

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

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

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

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

  388.   184                  EXIT
    389. 

  389.   185                ELSIF (direction = VWindows.East) AND ((p2.col >
    390. 

  390. *****                       ^ not supported yet
    391. 

  391. *****                                   ^ not supported yet
    392. 

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

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

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

  395.   186                    BestPoint.col) OR (p2.row > BestPoint.row)) THEN
    396. 

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

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

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

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

  400. *****                                                ^ not supported yet
    401. 

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

  402.   187                  EXIT
    403. 

  403.   188                END;
    404. 

  404.   189              END;
    405. 

  405.   190              TheFrame^.CurrentField := FieldCount;
    406. 

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

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

  408.   191              FieldCount := NextInputField( TheFrame, 0 );
    409. 

  409. *****                            ^ undeclared identifier
    410. 

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

  411. *****                                                        ^ not supported yet
    412. 

  412.   192            END;
    413. 

  413.   193        ELSE
    414. 

  414.   194          ListStart := FirstInputField(TheFrame);
    415. 

  415. *****                       ^ undeclared identifier
    416. 

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

  417.   195          FieldCount := PrevInputField( TheFrame, 0 );
    418. 

  418. *****                        ^ undeclared identifier
    419. 

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

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

  421.   196          BestPoint.col := 0;
    422. 

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

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

  424.   197          BestPoint.row := 0;
    425. 

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

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

  427.   198          LOOP
    428. 

  428.   199            IF TheFrame^.CurrentField = ListStart THEN
    429. 

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

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

  431.   200              EXIT
    432. 

  432.   201            END;
    433. 

  433.   202            IF Candidate( TheFrame, FieldCount, p1, p2, direction, dist ) THEN
    434. 

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

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

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

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

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

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

  440.   203              IF (dist < BestDistance) THEN
    441. 

  441.   204                BestDistance := dist;
    442. 

  442.   205                BestPoint := p2;
    443. 

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

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

  445.   206                BestGuess := FieldCount;
    446. 

  446.   207              END;
    447. 

  447.   208              IF (direction = VWindows.North)
    448. 

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

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

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

  451.   209                  AND (p2.row < BestPoint.row) THEN
    452. 

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

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

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

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

  456.   210                EXIT
    457. 

  457.   211              ELSIF (direction = VWindows.West) AND ((p2.col <
    458. 

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

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

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

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

  462. *****                                                         ^ not supported yet
    463. 

  463.   212                  BestPoint.col) OR (p2.row < BestPoint.row)) THEN
    464. 

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

  465. *****                            ^ not supported yet
    466. 

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

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

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

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

  470.   213                EXIT
    471. 

  471.   214              END;
    472. 

  472.   215            END;
    473. 

  473.   216            TheFrame^.CurrentField := FieldCount;
    474. 

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

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

  476.   217            FieldCount := PrevInputField( TheFrame, 0 );
    477. 

  477. *****                          ^ undeclared identifier
    478. 

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

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

  480.   218          END;
    481. 

  481.   219        END;
    482. 

  482.   220  
    483. 

  483.   221        TheFrame^.CurrentField := OldField;
    484. 

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

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

  486.   222          (* Preserve current field *)
    487. 

  487.   223        IF BestGuess # 0 THEN
    488. 

  488.   224          RETURN BestGuess;
    489. 

  489.   225        ELSE
    490. 

  490.   226          RETURN TheField;
    491. 

  491.   227        END;
    492. 

  492.   228      END ClosestField;
    493. 

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

  494.   229  
    495. 

  495.   230  
    496. 

  496.   231  
    497. 

  497.   232    PROCEDURE InSameRow( TheFrame: ScrnTypes.DisplayFrame; Field1, Field2:
    498. 

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

  499.   233        CARDINAL ): BOOLEAN;
    500. 

  500.   234      BEGIN
    501. 

  501.   235        RETURN (ScrnUtl1.VirtualFieldRow(TheFrame, Field1) =
    502. 

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

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

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

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

  506.   236            ScrnUtl1.VirtualFieldRow(TheFrame, Field2) );
    507. 

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

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

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

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

  511.   237      END InSameRow;
    512. 

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

  513.   238  
    514. 

  514.   239  
    515. 

  515.   240    PROCEDURE InSameCol( TheFrame: ScrnTypes.DisplayFrame; Field1, Field2:
    516. 

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

  517.   241        CARDINAL ): BOOLEAN;
    518. 

  518.   242      BEGIN
    519. 

  519.   243        RETURN (ScrnUtl1.VirtualFieldCol(TheFrame, Field1) =
    520. 

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

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

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

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

  524.   244            ScrnUtl1.VirtualFieldCol(TheFrame, Field2) );
    525. 

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

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

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

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

  529.   245      END InSameCol;
    530. 

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

  531.   246  
    532. 

  532.   247  
    533. 

  533.   248  (*Probably ought to move following two procedures to MakeFrame and
    534. 

  534.   249    add Horizontal boolean to FieldRecType.*)
    535. 

  535.   250  
    536. 

  536.   251    PROCEDURE InHorizGroup( TheFrame: ScrnTypes.DisplayFrame; TheField:
    537. 

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

  538.   252        CARDINAL ): BOOLEAN;
    539. 

  539.   253      BEGIN
    540. 

  540.   254        IF ScrnUtl1.FieldType( TheFrame, TheField ) # ScrnTypes.GroupMember THEN
    541. 

  541. *****           ^ not supported yet
    542. 

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

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

  544. *****                                                  ^ not supported yet
    545. 

  545. *****                                                      ^ not supported yet
    546. 

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

  547.   255          RETURN FALSE;
    548. 

  548.   256        END;
    549. 

  549.   257        IF ScrnUtl1.ChoiceNumber( TheFrame, TheField ) <
    550. 

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

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

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

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

  554.   258            ScrnUtl1.NumberOfChoices( TheFrame, TheField ) THEN
    555. 

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

  556. *****                     ^ not supported yet
    557. 

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

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

  559.   259          IF (NOT InSameRow( TheFrame, TheField, TheField + 1 )) THEN
    560. 

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

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

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

  563.   260            RETURN FALSE;
    564. 

  564.   261          END;
    565. 

  565.   262        END;
    566. 

  566.   263        IF ScrnUtl1.ChoiceNumber( TheFrame, TheField ) > 1 THEN
    567. 

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

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

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

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

  571.   264          IF (NOT InSameRow( TheFrame, TheField, TheField - 1 )) THEN
    572. 

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

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

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

  575.   265            RETURN FALSE;
    576. 

  576.   266          END;
    577. 

  577.   267        END;
    578. 

  578.   268        RETURN TRUE;
    579. 

  579.   269      END InHorizGroup;
    580. 

  580. *****          ^ not supported yet
    581. 

  581.   270  
    582. 

  582.   271    PROCEDURE InVerticalGroup( TheFrame: ScrnTypes.DisplayFrame; TheField:
    583. 

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

  584.   272        CARDINAL ): BOOLEAN;
    585. 

  585.   273      BEGIN
    586. 

  586.   274        IF ScrnUtl1.FieldType( TheFrame, TheField ) # ScrnTypes.GroupMember THEN
    587. 

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

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

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

  590. *****                                                  ^ not supported yet
    591. 

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

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

  593.   275          RETURN FALSE;
    594. 

  594.   276        END;
    595. 

  595.   277        IF ScrnUtl1.ChoiceNumber( TheFrame, TheField ) <
    596. 

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

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

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

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

  600.   278            ScrnUtl1.NumberOfChoices( TheFrame, TheField ) THEN
    601. 

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

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

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

  604. *****                                                         ^ not supported yet
    605. 

  605.   279          IF (NOT InSameCol( TheFrame, TheField, TheField + 1 )) THEN
    606. 

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

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

  608. *****                                                              ^ not supported yet
    609. 

  609.   280            RETURN FALSE;
    610. 

  610.   281          END;
    611. 

  611.   282        END;
    612. 

  612.   283        IF ScrnUtl1.ChoiceNumber( TheFrame, TheField ) > 1 THEN
    613. 

  613. *****           ^ not supported yet
    614. 

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

  615. *****                                  ^ not supported yet
    616. 

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

  617.   284          IF (NOT InSameCol( TheFrame, TheField, TheField - 1 )) THEN
    618. 

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

  619. *****                             ^ not supported yet
    620. 

  620. *****                                                              ^ not supported yet
    621. 

  621.   285            RETURN FALSE;
    622. 

  622.   286          END;
    623. 

  623.   287        END;
    624. 

  624.   288        RETURN TRUE;
    625. 

  625.   289      END InVerticalGroup;
    626. 

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

  627.   290  
    628. 

  628.   291  
    629. 

  629.   292    PROCEDURE NextSelection( TheFrame: ScrnTypes.DisplayFrame; TheField:
    630. 

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

  631.   293        CARDINAL ): CARDINAL;
    632. 

  632.   294      VAR
    633. 

  633.   295        TmpPtr: ScrnTypes.InputFieldPtr;
    634. 

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

  635.   296      BEGIN
    636. 

  636.   297        ScrnUtl1.GetFieldPtr( TheFrame, TheField, TmpPtr );
    637. 

  637. *****        ^ not supported yet
    638. 

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

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

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

  641.   298        IF TmpPtr^.GroupID = TmpPtr^.GroupSize THEN
    642. 

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

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

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

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

  646.   299          RETURN ScrnUtl1.FirstMember( TheFrame, TheField );
    647. 

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

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

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

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

  651.   300        ELSE
    652. 

  652.   301          RETURN TheField + 1;
    653. 

  653.   302        END;
    654. 

  654.   303      END NextSelection;
    655. 

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

  656.   304  
    657. 

  657.   305  
    658. 

  658.   306    PROCEDURE PrevSelection( TheFrame: ScrnTypes.DisplayFrame; TheField:
    659. 

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

  660.   307        CARDINAL ): CARDINAL;
    661. 

  661.   308      VAR
    662. 

  662.   309        TmpPtr: ScrnTypes.InputFieldPtr;
    663. 

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

  664.   310      BEGIN
    665. 

  665.   311        ScrnUtl1.GetFieldPtr( TheFrame, TheField, TmpPtr );
    666. 

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

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

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

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

  670.   312        IF TmpPtr^.GroupID = 1 THEN
    671. 

  671. *****           ^ not supported yet
    672. 

  672. *****                   ^ not supported yet
    673. 

  673.   313          RETURN ScrnUtl1.FirstMember( TheFrame, TheField )
    674. 

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

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

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

  677. *****                                                          ^ not supported yet
    678. 

  678.   314              + TmpPtr^.GroupSize - 1;
    679. 

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

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

  681.   315        ELSE
    682. 

  682.   316          RETURN TheField - 1;
    683. 

  683.   317        END;
    684. 

  684.   318      END PrevSelection;
    685. 

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

  686.   319  
    687. 

  687.   320    PROCEDURE SelectionKeyMatch( TheFrame: ScrnTypes.DisplayFrame; KeyHit:
    688. 

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

  689.   321        CARDINAL; VAR SelectedFieldNum: CARDINAL ): BOOLEAN;
    690. 

  690.   322      VAR
    691. 

  691.   323        found: BOOLEAN;
    692. 

  692.   324        ListEnd, cnt: CARDINAL;
    693. 

  693.   325        FieldPtr: ScrnTypes.InputFieldPtr;
    694. 

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

  695.   326      BEGIN
    696. 

  696.   327        IF KeyHit = 0 THEN
    697. 

  697.   328          (*Jonathan March's 21 Jun 88 fix.*)
    698. 

  698.   329          RETURN FALSE;
    699. 

  699.   330        END;
    700. 

  700.   331        cnt := 0;
    701. 

  701.   332        found := FALSE;
    702. 

  702.   333        ListEnd := GenLists.ListLength( TheFrame^.FieldList );
    703. 

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

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

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

  706. *****                                                  ^ not supported yet
    707. 

  707.   334        WHILE (NOT found) AND (cnt < ListEnd) DO
    708. 

  708.   335          INC( cnt );
    709. 

  709. *****          ^ undeclared identifier
    710. 

  710. *****                   ^ not supported yet
    711. 

  711.   336          ScrnUtl1.GetFieldPtr( TheFrame, cnt, FieldPtr );
    712. 

  712. *****          ^ not supported yet
    713. 

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

  714. *****                                ^ not supported yet
    715. 

  715. *****                                               ^ not supported yet
    716. 

  716.   337          IF FieldPtr^.typ = ScrnTypes.GotoCode THEN
    717. 

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

  718. *****                       ^ not supported yet
    719. 

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

  720. *****                                       ^ not supported yet
    721. 

  721.   338            found := KbdInput.CAPkey(KeyHit) = KbdInput.CAPkey(FieldPtr^.MenuKey);
    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. *****                                                                         ^ not supported yet
    729. 

  729.   339          ELSIF FieldPtr^.typ = ScrnTypes.GroupMember THEN
    730. 

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

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

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

  733. *****                                          ^ not supported yet
    734. 

  734.   340            found := KbdInput.CAPkey(KeyHit) = KbdInput.CAPkey(FieldPtr^.ChoiceKey);
    735. 

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

  736. *****                              ^ not supported yet
    737. 

  737. *****                                           ^ not supported yet
    738. 

  738. *****                                               ^ not supported yet
    739. 

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

  740. *****                                                               ^ not supported yet
    741. 

  741. *****                                                                         ^ not supported yet
    742. 

  742.   341          END;
    743. 

  743.   342        END;
    744. 

  744.   343        IF found THEN
    745. 

  745.   344          SelectedFieldNum := cnt;
    746. 

  746.   345        END;
    747. 

  747.   346        RETURN found;
    748. 

  748.   347      END SelectionKeyMatch;
    749. 

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

  750.   348  
    751. 

  751.   349  
    752. 

  752.   350    PROCEDURE InSameGroup( TheFrame: ScrnTypes.DisplayFrame; Field1, Field2:
    753. 

  753. *****                                               ^ not supported yet
    754. 

  754.   351        CARDINAL ): BOOLEAN;
    755. 

  755.   352      BEGIN
    756. 

  756.   353        IF (ScrnUtl1.FieldType(TheFrame, Field1) # ScrnTypes.GroupMember) OR
    757. 

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

  758. *****                     ^ not supported yet
    759. 

  759. *****                               ^ not supported yet
    760. 

  760. *****                                               ^ not supported yet
    761. 

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

  762. *****                                                             ^ not supported yet
    763. 

  763.   354           (ScrnUtl1.FieldType(TheFrame, Field2) # ScrnTypes.GroupMember) THEN
    764. 

  764. *****            ^ not supported yet
    765. 

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

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

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

  768. *****                                                   ^ not supported yet
    769. 

  769. *****                                                             ^ not supported yet
    770. 

  770.   355          RETURN FALSE;
    771. 

  771.   356        END;
    772. 

  772.   357        RETURN ScrnUtl1.FirstMember( TheFrame, Field1 ) =
    773. 

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

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

  775. *****                                     ^ not supported yet
    776. 

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

  777.   358            ScrnUtl1.FirstMember( TheFrame, Field2 );
    778. 

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

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

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

  781. *****                                                   ^ not supported yet
    782. 

  782.   359      END InSameGroup;
    783. 

  783. *****          ^ not supported yet
    784. 

  784.   360  
    785. 

  785.   361  
    786. 

  786.   362    PROCEDURE MoveToSelected( VAR TheFrame: ScrnTypes.DisplayFrame; VAR
    787. 

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

  788.   363        TheField: CARDINAL );
    789. 

  789.   364      (* Pass this routine any field number that's a GroupMember,
    790. 

  790.   365         and it moves TheFrame^.CurrentField to the selected member
    791. 

  791.   366         of the group (and also sets TheField to the field number
    792. 

  792.   367         of that member).  We assume the caller has sense enough
    793. 

  793.   368         not to call this for fields that are not GroupMembers. *)
    794. 

  794.   369      VAR
    795. 

  795.   370        cnt, FieldNum: CARDINAL;
    796. 

  796.   371        TmpPtr: ScrnTypes.InputFieldPtr;
    797. 

  797. *****                          ^ not supported yet
    798. 

  798.   372      BEGIN
    799. 

  799.   373        FieldNum := ScrnUtl1.FirstMember( TheFrame,
    800. 

  800. *****                    ^ not supported yet
    801. 

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

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

  803.   374            TheField );
    804. 

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

  805.   375        TheField := FieldNum;
    806. 

  806.   376          (*Save the number of the first choice in TheField, in
    807. 

  807.   377            case we don't find one that's selected.*)
    808. 

  808.   378        cnt := 1;
    809. 

  809.   379        LOOP
    810. 

  810.   380          ScrnUtl1.GetFieldPtr( TheFrame, FieldNum, TmpPtr );
    811. 

  811. *****          ^ not supported yet
    812. 

  812. *****                   ^ not supported yet
    813. 

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

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

  815.   381          IF (cnt = TmpPtr^.GroupSize) OR (TmpPtr^.selected) THEN
    816. 

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

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

  818. *****                                           ^ not supported yet
    819. 

  819. *****                                                   ^ not supported yet
    820. 

  820.   382            EXIT;
    821. 

  821.   383          END;
    822. 

  822.   384          INC( FieldNum );
    823. 

  823. *****          ^ undeclared identifier
    824. 

  824. *****                        ^ not supported yet
    825. 

  825.   385          INC( cnt );
    826. 

  826. *****          ^ undeclared identifier
    827. 

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

  828.   386        END;
    829. 

  829.   387        IF TmpPtr^.selected THEN
    830. 

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

  831. *****                   ^ not supported yet
    832. 

  832.   388          TheFrame^.CurrentField := FieldNum;
    833. 

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

  834. *****                    ^ not supported yet
    835. 

  835.   389          TheField := FieldNum;
    836. 

  836.   390        ELSE
    837. 

  837.   391          TheFrame^.CurrentField := TheField;
    838. 

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

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

  840.   392          ScrnUtl1.GetFieldPtr( TheFrame, TheField, TmpPtr );
    841. 

  841. *****          ^ not supported yet
    842. 

  842. *****                   ^ not supported yet
    843. 

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

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

  845.   393            (* 28 Dec 88:  added this to guarantee that we're
    846. 

  846.   394               setting the ^.selected field of the first choice
    847. 

  847.   395               field rather than the last one.  Fix contributed by
    848. 

  848.   396               Ulrik Schmidt. *)
    849. 

  849.   397          TmpPtr^.selected := TRUE;
    850. 

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

  851. *****                  ^ not supported yet
    852. 

  852.   398        END;
    853. 

  853.   399      END MoveToSelected;
    854. 

  854. *****          ^ not supported yet
    855. 

  855.   400  
    856. 

  856.   401  
    857. 

  857.   402    PROCEDURE RequiredFilled( FrameRec: ScrnTypes.DisplayFrame; VAR FieldNum:
    858. 

  858. *****                                                  ^ not supported yet
    859. 

  859.   403        CARDINAL ): BOOLEAN;
    860. 

  860.   404      VAR
    861. 

  861.   405        LocalList : GenLists.GenList;
    862. 

  862. *****                             ^ not supported yet
    863. 

  863.   406        TmpPtr: ScrnTypes.InputFieldPtr;
    864. 

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

  865.   407        ImagePtr: ScrnTypes.ImageElmtPtr;
    866. 

  866. *****                            ^ not supported yet
    867. 

  867.   408        ListEnd : CARDINAL;
    868. 

  868.   409      BEGIN
    869. 

  869.   410        ListEnd := ScrnUtl1.FieldListTotal( FrameRec );
    870. 

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

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

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

  873.   411        FieldNum := 1;
    874. 

  874.   412        WHILE FieldNum <= ListEnd DO
    875. 

  875.   413          (* look at each required field, until one is not filled *)
    876. 

  876.   414          ScrnUtl1.GetFieldPtr( FrameRec, FieldNum, TmpPtr );
    877. 

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

  878. *****                   ^ not supported yet
    879. 

  879. *****                                ^ not supported yet
    880. 

  880. *****                                                    ^ not supported yet
    881. 

  881.   415          IF (TmpPtr^.typ = ScrnTypes.EditorCode) AND TmpPtr^.req THEN
    882. 

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

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

  884. *****                            ^ not supported yet
    885. 

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

  886. *****                                                      ^ not supported yet
    887. 

  887. *****                                                              ^ not supported yet
    888. 

  888.   416            (*We've got a required Editor field*)
    889. 

  889.   417            IF ScrnUtl1.ListFromEdField( FrameRec,
    890. 

  890. *****               ^ not supported yet
    891. 

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

  892. *****                                         ^ not supported yet
    893. 

  893.   418                FrameRec^.CurrentField, LocalList ) AND
    894. 

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

  895. *****                          ^ not supported yet
    896. 

  896. *****                                        ^ not supported yet
    897. 

  897.   419                ListUtils.IsBlankList( LocalList ) THEN
    898. 

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

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

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

  901.   420              RETURN FALSE;
    902. 

  902.   421            END;
    903. 

  903.   422          ELSIF TmpPtr^.req THEN
    904. 

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

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

  906.   423            ScrnUtl1.GetFieldImagePtr( FrameRec, FieldNum, ImagePtr );
    907. 

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

  908. *****                     ^ not supported yet
    909. 

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

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

  911.   424            (* if field is required and not filled, flag it and exit *)
    912. 

  912.   425            IF PosUtils.IsBlank( ImagePtr^.text ) THEN
    913. 

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

  914. *****                        ^ not supported yet
    915. 

  915. *****                                 ^ not supported yet
    916. 

  916. *****                                           ^ not supported yet
    917. 

  917.   426              RETURN FALSE;
    918. 

  918.   427            END;
    919. 

  919.   428          END;
    920. 

  920.   429          INC( FieldNum );
    921. 

  921. *****          ^ undeclared identifier
    922. 

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

  923.   430        END;
    924. 

  924.   431        FieldNum := 0;
    925. 

  925.   432        RETURN TRUE;
    926. 

  926.   433      END RequiredFilled;
    927. 

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

  928.   434  
    929. 

  929.   435  
    930. 

  930.   436      PROCEDURE MakeLegalKeys( TheFrame: ScrnTypes.DisplayFrame; VAR
    931. 

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

  932.   437          NewLegalKeys: KbdInput.KeyNumSet );
    933. 

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

  934.   438        (* construct the sets of legal keys for the field types *)
    935. 

  935.   439        VAR
    936. 

  936.   440          tmpkey, ListEnd, cnt: CARDINAL;
    937. 

  937.   441          FieldPtr: ScrnTypes.InputFieldPtr;
    938. 

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

  939.   442        BEGIN
    940. 

  940.   443          BigSets.SetUnion( UserOps.ScreenKeySet,
    941. 

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

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

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

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

  945.   444              UserOps.FunctKeySet, NewLegalKeys );
    946. 

  946. *****              ^ not supported yet
    947. 

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

  948. *****                                   ^ not supported yet
    949. 

  949.   445            (*Add the FunctKeySet to the ScreenKeySet.*)
    950. 

  950.   446          ListEnd := ScrnUtl1.FieldListTotal( TheFrame );
    951. 

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

  952. *****                              ^ not supported yet
    953. 

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

  954.   447          IF ListEnd = 0 THEN
    955. 

  955.   448            RETURN;
    956. 

  956.   449          END;
    957. 

  957.   450          FOR cnt := 1 TO ListEnd DO
    958. 

  958.   451            ScrnUtl1.GetFieldPtr( TheFrame, cnt, FieldPtr );
    959. 

  959. *****            ^ not supported yet
    960. 

  960. *****                     ^ not supported yet
    961. 

  961. *****                                  ^ not supported yet
    962. 

  962. *****                                                 ^ not supported yet
    963. 

  963.   452            CASE FieldPtr^.typ OF
    964. 

  964. *****                 ^ not supported yet
    965. 

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

  966.   453              ScrnTypes.GotoCode, ScrnTypes.GroupMember:
    967. 

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

  968. *****                        ^ not supported yet
    969. 

  969. *****                                  ^ not supported yet
    970. 

  970. *****                                            ^ not supported yet
    971. 

  971.   454                IF FieldPtr^.typ = ScrnTypes.GotoCode THEN
    972. 

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

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

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

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

  976.   455                  tmpkey := FieldPtr^.MenuKey;
    977. 

  977. *****                            ^ not supported yet
    978. 

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

  979.   456                ELSE
    980. 

  980.   457                  tmpkey := FieldPtr^.ChoiceKey;
    981. 

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

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

  983.   458                END;
    984. 

  984.   459                IF (tmpkey >= ORD('a')) AND (tmpkey <= ORD('z')) THEN
    985. 

  985. *****                              ^ undeclared identifier
    986. 

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

  987. *****                                                       ^ undeclared identifier
    988. 

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

  989.   460                  (*This stuff gives us case insensitivity in selection
    990. 

  990.   461                    characters.*)
    991. 

  991.   462                  BigSets.InclSet( NewLegalKeys, tmpkey );
    992. 

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

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

  994. *****                                   ^ not supported yet
    995. 

  995. *****                                                        ^ not supported yet
    996. 

  996.   463                  BigSets.InclSet( NewLegalKeys, KbdInput.CAPkey(tmpkey) );
    997. 

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

  998. *****                          ^ not supported yet
    999. 

  999. *****                                   ^ not supported yet
    1000. 

  1000. *****                                                 ^ not supported yet
    1001. 

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

  1002. *****                                                                       ^ not supported yet
    1003. 

  1003.   464                ELSIF (tmpkey >= ORD('A')) AND (tmpkey <= ORD('Z')) THEN
    1004. 

  1004. *****                                 ^ undeclared identifier
    1005. 

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

  1006. *****                                                          ^ undeclared identifier
    1007. 

  1007. *****                                                                 ^ not supported yet
    1008. 

  1008.   465                  BigSets.InclSet( NewLegalKeys, tmpkey );
    1009. 

  1009. *****                  ^ not supported yet
    1010. 

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

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

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

  1013.   466                  BigSets.InclSet( NewLegalKeys, tmpkey + 32 );
    1014. 

  1014. *****                  ^ not supported yet
    1015. 

  1015. *****                          ^ not supported yet
    1016. 

  1016. *****                                   ^ not supported yet
    1017. 

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

  1018.   467                ELSE
    1019. 

  1019.   468                  BigSets.InclSet( NewLegalKeys, tmpkey );
    1020. 

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

  1021. *****                          ^ not supported yet
    1022. 

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

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

  1024.   469                END;
    1025. 

  1025.   470            ELSE
    1026. 

  1026.   471              (* fall through *)
    1027. 

  1027.   472            END;
    1028. 

  1028.   473          END;
    1029. 

  1029.   474        END MakeLegalKeys;
    1030. 

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

  1031.   475  
    1032. 

  1032.   476  
    1033. 

  1033.   477  PROCEDURE MovePointerBar( FrameRec: ScrnTypes.DisplayFrame; NewField :
    1034. 

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

  1035.   478      CARDINAL );
    1036. 

  1036.   479    VAR
    1037. 

  1037.   480      TmpStr : ARRAY [0..80] OF CHAR;
    1038. 

  1038. *****                         ^ not supported yet
    1039. 

  1039. *****                                ^ not supported yet
    1040. 

  1040.   481      NewRowsScrolled, NewColsScrolled : CARDINAL;
    1041. 

  1041.   482      FirstFieldCol, FirstFieldRow, LastFieldCol, LastFieldRow : CARDINAL;
    1042. 

  1042.   483      FirstVisibleRow, FirstVisibleCol, LastVisibleRow,
    1043. 

  1043.   484          LastVisibleCol : CARDINAL;
    1044. 

  1044.   485      Vis : Rectangles.ARectangle;
    1045. 

  1045. *****                       ^ not supported yet
    1046. 

  1046.   486  
    1047. 

  1047.   487    PROCEDURE ChangeSelection( TheFrame: ScrnTypes.DisplayFrame; NewField:
    1048. 

  1048. *****                                                   ^ not supported yet
    1049. 

  1049.   488        CARDINAL );
    1050. 

  1050.   489      VAR
    1051. 

  1051.   490        FieldPtr: ScrnTypes.InputFieldPtr;
    1052. 

  1052. *****                            ^ not supported yet
    1053. 

  1053.   491      BEGIN
    1054. 

  1054.   492        ScrnUtl1.GetFieldPtr( TheFrame, TheFrame^.CurrentField,
    1055. 

  1055. *****        ^ not supported yet
    1056. 

  1056. *****                 ^ not supported yet
    1057. 

  1057. *****                              ^ not supported yet
    1058. 

  1058. *****                                        ^ not supported yet
    1059. 

  1059. *****                                                  ^ not supported yet
    1060. 

  1060.   493            FieldPtr );
    1061. 

  1061. *****            ^ not supported yet
    1062. 

  1062.   494        FieldPtr^.selected := FALSE;
    1063. 

  1063. *****        ^ not supported yet
    1064. 

  1064. *****                  ^ not supported yet
    1065. 

  1065.   495        FramePainter.RedrawField( FrameRec, FrameRec^.CurrentField, FALSE );
    1066. 

  1066. *****        ^ not supported yet
    1067. 

  1067. *****                     ^ not supported yet
    1068. 

  1068. *****                                  ^ not supported yet
    1069. 

  1069. *****                                            ^ not supported yet
    1070. 

  1070. *****                                                      ^ not supported yet
    1071. 

  1071. *****                                                                          ^ not supported yet
    1072. 

  1072.   496          (* Takes the pointer bar off the old field. *)
    1073. 

  1073.   497        FramePainter.RedrawField( TheFrame, NewField, TRUE );
    1074. 

  1074. *****        ^ not supported yet
    1075. 

  1075. *****                     ^ not supported yet
    1076. 

  1076. *****                                  ^ not supported yet
    1077. 

  1077. *****                                                           ^ not supported yet
    1078. 

  1078.   498        TheFrame^.CurrentField := NewField;
    1079. 

  1079. *****        ^ not supported yet
    1080. 

  1080. *****                  ^ not supported yet
    1081. 

  1081.   499        ScrnUtl1.GetFieldPtr( TheFrame, TheFrame^.CurrentField,
    1082. 

  1082. *****        ^ not supported yet
    1083. 

  1083. *****                 ^ not supported yet
    1084. 

  1084. *****                              ^ not supported yet
    1085. 

  1085. *****                                        ^ not supported yet
    1086. 

  1086. *****                                                  ^ not supported yet
    1087. 

  1087.   500            FieldPtr );
    1088. 

  1088. *****            ^ not supported yet
    1089. 

  1089.   501        FieldPtr^.selected := TRUE;
    1090. 

  1090. *****        ^ not supported yet
    1091. 

  1091. *****                  ^ not supported yet
    1092. 

  1092.   502        IF UserOps.DoPrompting THEN
    1093. 

  1093. *****           ^ not supported yet
    1094. 

  1094. *****                   ^ not supported yet
    1095. 

  1095.   503          GetPromptStr( FrameRec, FrameRec^.CurrentField, TmpStr );
    1096. 

  1096. *****          ^ undeclared identifier
    1097. 

  1097. *****                        ^ not supported yet
    1098. 

  1098. *****                                  ^ not supported yet
    1099. 

  1099. *****                                            ^ not supported yet
    1100. 

  1100. *****                                                          ^ not supported yet
    1101. 

  1101.   504          ShowPrompt( FrameRec, TmpStr );
    1102. 

  1102. *****          ^ undeclared identifier
    1103. 

  1103. *****                      ^ not supported yet
    1104. 

  1104. *****                                ^ not supported yet
    1105. 

  1105.   505        END;
    1106. 

  1106.   506      END ChangeSelection;
    1107. 

  1107. *****          ^ not supported yet
    1108. 

  1108.   507  
    1109. 

  1109.   508    BEGIN (* MovePointerBar *)
    1110. 

  1110.   509      IF NewField < FirstInputField(FrameRec) THEN
    1111. 

  1111. *****                    ^ undeclared identifier
    1112. 

  1112. *****                                    ^ not supported yet
    1113. 

  1113.   510        NewField := LastInputField(FrameRec);
    1114. 

  1114. *****                    ^ undeclared identifier
    1115. 

  1115. *****                                   ^ not supported yet
    1116. 

  1116.   511      ELSIF NewField > LastInputField( FrameRec ) THEN
    1117. 

  1117. *****                       ^ undeclared identifier
    1118. 

  1118. *****                                       ^ not supported yet
    1119. 

  1119.   512        NewField := FirstInputField(FrameRec);
    1120. 

  1120. *****                    ^ undeclared identifier
    1121. 

  1121. *****                                    ^ not supported yet
    1122. 

  1122.   513      ELSIF (ScrnUtl1.FieldType(FrameRec, NewField) =
    1123. 

  1123. *****             ^ not supported yet
    1124. 

  1124. *****                      ^ not supported yet
    1125. 

  1125. *****                                ^ not supported yet
    1126. 

  1126. *****                                                  ^ not supported yet
    1127. 

  1127.   514          ScrnTypes.DispCode) THEN
    1128. 

  1128. *****          ^ not supported yet
    1129. 

  1129. *****                    ^ not supported yet
    1130. 

  1130.   515        NewField := NextInputField( FrameRec, 0 );
    1131. 

  1131. *****                    ^ undeclared identifier
    1132. 

  1132. *****                                    ^ not supported yet
    1133. 

  1133. *****                                                ^ not supported yet
    1134. 

  1134.   516      END;
    1135. 

  1135.   517      IF NewField = FrameRec^.CurrentField THEN
    1136. 

  1136. *****                    ^ not supported yet
    1137. 

  1137. *****                              ^ not supported yet
    1138. 

  1138.   518        RETURN;
    1139. 

  1139.   519      ELSIF FrameRec^.CurrentField = 0 THEN
    1140. 

  1140. *****            ^ not supported yet
    1141. 

  1141. *****                      ^ not supported yet
    1142. 

  1142.   520        FrameRec^.CurrentField := FirstInputField(FrameRec);
    1143. 

  1143. *****        ^ not supported yet
    1144. 

  1144. *****                  ^ not supported yet
    1145. 

  1145. *****                                  ^ undeclared identifier
    1146. 

  1146. *****                                                  ^ not supported yet
    1147. 

  1147.   521      ELSIF InSameGroup( FrameRec, FrameRec^.CurrentField,
    1148. 

  1148. *****            ^ not supported yet
    1149. 

  1149. *****                         ^ not supported yet
    1150. 

  1150. *****                                   ^ not supported yet
    1151. 

  1151. *****                                             ^ not supported yet
    1152. 

  1152.   522          NewField) THEN
    1153. 

  1153. *****                  ^ not supported yet
    1154. 

  1154.   523        ChangeSelection( FrameRec, NewField );
    1155. 

  1155. *****        ^ not supported yet
    1156. 

  1156. *****                         ^ not supported yet
    1157. 

  1157. *****                                            ^ not supported yet
    1158. 

  1158.   524        RETURN;
    1159. 

  1159.   525      ELSE
    1160. 

  1160.   526        FramePainter.RedrawField( FrameRec, FrameRec^.CurrentField, FALSE );
    1161. 

  1161. *****        ^ not supported yet
    1162. 

  1162. *****                     ^ not supported yet
    1163. 

  1163. *****                                  ^ not supported yet
    1164. 

  1164. *****                                            ^ not supported yet
    1165. 

  1165. *****                                                      ^ not supported yet
    1166. 

  1166. *****                                                                          ^ not supported yet
    1167. 

  1167.   527          (* Takes the pointer bar off the old field.  This is
    1168. 

  1168.   528             in the ELSE clause because, if CurrentField is 0,
    1169. 

  1169.   529             we're placing the first pointer bar, and we don't
    1170. 

  1170.   530             need to take it off any other field.*)
    1171. 

  1171.   531      END;
    1172. 

  1172.   532      IF ScrnUtl1.FieldType(FrameRec, NewField) = ScrnTypes.GroupMember THEN
    1173. 

  1173. *****         ^ not supported yet
    1174. 

  1174. *****                  ^ not supported yet
    1175. 

  1175. *****                            ^ not supported yet
    1176. 

  1176. *****                                              ^ not supported yet
    1177. 

  1177. *****                                                  ^ not supported yet
    1178. 

  1178. *****                                                            ^ not supported yet
    1179. 

  1179.   533        (* This doesn't actually redraw the new field with the
    1180. 

  1180.   534           pointer bar on it.  It just sets the variables that
    1181. 

  1181.   535           will put us on the right field if we're moving into
    1182. 

  1182.   536           a group from somewhere outside it; notice that we RETURN
    1183. 

  1183.   537           above if we're moving inside the same group. *)
    1184. 

  1184.   538        MoveToSelected( FrameRec, NewField );
    1185. 

  1185. *****        ^ not supported yet
    1186. 

  1186. *****                        ^ not supported yet
    1187. 

  1187. *****                                           ^ not supported yet
    1188. 

  1188.   539      END;
    1189. 

  1189.   540  
    1190. 

  1190.   541      FrameRec^.CurrentField := NewField;
    1191. 

  1191. *****      ^ not supported yet
    1192. 

  1192. *****                ^ not supported yet
    1193. 

  1193.   542        (* Now we've lost track of what the old field was. *)
    1194. 

  1194.   543  
    1195. 

  1195.   544      (* Check and see if scrolling is needed *)
    1196. 

  1196.   545      IF NOT ScrnUtl1.EntirelyVisible(FrameRec, NewField) THEN
    1197. 

  1197. *****             ^ not supported yet
    1198. 

  1198. *****                      ^ not supported yet
    1199. 

  1199. *****                                      ^ not supported yet
    1200. 

  1200. *****                                                        ^ not supported yet
    1201. 

  1201.   546        GetScrollableArea(FrameRec, Vis);
    1202. 

  1202. *****        ^ not supported yet
    1203. 

  1203. *****                          ^ not supported yet
    1204. 

  1204. *****                                    ^ not supported yet
    1205. 

  1205.   547  
    1206. 

  1206.   548        FirstVisibleRow := CARDINAL(Vis.row1) + FrameRec^.RowsScrolled
    1207. 

  1207. *****                                    ^ not supported yet
    1208. 

  1208. *****                                        ^ not supported yet
    1209. 

  1209. *****                                                ^ not supported yet
    1210. 

  1210. *****                                                          ^ not supported yet
    1211. 

  1211.   549            - FrameRec^.startrow;
    1212. 

  1212. *****              ^ not supported yet
    1213. 

  1213. *****                        ^ not supported yet
    1214. 

  1214.   550        LastVisibleRow := CARDINAL(Vis.row2) + FrameRec^.RowsScrolled
    1215. 

  1215. *****                                   ^ not supported yet
    1216. 

  1216. *****                                       ^ not supported yet
    1217. 

  1217. *****                                               ^ not supported yet
    1218. 

  1218. *****                                                         ^ not supported yet
    1219. 

  1219.   551            - FrameRec^.startrow;
    1220. 

  1220. *****              ^ not supported yet
    1221. 

  1221. *****                        ^ not supported yet
    1222. 

  1222.   552        FirstVisibleCol := CARDINAL(Vis.col1) + FrameRec^.ColsScrolled
    1223. 

  1223. *****                                    ^ not supported yet
    1224. 

  1224. *****                                        ^ not supported yet
    1225. 

  1225. *****                                                ^ not supported yet
    1226. 

  1226. *****                                                          ^ not supported yet
    1227. 

  1227.   553            - FrameRec^.startcol;
    1228. 

  1228. *****              ^ not supported yet
    1229. 

  1229. *****                        ^ not supported yet
    1230. 

  1230.   554        LastVisibleCol := CARDINAL(Vis.col2) + FrameRec^.ColsScrolled
    1231. 

  1231. *****                                   ^ not supported yet
    1232. 

  1232. *****                                       ^ not supported yet
    1233. 

  1233. *****                                               ^ not supported yet
    1234. 

  1234. *****                                                         ^ not supported yet
    1235. 

  1235.   555            - FrameRec^.startcol;
    1236. 

  1236. *****              ^ not supported yet
    1237. 

  1237. *****                        ^ not supported yet
    1238. 

  1238.   556  
    1239. 

  1239.   557        FirstFieldRow := ScrnUtl1.VirtualFieldRow(FrameRec, NewField);
    1240. 

  1240. *****                         ^ not supported yet
    1241. 

  1241. *****                                  ^ not supported yet
    1242. 

  1242. *****                                                  ^ not supported yet
    1243. 

  1243. *****                                                                    ^ not supported yet
    1244. 

  1244.   558        FirstFieldCol := ScrnUtl1.VirtualFieldCol(FrameRec, NewField);
    1245. 

  1245. *****                         ^ not supported yet
    1246. 

  1246. *****                                  ^ not supported yet
    1247. 

  1247. *****                                                  ^ not supported yet
    1248. 

  1248. *****                                                                    ^ not supported yet
    1249. 

  1249.   559        LastFieldRow := FirstFieldRow +
    1250. 

  1250.   560            ScrnUtl1.FieldHeight(FrameRec, NewField) - 1;
    1251. 

  1251. *****            ^ not supported yet
    1252. 

  1252. *****                     ^ not supported yet
    1253. 

  1253. *****                                 ^ not supported yet
    1254. 

  1254. *****                                                   ^ not supported yet
    1255. 

  1255.   561        LastFieldCol := FirstFieldCol +
    1256. 

  1256.   562            ScrnUtl1.FieldWidth(FrameRec, NewField) - 1;
    1257. 

  1257. *****            ^ not supported yet
    1258. 

  1258. *****                     ^ not supported yet
    1259. 

  1259. *****                                ^ not supported yet
    1260. 

  1260. *****                                                  ^ not supported yet
    1261. 

  1261.   563          (* Default to no scrolling *)
    1262. 

  1262.   564        NewRowsScrolled := FrameRec^.RowsScrolled;
    1263. 

  1263. *****                           ^ not supported yet
    1264. 

  1264. *****                                     ^ not supported yet
    1265. 

  1265.   565        NewColsScrolled := FrameRec^.ColsScrolled;
    1266. 

  1266. *****                           ^ not supported yet
    1267. 

  1267. *****                                     ^ not supported yet
    1268. 

  1268.   566          (* Vertical *)
    1269. 

  1269.   567        IF FirstFieldRow < FirstVisibleRow THEN
    1270. 

  1270.   568          IF ScrnUtl1.InputFieldsAbove(FrameRec, NewField) THEN
    1271. 

  1271. *****             ^ not supported yet
    1272. 

  1272. *****                      ^ not supported yet
    1273. 

  1273. *****                                       ^ not supported yet
    1274. 

  1274. *****                                                         ^ not supported yet
    1275. 

  1275.   569            DEC(NewRowsScrolled, FirstVisibleRow-FirstFieldRow);
    1276. 

  1276. *****            ^ undeclared identifier
    1277. 

  1277. *****                                                              ^ not supported yet
    1278. 

  1278.   570          ELSE
    1279. 

  1279.   571            (* Make sure any text above first input field is
    1280. 

  1280.   572               visible. *)
    1281. 

  1281.   573            NewRowsScrolled := 0;
    1282. 

  1282.   574          END (* if *);
    1283. 

  1283.   575        ELSIF LastFieldRow > LastVisibleRow THEN
    1284. 

  1284.   576          IF ScrnUtl1.InputFieldsBelow(FrameRec, NewField) THEN
    1285. 

  1285. *****             ^ not supported yet
    1286. 

  1286. *****                      ^ not supported yet
    1287. 

  1287. *****                                       ^ not supported yet
    1288. 

  1288. *****                                                         ^ not supported yet
    1289. 

  1289.   577            INC(NewRowsScrolled, LastFieldRow-LastVisibleRow);
    1290. 

  1290. *****            ^ undeclared identifier
    1291. 

  1291. *****                                                            ^ not supported yet
    1292. 

  1292.   578          ELSE
    1293. 

  1293.   579            (* Scroll to bottom of frame *)
    1294. 

  1294.   580            INC(NewRowsScrolled, ScrnUtl1.PartOutside(FrameRec, Vis,
    1295. 

  1295. *****            ^ undeclared identifier
    1296. 

  1296. *****                                 ^ not supported yet
    1297. 

  1297. *****                                          ^ not supported yet
    1298. 

  1298. *****                                                      ^ not supported yet
    1299. 

  1299. *****                                                                ^ not supported yet
    1300. 

  1300.   581                VWindows.South));
    1301. 

  1301. *****                ^ not supported yet
    1302. 

  1302. *****                         ^ not supported yet
    1303. 

  1303.   582          END;
    1304. 

  1304.   583        END (* if *);
    1305. 

  1305.   584        (* Horizontal *)
    1306. 

  1306.   585        IF FirstFieldCol < FirstVisibleCol THEN
    1307. 

  1307.   586          IF ScrnUtl1.InputFieldsToLeft(FrameRec, NewField) THEN
    1308. 

  1308. *****             ^ not supported yet
    1309. 

  1309. *****                      ^ not supported yet
    1310. 

  1310. *****                                        ^ not supported yet
    1311. 

  1311. *****                                                          ^ not supported yet
    1312. 

  1312.   587            DEC(NewColsScrolled, FirstVisibleCol-FirstFieldCol);
    1313. 

  1313. *****            ^ undeclared identifier
    1314. 

  1314. *****                                                              ^ not supported yet
    1315. 

  1315.   588          ELSE
    1316. 

  1316.   589            NewColsScrolled := 0;
    1317. 

  1317.   590          END;
    1318. 

  1318.   591        ELSIF LastFieldCol > LastVisibleCol THEN
    1319. 

  1319.   592          IF ScrnUtl1.InputFieldsToRight(FrameRec, NewField) THEN
    1320. 

  1320. *****             ^ not supported yet
    1321. 

  1321. *****                      ^ not supported yet
    1322. 

  1322. *****                                         ^ not supported yet
    1323. 

  1323. *****                                                           ^ not supported yet
    1324. 

  1324.   593            INC(NewColsScrolled, LastFieldCol-LastVisibleCol);
    1325. 

  1325. *****            ^ undeclared identifier
    1326. 

  1326. *****                                                            ^ not supported yet
    1327. 

  1327.   594          ELSE
    1328. 

  1328.   595            INC(NewColsScrolled, ScrnUtl1.PartOutside(FrameRec, Vis,
    1329. 

  1329. *****            ^ undeclared identifier
    1330. 

  1330. *****                                 ^ not supported yet
    1331. 

  1331. *****                                          ^ not supported yet
    1332. 

  1332. *****                                                      ^ not supported yet
    1333. 

  1333. *****                                                                ^ not supported yet
    1334. 

  1334.   596                VWindows.East));
    1335. 

  1335. *****                ^ not supported yet
    1336. 

  1336. *****                         ^ not supported yet
    1337. 

  1337.   597          END;
    1338. 

  1338.   598        END (* if *);
    1339. 

  1339.   599        SlideFrame(FrameRec, FrameRec^.ColsScrolled, NewColsScrolled,
    1340. 

  1340. *****        ^ undeclared identifier
    1341. 

  1341. *****                   ^ not supported yet
    1342. 

  1342. *****                             ^ not supported yet
    1343. 

  1343. *****                                       ^ not supported yet
    1344. 

  1344.   600            FrameRec^.RowsScrolled, NewRowsScrolled);
    1345. 

  1345. *****            ^ not supported yet
    1346. 

  1346. *****                      ^ not supported yet
    1347. 

  1347. *****                                                   ^ not supported yet
    1348. 

  1348.   601      END (* if not entirely visible *);
    1349. 

  1349.   602  
    1350. 

  1350.   603      IF ScrnUtl1.FieldType(FrameRec, NewField) # ScrnTypes.EditorCode THEN
    1351. 

  1351. *****         ^ not supported yet
    1352. 

  1352. *****                  ^ not supported yet
    1353. 

  1353. *****                            ^ not supported yet
    1354. 

  1354. *****                                              ^ not supported yet
    1355. 

  1355. *****                                                  ^ not supported yet
    1356. 

  1356. *****                                                            ^ not supported yet
    1357. 

  1357.   604        FramePainter.RedrawField(FrameRec, NewField, TRUE);
    1358. 

  1358. *****        ^ not supported yet
    1359. 

  1359. *****                     ^ not supported yet
    1360. 

  1360. *****                                 ^ not supported yet
    1361. 

  1361. *****                                                         ^ not supported yet
    1362. 

  1362.   605          (* Hightlight field *)
    1363. 

  1363.   606      END;
    1364. 

  1364.   607      IF UserOps.DoPrompting THEN
    1365. 

  1365. *****         ^ not supported yet
    1366. 

  1366. *****                 ^ not supported yet
    1367. 

  1367.   608        GetPromptStr( FrameRec, FrameRec^.CurrentField, TmpStr );
    1368. 

  1368. *****        ^ undeclared identifier
    1369. 

  1369. *****                      ^ not supported yet
    1370. 

  1370. *****                                ^ not supported yet
    1371. 

  1371. *****                                          ^ not supported yet
    1372. 

  1372. *****                                                        ^ not supported yet
    1373. 

  1373.   609        ShowPrompt( FrameRec, TmpStr );
    1374. 

  1374. *****        ^ undeclared identifier
    1375. 

  1375. *****                    ^ not supported yet
    1376. 

  1376. *****                              ^ not supported yet
    1377. 

  1377.   610      END;
    1378. 

  1378.   611    END MovePointerBar;
    1379. 

  1379. *****        ^ not supported yet
    1380. 

  1380.   612  
    1381. 

  1381.   613  
    1382. 

  1382.   614  PROCEDURE PageDown(TheFrame : ScrnTypes.DisplayFrame);
    1383. 

  1383. *****                                          ^ not supported yet
    1384. 

  1384.   615  (*
    1385. 

  1385.   616      Move to the field nearest to one scroll height below
    1386. 

  1386.   617      the current one.
    1387. 

  1387.   618  *)
    1388. 

  1388.   619    VAR
    1389. 

  1389.   620      Vis : Rectangles.ARectangle;
    1390. 

  1390. *****                       ^ not supported yet
    1391. 

  1391.   621      NewField, ScrollHeight, NewRow, NewCol, Distance : CARDINAL;
    1392. 

  1392.   622    BEGIN
    1393. 

  1393.   623      IF ScrnUtl1.EntirelyVisible( TheFrame, LastInputField(TheFrame) ) THEN
    1394. 

  1394. *****         ^ not supported yet
    1395. 

  1395. *****                  ^ not supported yet
    1396. 

  1396. *****                                   ^ not supported yet
    1397. 

  1397. *****                                             ^ undeclared identifier
    1398. 

  1398. *****                                                            ^ not supported yet
    1399. 

  1399.   624        MovePointerBar( TheFrame, LastInputField(TheFrame) );
    1400. 

  1400. *****        ^ not supported yet
    1401. 

  1401. *****                        ^ not supported yet
    1402. 

  1402. *****                                  ^ undeclared identifier
    1403. 

  1403. *****                                                 ^ not supported yet
    1404. 

  1404.   625        RETURN;
    1405. 

  1405.   626      END;
    1406. 

  1406.   627      (*
    1407. 

  1407.   628          The next field isn't currently visible, need to
    1408. 

  1408.   629          repaint the entire frame
    1409. 

  1409.   630      *)
    1410. 

  1410.   631      GetScrollableArea(TheFrame, Vis);
    1411. 

  1411. *****      ^ not supported yet
    1412. 

  1412. *****                        ^ not supported yet
    1413. 

  1413. *****                                  ^ not supported yet
    1414. 

  1414.   632      ScrollHeight := CARDINAL(Vis.row2-Vis.row1)+1;
    1415. 

  1415. *****                               ^ not supported yet
    1416. 

  1416. *****                                   ^ not supported yet
    1417. 

  1417. *****                                        ^ not supported yet
    1418. 

  1418. *****                                            ^ not supported yet
    1419. 

  1419.   633      NewRow := ScrnUtl1.VirtualFieldRow(TheFrame, TheFrame^.CurrentField)
    1420. 

  1420. *****                ^ not supported yet
    1421. 

  1421. *****                         ^ not supported yet
    1422. 

  1422. *****                                         ^ not supported yet
    1423. 

  1423. *****                                                   ^ not supported yet
    1424. 

  1424. *****                                                             ^ not supported yet
    1425. 

  1425.   634          + ScrollHeight;
    1426. 

  1426.   635      NewCol := ScrnUtl1.VirtualFieldCol(TheFrame, TheFrame^.CurrentField);
    1427. 

  1427. *****                ^ not supported yet
    1428. 

  1428. *****                         ^ not supported yet
    1429. 

  1429. *****                                         ^ not supported yet
    1430. 

  1430. *****                                                   ^ not supported yet
    1431. 

  1431. *****                                                             ^ not supported yet
    1432. 

  1432.   636      NewField := ClosestField(TheFrame, 0, NewCol, NewRow+1,
    1433. 

  1433. *****                  ^ not supported yet
    1434. 

  1434. *****                               ^ not supported yet
    1435. 

  1435.   637          VWindows.North);
    1436. 

  1436. *****          ^ not supported yet
    1437. 

  1437. *****                   ^ not supported yet
    1438. 

  1438.   638      MovePointerBar( TheFrame, NewField );
    1439. 

  1439. *****      ^ not supported yet
    1440. 

  1440. *****                      ^ not supported yet
    1441. 

  1441. *****                                         ^ not supported yet
    1442. 

  1442.   639    END PageDown;
    1443. 

  1443. *****        ^ not supported yet
    1444. 

  1444.   640  
    1445. 

  1445.   641  
    1446. 

  1446.   642  PROCEDURE PageUp(TheFrame : ScrnTypes.DisplayFrame);
    1447. 

  1447. *****                                        ^ not supported yet
    1448. 

  1448.   643    (*
    1449. 

  1449.   644        Move to the field nearest to one scroll height above
    1450. 

  1450.   645        the current one.
    1451. 

  1451.   646    *)
    1452. 

  1452.   647    VAR
    1453. 

  1453.   648      Vis : Rectangles.ARectangle;
    1454. 

  1454. *****                       ^ not supported yet
    1455. 

  1455.   649      NewField, vrow, ScrollHeight, NewRow, NewCol: CARDINAL;
    1456. 

  1456.   650    BEGIN
    1457. 

  1457.   651      GetScrollableArea(TheFrame, Vis);
    1458. 

  1458. *****      ^ not supported yet
    1459. 

  1459. *****                        ^ not supported yet
    1460. 

  1460. *****                                  ^ not supported yet
    1461. 

  1461.   652      ScrollHeight := CARDINAL(Vis.row2-Vis.row1)+1;
    1462. 

  1462. *****                               ^ not supported yet
    1463. 

  1463. *****                                   ^ not supported yet
    1464. 

  1464. *****                                        ^ not supported yet
    1465. 

  1465. *****                                            ^ not supported yet
    1466. 

  1466.   653      IF TheFrame^.RowsScrolled = 0 THEN
    1467. 

  1467. *****         ^ not supported yet
    1468. 

  1468. *****                   ^ not supported yet
    1469. 

  1469.   654        MovePointerBar( TheFrame, FirstInputField(TheFrame) );
    1470. 

  1470. *****        ^ not supported yet
    1471. 

  1471. *****                        ^ not supported yet
    1472. 

  1472. *****                                  ^ undeclared identifier
    1473. 

  1473. *****                                                  ^ not supported yet
    1474. 

  1474.   655      ELSE
    1475. 

  1475.   656        vrow := ScrnUtl1.VirtualFieldRow(TheFrame, TheFrame^.CurrentField);
    1476. 

  1476. *****                ^ not supported yet
    1477. 

  1477. *****                         ^ not supported yet
    1478. 

  1478. *****                                         ^ not supported yet
    1479. 

  1479. *****                                                   ^ not supported yet
    1480. 

  1480. *****                                                             ^ not supported yet
    1481. 

  1481.   657        NewRow := Numbers.IntMax( 1, INTEGER(vrow) - INTEGER(ScrollHeight) );
    1482. 

  1482. *****                  ^ not supported yet
    1483. 

  1483. *****                          ^ not supported yet
    1484. 

  1484. *****                                                 ^ not supported yet
    1485. 

  1485. *****                                                                         ^ not supported yet
    1486. 

  1486.   658        NewCol := ScrnUtl1.VirtualFieldCol(TheFrame, TheFrame^.CurrentField);
    1487. 

  1487. *****                  ^ not supported yet
    1488. 

  1488. *****                           ^ not supported yet
    1489. 

  1489. *****                                           ^ not supported yet
    1490. 

  1490. *****                                                     ^ not supported yet
    1491. 

  1491. *****                                                               ^ not supported yet
    1492. 

  1492.   659        NewField := ClosestField(TheFrame, 0, NewCol, NewRow-1,
    1493. 

  1493. *****                    ^ not supported yet
    1494. 

  1494. *****                                 ^ not supported yet
    1495. 

  1495.   660            VWindows.South);
    1496. 

  1496. *****            ^ not supported yet
    1497. 

  1497. *****                     ^ not supported yet
    1498. 

  1498.   661        MovePointerBar( TheFrame, NewField );
    1499. 

  1499. *****        ^ not supported yet
    1500. 

  1500. *****                        ^ not supported yet
    1501. 

  1501. *****                                           ^ not supported yet
    1502. 

  1502.   662      END;
    1503. 

  1503.   663    END PageUp;
    1504. 

  1504. *****        ^ not supported yet
    1505. 

  1505.   664  
    1506. 

  1506.   665  
    1507. 

  1507.   666  (*================== Exported Procedures ========================*)
    1508. 

  1508.   667  
    1509. 

  1509.   668    PROCEDURE FirstInputField(FrameRec : ScrnTypes.DisplayFrame) : CARDINAL;
    1510. 

  1510. *****                                                   ^ not supported yet
    1511. 

  1511.   669    VAR
    1512. 

  1512.   670        LastField, NewField : CARDINAL;
    1513. 

  1513.   671    BEGIN
    1514. 

  1514.   672      LastField := ScrnUtl1.FieldListTotal(FrameRec);
    1515. 

  1515. *****                   ^ not supported yet
    1516. 

  1516. *****                            ^ not supported yet
    1517. 

  1517. *****                                           ^ not supported yet
    1518. 

  1518.   673      NewField := 1;
    1519. 

  1519.   674      WHILE (ScrnUtl1.FieldType(FrameRec, NewField) = ScrnTypes.DispCode) DO
    1520. 

  1520. *****             ^ not supported yet
    1521. 

  1521. *****                      ^ not supported yet
    1522. 

  1522. *****                                ^ not supported yet
    1523. 

  1523. *****                                                  ^ not supported yet
    1524. 

  1524. *****                                                      ^ not supported yet
    1525. 

  1525. *****                                                                ^ not supported yet
    1526. 

  1526.   675        IF NewField < LastField THEN
    1527. 

  1527.   676          INC(NewField);
    1528. 

  1528. *****          ^ undeclared identifier
    1529. 

  1529. *****                      ^ not supported yet
    1530. 

  1530.   677        ELSE
    1531. 

  1531.   678          RETURN 1;
    1532. 

  1532.   679        END;
    1533. 

  1533.   680      END (* while *);
    1534. 

  1534.   681      RETURN NewField;
    1535. 

  1535.   682    END FirstInputField;
    1536. 

  1536. *****        ^ not supported yet
    1537. 

  1537.   683  
    1538. 

  1538.   684    PROCEDURE LastInputField(FrameRec : ScrnTypes.DisplayFrame) : CARDINAL;
    1539. 

  1539. *****                                                  ^ not supported yet
    1540. 

  1540.   685    VAR
    1541. 

  1541.   686      NewField : CARDINAL;
    1542. 

  1542.   687    BEGIN
    1543. 

  1543.   688      NewField := ScrnUtl1.FieldListTotal(FrameRec);
    1544. 

  1544. *****                  ^ not supported yet
    1545. 

  1545. *****                           ^ not supported yet
    1546. 

  1546. *****                                          ^ not supported yet
    1547. 

  1547.   689      WHILE (ScrnUtl1.FieldType(FrameRec, NewField) = ScrnTypes.DispCode) DO
    1548. 

  1548. *****             ^ not supported yet
    1549. 

  1549. *****                      ^ not supported yet
    1550. 

  1550. *****                                ^ not supported yet
    1551. 

  1551. *****                                                  ^ not supported yet
    1552. 

  1552. *****                                                      ^ not supported yet
    1553. 

  1553. *****                                                                ^ not supported yet
    1554. 

  1554.   690        IF NewField > 1 THEN
    1555. 

  1555.   691          DEC(NewField);
    1556. 

  1556. *****          ^ undeclared identifier
    1557. 

  1557. *****                      ^ not supported yet
    1558. 

  1558.   692        ELSE
    1559. 

  1559.   693          RETURN ScrnUtl1.FieldListTotal(FrameRec);
    1560. 

  1560. *****                 ^ not supported yet
    1561. 

  1561. *****                          ^ not supported yet
    1562. 

  1562. *****                                         ^ not supported yet
    1563. 

  1563.   694        END (* if *);
    1564. 

  1564.   695      END (* while *);
    1565. 

  1565.   696      RETURN NewField;
    1566. 

  1566.   697    END LastInputField;
    1567. 

  1567. *****        ^ not supported yet
    1568. 

  1568.   698  
    1569. 

  1569.   699    PROCEDURE NextInputField( FrameRec : ScrnTypes.DisplayFrame;
    1570. 

  1570. *****                                                   ^ not supported yet
    1571. 

  1571.   700        skip: CARDINAL ): CARDINAL;
    1572. 

  1572.   701    VAR
    1573. 

  1573.   702      LastField, NewField : CARDINAL;
    1574. 

  1574.   703    BEGIN
    1575. 

  1575.   704      LastField := ScrnUtl1.FieldListTotal(FrameRec);
    1576. 

  1576. *****                   ^ not supported yet
    1577. 

  1577. *****                            ^ not supported yet
    1578. 

  1578. *****                                           ^ not supported yet
    1579. 

  1579.   705      IF FrameRec^.CurrentField < (LastField - skip) THEN
    1580. 

  1580. *****         ^ not supported yet
    1581. 

  1581. *****                   ^ not supported yet
    1582. 

  1582.   706        NewField := FrameRec^.CurrentField + skip + 1;
    1583. 

  1583. *****                    ^ not supported yet
    1584. 

  1584. *****                              ^ not supported yet
    1585. 

  1585.   707      ELSE
    1586. 

  1586.   708        NewField := 1;
    1587. 

  1587.   709      END;
    1588. 

  1588.   710      WHILE (ScrnUtl1.FieldType(FrameRec, NewField) = ScrnTypes.DispCode)
    1589. 

  1589. *****             ^ not supported yet
    1590. 

  1590. *****                      ^ not supported yet
    1591. 

  1591. *****                                ^ not supported yet
    1592. 

  1592. *****                                                  ^ not supported yet
    1593. 

  1593. *****                                                      ^ not supported yet
    1594. 

  1594. *****                                                                ^ not supported yet
    1595. 

  1595.   711        AND (NewField # FrameRec^.CurrentField) DO
    1596. 

  1596. *****                        ^ not supported yet
    1597. 

  1597. *****                                  ^ not supported yet
    1598. 

  1598.   712        IF NewField < LastField THEN
    1599. 

  1599.   713          INC(NewField);
    1600. 

  1600. *****          ^ undeclared identifier
    1601. 

  1601. *****                      ^ not supported yet
    1602. 

  1602.   714        ELSE
    1603. 

  1603.   715          NewField := 1;
    1604. 

  1604.   716        END;
    1605. 

  1605.   717      END (* while *);
    1606. 

  1606.   718      RETURN NewField;
    1607. 

  1607.   719    END NextInputField;
    1608. 

  1608. *****        ^ not supported yet
    1609. 

  1609.   720  
    1610. 

  1610.   721    PROCEDURE PrevInputField( VAR FrameRec : ScrnTypes.DisplayFrame;
    1611. 

  1611. *****                                                       ^ not supported yet
    1612. 

  1612.   722        skip: CARDINAL ) : CARDINAL;
    1613. 

  1613.   723    VAR
    1614. 

  1614.   724      NewField : CARDINAL;
    1615. 

  1615.   725    BEGIN
    1616. 

  1616.   726      IF (FrameRec^.CurrentField + skip) > 1 THEN
    1617. 

  1617. *****          ^ not supported yet
    1618. 

  1618. *****                    ^ not supported yet
    1619. 

  1619.   727        NewField := (FrameRec^.CurrentField - skip) - 1;
    1620. 

  1620. *****                     ^ not supported yet
    1621. 

  1621. *****                               ^ not supported yet
    1622. 

  1622.   728      ELSE
    1623. 

  1623.   729        NewField := ScrnUtl1.FieldListTotal(FrameRec);
    1624. 

  1624. *****                    ^ not supported yet
    1625. 

  1625. *****                             ^ not supported yet
    1626. 

  1626. *****                                            ^ not supported yet
    1627. 

  1627.   730      END;
    1628. 

  1628.   731      WHILE (ScrnUtl1.FieldType(FrameRec, NewField) = ScrnTypes.DispCode)
    1629. 

  1629. *****             ^ not supported yet
    1630. 

  1630. *****                      ^ not supported yet
    1631. 

  1631. *****                                ^ not supported yet
    1632. 

  1632. *****                                                  ^ not supported yet
    1633. 

  1633. *****                                                      ^ not supported yet
    1634. 

  1634. *****                                                                ^ not supported yet
    1635. 

  1635.   732          AND (NewField # FrameRec^.CurrentField) DO
    1636. 

  1636. *****                          ^ not supported yet
    1637. 

  1637. *****                                    ^ not supported yet
    1638. 

  1638.   733        IF NewField > 1 THEN
    1639. 

  1639.   734          DEC(NewField);
    1640. 

  1640. *****          ^ undeclared identifier
    1641. 

  1641. *****                      ^ not supported yet
    1642. 

  1642.   735        ELSE
    1643. 

  1643.   736          NewField := ScrnUtl1.FieldListTotal(FrameRec);
    1644. 

  1644. *****                      ^ not supported yet
    1645. 

  1645. *****                               ^ not supported yet
    1646. 

  1646. *****                                              ^ not supported yet
    1647. 

  1647.   737        END;
    1648. 

  1648.   738      END (* while *);
    1649. 

  1649.   739      RETURN NewField;
    1650. 

  1650.   740    END PrevInputField;
    1651. 

  1651. *****        ^ not supported yet
    1652. 

  1652.   741  
    1653. 

  1653.   742  
    1654. 

  1654.   743    PROCEDURE HiLiteSelChars( TheFrame: ScrnTypes.DisplayFrame );
    1655. 

  1655. *****                                                  ^ not supported yet
    1656. 

  1656.   744      VAR
    1657. 

  1657.   745        FieldListEnd, cnt: CARDINAL;
    1658. 

  1658.   746        TmpType : CHAR;
    1659. 

  1659.   747      BEGIN
    1660. 

  1660.   748        FieldListEnd := ScrnUtl1.FieldListTotal( TheFrame );
    1661. 

  1661. *****                        ^ not supported yet
    1662. 

  1662. *****                                 ^ not supported yet
    1663. 

  1663. *****                                                 ^ not supported yet
    1664. 

  1664.   749        FOR cnt := 1 TO FieldListEnd DO
    1665. 

  1665.   750          TmpType := ScrnUtl1.FieldType( TheFrame, cnt );
    1666. 

  1666. *****                     ^ not supported yet
    1667. 

  1667. *****                              ^ not supported yet
    1668. 

  1668. *****                                         ^ not supported yet
    1669. 

  1669. *****                                                       ^ not supported yet
    1670. 

  1670.   751          IF (TmpType = ScrnTypes.GotoCode) OR
    1671. 

  1671. *****                        ^ not supported yet
    1672. 

  1672. *****                                  ^ not supported yet
    1673. 

  1673.   752              (TmpType = ScrnTypes.GroupMember) THEN
    1674. 

  1674. *****                         ^ not supported yet
    1675. 

  1675. *****                                   ^ not supported yet
    1676. 

  1676.   753            IF ScrnUtl1.EntirelyVisible( TheFrame, cnt ) THEN
    1677. 

  1677. *****               ^ not supported yet
    1678. 

  1678. *****                        ^ not supported yet
    1679. 

  1679. *****                                         ^ not supported yet
    1680. 

  1680. *****                                                       ^ not supported yet
    1681. 

  1681.   754              FramePainter.RedrawField( TheFrame, cnt, FALSE );
    1682. 

  1682. *****              ^ not supported yet
    1683. 

  1683. *****                           ^ not supported yet
    1684. 

  1684. *****                                        ^ not supported yet
    1685. 

  1685. *****                                                             ^ not supported yet
    1686. 

  1686.   755            END;
    1687. 

  1687.   756          END;
    1688. 

  1688.   757        END;
    1689. 

  1689.   758      END HiLiteSelChars;
    1690. 

  1690. *****          ^ not supported yet
    1691. 

  1691.   759  
    1692. 

  1692.   760  
    1693. 

  1693.   761    PROCEDURE LookAlive( TheFrame: ScrnTypes.DisplayFrame );
    1694. 

  1694. *****                                             ^ not supported yet
    1695. 

  1695.   762      VAR
    1696. 

  1696.   763        TmpStr: ARRAY [0..127] OF CHAR;
    1697. 

  1697. *****                          ^ not supported yet
    1698. 

  1698. *****                                  ^ not supported yet
    1699. 

  1699.   764        fldtype : CHAR;
    1700. 

  1700.   765      BEGIN
    1701. 

  1701.   766        IF TheFrame^.action <= 'Z' THEN
    1702. 

  1702. *****           ^ not supported yet
    1703. 

  1703. *****                     ^ not supported yet
    1704. 

  1704.   767          (* We are temporarily lowercasing the .action character
    1705. 

  1705.   768             to tell us whether the frame is under the control of
    1706. 

  1706.   769             ControlFrame.  We use this to disable LookAlive when
    1707. 

  1707.   770             it is called in places where it probably shouldn't be.
    1708. 

  1708.   771             Not good. *)
    1709. 

  1709.   772          RETURN;
    1710. 

  1710.   773        END;
    1711. 

  1711.   774        HiLiteSelChars( TheFrame );
    1712. 

  1712. *****        ^ not supported yet
    1713. 

  1713. *****                        ^ not supported yet
    1714. 

  1714.   775        IF (TheFrame^.CurrentField > 0) AND
    1715. 

  1715. *****            ^ not supported yet
    1716. 

  1716. *****                      ^ not supported yet
    1717. 

  1717.   776            (TheFrame^.CurrentField <= ScrnUtl1.FieldListTotal(TheFrame)) THEN
    1718. 

  1718. *****             ^ not supported yet
    1719. 

  1719. *****                       ^ not supported yet
    1720. 

  1720. *****                                       ^ not supported yet
    1721. 

  1721. *****                                                ^ not supported yet
    1722. 

  1722. *****                                                               ^ not supported yet
    1723. 

  1723.   777          IF UserOps.DoPrompting THEN
    1724. 

  1724. *****             ^ not supported yet
    1725. 

  1725. *****                     ^ not supported yet
    1726. 

  1726.   778            GetPromptStr( TheFrame, TheFrame^.CurrentField, TmpStr );
    1727. 

  1727. *****            ^ undeclared identifier
    1728. 

  1728. *****                          ^ not supported yet
    1729. 

  1729. *****                                    ^ not supported yet
    1730. 

  1730. *****                                              ^ not supported yet
    1731. 

  1731. *****                                                            ^ not supported yet
    1732. 

  1732.   779            ShowPrompt( TheFrame, TmpStr );
    1733. 

  1733. *****            ^ undeclared identifier
    1734. 

  1734. *****                        ^ not supported yet
    1735. 

  1735. *****                                  ^ not supported yet
    1736. 

  1736.   780          END;
    1737. 

  1737.   781          fldtype := ScrnUtl1.FieldType( TheFrame, TheFrame^.CurrentField );
    1738. 

  1738. *****                     ^ not supported yet
    1739. 

  1739. *****                              ^ not supported yet
    1740. 

  1740. *****                                         ^ not supported yet
    1741. 

  1741. *****                                                   ^ not supported yet
    1742. 

  1742. *****                                                             ^ not supported yet
    1743. 

  1743.   782          IF ScrnUtl1.EntirelyVisible( TheFrame, TheFrame^.CurrentField ) THEN
    1744. 

  1744. *****             ^ not supported yet
    1745. 

  1745. *****                      ^ not supported yet
    1746. 

  1746. *****                                       ^ not supported yet
    1747. 

  1747. *****                                                 ^ not supported yet
    1748. 

  1748. *****                                                           ^ not supported yet
    1749. 

  1749.   783            FramePainter.RedrawField( TheFrame, TheFrame^.CurrentField, TRUE );
    1750. 

  1750. *****            ^ not supported yet
    1751. 

  1751. *****                         ^ not supported yet
    1752. 

  1752. *****                                      ^ not supported yet
    1753. 

  1753. *****                                                ^ not supported yet
    1754. 

  1754. *****                                                          ^ not supported yet
    1755. 

  1755. *****                                                                             ^ not supported yet
    1756. 

  1756.   784            IF (fldtype # ScrnTypes.GotoCode) AND (fldtype #
    1757. 

  1757. *****                          ^ not supported yet
    1758. 

  1758. *****                                    ^ not supported yet
    1759. 

  1759.   785                ScrnTypes.GroupMember) AND (fldtype #
    1760. 

  1760. *****                ^ not supported yet
    1761. 

  1761. *****                          ^ not supported yet
    1762. 

  1762.   786                ScrnTypes.DispCode) THEN
    1763. 

  1763. *****                ^ not supported yet
    1764. 

  1764. *****                          ^ not supported yet
    1765. 

  1765.   787              VWindows.SetCursorHeight( VWindows.CurrentWindow, 2 );
    1766. 

  1766. *****              ^ not supported yet
    1767. 

  1767. *****                       ^ not supported yet
    1768. 

  1768. *****                                        ^ not supported yet
    1769. 

  1769. *****                                                 ^ not supported yet
    1770. 

  1770. *****                                                                  ^ not supported yet
    1771. 

  1771.   788            END;
    1772. 

  1772.   789          END;
    1773. 

  1773.   790        END;
    1774. 

  1774.   791      END LookAlive;
    1775. 

  1775. *****          ^ not supported yet
    1776. 

  1776.   792  
    1777. 

  1777.   793  
    1778. 

  1778.   794    PROCEDURE ReconstructFrame( TheFrame: ScrnTypes.DisplayFrame );
    1779. 

  1779. *****                                                    ^ not supported yet
    1780. 

  1780.   795      VAR
    1781. 

  1781.   796        TmpStr: ARRAY [0..127] OF CHAR;
    1782. 

  1782. *****                          ^ not supported yet
    1783. 

  1783. *****                                  ^ not supported yet
    1784. 

  1784.   797      BEGIN
    1785. 

  1785.   798        FramePainter.ShowDisplayFrame( TheFrame, 0, 0, 0, 0 );
    1786. 

  1786. *****        ^ not supported yet
    1787. 

  1787. *****                     ^ not supported yet
    1788. 

  1788. *****                                       ^ not supported yet
    1789. 

  1789. *****                                                            ^ not supported yet
    1790. 

  1790.   799        LookAlive( TheFrame );
    1791. 

  1791. *****        ^ not supported yet
    1792. 

  1792. *****                   ^ not supported yet
    1793. 

  1793.   800      END ReconstructFrame;
    1794. 

  1794. *****          ^ not supported yet
    1795. 

  1795.   801  
    1796. 

  1796.   802  
    1797. 

  1797.   803    PROCEDURE ShowPrompt( FrameRec: ScrnTypes.DisplayFrame;
    1798. 

  1798. *****                                              ^ not supported yet
    1799. 

  1799.   804        str : ARRAY OF CHAR );
    1800. 

  1800. *****                       ^ not supported yet
    1801. 

  1801.   805      (*Display the prompt centered within the prompt line
    1802. 

  1802.   806        specified in UserOps.*)
    1803. 

  1803.   807      VAR
    1804. 

  1804.   808        tmp: ARRAY [0..127] OF CHAR;
    1805. 

  1805. *****                       ^ not supported yet
    1806. 

  1806. *****                               ^ not supported yet
    1807. 

  1807.   809          (*We use tmp because the caller may not have left enough
    1808. 

  1808.   810            room in str to pad it with blanks.*)
    1809. 

  1809.   811      BEGIN
    1810. 

  1810.   812        ScrnUtl1.SetPromptColors( FrameRec );
    1811. 

  1811. *****        ^ not supported yet
    1812. 

  1812. *****                 ^ not supported yet
    1813. 

  1813. *****                                  ^ not supported yet
    1814. 

  1814.   813        M2Strings.Assign( str, tmp );
    1815. 

  1815. *****        ^ not supported yet
    1816. 

  1816. *****                  ^ not supported yet
    1817. 

  1817. *****                          ^ not supported yet
    1818. 

  1818. *****                               ^ not supported yet
    1819. 

  1819.   814        StrEdit.Center( tmp, UserOps.PromptLength );
    1820. 

  1820. *****        ^ not supported yet
    1821. 

  1821. *****                ^ not supported yet
    1822. 

  1822. *****                        ^ not supported yet
    1823. 

  1823. *****                             ^ not supported yet
    1824. 

  1824. *****                                     ^ not supported yet
    1825. 

  1825.   815  
    1826. 

  1826.   816        VWindows.DrawStr( FrameRec^.WindowHandle, UserOps.PromptCol,
    1827. 

  1827. *****        ^ not supported yet
    1828. 

  1828. *****                 ^ not supported yet
    1829. 

  1829. *****                          ^ not supported yet
    1830. 

  1830. *****                                    ^ not supported yet
    1831. 

  1831. *****                                                  ^ not supported yet
    1832. 

  1832. *****                                                          ^ not supported yet
    1833. 

  1833.   817            UserOps.PromptRow, SYSTEM.ADR(tmp),
    1834. 

  1834. *****            ^ not supported yet
    1835. 

  1835. *****                    ^ not supported yet
    1836. 

  1836. *****                               ^ not supported yet
    1837. 

  1837. *****                                      ^ not supported yet
    1838. 

  1838. *****                                          ^ not supported yet
    1839. 

  1839.   818            UserOps.PromptLength );
    1840. 

  1840. *****            ^ not supported yet
    1841. 

  1841. *****                    ^ not supported yet
    1842. 

  1842.   819      END ShowPrompt;
    1843. 

  1843. *****          ^ not supported yet
    1844. 

  1844.   820  
    1845. 

  1845.   821  
    1846. 

  1846.   822    PROCEDURE GetPromptStr( TheFrame: ScrnTypes.DisplayFrame; TheField:
    1847. 

  1847. *****                                                ^ not supported yet
    1848. 

  1848.   823        CARDINAL; VAR TheStr: ARRAY OF CHAR );
    1849. 

  1849. *****                                       ^ not supported yet
    1850. 

  1850.   824      VAR
    1851. 

  1851.   825        FieldRec: ScrnTypes.InputFieldRecord;
    1852. 

  1852. *****                            ^ not supported yet
    1853. 

  1853.   826        TypeCode: CARDINAL;
    1854. 

  1854.   827        MaxStr, MinStr: ARRAY [0..31] OF CHAR;
    1855. 

  1855. *****                                  ^ not supported yet
    1856. 

  1856. *****                                         ^ not supported yet
    1857. 

  1857.   828      BEGIN
    1858. 

  1858.   829        ScrnUtl1.GetFieldRec( TheFrame, TheField, FieldRec );
    1859. 

  1859. *****        ^ not supported yet
    1860. 

  1860. *****                 ^ not supported yet
    1861. 

  1861. *****                              ^ not supported yet
    1862. 

  1862. *****                                                  ^ not supported yet
    1863. 

  1863.   830        IF FieldRec.PromptNum # 0 THEN
    1864. 

  1864. *****           ^ not supported yet
    1865. 

  1865. *****                    ^ not supported yet
    1866. 

  1866.   831          GenLists.GetElmt( TheFrame^.PromptList, FieldRec.PromptNum,
    1867. 

  1867. *****          ^ not supported yet
    1868. 

  1868. *****                   ^ not supported yet
    1869. 

  1869. *****                            ^ not supported yet
    1870. 

  1870. *****                                      ^ not supported yet
    1871. 

  1871. *****                                                  ^ not supported yet
    1872. 

  1872. *****                                                           ^ not supported yet
    1873. 

  1873.   832              TheStr, TypeCode );
    1874. 

  1874. *****              ^ not supported yet
    1875. 

  1875. *****                               ^ not supported yet
    1876. 

  1876.   833        ELSE
    1877. 

  1877.   834          FieldTypes.GetDefaultPrompt( FieldRec.typ, TheStr );
    1878. 

  1878. *****          ^ not supported yet
    1879. 

  1879. *****                     ^ not supported yet
    1880. 

  1880. *****                                       ^ not supported yet
    1881. 

  1881. *****                                                ^ not supported yet
    1882. 

  1882. *****                                                     ^ not supported yet
    1883. 

  1883.   835          CASE FieldRec.typ OF
    1884. 

  1884. *****               ^ not supported yet
    1885. 

  1885. *****                        ^ not supported yet
    1886. 

  1886.   836            ScrnTypes.IntCode :
    1887. 

  1887. *****            ^ not supported yet
    1888. 

  1888. *****                      ^ not supported yet
    1889. 

  1889.   837              StrConv.LongIntegerToStr( FieldRec.iMax, 1, MaxStr );
    1890. 

  1890. *****              ^ not supported yet
    1891. 

  1891. *****                      ^ not supported yet
    1892. 

  1892. *****                                        ^ not supported yet
    1893. 

  1893. *****                                                 ^ not supported yet
    1894. 

  1894. *****                                                          ^ not supported yet
    1895. 

  1895.   838              StrConv.LongIntegerToStr( FieldRec.iMin, 1, MinStr);
    1896. 

  1896. *****              ^ not supported yet
    1897. 

  1897. *****                      ^ not supported yet
    1898. 

  1898. *****                                        ^ not supported yet
    1899. 

  1899. *****                                                 ^ not supported yet
    1900. 

  1900. *****                                                          ^ not supported yet
    1901. 

  1901.   839          | ScrnTypes.RealCode :
    1902. 

  1902. *****            ^ not supported yet
    1903. 

  1903. *****                      ^ not supported yet
    1904. 

  1904.   840              StrConv.RealToStr( FieldRec.rMax, 1, 0, MaxStr );
    1905. 

  1905. *****              ^ not supported yet
    1906. 

  1906. *****                      ^ not supported yet
    1907. 

  1907. *****                                 ^ not supported yet
    1908. 

  1908. *****                                          ^ not supported yet
    1909. 

  1909. *****                                                      ^ not supported yet
    1910. 

  1910.   841              StrConv.RealToStr( FieldRec.rMin, 1, 0, MinStr);
    1911. 

  1911. *****              ^ not supported yet
    1912. 

  1912. *****                      ^ not supported yet
    1913. 

  1913. *****                                 ^ not supported yet
    1914. 

  1914. *****                                          ^ not supported yet
    1915. 

  1915. *****                                                      ^ not supported yet
    1916. 

  1916.   842          ELSE
    1917. 

  1917.   843            RETURN;
    1918. 

  1918.   844          END;
    1919. 

  1919.   845          StrEdit.ReplaceStr( 'MAX', MaxStr, TheStr );
    1920. 

  1920. *****          ^ not supported yet
    1921. 

  1921. *****                  ^ not supported yet
    1922. 

  1922. *****                              ^ not supported yet
    1923. 

  1923. *****                                     ^ not supported yet
    1924. 

  1924. *****                                             ^ not supported yet
    1925. 

  1925.   846          StrEdit.ReplaceStr( 'MIN', MinStr, TheStr );
    1926. 

  1926. *****          ^ not supported yet
    1927. 

  1927. *****                  ^ not supported yet
    1928. 

  1928. *****                              ^ not supported yet
    1929. 

  1929. *****                                     ^ not supported yet
    1930. 

  1930. *****                                             ^ not supported yet
    1931. 

  1931.   847        END;
    1932. 

  1932.   848      END GetPromptStr;
    1933. 

  1933. *****          ^ not supported yet
    1934. 

  1934.   849  
    1935. 

  1935.   850  
    1936. 

  1936.   851      PROCEDURE SlideFrame( FrameRec: ScrnTypes.DisplayFrame;
    1937. 

  1937. *****                                                ^ not supported yet
    1938. 

  1938.   852          OldColsScrolled, NewColsScrolled, OldRowsScrolled,
    1939. 

  1939.   853          NewRowsScrolled: CARDINAL );
    1940. 

  1940.   854        VAR
    1941. 

  1941.   855          Vis: Rectangles.ARectangle;
    1942. 

  1942. *****                          ^ not supported yet
    1943. 

  1943.   856          vdist, ScrollableHeight : INTEGER;
    1944. 

  1944.   857        BEGIN
    1945. 

  1945.   858          FrameRec^.ColsScrolled := NewColsScrolled;
    1946. 

  1946. *****          ^ not supported yet
    1947. 

  1947. *****                    ^ not supported yet
    1948. 

  1948.   859          FrameRec^.RowsScrolled := NewRowsScrolled;
    1949. 

  1949. *****          ^ not supported yet
    1950. 

  1950. *****                    ^ not supported yet
    1951. 

  1951.   860          vdist := INTEGER(NewRowsScrolled) - INTEGER(OldRowsScrolled);
    1952. 

  1952. *****                                          ^ not supported yet
    1953. 

  1953. *****                                                                     ^ not supported yet
    1954. 

  1954.   861          IF (vdist = 0) AND (NewColsScrolled = OldColsScrolled) THEN
    1955. 

  1955.   862            RETURN;
    1956. 

  1956.   863          END;
    1957. 

  1957.   864          ScrnUtl1.SetNormalColors( FrameRec );
    1958. 

  1958. *****          ^ not supported yet
    1959. 

  1959. *****                   ^ not supported yet
    1960. 

  1960. *****                                    ^ not supported yet
    1961. 

  1961.   865          GetScrollableArea( FrameRec, Vis );
    1962. 

  1962. *****          ^ not supported yet
    1963. 

  1963. *****                             ^ not supported yet
    1964. 

  1964. *****                                       ^ not supported yet
    1965. 

  1965.   866          WITH Vis DO
    1966. 

  1966. *****               ^ not supported yet
    1967. 

  1967.   867            IF NewColsScrolled # OldColsScrolled THEN
    1968. 

  1968.   868              (*We repaint the whole window if we're going to have to
    1969. 

  1969.   869                scroll horizontally.*)
    1970. 

  1970.   870              VWindows.ClearPart( FrameRec^.WindowHandle, col1,
    1971. 

  1971. *****              ^ not supported yet
    1972. 

  1972. *****                       ^ not supported yet
    1973. 

  1973. *****                                  ^ not supported yet
    1974. 

  1974. *****                                            ^ not supported yet
    1975. 

  1975. *****                                                          ^ undeclared identifier
    1976. 

  1976.   871                  row1, col2, row2 );
    1977. 

  1977. *****                  ^ undeclared identifier
    1978. 

  1978. *****                        ^ undeclared identifier
    1979. 

  1979. *****                              ^ undeclared identifier
    1980. 

  1980.   872              FramePainter.RedrawArea( FrameRec, CARDINAL(col1),
    1981. 

  1981. *****              ^ not supported yet
    1982. 

  1982. *****                           ^ not supported yet
    1983. 

  1983. *****                                       ^ not supported yet
    1984. 

  1984. *****                                                          ^ undeclared identifier
    1985. 

  1985.   873                  CARDINAL(row1), CARDINAL(col2), CARDINAL(row2) );
    1986. 

  1986. *****                           ^ undeclared identifier
    1987. 

  1987. *****                                           ^ undeclared identifier
    1988. 

  1988. *****                                                           ^ undeclared identifier
    1989. 

  1989.   874              RETURN;
    1990. 

  1990.   875            END;
    1991. 

  1991.   876            ScrollableHeight := CARDINAL(row2) - CARDINAL(row1) + 1;
    1992. 

  1992. *****                                         ^ undeclared identifier
    1993. 

  1993. *****                                                          ^ undeclared identifier
    1994. 

  1994.   877            IF ABS(vdist) > ScrollableHeight THEN
    1995. 

  1995. *****               ^ undeclared identifier
    1996. 

  1996. *****                        ^ not supported yet
    1997. 

  1997.   878              IF vdist > 0 THEN
    1998. 

  1998.   879                vdist := ScrollableHeight;
    1999. 

  1999.   880              ELSE
    2000. 

  2000.   881                vdist := -ScrollableHeight;
    2001. 

  2001.   882              END;
    2002. 

  2002.   883            END;
    2003. 

  2003.   884            IF NOT VWindows.ScrollVertically(FrameRec^.WindowHandle,
    2004. 

  2004. *****                   ^ not supported yet
    2005. 

  2005. *****                            ^ not supported yet
    2006. 

  2006. *****                                             ^ not supported yet
    2007. 

  2007. *****                                                       ^ not supported yet
    2008. 

  2008.   885                col1, row1, col2, row2, vdist ) THEN
    2009. 

  2009. *****                ^ undeclared identifier
    2010. 

  2010. *****                      ^ undeclared identifier
    2011. 

  2011. *****                            ^ undeclared identifier
    2012. 

  2012. *****                                  ^ undeclared identifier
    2013. 

  2013. *****                                              ^ not supported yet
    2014. 

  2014.   886              (*tough luck if the window manager doesn't support scrolling*)
    2015. 

  2015.   887            END;
    2016. 

  2016.   888            IF vdist > 0 THEN
    2017. 

  2017.   889              (*Redraw the area at the bottom because we scrolled up.*)
    2018. 

  2018.   890              FramePainter.RedrawArea( FrameRec, CARDINAL(col1),
    2019. 

  2019. *****              ^ not supported yet
    2020. 

  2020. *****                           ^ not supported yet
    2021. 

  2021. *****                                       ^ not supported yet
    2022. 

  2022. *****                                                          ^ undeclared identifier
    2023. 

  2023.   891                  (CARDINAL(row2) - CARDINAL(ABS(vdist))) + 1,
    2024. 

  2024. *****                            ^ undeclared identifier
    2025. 

  2025. *****                                             ^ undeclared identifier
    2026. 

  2026. *****                                                      ^ not supported yet
    2027. 

  2027.   892                  CARDINAL(col2), CARDINAL(row2) );
    2028. 

  2028. *****                           ^ undeclared identifier
    2029. 

  2029. *****                                           ^ undeclared identifier
    2030. 

  2030.   893            ELSE
    2031. 

  2031.   894                (*Redraw the area at the top because we scrolled down.*)
    2032. 

  2032.   895              FramePainter.RedrawArea( FrameRec, CARDINAL(col1),
    2033. 

  2033. *****              ^ not supported yet
    2034. 

  2034. *****                           ^ not supported yet
    2035. 

  2035. *****                                       ^ not supported yet
    2036. 

  2036. *****                                                          ^ undeclared identifier
    2037. 

  2037.   896                  CARDINAL(row1),CARDINAL(col2),CARDINAL(row1+ABS(vdist)-1));
    2038. 

  2038. *****                           ^ undeclared identifier
    2039. 

  2039. *****                                          ^ undeclared identifier
    2040. 

  2040. *****                                                         ^ undeclared identifier
    2041. 

  2041. *****                                                              ^ undeclared identifier
    2042. 

  2042. *****                                                                       ^ not supported yet
    2043. 

  2043. *****                                                                          ^ not supported yet
    2044. 

  2044.   897            END (* if *);
    2045. 

  2045.   898          END (* with Vis *);
    2046. 

  2046. *****          ^ not supported yet
    2047. 

  2047.   899        END SlideFrame;
    2048. 

  2048. *****            ^ not supported yet
    2049. 

  2049.   900  
    2050. 

  2050.   901  
    2051. 

  2051.   902    PROCEDURE ControlFrame(VAR FrameRec : ScrnTypes.DisplayFrame;
    2052. 

  2052. *****                                                    ^ not supported yet
    2053. 

  2053.   903          LandingField : CARDINAL; message : ARRAY OF CHAR;
    2054. 

  2054. *****                                                      ^ not supported yet
    2055. 

  2055.   904          RedrawFirst : BOOLEAN; VAR NextFrame: ScrnTypes.AFrameName );
    2056. 

  2056. *****                                                          ^ not supported yet
    2057. 

  2057.   905      VAR
    2058. 

  2058.   906        MaxChoices, SavedFieldNum: CARDINAL;
    2059. 

  2059.   907        ReturnValue, FrameAbove, FrameBelow, FrameLeft,
    2060. 

  2060.   908            FrameRight : ScrnTypes.AFrameName;
    2061. 

  2061. *****                                   ^ not supported yet
    2062. 

  2062.   909        LastKey : CARDINAL;
    2063. 

  2063.   910        AbsFldCol, AbsFldRow: INTEGER;
    2064. 

  2064.   911        LocalMessage : ARRAY [0..79] OF CHAR;
    2065. 

  2065. *****                                 ^ not supported yet
    2066. 

  2066. *****                                        ^ not supported yet
    2067. 

  2067.   912        TmpScreenKeys: KbdInput.KeyNumSet;
    2068. 

  2068. *****                                ^ not supported yet
    2069. 

  2069.   913        FieldRec: ScrnTypes.InputFieldRecord;
    2070. 

  2070. *****                            ^ not supported yet
    2071. 

  2071.   914  
    2072. 

  2072.   915  
    2073. 

  2073.   916    PROCEDURE HitAnyKey( VAR NextFrame: ScrnTypes.AFrameName );
    2074. 

  2074. *****                                                  ^ not supported yet
    2075. 

  2075.   917      (* prompt for any key to be hit and exit, returning
    2076. 

  2076.   918         either normal next or TheKeyHandler result (keep
    2077. 

  2077.   919         asking for input if user asks for help or time) *)
    2078. 

  2078.   920      VAR
    2079. 

  2079.   921        key : CARDINAL;
    2080. 

  2080.   922        tryagain : BOOLEAN;
    2081. 

  2081.   923      BEGIN
    2082. 

  2082.   924        IF UserOps.DoPrompting THEN
    2083. 

  2083. *****           ^ not supported yet
    2084. 

  2084. *****                   ^ not supported yet
    2085. 

  2085.   925          ShowPrompt( FrameRec, 'Press Any Key To Continue.' );
    2086. 

  2086. *****          ^ not supported yet
    2087. 

  2087. *****                      ^ not supported yet
    2088. 

  2088. *****                                ^ not supported yet
    2089. 

  2089.   926        END;
    2090. 

  2090.   927        REPEAT
    2091. 

  2091.   928          key := KbdInput.KeyHit( KbdInput.AnyKeyNum );
    2092. 

  2092. *****                 ^ not supported yet
    2093. 

  2093. *****                          ^ not supported yet
    2094. 

  2094. *****                                  ^ not supported yet
    2095. 

  2095. *****                                           ^ not supported yet
    2096. 

  2096.   929          IF BigSets.InSet( UserOps.FunctKeySet, key ) THEN
    2097. 

  2097. *****             ^ not supported yet
    2098. 

  2098. *****                     ^ not supported yet
    2099. 

  2099. *****                            ^ not supported yet
    2100. 

  2100. *****                                    ^ not supported yet
    2101. 

  2101. *****                                                     ^ not supported yet
    2102. 

  2102.   930            (* if in special key set, execute user program *)
    2103. 

  2103.   931            SavedFieldNum := FrameRec^.CurrentField;
    2104. 

  2104. *****                             ^ not supported yet
    2105. 

  2105. *****                                       ^ not supported yet
    2106. 

  2106.   932            UserOps.TheKeyHandler( FrameRec, key, NextFrame );
    2107. 

  2107. *****            ^ not supported yet
    2108. 

  2108. *****                    ^ not supported yet
    2109. 

  2109. *****                                   ^ not supported yet
    2110. 

  2110. *****                                                  ^ not supported yet
    2111. 

  2111.   933            ScrnUtl1.SetCurrentField( FrameRec, SavedFieldNum );
    2112. 

  2112. *****            ^ not supported yet
    2113. 

  2113. *****                     ^ not supported yet
    2114. 

  2114. *****                                      ^ not supported yet
    2115. 

  2115. *****                                                              ^ not supported yet
    2116. 

  2116.   934            tryagain := PosUtils.Equal( NextFrame, ScrnTypes.ContinueInput );
    2117. 

  2117. *****                        ^ not supported yet
    2118. 

  2118. *****                                 ^ not supported yet
    2119. 

  2119. *****                                        ^ not supported yet
    2120. 

  2120. *****                                                   ^ not supported yet
    2121. 

  2121. *****                                                             ^ not supported yet
    2122. 

  2122.   935          ELSE
    2123. 

  2123.   936            (* they hit a key not in the special key set, so
    2124. 

  2124.   937               return *)
    2125. 

  2125.   938            M2Strings.Assign( FrameRec^.normlnext, NextFrame );
    2126. 

  2126. *****            ^ not supported yet
    2127. 

  2127. *****                      ^ not supported yet
    2128. 

  2128. *****                              ^ not supported yet
    2129. 

  2129. *****                                        ^ not supported yet
    2130. 

  2130. *****                                                   ^ not supported yet
    2131. 

  2131.   939            tryagain := FALSE;
    2132. 

  2132.   940          END;
    2133. 

  2133.   941        UNTIL NOT tryagain;
    2134. 

  2134.   942      END HitAnyKey;
    2135. 

  2135. *****          ^ not supported yet
    2136. 

  2136.   943  
    2137. 

  2137.   944  
    2138. 

  2138.   945      PROCEDURE ShowBadType( FrameRec: ScrnTypes.DisplayFrame );
    2139. 

  2139. *****                                                 ^ not supported yet
    2140. 

  2140.   946        VAR
    2141. 

  2141.   947          ImageRec: ScrnTypes.ImageElement;
    2142. 

  2142. *****                              ^ not supported yet
    2143. 

  2143.   948          dumstr: ARRAY [0..79] OF CHAR;
    2144. 

  2144. *****                            ^ not supported yet
    2145. 

  2145. *****                                   ^ not supported yet
    2146. 

  2146.   949        BEGIN
    2147. 

  2147.   950          ScrnUtl1.GetFieldImageRec( FrameRec, FrameRec^.CurrentField,
    2148. 

  2148. *****          ^ not supported yet
    2149. 

  2149. *****                   ^ not supported yet
    2150. 

  2150. *****                                     ^ not supported yet
    2151. 

  2151. *****                                               ^ not supported yet
    2152. 

  2152. *****                                                         ^ not supported yet
    2153. 

  2153.   951              ImageRec );
    2154. 

  2154. *****              ^ not supported yet
    2155. 

  2155.   952          M2Strings.Concat("Bad type in ControlFrame. Text = ", ImageRec.text,
    2156. 

  2156. *****          ^ not supported yet
    2157. 

  2157. *****                    ^ not supported yet
    2158. 

  2158. *****                           ^ not supported yet
    2159. 

  2159. *****                                                                ^ not supported yet
    2160. 

  2160. *****                                                                         ^ not supported yet
    2161. 

  2161.   953              dumstr );
    2162. 

  2162. *****              ^ not supported yet
    2163. 

  2163.   954          ErrorManager.WARN( dumstr );
    2164. 

  2164. *****          ^ not supported yet
    2165. 

  2165. *****                       ^ not supported yet
    2166. 

  2166. *****                             ^ not supported yet
    2167. 

  2167.   955        END ShowBadType;
    2168. 

  2168. *****            ^ not supported yet
    2169. 

  2169.   956  
    2170. 

  2170.   957  
    2171. 

  2171.   958    PROCEDURE NormalKeyResponse( VAR FrameRec:
    2172. 

  2172.   959        ScrnTypes.DisplayFrame; VAR TheFieldRec:
    2173. 

  2173. *****                  ^ not supported yet
    2174. 

  2174.   960        ScrnTypes.InputFieldRecord; VAR LastKey: CARDINAL; VAR
    2175. 

  2175. *****                  ^ not supported yet
    2176. 

  2176.   961        ReturnValue: ScrnTypes.AFrameName );
    2177. 

  2177. *****                               ^ not supported yet
    2178. 

  2178.   962      VAR
    2179. 

  2179.   963        NewField: CARDINAL;
    2180. 

  2180.   964      BEGIN
    2181. 

  2181.   965        NewField := FrameRec^.CurrentField;
    2182. 

  2182. *****                    ^ not supported yet
    2183. 

  2183. *****                              ^ not supported yet
    2184. 

  2184.   966          (*Just in case we don't need to move it.*)
    2185. 

  2185.   967        IF LastKey = Key.Down THEN
    2186. 

  2186. *****                     ^ not supported yet
    2187. 

  2187. *****                         ^ not supported yet
    2188. 

  2188.   968          IF InVerticalGroup( FrameRec, FrameRec^.CurrentField ) THEN
    2189. 

  2189. *****             ^ not supported yet
    2190. 

  2190. *****                              ^ not supported yet
    2191. 

  2191. *****                                        ^ not supported yet
    2192. 

  2192. *****                                                  ^ not supported yet
    2193. 

  2193.   969            NewField := NextSelection( FrameRec, FrameRec^.CurrentField );
    2194. 

  2194. *****                        ^ not supported yet
    2195. 

  2195. *****                                       ^ not supported yet
    2196. 

  2196. *****                                                 ^ not supported yet
    2197. 

  2197. *****                                                           ^ not supported yet
    2198. 

  2198.   970          ELSIF NOT ScrnUtl1.InputFieldsBelow( FrameRec,
    2199. 

  2199. *****                    ^ not supported yet
    2200. 

  2200. *****                             ^ not supported yet
    2201. 

  2201. *****                                               ^ not supported yet
    2202. 

  2202.   971              FrameRec^.CurrentField ) THEN
    2203. 

  2203. *****              ^ not supported yet
    2204. 

  2204. *****                        ^ not supported yet
    2205. 

  2205.   972            IF FrameBelow[0] # 0C THEN
    2206. 

  2206. *****               ^ not supported yet
    2207. 

  2207. *****                           ^ not supported yet
    2208. 

  2208.   973              M2Strings.Assign( FrameBelow, ReturnValue );
    2209. 

  2209. *****              ^ not supported yet
    2210. 

  2210. *****                        ^ not supported yet
    2211. 

  2211. *****                                ^ not supported yet
    2212. 

  2212. *****                                            ^ not supported yet
    2213. 

  2213.   974            ELSE
    2214. 

  2214.   975              NewField := FirstInputField(FrameRec);
    2215. 

  2215. *****                          ^ not supported yet
    2216. 

  2216. *****                                          ^ not supported yet
    2217. 

  2217.   976            END;
    2218. 

  2218.   977          ELSE
    2219. 

  2219.   978            NewField := ClosestField( FrameRec,
    2220. 

  2220. *****                        ^ not supported yet
    2221. 

  2221. *****                                      ^ not supported yet
    2222. 

  2222.   979                FrameRec^.CurrentField, 0, 0, VWindows.South );
    2223. 

  2223. *****                ^ not supported yet
    2224. 

  2224. *****                          ^ not supported yet
    2225. 

  2225. *****                                              ^ not supported yet
    2226. 

  2226. *****                                                       ^ not supported yet
    2227. 

  2227.   980          END;
    2228. 

  2228.   981          MovePointerBar( FrameRec, NewField );
    2229. 

  2229. *****          ^ not supported yet
    2230. 

  2230. *****                          ^ not supported yet
    2231. 

  2231. *****                                             ^ not supported yet
    2232. 

  2232.   982        ELSIF LastKey = Key.Up THEN
    2233. 

  2233. *****                        ^ not supported yet
    2234. 

  2234. *****                            ^ not supported yet
    2235. 

  2235.   983          IF InVerticalGroup( FrameRec, FrameRec^.CurrentField ) THEN
    2236. 

  2236. *****             ^ not supported yet
    2237. 

  2237. *****                              ^ not supported yet
    2238. 

  2238. *****                                        ^ not supported yet
    2239. 

  2239. *****                                                  ^ not supported yet
    2240. 

  2240.   984            NewField := PrevSelection( FrameRec, FrameRec^.CurrentField );
    2241. 

  2241. *****                        ^ not supported yet
    2242. 

  2242. *****                                       ^ not supported yet
    2243. 

  2243. *****                                                 ^ not supported yet
    2244. 

  2244. *****                                                           ^ not supported yet
    2245. 

  2245.   985          ELSIF NOT ScrnUtl1.InputFieldsAbove( FrameRec,
    2246. 

  2246. *****                    ^ not supported yet
    2247. 

  2247. *****                             ^ not supported yet
    2248. 

  2248. *****                                               ^ not supported yet
    2249. 

  2249.   986              FrameRec^.CurrentField ) THEN
    2250. 

  2250. *****              ^ not supported yet
    2251. 

  2251. *****                        ^ not supported yet
    2252. 

  2252.   987            IF FrameAbove[0] # 0C THEN
    2253. 

  2253. *****               ^ not supported yet
    2254. 

  2254. *****                           ^ not supported yet
    2255. 

  2255.   988              M2Strings.Assign( FrameAbove, ReturnValue );
    2256. 

  2256. *****              ^ not supported yet
    2257. 

  2257. *****                        ^ not supported yet
    2258. 

  2258. *****                                ^ not supported yet
    2259. 

  2259. *****                                            ^ not supported yet
    2260. 

  2260.   989            ELSE
    2261. 

  2261.   990              NewField := LastInputField( FrameRec );
    2262. 

  2262. *****                          ^ not supported yet
    2263. 

  2263. *****                                          ^ not supported yet
    2264. 

  2264.   991            END;
    2265. 

  2265.   992          ELSE
    2266. 

  2266.   993            NewField := ClosestField( FrameRec,
    2267. 

  2267. *****                        ^ not supported yet
    2268. 

  2268. *****                                      ^ not supported yet
    2269. 

  2269.   994                FrameRec^.CurrentField, 0, 0, VWindows.North );
    2270. 

  2270. *****                ^ not supported yet
    2271. 

  2271. *****                          ^ not supported yet
    2272. 

  2272. *****                                              ^ not supported yet
    2273. 

  2273. *****                                                       ^ not supported yet
    2274. 

  2274.   995          END;
    2275. 

  2275.   996          MovePointerBar( FrameRec, NewField );
    2276. 

  2276. *****          ^ not supported yet
    2277. 

  2277. *****                          ^ not supported yet
    2278. 

  2278. *****                                             ^ not supported yet
    2279. 

  2279.   997        (* RST Change *)
    2280. 

  2280.   998        ELSIF LastKey = Key.CtrlPgUp THEN
    2281. 

  2281. *****                        ^ not supported yet
    2282. 

  2282. *****                            ^ not supported yet
    2283. 

  2283.   999          MovePointerBar( FrameRec, FirstInputField(FrameRec));
    2284. 

  2284. *****          ^ not supported yet
    2285. 

  2285. *****                          ^ not supported yet
    2286. 

  2286. *****                                    ^ not supported yet
    2287. 

  2287. *****                                                    ^ not supported yet
    2288. 

  2288.  1000        ELSIF LastKey = Key.CtrlPgDn THEN
    2289. 

  2289. *****                        ^ not supported yet
    2290. 

  2290. *****                            ^ not supported yet
    2291. 

  2291.  1001          MovePointerBar( FrameRec, LastInputField(FrameRec));
    2292. 

  2292. *****          ^ not supported yet
    2293. 

  2293. *****                          ^ not supported yet
    2294. 

  2294. *****                                    ^ not supported yet
    2295. 

  2295. *****                                                   ^ not supported yet
    2296. 

  2296.  1002        ELSIF LastKey = Key.PgUp THEN
    2297. 

  2297. *****                        ^ not supported yet
    2298. 

  2298. *****                            ^ not supported yet
    2299. 

  2299.  1003          PageUp(FrameRec);
    2300. 

  2300. *****          ^ not supported yet
    2301. 

  2301. *****                 ^ not supported yet
    2302. 

  2302.  1004        ELSIF LastKey = Key.PgDn THEN
    2303. 

  2303. *****                        ^ not supported yet
    2304. 

  2304. *****                            ^ not supported yet
    2305. 

  2305.  1005          PageDown(FrameRec);
    2306. 

  2306. *****          ^ not supported yet
    2307. 

  2307. *****                   ^ not supported yet
    2308. 

  2308.  1006        ELSIF LastKey = Key.Right THEN
    2309. 

  2309. *****                        ^ not supported yet
    2310. 

  2310. *****                            ^ not supported yet
    2311. 

  2311.  1007          IF InHorizGroup( FrameRec, FrameRec^.CurrentField ) THEN
    2312. 

  2312. *****             ^ not supported yet
    2313. 

  2313. *****                           ^ not supported yet
    2314. 

  2314. *****                                     ^ not supported yet
    2315. 

  2315. *****                                               ^ not supported yet
    2316. 

  2316.  1008            NewField := NextSelection( FrameRec, FrameRec^.CurrentField );
    2317. 

  2317. *****                        ^ not supported yet
    2318. 

  2318. *****                                       ^ not supported yet
    2319. 

  2319. *****                                                 ^ not supported yet
    2320. 

  2320. *****                                                           ^ not supported yet
    2321. 

  2321.  1009          ELSIF (NOT ScrnUtl1.InputFieldsToRight( FrameRec,
    2322. 

  2322. *****                     ^ not supported yet
    2323. 

  2323. *****                              ^ not supported yet
    2324. 

  2324. *****                                                  ^ not supported yet
    2325. 

  2325.  1010              FrameRec^.CurrentField )) AND (FrameRight[0] # 0C) THEN
    2326. 

  2326. *****              ^ not supported yet
    2327. 

  2327. *****                        ^ not supported yet
    2328. 

  2328. *****                                             ^ not supported yet
    2329. 

  2329. *****                                                         ^ not supported yet
    2330. 

  2330.  1011            M2Strings.Assign( FrameRight, ReturnValue );
    2331. 

  2331. *****            ^ not supported yet
    2332. 

  2332. *****                      ^ not supported yet
    2333. 

  2333. *****                              ^ not supported yet
    2334. 

  2334. *****                                          ^ not supported yet
    2335. 

  2335.  1012          ELSE
    2336. 

  2336.  1013            NewField := NextInputField( FrameRec, 0 );
    2337. 

  2337. *****                        ^ not supported yet
    2338. 

  2338. *****                                        ^ not supported yet
    2339. 

  2339. *****                                                    ^ not supported yet
    2340. 

  2340.  1014          END;
    2341. 

  2341.  1015          MovePointerBar( FrameRec, NewField );
    2342. 

  2342. *****          ^ not supported yet
    2343. 

  2343. *****                          ^ not supported yet
    2344. 

  2344. *****                                             ^ not supported yet
    2345. 

  2345.  1016        ELSIF LastKey = Key.Left THEN
    2346. 

  2346. *****                        ^ not supported yet
    2347. 

  2347. *****                            ^ not supported yet
    2348. 

  2348.  1017          IF InHorizGroup( FrameRec, FrameRec^.CurrentField ) THEN
    2349. 

  2349. *****             ^ not supported yet
    2350. 

  2350. *****                           ^ not supported yet
    2351. 

  2351. *****                                     ^ not supported yet
    2352. 

  2352. *****                                               ^ not supported yet
    2353. 

  2353.  1018            NewField := PrevSelection( FrameRec, FrameRec^.CurrentField );
    2354. 

  2354. *****                        ^ not supported yet
    2355. 

  2355. *****                                       ^ not supported yet
    2356. 

  2356. *****                                                 ^ not supported yet
    2357. 

  2357. *****                                                           ^ not supported yet
    2358. 

  2358.  1019          ELSIF (NOT ScrnUtl1.InputFieldsToLeft( FrameRec,
    2359. 

  2359. *****                     ^ not supported yet
    2360. 

  2360. *****                              ^ not supported yet
    2361. 

  2361. *****                                                 ^ not supported yet
    2362. 

  2362.  1020              FrameRec^.CurrentField )) AND (FrameLeft[0] # 0C) THEN
    2363. 

  2363. *****              ^ not supported yet
    2364. 

  2364. *****                        ^ not supported yet
    2365. 

  2365. *****                                             ^ not supported yet
    2366. 

  2366. *****                                                        ^ not supported yet
    2367. 

  2367.  1021            M2Strings.Assign( FrameLeft, ReturnValue );
    2368. 

  2368. *****            ^ not supported yet
    2369. 

  2369. *****                      ^ not supported yet
    2370. 

  2370. *****                              ^ not supported yet
    2371. 

  2371. *****                                         ^ not supported yet
    2372. 

  2372.  1022          ELSE
    2373. 

  2373.  1023            NewField := PrevInputField( FrameRec, 0 );
    2374. 

  2374. *****                        ^ not supported yet
    2375. 

  2375. *****                                        ^ not supported yet
    2376. 

  2376. *****                                                    ^ not supported yet
    2377. 

  2377.  1024          END;
    2378. 

  2378.  1025          MovePointerBar( FrameRec, NewField );
    2379. 

  2379. *****          ^ not supported yet
    2380. 

  2380. *****                          ^ not supported yet
    2381. 

  2381. *****                                             ^ not supported yet
    2382. 

  2382.  1026        ELSIF LastKey = Key.Tab THEN
    2383. 

  2383. *****                        ^ not supported yet
    2384. 

  2384. *****                            ^ not supported yet
    2385. 

  2385.  1027          MovePointerBar( FrameRec, NextInputField( FrameRec, 0 ));
    2386. 

  2386. *****          ^ not supported yet
    2387. 

  2387. *****                          ^ not supported yet
    2388. 

  2388. *****                                    ^ not supported yet
    2389. 

  2389. *****                                                    ^ not supported yet
    2390. 

  2390. *****                                                                ^ not supported yet
    2391. 

  2391.  1028        ELSIF LastKey = Key.BackTab THEN
    2392. 

  2392. *****                        ^ not supported yet
    2393. 

  2393. *****                            ^ not supported yet
    2394. 

  2394.  1029          MovePointerBar( FrameRec, PrevInputField( FrameRec, 0 ));
    2395. 

  2395. *****          ^ not supported yet
    2396. 

  2396. *****                          ^ not supported yet
    2397. 

  2397. *****                                    ^ not supported yet
    2398. 

  2398. *****                                                    ^ not supported yet
    2399. 

  2399. *****                                                                ^ not supported yet
    2400. 

  2400.  1030        ELSIF LastKey = Key.Return THEN
    2401. 

  2401. *****                        ^ not supported yet
    2402. 

  2402. *****                            ^ not supported yet
    2403. 

  2403.  1031          IF TheFieldRec.typ = ScrnTypes.GotoCode THEN
    2404. 

  2404. *****             ^ not supported yet
    2405. 

  2405. *****                         ^ not supported yet
    2406. 

  2406. *****                               ^ not supported yet
    2407. 

  2407. *****                                         ^ not supported yet
    2408. 

  2408.  1032            (* force jump *)
    2409. 

  2409.  1033            M2Strings.Assign( TheFieldRec.ReturnVal, ReturnValue );
    2410. 

  2410. *****            ^ not supported yet
    2411. 

  2411. *****                      ^ not supported yet
    2412. 

  2412. *****                              ^ not supported yet
    2413. 

  2413. *****                                          ^ not supported yet
    2414. 

  2414. *****                                                     ^ not supported yet
    2415. 

  2415.  1034          ELSIF (TheFieldRec.typ = ScrnTypes.GroupMember) THEN
    2416. 

  2416. *****                 ^ not supported yet
    2417. 

  2417. *****                             ^ not supported yet
    2418. 

  2418. *****                                   ^ not supported yet
    2419. 

  2419. *****                                             ^ not supported yet
    2420. 

  2420.  1035            IF (MaxChoices = 1) THEN
    2421. 

  2421.  1036                (* There are no other fields in the frame except
    2422. 

  2422.  1037                   this group.  We know we have to leave, but first
    2423. 

  2423.  1038                   we have to choose a return value (for
    2424. 

  2424.  1039                   compatibility with 1.4.) *)
    2425. 

  2425.  1040              IF M2Strings.Length(TheFieldRec.fnam) > 0 THEN
    2426. 

  2426. *****                 ^ not supported yet
    2427. 

  2427. *****                           ^ not supported yet
    2428. 

  2428. *****                                  ^ not supported yet
    2429. 

  2429. *****                                              ^ not supported yet
    2430. 

  2430.  1041                (*This lets you store the return value in the
    2431. 

  2431.  1042                  field name of the choice. *)
    2432. 

  2432.  1043                M2Strings.Assign( TheFieldRec.fnam, ReturnValue );
    2433. 

  2433. *****                ^ not supported yet
    2434. 

  2434. *****                          ^ not supported yet
    2435. 

  2435. *****                                  ^ not supported yet
    2436. 

  2436. *****                                              ^ not supported yet
    2437. 

  2437. *****                                                    ^ not supported yet
    2438. 

  2438.  1044              ELSE
    2439. 

  2439.  1045                M2Strings.Assign( FrameRec^.normlnext, ReturnValue );
    2440. 

  2440. *****                ^ not supported yet
    2441. 

  2441. *****                          ^ not supported yet
    2442. 

  2442. *****                                  ^ not supported yet
    2443. 

  2443. *****                                            ^ not supported yet
    2444. 

  2444. *****                                                       ^ not supported yet
    2445. 

  2445.  1046              END;
    2446. 

  2446.  1047            ELSE
    2447. 

  2447.  1048              (* There are fields outside this group. Move to the
    2448. 

  2448.  1049                 first one following it.*)
    2449. 

  2449.  1050              NewField := NextInputField( FrameRec, (TheFieldRec.GroupSize -
    2450. 

  2450. *****                          ^ not supported yet
    2451. 

  2451. *****                                          ^ not supported yet
    2452. 

  2452. *****                                                     ^ not supported yet
    2453. 

  2453. *****                                                                 ^ not supported yet
    2454. 

  2454.  1051                 TheFieldRec.GroupID) );
    2455. 

  2455. *****                 ^ not supported yet
    2456. 

  2456. *****                             ^ not supported yet
    2457. 

  2457. *****                                      ^ not supported yet
    2458. 

  2458.  1052              MovePointerBar( FrameRec, NewField );
    2459. 

  2459. *****              ^ not supported yet
    2460. 

  2460. *****                              ^ not supported yet
    2461. 

  2461. *****                                                 ^ not supported yet
    2462. 

  2462.  1053            END;
    2463. 

  2463.  1054          ELSIF MaxChoices#1 THEN
    2464. 

  2464.  1055            MovePointerBar( FrameRec, NextInputField( FrameRec, 0 ) );
    2465. 

  2465. *****            ^ not supported yet
    2466. 

  2466. *****                            ^ not supported yet
    2467. 

  2467. *****                                      ^ not supported yet
    2468. 

  2468. *****                                                      ^ not supported yet
    2469. 

  2469. *****                                                                  ^ not supported yet
    2470. 

  2470.  1056          ELSE
    2471. 

  2471.  1057            M2Strings.Assign( FrameRec^.normlnext, ReturnValue);
    2472. 

  2472. *****            ^ not supported yet
    2473. 

  2473. *****                      ^ not supported yet
    2474. 

  2474. *****                              ^ not supported yet
    2475. 

  2475. *****                                        ^ not supported yet
    2476. 

  2476. *****                                                   ^ not supported yet
    2477. 

  2477.  1058              (* only one field, and it's an input field; leave.*)
    2478. 

  2478.  1059          END;
    2479. 

  2479.  1060        ELSIF SelectionKeyMatch( FrameRec, LastKey, NewField ) THEN
    2480. 

  2480. *****              ^ not supported yet
    2481. 

  2481. *****                                 ^ not supported yet
    2482. 

  2482. *****                                                             ^ not supported yet
    2483. 

  2483.  1061          MovePointerBar( FrameRec, NewField );
    2484. 

  2484. *****          ^ not supported yet
    2485. 

  2485. *****                          ^ not supported yet
    2486. 

  2486. *****                                             ^ not supported yet
    2487. 

  2487.  1062          ScrnUtl1.GetFieldRec( FrameRec, NewField, TheFieldRec );
    2488. 

  2488. *****          ^ not supported yet
    2489. 

  2489. *****                   ^ not supported yet
    2490. 

  2490. *****                                ^ not supported yet
    2491. 

  2491. *****                                                    ^ not supported yet
    2492. 

  2492.  1063          IF (ScrnUtl1.AllFieldsThisType(FrameRec, ScrnTypes.GotoCode)) THEN
    2493. 

  2493. *****              ^ not supported yet
    2494. 

  2494. *****                       ^ not supported yet
    2495. 

  2495. *****                                         ^ not supported yet
    2496. 

  2496. *****                                                   ^ not supported yet
    2497. 

  2497. *****                                                             ^ not supported yet
    2498. 

  2498.  1064            (* If the user presses the selection character of a menu item
    2499. 

  2499.  1065               and the frame contains a mixture of field types, we move the
    2500. 

  2500.  1066               pointer bar to the goto field, but we don't submit the frame, as
    2501. 

  2501.  1067               we do if the frame contains only goto fields.  If you want to
    2502. 

  2502.  1068               submit the frame in that case, change this IF to
    2503. 

  2503.  1069               something like 'IF TheFieldRec.typ = ScrnTypes.GotoCode' *)
    2504. 

  2504.  1070            M2Strings.Assign( TheFieldRec.ReturnVal, ReturnValue );
    2505. 

  2505. *****            ^ not supported yet
    2506. 

  2506. *****                      ^ not supported yet
    2507. 

  2507. *****                              ^ not supported yet
    2508. 

  2508. *****                                          ^ not supported yet
    2509. 

  2509. *****                                                     ^ not supported yet
    2510. 

  2510.  1071          END;
    2511. 

  2511.  1072          IF (ScrnUtl1.AllFieldsThisType(FrameRec, ScrnTypes.GroupMember)) THEN
    2512. 

  2512. *****              ^ not supported yet
    2513. 

  2513. *****                       ^ not supported yet
    2514. 

  2514. *****                                         ^ not supported yet
    2515. 

  2515. *****                                                   ^ not supported yet
    2516. 

  2516. *****                                                             ^ not supported yet
    2517. 

  2517.  1073            M2Strings.Assign( TheFieldRec.fnam, ReturnValue );
    2518. 

  2518. *****            ^ not supported yet
    2519. 

  2519. *****                      ^ not supported yet
    2520. 

  2520. *****                              ^ not supported yet
    2521. 

  2521. *****                                          ^ not supported yet
    2522. 

  2522. *****                                                ^ not supported yet
    2523. 

  2523.  1074          END;
    2524. 

  2524.  1075        END;
    2525. 

  2525.  1076      END NormalKeyResponse;
    2526. 

  2526. *****          ^ not supported yet
    2527. 

  2527.  1077  
    2528. 

  2528.  1078  
    2529. 

  2529.  1079    PROCEDURE NoFieldsKeyResponse( VAR FrameRec: ScrnTypes.DisplayFrame;
    2530. 

  2530. *****                                                           ^ not supported yet
    2531. 

  2531.  1080        VAR LastKey: CARDINAL; VAR ReturnValue: ScrnTypes.AFrameName );
    2532. 

  2532. *****                                                          ^ not supported yet
    2533. 

  2533.  1081      VAR
    2534. 

  2534.  1082        VisibleArea: Rectangles.ARectangle;
    2535. 

  2535. *****                                ^ not supported yet
    2536. 

  2536.  1083        nOutside, oldcs, oldrs, WindowHeight: CARDINAL;
    2537. 

  2537.  1084      BEGIN
    2538. 

  2538.  1085        ScrnUtl1.GetVisibleArea( FrameRec, VisibleArea );
    2539. 

  2539. *****        ^ not supported yet
    2540. 

  2540. *****                 ^ not supported yet
    2541. 

  2541. *****                                 ^ not supported yet
    2542. 

  2542. *****                                           ^ not supported yet
    2543. 

  2543.  1086        WindowHeight := VisibleArea.row2 - VisibleArea.row1 + 1;
    2544. 

  2544. *****                        ^ not supported yet
    2545. 

  2545. *****                                    ^ not supported yet
    2546. 

  2546. *****                                           ^ not supported yet
    2547. 

  2547. *****                                                       ^ not supported yet
    2548. 

  2548.  1087        oldcs := FrameRec^.ColsScrolled;
    2549. 

  2549. *****                 ^ not supported yet
    2550. 

  2550. *****                           ^ not supported yet
    2551. 

  2551.  1088        oldrs := FrameRec^.RowsScrolled;
    2552. 

  2552. *****                 ^ not supported yet
    2553. 

  2553. *****                           ^ not supported yet
    2554. 

  2554.  1089        StrEdit.AssignStr( ScrnTypes.ContinueInput, ReturnValue );
    2555. 

  2555. *****        ^ not supported yet
    2556. 

  2556. *****                ^ not supported yet
    2557. 

  2557. *****                           ^ not supported yet
    2558. 

  2558. *****                                     ^ not supported yet
    2559. 

  2559. *****                                                    ^ not supported yet
    2560. 

  2560.  1090        IF LastKey = Key.Down THEN
    2561. 

  2561. *****                     ^ not supported yet
    2562. 

  2562. *****                         ^ not supported yet
    2563. 

  2563.  1091          IF ScrnUtl1.PartOutside( FrameRec, VisibleArea,
    2564. 

  2564. *****             ^ not supported yet
    2565. 

  2565. *****                      ^ not supported yet
    2566. 

  2566. *****                                   ^ not supported yet
    2567. 

  2567. *****                                             ^ not supported yet
    2568. 

  2568.  1092              VWindows.South ) > 0 THEN
    2569. 

  2569. *****              ^ not supported yet
    2570. 

  2570. *****                       ^ not supported yet
    2571. 

  2571.  1093            INC( FrameRec^.RowsScrolled );
    2572. 

  2572. *****            ^ undeclared identifier
    2573. 

  2573. *****                 ^ not supported yet
    2574. 

  2574. *****                           ^ not supported yet
    2575. 

  2575.  1094          END;
    2576. 

  2576.  1095        ELSIF LastKey = Key.Up THEN
    2577. 

  2577. *****                        ^ not supported yet
    2578. 

  2578. *****                            ^ not supported yet
    2579. 

  2579.  1096          IF ScrnUtl1.PartOutside( FrameRec, VisibleArea,
    2580. 

  2580. *****             ^ not supported yet
    2581. 

  2581. *****                      ^ not supported yet
    2582. 

  2582. *****                                   ^ not supported yet
    2583. 

  2583. *****                                             ^ not supported yet
    2584. 

  2584.  1097              VWindows.North ) > 0 THEN
    2585. 

  2585. *****              ^ not supported yet
    2586. 

  2586. *****                       ^ not supported yet
    2587. 

  2587.  1098            DEC( FrameRec^.RowsScrolled );
    2588. 

  2588. *****            ^ undeclared identifier
    2589. 

  2589. *****                 ^ not supported yet
    2590. 

  2590. *****                           ^ not supported yet
    2591. 

  2591.  1099          END;
    2592. 

  2592.  1100        ELSIF LastKey = Key.PgUp THEN
    2593. 

  2593. *****                        ^ not supported yet
    2594. 

  2594. *****                            ^ not supported yet
    2595. 

  2595.  1101          IF ScrnUtl1.PartOutside( FrameRec, VisibleArea,
    2596. 

  2596. *****             ^ not supported yet
    2597. 

  2597. *****                      ^ not supported yet
    2598. 

  2598. *****                                   ^ not supported yet
    2599. 

  2599. *****                                             ^ not supported yet
    2600. 

  2600.  1102              VWindows.North ) > WindowHeight THEN
    2601. 

  2601. *****              ^ not supported yet
    2602. 

  2602. *****                       ^ not supported yet
    2603. 

  2603.  1103            DEC( FrameRec^.RowsScrolled, WindowHeight );
    2604. 

  2604. *****            ^ undeclared identifier
    2605. 

  2605. *****                 ^ not supported yet
    2606. 

  2606. *****                           ^ not supported yet
    2607. 

  2607. *****                                                      ^ not supported yet
    2608. 

  2608.  1104          ELSE
    2609. 

  2609.  1105            FrameRec^.RowsScrolled := 0;
    2610. 

  2610. *****            ^ not supported yet
    2611. 

  2611. *****                      ^ not supported yet
    2612. 

  2612.  1106          END;
    2613. 

  2613.  1107        ELSIF LastKey = Key.PgDn THEN
    2614. 

  2614. *****                        ^ not supported yet
    2615. 

  2615. *****                            ^ not supported yet
    2616. 

  2616.  1108          IF ScrnUtl1.PartOutside( FrameRec, VisibleArea,
    2617. 

  2617. *****             ^ not supported yet
    2618. 

  2618. *****                      ^ not supported yet
    2619. 

  2619. *****                                   ^ not supported yet
    2620. 

  2620. *****                                             ^ not supported yet
    2621. 

  2621.  1109              VWindows.South ) > WindowHeight THEN
    2622. 

  2622. *****              ^ not supported yet
    2623. 

  2623. *****                       ^ not supported yet
    2624. 

  2624.  1110            INC( FrameRec^.RowsScrolled, WindowHeight );
    2625. 

  2625. *****            ^ undeclared identifier
    2626. 

  2626. *****                 ^ not supported yet
    2627. 

  2627. *****                           ^ not supported yet
    2628. 

  2628. *****                                                      ^ not supported yet
    2629. 

  2629.  1111          ELSIF FrameRec^.VirtualHeight > WindowHeight THEN
    2630. 

  2630. *****                ^ not supported yet
    2631. 

  2631. *****                          ^ not supported yet
    2632. 

  2632.  1112            FrameRec^.RowsScrolled := FrameRec^.VirtualHeight - WindowHeight;
    2633. 

  2633. *****            ^ not supported yet
    2634. 

  2634. *****                      ^ not supported yet
    2635. 

  2635. *****                                      ^ not supported yet
    2636. 

  2636. *****                                                ^ not supported yet
    2637. 

  2637.  1113          ELSE
    2638. 

  2638.  1114            FrameRec^.RowsScrolled := 0;
    2639. 

  2639. *****            ^ not supported yet
    2640. 

  2640. *****                      ^ not supported yet
    2641. 

  2641.  1115          END;
    2642. 

  2642.  1116        ELSIF LastKey = Key.Right THEN
    2643. 

  2643. *****                        ^ not supported yet
    2644. 

  2644. *****                            ^ not supported yet
    2645. 

  2645.  1117          IF ScrnUtl1.PartOutside( FrameRec, VisibleArea,
    2646. 

  2646. *****             ^ not supported yet
    2647. 

  2647. *****                      ^ not supported yet
    2648. 

  2648. *****                                   ^ not supported yet
    2649. 

  2649. *****                                             ^ not supported yet
    2650. 

  2650.  1118              VWindows.East ) > 0 THEN
    2651. 

  2651. *****              ^ not supported yet
    2652. 

  2652. *****                       ^ not supported yet
    2653. 

  2653.  1119            INC( FrameRec^.ColsScrolled );
    2654. 

  2654. *****            ^ undeclared identifier
    2655. 

  2655. *****                 ^ not supported yet
    2656. 

  2656. *****                           ^ not supported yet
    2657. 

  2657.  1120          END;
    2658. 

  2658.  1121        ELSIF LastKey = Key.Left THEN
    2659. 

  2659. *****                        ^ not supported yet
    2660. 

  2660. *****                            ^ not supported yet
    2661. 

  2661.  1122          IF ScrnUtl1.PartOutside( FrameRec, VisibleArea,
    2662. 

  2662. *****             ^ not supported yet
    2663. 

  2663. *****                      ^ not supported yet
    2664. 

  2664. *****                                   ^ not supported yet
    2665. 

  2665. *****                                             ^ not supported yet
    2666. 

  2666.  1123              VWindows.West ) > 0 THEN
    2667. 

  2667. *****              ^ not supported yet
    2668. 

  2668. *****                       ^ not supported yet
    2669. 

  2669.  1124            DEC( FrameRec^.ColsScrolled );
    2670. 

  2670. *****            ^ undeclared identifier
    2671. 

  2671. *****                 ^ not supported yet
    2672. 

  2672. *****                           ^ not supported yet
    2673. 

  2673.  1125          END;
    2674. 

  2674.  1126        ELSIF LastKey = Key.Tab THEN
    2675. 

  2675. *****                        ^ not supported yet
    2676. 

  2676. *****                            ^ not supported yet
    2677. 

  2677.  1127          nOutside := ScrnUtl1.PartOutside( FrameRec, VisibleArea, VWindows.East);
    2678. 

  2678. *****                      ^ not supported yet
    2679. 

  2679. *****                               ^ not supported yet
    2680. 

  2680. *****                                            ^ not supported yet
    2681. 

  2681. *****                                                      ^ not supported yet
    2682. 

  2682. *****                                                                   ^ not supported yet
    2683. 

  2683. *****                                                                            ^ not supported yet
    2684. 

  2684.  1128          IF nOutside > 8 THEN
    2685. 

  2685.  1129            INC( FrameRec^.ColsScrolled, 8 );
    2686. 

  2686. *****            ^ undeclared identifier
    2687. 

  2687. *****                 ^ not supported yet
    2688. 

  2688. *****                           ^ not supported yet
    2689. 

  2689. *****                                           ^ not supported yet
    2690. 

  2690.  1130          ELSIF nOutside > 0 THEN
    2691. 

  2691.  1131            INC( FrameRec^.ColsScrolled, nOutside);
    2692. 

  2692. *****            ^ undeclared identifier
    2693. 

  2693. *****                 ^ not supported yet
    2694. 

  2694. *****                           ^ not supported yet
    2695. 

  2695. *****                                                 ^ not supported yet
    2696. 

  2696.  1132          END;
    2697. 

  2697.  1133        ELSIF LastKey = Key.BackTab THEN
    2698. 

  2698. *****                        ^ not supported yet
    2699. 

  2699. *****                            ^ not supported yet
    2700. 

  2700.  1134          nOutside := ScrnUtl1.PartOutside( FrameRec, VisibleArea,VWindows.West);
    2701. 

  2701. *****                      ^ not supported yet
    2702. 

  2702. *****                               ^ not supported yet
    2703. 

  2703. *****                                            ^ not supported yet
    2704. 

  2704. *****                                                      ^ not supported yet
    2705. 

  2705. *****                                                                  ^ not supported yet
    2706. 

  2706. *****                                                                           ^ not supported yet
    2707. 

  2707.  1135          IF nOutside > 8 THEN
    2708. 

  2708.  1136            DEC( FrameRec^.ColsScrolled, 8 );
    2709. 

  2709. *****            ^ undeclared identifier
    2710. 

  2710. *****                 ^ not supported yet
    2711. 

  2711. *****                           ^ not supported yet
    2712. 

  2712. *****                                           ^ not supported yet
    2713. 

  2713.  1137          ELSIF nOutside > 0 THEN
    2714. 

  2714.  1138            DEC( FrameRec^.ColsScrolled, nOutside);
    2715. 

  2715. *****            ^ undeclared identifier
    2716. 

  2716. *****                 ^ not supported yet
    2717. 

  2717. *****                           ^ not supported yet
    2718. 

  2718. *****                                                 ^ not supported yet
    2719. 

  2719.  1139          END;
    2720. 

  2720.  1140        ELSIF LastKey = Key.Return THEN
    2721. 

  2721. *****                        ^ not supported yet
    2722. 

  2722. *****                            ^ not supported yet
    2723. 

  2723.  1141          M2Strings.Assign( FrameRec^.normlnext, ReturnValue);
    2724. 

  2724. *****          ^ not supported yet
    2725. 

  2725. *****                    ^ not supported yet
    2726. 

  2726. *****                            ^ not supported yet
    2727. 

  2727. *****                                      ^ not supported yet
    2728. 

  2728. *****                                                 ^ not supported yet
    2729. 

  2729.  1142          RETURN;
    2730. 

  2730.  1143        END;
    2731. 

  2731.  1144        SlideFrame( FrameRec, oldcs, FrameRec^.ColsScrolled,
    2732. 

  2732. *****        ^ not supported yet
    2733. 

  2733. *****                    ^ not supported yet
    2734. 

  2734. *****                                     ^ not supported yet
    2735. 

  2735. *****                                               ^ not supported yet
    2736. 

  2736.  1145            oldrs, FrameRec^.RowsScrolled );
    2737. 

  2737. *****                   ^ not supported yet
    2738. 

  2738. *****                             ^ not supported yet
    2739. 

  2739.  1146      END NoFieldsKeyResponse;
    2740. 

  2740. *****          ^ not supported yet
    2741. 

  2741.  1147  
    2742. 

  2742.  1148  
    2743. 

  2743.  1149    PROCEDURE RepaintVisibleArea();
    2744. 

  2744.  1150      VAR
    2745. 

  2745.  1151        FirstVisibleRow, FirstVisibleCol, LastVisibleRow,
    2746. 

  2746.  1152            LastVisibleCol : CARDINAL;
    2747. 

  2747.  1153        Vis : Rectangles.ARectangle;
    2748. 

  2748. *****                         ^ not supported yet
    2749. 

  2749.  1154      BEGIN
    2750. 

  2750.  1155        ScrnUtl1.GetVisibleArea(FrameRec, Vis);
    2751. 

  2751. *****        ^ not supported yet
    2752. 

  2752. *****                 ^ not supported yet
    2753. 

  2753. *****                                ^ not supported yet
    2754. 

  2754. *****                                          ^ not supported yet
    2755. 

  2755.  1156        WITH Vis DO
    2756. 

  2756. *****             ^ not supported yet
    2757. 

  2757.  1157          FirstVisibleRow := CARDINAL(row1);
    2758. 

  2758. *****                                      ^ undeclared identifier
    2759. 

  2759.  1158          LastVisibleRow := CARDINAL(row2);
    2760. 

  2760. *****                                     ^ undeclared identifier
    2761. 

  2761.  1159          FirstVisibleCol := CARDINAL(col1);
    2762. 

  2762. *****                                      ^ undeclared identifier
    2763. 

  2763.  1160          LastVisibleCol := CARDINAL(col2);
    2764. 

  2764. *****                                     ^ undeclared identifier
    2765. 

  2765.  1161            (* 11 Oct 88:  removed +RowsScrolled from each of
    2766. 

  2766.  1162               these lines at suggestion of Karta Khalsa and
    2767. 

  2767.  1163               Ulrik Schmidt. *)
    2768. 

  2768.  1164        END;
    2769. 

  2769. *****        ^ not supported yet
    2770. 

  2770.  1165        FramePainter.RedrawArea( FrameRec, FirstVisibleCol, FirstVisibleRow,
    2771. 

  2771. *****        ^ not supported yet
    2772. 

  2772. *****                     ^ not supported yet
    2773. 

  2773. *****                                 ^ not supported yet
    2774. 

  2774. *****                                           ^ undeclared identifier
    2775. 

  2775. *****                                                            ^ undeclared identifier
    2776. 

  2776.  1166            LastVisibleCol, LastVisibleRow);
    2777. 

  2777. *****            ^ undeclared identifier
    2778. 

  2778. *****                            ^ undeclared identifier
    2779. 

  2779.  1167      END RepaintVisibleArea;
    2780. 

  2780. *****          ^ not supported yet
    2781. 

  2781.  1168  
    2782. 

  2782.  1169      BEGIN
    2783. 

  2783.  1170        (*ControlFrame*)
    2784. 

  2784.  1171  
    2785. 

  2785.  1172        VWindows.SetCursorHeight( FrameRec^.WindowHandle, 0 );
    2786. 

  2786. *****        ^ not supported yet
    2787. 

  2787. *****                 ^ not supported yet
    2788. 

  2788. *****                                  ^ undeclared identifier
    2789. 

  2789. *****                                            ^ not supported yet
    2790. 

  2790. *****                                                            ^ not supported yet
    2791. 

  2791.  1173        M2Strings.Assign(message, LocalMessage);
    2792. 

  2792. *****        ^ not supported yet
    2793. 

  2793. *****                  ^ not supported yet
    2794. 

  2794. *****                         ^ undeclared identifier
    2795. 

  2795. *****                                  ^ undeclared identifier
    2796. 

  2796.  1174        IF RedrawFirst THEN
    2797. 

  2797. *****           ^ undeclared identifier
    2798. 

  2798.  1175          RepaintVisibleArea();
    2799. 

  2799. *****          ^ undeclared identifier
    2800. 

  2800. *****                             ^ not supported yet
    2801. 

  2801.  1176        END;
    2802. 

  2802.  1177  
    2803. 

  2803.  1178        MaxChoices := ScrnUtl1.FieldGroupTotal( FrameRec );
    2804. 

  2804. *****        ^ undeclared identifier
    2805. 

  2805. *****                      ^ not supported yet
    2806. 

  2806. *****                               ^ not supported yet
    2807. 

  2807. *****                                                ^ undeclared identifier
    2808. 

  2808.  1179          (* Number of choices or fields in the frame, counting each
    2809. 

  2809.  1180             group of choice fields as a single choice. *)
    2810. 

  2810.  1181        M2Strings.Assign( FrameRec^.normlnext, NextFrame );
    2811. 

  2811. *****        ^ not supported yet
    2812. 

  2812. *****                  ^ not supported yet
    2813. 

  2813. *****                          ^ undeclared identifier
    2814. 

  2814. *****                                    ^ not supported yet
    2815. 

  2815. *****                                               ^ undeclared identifier
    2816. 

  2816.  1182        MakeLegalKeys( FrameRec, TmpScreenKeys );
    2817. 

  2817. *****        ^ not supported yet
    2818. 

  2818. *****                       ^ undeclared identifier
    2819. 

  2819. *****                                 ^ undeclared identifier
    2820. 

  2820.  1183        StrEdit.LowerStr( FrameRec^.action );
    2821. 

  2821. *****        ^ not supported yet
    2822. 

  2822. *****                ^ not supported yet
    2823. 

  2823. *****                          ^ undeclared identifier
    2824. 

  2824. *****                                    ^ not supported yet
    2825. 

  2825.  1184          (* Added 13 Nov 88.  We lowercase the action char while
    2826. 

  2826.  1185             the frame is active and restore it to uppercase when it is
    2827. 

  2827.  1186             not so that we have a temporary way of determining
    2828. 

  2828.  1187             whether the frame is active.  Don't rely on this.  In
    2829. 

  2829.  1188             a future release we will add a boolean to the DisplayFrame
    2830. 

  2830.  1189             record and quit using this kludge. *)
    2831. 

  2831.  1190        IF CAP(FrameRec^.action) = ScrnTypes.DispCode THEN
    2832. 

  2832. *****           ^ undeclared identifier
    2833. 

  2833. *****               ^ undeclared identifier
    2834. 

  2834. *****                         ^ not supported yet
    2835. 

  2835. *****                                   ^ not supported yet
    2836. 

  2836. *****                                             ^ not supported yet
    2837. 

  2837.  1191          (* Do not process user input.  Note that we don't call
    2838. 

  2838.  1192             EraseFrame if the frame is both DisplayOnly and
    2839. 

  2839.  1193             ClearAfter, since this combination really doesn't make
    2840. 

  2840.  1194             sense -- latter is probably programmer's mistake. *)
    2841. 

  2841.  1195          RETURN;
    2842. 

  2842.  1196        END;
    2843. 

  2843.  1197        IF FrameRec^.EntryBox[0] # 0C THEN
    2844. 

  2844. *****           ^ undeclared identifier
    2845. 

  2845. *****                     ^ not supported yet
    2846. 

  2846. *****                               ^ not supported yet
    2847. 

  2847.  1198          (*Now we change the appearance of the border to let the
    2848. 

  2848.  1199            user know the frame is active.*)
    2849. 

  2849.  1200          ScrnUtl1.BoxFrame( FrameRec, TRUE );
    2850. 

  2850. *****          ^ not supported yet
    2851. 

  2851. *****                   ^ not supported yet
    2852. 

  2852. *****                             ^ undeclared identifier
    2853. 

  2853. *****                                            ^ not supported yet
    2854. 

  2854.  1201        END;
    2855. 

  2855.  1202        IF (CAP(FrameRec^.action) = 'W') THEN
    2856. 

  2856. *****            ^ undeclared identifier
    2857. 

  2857. *****                ^ undeclared identifier
    2858. 

  2858. *****                          ^ not supported yet
    2859. 

  2859.  1203          (* wait for any user input, then exit *)
    2860. 

  2860.  1204          HitAnyKey( NextFrame );
    2861. 

  2861. *****          ^ undeclared identifier
    2862. 

  2862. *****                     ^ undeclared identifier
    2863. 

  2863.  1205          IF FrameRec^.ExitBox[0] # 0C THEN
    2864. 

  2864. *****             ^ undeclared identifier
    2865. 

  2865. *****                       ^ not supported yet
    2866. 

  2866. *****                                ^ not supported yet
    2867. 

  2867.  1206            (*Now we change the appearance of the border to let the
    2868. 

  2868.  1207              user know the frame is no longer active.*)
    2869. 

  2869.  1208            ScrnUtl1.BoxFrame( FrameRec, FALSE );
    2870. 

  2870. *****            ^ not supported yet
    2871. 

  2871. *****                     ^ not supported yet
    2872. 

  2872. *****                               ^ undeclared identifier
    2873. 

  2873. *****                                               ^ not supported yet
    2874. 

  2874.  1209          END;
    2875. 

  2875.  1210          IF FrameRec^.ClearAfter THEN
    2876. 

  2876. *****             ^ undeclared identifier
    2877. 

  2877. *****                       ^ not supported yet
    2878. 

  2878.  1211            FrameManager.EraseFrame( FrameRec );
    2879. 

  2879. *****            ^ not supported yet
    2880. 

  2880. *****                         ^ not supported yet
    2881. 

  2881. *****                                     ^ undeclared identifier
    2882. 

  2882.  1212          END;
    2883. 

  2883.  1213          RETURN;
    2884. 

  2884.  1214        END;
    2885. 

  2885.  1215        HiLiteSelChars( FrameRec );
    2886. 

  2886. *****        ^ not supported yet
    2887. 

  2887. *****                        ^ undeclared identifier
    2888. 

  2888.  1216        StrEdit.SetLength( ReturnValue, 0 );
    2889. 

  2889. *****        ^ not supported yet
    2890. 

  2890. *****                ^ not supported yet
    2891. 

  2891. *****                           ^ undeclared identifier
    2892. 

  2892. *****                                          ^ not supported yet
    2893. 

  2893.  1217        ScrnUtl1.GetFrameLinks( FrameRec, FrameAbove, FrameBelow, FrameLeft,
    2894. 

  2894. *****        ^ not supported yet
    2895. 

  2895. *****                 ^ not supported yet
    2896. 

  2896. *****                                ^ undeclared identifier
    2897. 

  2897. *****                                          ^ undeclared identifier
    2898. 

  2898. *****                                                      ^ undeclared identifier
    2899. 

  2899. *****                                                                  ^ undeclared identifier
    2900. 

  2900.  1218            FrameRight );
    2901. 

  2901. *****            ^ undeclared identifier
    2902. 

  2902.  1219        FrameRec^.CurrentField := 0;
    2903. 

  2903. *****        ^ undeclared identifier
    2904. 

  2904. *****                  ^ not supported yet
    2905. 

  2905.  1220          (*Prevent MovePointerBar from exiting if CurrentField
    2906. 

  2906.  1221            happens to equal LandingField.*)
    2907. 

  2907.  1222        IF (LandingField=0) AND (MaxChoices > 0) THEN
    2908. 

  2908. *****            ^ undeclared identifier
    2909. 

  2909. *****                                 ^ undeclared identifier
    2910. 

  2910.  1223          MovePointerBar( FrameRec, FirstInputField(FrameRec));
    2911. 

  2911. *****          ^ not supported yet
    2912. 

  2912. *****                          ^ undeclared identifier
    2913. 

  2913. *****                                    ^ not supported yet
    2914. 

  2914. *****                                                    ^ undeclared identifier
    2915. 

  2915.  1224          (*highlights first choice*)
    2916. 

  2916.  1225        END;
    2917. 

  2917.  1226  
    2918. 

  2918.  1227        REPEAT
    2919. 

  2919.  1228          IF (LandingField # 0) AND (MaxChoices > 0) THEN
    2920. 

  2920. *****              ^ undeclared identifier
    2921. 

  2921. *****                                     ^ undeclared identifier
    2922. 

  2922.  1229            (* LandingField is not 0, so highlight the specified
    2923. 

  2923.  1230               field.  We do this at the top of each loop so that
    2924. 

  2924.  1231               ControlFrame can signal errors from within the loop. *)
    2925. 

  2925.  1232            MovePointerBar( FrameRec, LandingField );
    2926. 

  2926. *****            ^ not supported yet
    2927. 

  2927. *****                            ^ undeclared identifier
    2928. 

  2928. *****                                      ^ undeclared identifier
    2929. 

  2929.  1233            LandingField := 0;
    2930. 

  2930. *****            ^ undeclared identifier
    2931. 

  2931.  1234          END;
    2932. 

  2932.  1235          IF M2Strings.Length( LocalMessage ) > 0 THEN
    2933. 

  2933. *****             ^ not supported yet
    2934. 

  2934. *****                       ^ not supported yet
    2935. 

  2935. *****                               ^ undeclared identifier
    2936. 

  2936.  1236            MsgBox2.StrMsgBox( FrameRec, VWindows.SE, LocalMessage );
    2937. 

  2937. *****            ^ not supported yet
    2938. 

  2938. *****                    ^ not supported yet
    2939. 

  2939. *****                               ^ undeclared identifier
    2940. 

  2940. *****                                         ^ not supported yet
    2941. 

  2941. *****                                                  ^ not supported yet
    2942. 

  2942. *****                                                      ^ undeclared identifier
    2943. 

  2943.  1237            StrEdit.SetLength( LocalMessage, 0 );
    2944. 

  2944. *****            ^ not supported yet
    2945. 

  2945. *****                    ^ not supported yet
    2946. 

  2946. *****                               ^ undeclared identifier
    2947. 

  2947. *****                                               ^ not supported yet
    2948. 

  2948.  1238          END;
    2949. 

  2949.  1239  
    2950. 

  2950.  1240          IF (MaxChoices = 0) OR
    2951. 

  2951. *****              ^ undeclared identifier
    2952. 

  2952.  1241              (ScrnUtl1.AllFieldsThisType(FrameRec, ScrnTypes.DispCode)) THEN
    2953. 

  2953. *****               ^ not supported yet
    2954. 

  2954. *****                        ^ not supported yet
    2955. 

  2955. *****                                          ^ undeclared identifier
    2956. 

  2956. *****                                                    ^ not supported yet
    2957. 

  2957. *****                                                              ^ not supported yet
    2958. 

  2958.  1242            LastKey := KbdInput.KeyHit( TmpScreenKeys );
    2959. 

  2959. *****            ^ undeclared identifier
    2960. 

  2960. *****                       ^ not supported yet
    2961. 

  2961. *****                                ^ not supported yet
    2962. 

  2962. *****                                        ^ undeclared identifier
    2963. 

  2963.  1243            UserOps.TheKeyHandler( FrameRec, LastKey, ReturnValue );
    2964. 

  2964. *****            ^ not supported yet
    2965. 

  2965. *****                    ^ not supported yet
    2966. 

  2966. *****                                   ^ undeclared identifier
    2967. 

  2967. *****                                             ^ undeclared identifier
    2968. 

  2968. *****                                                      ^ undeclared identifier
    2969. 

  2969.  1244            IF PosUtils.Equal( ReturnValue, ScrnTypes.ContinueInput ) THEN
    2970. 

  2970. *****               ^ not supported yet
    2971. 

  2971. *****                        ^ not supported yet
    2972. 

  2972. *****                               ^ undeclared identifier
    2973. 

  2973. *****                                            ^ not supported yet
    2974. 

  2974. *****                                                      ^ not supported yet
    2975. 

  2975.  1245              NoFieldsKeyResponse( FrameRec, LastKey, ReturnValue );
    2976. 

  2976. *****              ^ undeclared identifier
    2977. 

  2977. *****                                   ^ undeclared identifier
    2978. 

  2978. *****                                             ^ undeclared identifier
    2979. 

  2979. *****                                                      ^ undeclared identifier
    2980. 

  2980.  1246            END;
    2981. 

  2981.  1247          ELSE
    2982. 

  2982.  1248            ScrnUtl1.GetFieldRec( FrameRec, FrameRec^.CurrentField, FieldRec );
    2983. 

  2983. *****            ^ not supported yet
    2984. 

  2984. *****                     ^ not supported yet
    2985. 

  2985. *****                                  ^ undeclared identifier
    2986. 

  2986. *****                                            ^ undeclared identifier
    2987. 

  2987. *****                                                      ^ not supported yet
    2988. 

  2988. *****                                                                    ^ undeclared identifier
    2989. 

  2989.  1249            SavedFieldNum := FrameRec^.CurrentField;
    2990. 

  2990. *****            ^ undeclared identifier
    2991. 

  2991. *****                             ^ undeclared identifier
    2992. 

  2992. *****                                       ^ not supported yet
    2993. 

  2993.  1250            CASE FieldRec.typ OF
    2994. 

  2994. *****                 ^ undeclared identifier
    2995. 

  2995. *****                          ^ not supported yet
    2996. 

  2996.  1251              ScrnTypes.GotoCode, ScrnTypes.GroupMember :
    2997. 

  2997. *****              ^ not supported yet
    2998. 

  2998. *****                        ^ not supported yet
    2999. 

  2999. *****                                  ^ not supported yet
    3000. 

  3000. *****                                            ^ not supported yet
    3001. 

  3001.  1252              LastKey := KbdInput.KeyHit( TmpScreenKeys );
    3002. 

  3002. *****              ^ undeclared identifier
    3003. 

  3003. *****                         ^ not supported yet
    3004. 

  3004. *****                                  ^ not supported yet
    3005. 

  3005. *****                                          ^ undeclared identifier
    3006. 

  3006.  1253              UserOps.TheKeyHandler( FrameRec, LastKey, ReturnValue );
    3007. 

  3007. *****              ^ not supported yet
    3008. 

  3008. *****                      ^ not supported yet
    3009. 

  3009. *****                                     ^ undeclared identifier
    3010. 

  3010. *****                                               ^ undeclared identifier
    3011. 

  3011. *****                                                        ^ undeclared identifier
    3012. 

  3012.  1254            ELSE
    3013. 

  3013.  1255              AbsFldRow := ScrnUtl1.AbsFieldRow(FrameRec,
    3014. 

  3014. *****              ^ undeclared identifier
    3015. 

  3015. *****                           ^ not supported yet
    3016. 

  3016. *****                                    ^ not supported yet
    3017. 

  3017. *****                                                ^ undeclared identifier
    3018. 

  3018.  1256              FrameRec^.CurrentField);
    3019. 

  3019. *****              ^ undeclared identifier
    3020. 

  3020. *****                        ^ not supported yet
    3021. 

  3021.  1257              AbsFldCol := ScrnUtl1.AbsFieldCol(FrameRec,
    3022. 

  3022. *****              ^ undeclared identifier
    3023. 

  3023. *****                           ^ not supported yet
    3024. 

  3024. *****                                    ^ not supported yet
    3025. 

  3025. *****                                                ^ undeclared identifier
    3026. 

  3026.  1258              FrameRec^.CurrentField);
    3027. 

  3027. *****              ^ undeclared identifier
    3028. 

  3028. *****                        ^ not supported yet
    3029. 

  3029.  1259              UserOps.TheFieldHandler( FrameRec,
    3030. 

  3030. *****              ^ not supported yet
    3031. 

  3031. *****                      ^ not supported yet
    3032. 

  3032. *****                                       ^ undeclared identifier
    3033. 

  3033.  1260                  AbsFldCol, AbsFldRow, LastKey, ReturnValue );
    3034. 

  3034. *****                  ^ undeclared identifier
    3035. 

  3035. *****                             ^ undeclared identifier
    3036. 

  3036. *****                                        ^ undeclared identifier
    3037. 

  3037. *****                                                 ^ undeclared identifier
    3038. 

  3038.  1261              ScrnUtl1.GetFieldRec( FrameRec, FrameRec^.CurrentField,
    3039. 

  3039. *****              ^ not supported yet
    3040. 

  3040. *****                       ^ not supported yet
    3041. 

  3041. *****                                    ^ undeclared identifier
    3042. 

  3042. *****                                              ^ undeclared identifier
    3043. 

  3043. *****                                                        ^ not supported yet
    3044. 

  3044.  1262                  FieldRec );
    3045. 

  3045. *****                  ^ undeclared identifier
    3046. 

  3046.  1263              IF FieldRec.ChangeMade THEN
    3047. 

  3047. *****                 ^ undeclared identifier
    3048. 

  3048. *****                          ^ not supported yet
    3049. 

  3049.  1264                FrameRec^.FrameChanged := TRUE;
    3050. 

  3050. *****                ^ undeclared identifier
    3051. 

  3051. *****                          ^ not supported yet
    3052. 

  3052.  1265              END;
    3053. 

  3053.  1266            END;
    3054. 

  3054.  1267            IF PosUtils.Equal( 'MovePointerBar', ReturnValue ) THEN
    3055. 

  3055. *****               ^ not supported yet
    3056. 

  3056. *****                        ^ not supported yet
    3057. 

  3057. *****                               ^ not supported yet
    3058. 

  3058. *****                                                 ^ undeclared identifier
    3059. 

  3059.  1268              StrEdit.AssignStr( ScrnTypes.ContinueInput, ReturnValue );
    3060. 

  3060. *****              ^ not supported yet
    3061. 

  3061. *****                      ^ not supported yet
    3062. 

  3062. *****                                 ^ not supported yet
    3063. 

  3063. *****                                           ^ not supported yet
    3064. 

  3064. *****                                                          ^ undeclared identifier
    3065. 

  3065.  1269              MovePointerBar( FrameRec, FrameRec^.CurrentField );
    3066. 

  3066. *****              ^ not supported yet
    3067. 

  3067. *****                              ^ undeclared identifier
    3068. 

  3068. *****                                        ^ undeclared identifier
    3069. 

  3069. *****                                                  ^ not supported yet
    3070. 

  3070.  1270            ELSE
    3071. 

  3071.  1271              ScrnUtl1.SetCurrentField( FrameRec, SavedFieldNum );
    3072. 

  3072. *****              ^ not supported yet
    3073. 

  3073. *****                       ^ not supported yet
    3074. 

  3074. *****                                        ^ undeclared identifier
    3075. 

  3075. *****                                                  ^ undeclared identifier
    3076. 

  3076.  1272              IF PosUtils.Equal( ReturnValue, ScrnTypes.ContinueInput ) THEN
    3077. 

  3077. *****                 ^ not supported yet
    3078. 

  3078. *****                          ^ not supported yet
    3079. 

  3079. *****                                 ^ undeclared identifier
    3080. 

  3080. *****                                              ^ not supported yet
    3081. 

  3081. *****                                                        ^ not supported yet
    3082. 

  3082.  1273                (* Now, process defined action keys *)
    3083. 

  3083.  1274                NormalKeyResponse( FrameRec, FieldRec, LastKey, ReturnValue );
    3084. 

  3084. *****                ^ undeclared identifier
    3085. 

  3085. *****                                   ^ undeclared identifier
    3086. 

  3086. *****                                             ^ undeclared identifier
    3087. 

  3087. *****                                                       ^ undeclared identifier
    3088. 

  3088. *****                                                                ^ undeclared identifier
    3089. 

  3089.  1275              END;
    3090. 

  3090.  1276            END;
    3091. 

  3091.  1277  
    3092. 

  3092.  1278            IF (NOT PosUtils.Equal(ReturnValue, ScrnTypes.ContinueInput))
    3093. 

  3093. *****                    ^ not supported yet
    3094. 

  3094. *****                             ^ not supported yet
    3095. 

  3095. *****                                   ^ undeclared identifier
    3096. 

  3096. *****                                                ^ not supported yet
    3097. 

  3097. *****                                                          ^ not supported yet
    3098. 

  3098.  1279                AND (LastKey # UserOps.BackupKey)
    3099. 

  3099. *****                     ^ undeclared identifier
    3100. 

  3100. *****                               ^ not supported yet
    3101. 

  3101. *****                                       ^ not supported yet
    3102. 

  3102.  1280                AND (LastKey # UserOps.ExitKey) THEN
    3103. 

  3103. *****                     ^ undeclared identifier
    3104. 

  3104. *****                               ^ not supported yet
    3105. 

  3105. *****                                       ^ not supported yet
    3106. 

  3106.  1281              (* Looks like they want to submit the screen.  Let's
    3107. 

  3107.  1282                 check to see if all required fields are full *)
    3108. 

  3108.  1283              IF PosUtils.Equal( ReturnValue, ScrnTypes.SubmitInput ) THEN
    3109. 

  3109. *****                 ^ not supported yet
    3110. 

  3110. *****                          ^ not supported yet
    3111. 

  3111. *****                                 ^ undeclared identifier
    3112. 

  3112. *****                                              ^ not supported yet
    3113. 

  3113. *****                                                        ^ not supported yet
    3114. 

  3114.  1284                ReturnValue := FrameRec^.normlnext;
    3115. 

  3115. *****                ^ undeclared identifier
    3116. 

  3116. *****                               ^ undeclared identifier
    3117. 

  3117. *****                                         ^ not supported yet
    3118. 

  3118.  1285              END;
    3119. 

  3119.  1286              IF PosUtils.Equal( ReturnValue, ScrnTypes.CancelInput ) THEN
    3120. 

  3120. *****                 ^ not supported yet
    3121. 

  3121. *****                          ^ not supported yet
    3122. 

  3122. *****                                 ^ undeclared identifier
    3123. 

  3123. *****                                              ^ not supported yet
    3124. 

  3124. *****                                                        ^ not supported yet
    3125. 

  3125.  1287                ReturnValue := FrameRec^.parent;
    3126. 

  3126. *****                ^ undeclared identifier
    3127. 

  3127. *****                               ^ undeclared identifier
    3128. 

  3128. *****                                         ^ not supported yet
    3129. 

  3129.  1288              ELSIF (NOT RequiredFilled( FrameRec, LandingField )) THEN
    3130. 

  3130. *****                         ^ not supported yet
    3131. 

  3131. *****                                         ^ undeclared identifier
    3132. 

  3132. *****                                                   ^ undeclared identifier
    3133. 

  3133.  1289                StrEdit.AssignStr( RequiredMessage, LocalMessage );
    3134. 

  3134. *****                ^ not supported yet
    3135. 

  3135. *****                        ^ not supported yet
    3136. 

  3136. *****                                   ^ not supported yet
    3137. 

  3137. *****                                                    ^ undeclared identifier
    3138. 

  3138.  1290                LastKey := 65535;
    3139. 

  3139. *****                ^ undeclared identifier
    3140. 

  3140.  1291                StrEdit.AssignStr( ScrnTypes.ContinueInput,
    3141. 

  3141. *****                ^ not supported yet
    3142. 

  3142. *****                        ^ not supported yet
    3143. 

  3143. *****                                   ^ not supported yet
    3144. 

  3144. *****                                             ^ not supported yet
    3145. 

  3145.  1292                    ReturnValue );
    3146. 

  3146. *****                    ^ undeclared identifier
    3147. 

  3147.  1293                  (*We do this to make sure we go back through the loop.*)
    3148. 

  3148.  1294              END;
    3149. 

  3149.  1295            END;
    3150. 

  3150.  1296          END;
    3151. 

  3151.  1297  
    3152. 

  3152.  1298        UNTIL (NOT PosUtils.Equal(ReturnValue, ScrnTypes.ContinueInput));
    3153. 

  3153. *****                   ^ not supported yet
    3154. 

  3154. *****                            ^ not supported yet
    3155. 

  3155. *****                                  ^ undeclared identifier
    3156. 

  3156. *****                                               ^ not supported yet
    3157. 

  3157. *****                                                         ^ not supported yet
    3158. 

  3158.  1299  
    3159. 

  3159.  1300        M2Strings.Assign( ReturnValue, NextFrame );
    3160. 

  3160. *****        ^ not supported yet
    3161. 

  3161. *****                  ^ not supported yet
    3162. 

  3162. *****                          ^ undeclared identifier
    3163. 

  3163. *****                                       ^ undeclared identifier
    3164. 

  3164.  1301  (*
    3165. 

  3165.  1302        IF MaxChoices > 0 THEN
    3166. 

  3166.  1303          FramePainter.RedrawField( FrameRec, FrameRec^.CurrentField, FALSE );
    3167. 

  3167.  1304        END;
    3168. 

  3168.  1305          Taken care of by RepaintVisibleArea, below.
    3169. 

  3169.  1306  *)
    3170. 

  3170.  1307        FrameRec^.action := CAP( FrameRec^.action );
    3171. 

  3171. *****        ^ undeclared identifier
    3172. 

  3172. *****                  ^ not supported yet
    3173. 

  3173. *****                            ^ undeclared identifier
    3174. 

  3174. *****                                 ^ undeclared identifier
    3175. 

  3175. *****                                           ^ not supported yet
    3176. 

  3176.  1308        IF FrameRec^.ExitBox[0] # 0C THEN
    3177. 

  3177. *****           ^ undeclared identifier
    3178. 

  3178. *****                     ^ not supported yet
    3179. 

  3179. *****                              ^ not supported yet
    3180. 

  3180.  1309          (*Now we change the appearance of the border to let the
    3181. 

  3181.  1310            user know the frame is no longer active.*)
    3182. 

  3182.  1311          ScrnUtl1.BoxFrame( FrameRec, FALSE );
    3183. 

  3183. *****          ^ not supported yet
    3184. 

  3184. *****                   ^ not supported yet
    3185. 

  3185. *****                             ^ undeclared identifier
    3186. 

  3186. *****                                             ^ not supported yet
    3187. 

  3187.  1312        END;
    3188. 

  3188.  1313        IF FrameRec^.ClearAfter THEN
    3189. 

  3189. *****           ^ undeclared identifier
    3190. 

  3190. *****                     ^ not supported yet
    3191. 

  3191.  1314          FrameManager.EraseFrame( FrameRec );
    3192. 

  3192. *****          ^ not supported yet
    3193. 

  3193. *****                       ^ not supported yet
    3194. 

  3194. *****                                   ^ undeclared identifier
    3195. 

  3195.  1315        ELSE
    3196. 

  3196.  1316          RepaintVisibleArea();
    3197. 

  3197. *****          ^ undeclared identifier
    3198. 

  3198. *****                             ^ not supported yet
    3199. 

  3199.  1317            (* Erases pointer bar and selection characters.  We do
    3200. 

  3200.  1318               this mostly to avoid the problem of restoring things
    3201. 

  3201.  1319               like highlighted selection characters when things
    3202. 

  3202.  1320               pop up over inactive frames. *)
    3203. 

  3203.  1321        END;
    3204. 

  3204.  1322      END ControlFrame;
    3205. 

  3205. *****          ^ not supported yet
    3206. 

  3206.  1323  
    3207. 

  3207.  1324  
    3208. 

  3208.  1325  BEGIN
    3209. 

  3209.  1326    Initialized := FALSE;
    3210. 

  3210.  1327    Init();
    3211. 

  3211. *****    ^ not supported yet
    3212. 

  3212. *****         ^ not supported yet
    3213. 

  3213.  1328  END InputManager.
    3214. 

  3214. *****      ^ not supported yet
    3215. 

  3215. 

  3216.  1884 errors
    3217. 

  3217. 

  3218.