Helios-Debugger.js 76 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145
  1. define("helios/Helios-Debugger", ["amber/boot"
  2. //>>excludeStart("imports", pragmas.excludeImports);
  3. , "amber_core/Compiler-Interpreter"
  4. //>>excludeEnd("imports");
  5. , "amber_core/Kernel-Objects", "helios/Helios-Core", "helios/Helios-Workspace"], function($boot
  6. //>>excludeStart("imports", pragmas.excludeImports);
  7. //>>excludeEnd("imports");
  8. ){"use strict";
  9. var $core=$boot.api,nil=$boot.nil,$recv=$boot.asReceiver,$globals=$boot.globals;
  10. $core.addPackage('Helios-Debugger');
  11. $core.packages["Helios-Debugger"].innerEval = function (expr) { return eval(expr); };
  12. $core.packages["Helios-Debugger"].imports = ["amber_core/Compiler-Interpreter"];
  13. $core.packages["Helios-Debugger"].transport = {"type":"amd","amdNamespace":"helios"};
  14. $core.addClass('HLContextInspectorDecorator', $globals.Object, ['context'], 'Helios-Debugger');
  15. $core.addMethod(
  16. $core.method({
  17. selector: "context",
  18. protocol: 'accessing',
  19. fn: function (){
  20. var self=this;
  21. return self["@context"];
  22. },
  23. //>>excludeStart("ide", pragmas.excludeIdeData);
  24. args: [],
  25. source: "context\x0a\x09^ context",
  26. referencedClasses: [],
  27. //>>excludeEnd("ide");
  28. messageSends: []
  29. }),
  30. $globals.HLContextInspectorDecorator);
  31. $core.addMethod(
  32. $core.method({
  33. selector: "evaluate:on:",
  34. protocol: 'evaluating',
  35. fn: function (aString,anEvaluator){
  36. var self=this;
  37. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  38. return $core.withContext(function($ctx1) {
  39. //>>excludeEnd("ctx");
  40. return $recv(self._context())._evaluate_on_(aString,anEvaluator);
  41. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  42. }, function($ctx1) {$ctx1.fill(self,"evaluate:on:",{aString:aString,anEvaluator:anEvaluator},$globals.HLContextInspectorDecorator)});
  43. //>>excludeEnd("ctx");
  44. },
  45. //>>excludeStart("ide", pragmas.excludeIdeData);
  46. args: ["aString", "anEvaluator"],
  47. source: "evaluate: aString on: anEvaluator\x0a\x09^ self context evaluate: aString on: anEvaluator",
  48. referencedClasses: [],
  49. //>>excludeEnd("ide");
  50. messageSends: ["evaluate:on:", "context"]
  51. }),
  52. $globals.HLContextInspectorDecorator);
  53. $core.addMethod(
  54. $core.method({
  55. selector: "initializeFromContext:",
  56. protocol: 'initialization',
  57. fn: function (aContext){
  58. var self=this;
  59. self["@context"]=aContext;
  60. return self;
  61. },
  62. //>>excludeStart("ide", pragmas.excludeIdeData);
  63. args: ["aContext"],
  64. source: "initializeFromContext: aContext\x0a\x09context := aContext",
  65. referencedClasses: [],
  66. //>>excludeEnd("ide");
  67. messageSends: []
  68. }),
  69. $globals.HLContextInspectorDecorator);
  70. $core.addMethod(
  71. $core.method({
  72. selector: "inspectOn:",
  73. protocol: 'inspecting',
  74. fn: function (anInspector){
  75. var self=this;
  76. var variables,inspectedContext;
  77. function $Dictionary(){return $globals.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
  78. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  79. return $core.withContext(function($ctx1) {
  80. //>>excludeEnd("ctx");
  81. var $1,$2,$3,$receiver;
  82. variables=$recv($Dictionary())._new();
  83. inspectedContext=self._context();
  84. $1=variables;
  85. $2=$recv(inspectedContext)._locals();
  86. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  87. $ctx1.sendIdx["locals"]=1;
  88. //>>excludeEnd("ctx");
  89. $recv($1)._addAll_($2);
  90. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  91. $ctx1.sendIdx["addAll:"]=1;
  92. //>>excludeEnd("ctx");
  93. $recv((function(){
  94. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  95. return $core.withContext(function($ctx2) {
  96. //>>excludeEnd("ctx");
  97. return $recv($recv(inspectedContext)._notNil())._and_((function(){
  98. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  99. return $core.withContext(function($ctx3) {
  100. //>>excludeEnd("ctx");
  101. return $recv(inspectedContext)._isBlockContext();
  102. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  103. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  104. //>>excludeEnd("ctx");
  105. }));
  106. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  107. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  108. //>>excludeEnd("ctx");
  109. }))._whileTrue_((function(){
  110. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  111. return $core.withContext(function($ctx2) {
  112. //>>excludeEnd("ctx");
  113. inspectedContext=$recv(inspectedContext)._outerContext();
  114. inspectedContext;
  115. $3=inspectedContext;
  116. if(($receiver = $3) == null || $receiver.isNil){
  117. return $3;
  118. } else {
  119. return $recv(variables)._addAll_($recv(inspectedContext)._locals());
  120. };
  121. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  122. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
  123. //>>excludeEnd("ctx");
  124. }));
  125. $recv(anInspector)._setLabel_("Context");
  126. $recv(anInspector)._setVariables_(variables);
  127. return self;
  128. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  129. }, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector,variables:variables,inspectedContext:inspectedContext},$globals.HLContextInspectorDecorator)});
  130. //>>excludeEnd("ctx");
  131. },
  132. //>>excludeStart("ide", pragmas.excludeIdeData);
  133. args: ["anInspector"],
  134. source: "inspectOn: anInspector\x0a\x09| variables inspectedContext |\x0a\x09\x0a\x09variables := Dictionary new.\x0a\x09inspectedContext := self context.\x0a\x09\x0a\x09variables addAll: inspectedContext locals.\x0a\x09\x0a\x09[ inspectedContext notNil and: [ inspectedContext isBlockContext ] ] whileTrue: [\x0a\x09\x09inspectedContext := inspectedContext outerContext.\x0a\x09\x09inspectedContext ifNotNil: [\x0a\x09\x09\x09variables addAll: inspectedContext locals ] ].\x0a\x09\x0a\x09anInspector\x0a\x09\x09setLabel: 'Context';\x0a\x09\x09setVariables: variables",
  135. referencedClasses: ["Dictionary"],
  136. //>>excludeEnd("ide");
  137. messageSends: ["new", "context", "addAll:", "locals", "whileTrue:", "and:", "notNil", "isBlockContext", "outerContext", "ifNotNil:", "setLabel:", "setVariables:"]
  138. }),
  139. $globals.HLContextInspectorDecorator);
  140. $core.addMethod(
  141. $core.method({
  142. selector: "on:",
  143. protocol: 'instance creation',
  144. fn: function (aContext){
  145. var self=this;
  146. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  147. return $core.withContext(function($ctx1) {
  148. //>>excludeEnd("ctx");
  149. var $1;
  150. $1=self._new();
  151. $recv($1)._initializeFromContext_(aContext);
  152. return $recv($1)._yourself();
  153. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  154. }, function($ctx1) {$ctx1.fill(self,"on:",{aContext:aContext},$globals.HLContextInspectorDecorator.klass)});
  155. //>>excludeEnd("ctx");
  156. },
  157. //>>excludeStart("ide", pragmas.excludeIdeData);
  158. args: ["aContext"],
  159. source: "on: aContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aContext;\x0a\x09\x09yourself",
  160. referencedClasses: [],
  161. //>>excludeEnd("ide");
  162. messageSends: ["initializeFromContext:", "new", "yourself"]
  163. }),
  164. $globals.HLContextInspectorDecorator.klass);
  165. $core.addClass('HLDebugger', $globals.HLFocusableWidget, ['model', 'stackListWidget', 'codeWidget', 'inspectorWidget'], 'Helios-Debugger');
  166. //>>excludeStart("ide", pragmas.excludeIdeData);
  167. $globals.HLDebugger.comment="I am the main widget for the Helios debugger.";
  168. //>>excludeEnd("ide");
  169. $core.addMethod(
  170. $core.method({
  171. selector: "codeWidget",
  172. protocol: 'widgets',
  173. fn: function (){
  174. var self=this;
  175. function $HLDebuggerCodeWidget(){return $globals.HLDebuggerCodeWidget||(typeof HLDebuggerCodeWidget=="undefined"?nil:HLDebuggerCodeWidget)}
  176. function $HLDebuggerCodeModel(){return $globals.HLDebuggerCodeModel||(typeof HLDebuggerCodeModel=="undefined"?nil:HLDebuggerCodeModel)}
  177. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  178. return $core.withContext(function($ctx1) {
  179. //>>excludeEnd("ctx");
  180. var $1,$2,$3,$5,$6,$7,$8,$4,$receiver;
  181. $1=self["@codeWidget"];
  182. if(($receiver = $1) == null || $receiver.isNil){
  183. $2=$recv($HLDebuggerCodeWidget())._new();
  184. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  185. $ctx1.sendIdx["new"]=1;
  186. //>>excludeEnd("ctx");
  187. $3=$2;
  188. $5=$recv($HLDebuggerCodeModel())._new();
  189. $6=$5;
  190. $7=self._model();
  191. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  192. $ctx1.sendIdx["model"]=1;
  193. //>>excludeEnd("ctx");
  194. $recv($6)._debuggerModel_($7);
  195. $8=$recv($5)._yourself();
  196. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  197. $ctx1.sendIdx["yourself"]=1;
  198. //>>excludeEnd("ctx");
  199. $4=$8;
  200. $recv($3)._model_($4);
  201. $recv($2)._browserModel_(self._model());
  202. self["@codeWidget"]=$recv($2)._yourself();
  203. return self["@codeWidget"];
  204. } else {
  205. return $1;
  206. };
  207. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  208. }, function($ctx1) {$ctx1.fill(self,"codeWidget",{},$globals.HLDebugger)});
  209. //>>excludeEnd("ctx");
  210. },
  211. //>>excludeStart("ide", pragmas.excludeIdeData);
  212. args: [],
  213. source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLDebuggerCodeWidget new\x0a\x09\x09model: (HLDebuggerCodeModel new\x0a\x09\x09\x09debuggerModel: self model;\x0a\x09\x09\x09yourself);\x0a\x09\x09browserModel: self model;\x0a\x09\x09yourself ]",
  214. referencedClasses: ["HLDebuggerCodeWidget", "HLDebuggerCodeModel"],
  215. //>>excludeEnd("ide");
  216. messageSends: ["ifNil:", "model:", "new", "debuggerModel:", "model", "yourself", "browserModel:"]
  217. }),
  218. $globals.HLDebugger);
  219. $core.addMethod(
  220. $core.method({
  221. selector: "cssClass",
  222. protocol: 'accessing',
  223. fn: function (){
  224. var self=this;
  225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  226. return $core.withContext(function($ctx1) {
  227. //>>excludeEnd("ctx");
  228. var $1;
  229. $1=(
  230. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  231. $ctx1.supercall = true,
  232. //>>excludeEnd("ctx");
  233. $globals.HLDebugger.superclass.fn.prototype._cssClass.apply($recv(self), []));
  234. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  235. $ctx1.supercall = false;
  236. //>>excludeEnd("ctx");;
  237. return $recv($1).__comma(" hl_debugger");
  238. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  239. }, function($ctx1) {$ctx1.fill(self,"cssClass",{},$globals.HLDebugger)});
  240. //>>excludeEnd("ctx");
  241. },
  242. //>>excludeStart("ide", pragmas.excludeIdeData);
  243. args: [],
  244. source: "cssClass\x0a\x09^ super cssClass, ' hl_debugger'",
  245. referencedClasses: [],
  246. //>>excludeEnd("ide");
  247. messageSends: [",", "cssClass"]
  248. }),
  249. $globals.HLDebugger);
  250. $core.addMethod(
  251. $core.method({
  252. selector: "focus",
  253. protocol: 'actions',
  254. fn: function (){
  255. var self=this;
  256. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  257. return $core.withContext(function($ctx1) {
  258. //>>excludeEnd("ctx");
  259. $recv(self._stackListWidget())._focus();
  260. return self;
  261. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  262. }, function($ctx1) {$ctx1.fill(self,"focus",{},$globals.HLDebugger)});
  263. //>>excludeEnd("ctx");
  264. },
  265. //>>excludeStart("ide", pragmas.excludeIdeData);
  266. args: [],
  267. source: "focus\x0a\x09self stackListWidget focus",
  268. referencedClasses: [],
  269. //>>excludeEnd("ide");
  270. messageSends: ["focus", "stackListWidget"]
  271. }),
  272. $globals.HLDebugger);
  273. $core.addMethod(
  274. $core.method({
  275. selector: "initializeFromError:",
  276. protocol: 'initialization',
  277. fn: function (anError){
  278. var self=this;
  279. function $HLDebuggerModel(){return $globals.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
  280. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  281. return $core.withContext(function($ctx1) {
  282. //>>excludeEnd("ctx");
  283. self["@model"]=$recv($HLDebuggerModel())._on_(anError);
  284. self._observeModel();
  285. return self;
  286. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  287. }, function($ctx1) {$ctx1.fill(self,"initializeFromError:",{anError:anError},$globals.HLDebugger)});
  288. //>>excludeEnd("ctx");
  289. },
  290. //>>excludeStart("ide", pragmas.excludeIdeData);
  291. args: ["anError"],
  292. source: "initializeFromError: anError\x0a\x09model := HLDebuggerModel on: anError.\x0a\x09self observeModel",
  293. referencedClasses: ["HLDebuggerModel"],
  294. //>>excludeEnd("ide");
  295. messageSends: ["on:", "observeModel"]
  296. }),
  297. $globals.HLDebugger);
  298. $core.addMethod(
  299. $core.method({
  300. selector: "inspectorWidget",
  301. protocol: 'widgets',
  302. fn: function (){
  303. var self=this;
  304. function $HLInspectorWidget(){return $globals.HLInspectorWidget||(typeof HLInspectorWidget=="undefined"?nil:HLInspectorWidget)}
  305. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  306. return $core.withContext(function($ctx1) {
  307. //>>excludeEnd("ctx");
  308. var $1,$receiver;
  309. $1=self["@inspectorWidget"];
  310. if(($receiver = $1) == null || $receiver.isNil){
  311. self["@inspectorWidget"]=$recv($HLInspectorWidget())._new();
  312. return self["@inspectorWidget"];
  313. } else {
  314. return $1;
  315. };
  316. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  317. }, function($ctx1) {$ctx1.fill(self,"inspectorWidget",{},$globals.HLDebugger)});
  318. //>>excludeEnd("ctx");
  319. },
  320. //>>excludeStart("ide", pragmas.excludeIdeData);
  321. args: [],
  322. source: "inspectorWidget\x0a\x09^ inspectorWidget ifNil: [ \x0a\x09\x09inspectorWidget := HLInspectorWidget new ]",
  323. referencedClasses: ["HLInspectorWidget"],
  324. //>>excludeEnd("ide");
  325. messageSends: ["ifNil:", "new"]
  326. }),
  327. $globals.HLDebugger);
  328. $core.addMethod(
  329. $core.method({
  330. selector: "model",
  331. protocol: 'accessing',
  332. fn: function (){
  333. var self=this;
  334. function $HLDebuggerModel(){return $globals.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
  335. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  336. return $core.withContext(function($ctx1) {
  337. //>>excludeEnd("ctx");
  338. var $1,$receiver;
  339. $1=self["@model"];
  340. if(($receiver = $1) == null || $receiver.isNil){
  341. self["@model"]=$recv($HLDebuggerModel())._new();
  342. return self["@model"];
  343. } else {
  344. return $1;
  345. };
  346. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  347. }, function($ctx1) {$ctx1.fill(self,"model",{},$globals.HLDebugger)});
  348. //>>excludeEnd("ctx");
  349. },
  350. //>>excludeStart("ide", pragmas.excludeIdeData);
  351. args: [],
  352. source: "model\x0a\x09^ model ifNil: [ model := HLDebuggerModel new ]",
  353. referencedClasses: ["HLDebuggerModel"],
  354. //>>excludeEnd("ide");
  355. messageSends: ["ifNil:", "new"]
  356. }),
  357. $globals.HLDebugger);
  358. $core.addMethod(
  359. $core.method({
  360. selector: "observeModel",
  361. protocol: 'actions',
  362. fn: function (){
  363. var self=this;
  364. function $HLDebuggerContextSelected(){return $globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  365. function $HLDebuggerStepped(){return $globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
  366. function $HLDebuggerProceeded(){return $globals.HLDebuggerProceeded||(typeof HLDebuggerProceeded=="undefined"?nil:HLDebuggerProceeded)}
  367. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  368. return $core.withContext(function($ctx1) {
  369. //>>excludeEnd("ctx");
  370. var $1;
  371. $1=$recv(self._model())._announcer();
  372. $recv($1)._on_send_to_($HLDebuggerContextSelected(),"onContextSelected:",self);
  373. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  374. $ctx1.sendIdx["on:send:to:"]=1;
  375. //>>excludeEnd("ctx");
  376. $recv($1)._on_send_to_($HLDebuggerStepped(),"onDebuggerStepped:",self);
  377. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  378. $ctx1.sendIdx["on:send:to:"]=2;
  379. //>>excludeEnd("ctx");
  380. $recv($1)._on_send_to_($HLDebuggerProceeded(),"onDebuggerProceeded",self);
  381. return self;
  382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  383. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLDebugger)});
  384. //>>excludeEnd("ctx");
  385. },
  386. //>>excludeStart("ide", pragmas.excludeIdeData);
  387. args: [],
  388. source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onDebuggerStepped:\x0a\x09\x09to: self;\x0a\x09\x09\x0a\x09\x09on: HLDebuggerProceeded\x0a\x09\x09send: #onDebuggerProceeded\x0a\x09\x09to: self",
  389. referencedClasses: ["HLDebuggerContextSelected", "HLDebuggerStepped", "HLDebuggerProceeded"],
  390. //>>excludeEnd("ide");
  391. messageSends: ["on:send:to:", "announcer", "model"]
  392. }),
  393. $globals.HLDebugger);
  394. $core.addMethod(
  395. $core.method({
  396. selector: "onContextSelected:",
  397. protocol: 'reactions',
  398. fn: function (anAnnouncement){
  399. var self=this;
  400. function $HLContextInspectorDecorator(){return $globals.HLContextInspectorDecorator||(typeof HLContextInspectorDecorator=="undefined"?nil:HLContextInspectorDecorator)}
  401. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  402. return $core.withContext(function($ctx1) {
  403. //>>excludeEnd("ctx");
  404. $recv(self._inspectorWidget())._inspect_($recv($HLContextInspectorDecorator())._on_($recv(anAnnouncement)._context()));
  405. return self;
  406. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  407. }, function($ctx1) {$ctx1.fill(self,"onContextSelected:",{anAnnouncement:anAnnouncement},$globals.HLDebugger)});
  408. //>>excludeEnd("ctx");
  409. },
  410. //>>excludeStart("ide", pragmas.excludeIdeData);
  411. args: ["anAnnouncement"],
  412. source: "onContextSelected: anAnnouncement\x0a\x09self inspectorWidget inspect: (HLContextInspectorDecorator on: anAnnouncement context)",
  413. referencedClasses: ["HLContextInspectorDecorator"],
  414. //>>excludeEnd("ide");
  415. messageSends: ["inspect:", "inspectorWidget", "on:", "context"]
  416. }),
  417. $globals.HLDebugger);
  418. $core.addMethod(
  419. $core.method({
  420. selector: "onDebuggerProceeded",
  421. protocol: 'reactions',
  422. fn: function (){
  423. var self=this;
  424. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  425. return $core.withContext(function($ctx1) {
  426. //>>excludeEnd("ctx");
  427. self._removeTab();
  428. return self;
  429. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  430. }, function($ctx1) {$ctx1.fill(self,"onDebuggerProceeded",{},$globals.HLDebugger)});
  431. //>>excludeEnd("ctx");
  432. },
  433. //>>excludeStart("ide", pragmas.excludeIdeData);
  434. args: [],
  435. source: "onDebuggerProceeded\x0a\x09self removeTab",
  436. referencedClasses: [],
  437. //>>excludeEnd("ide");
  438. messageSends: ["removeTab"]
  439. }),
  440. $globals.HLDebugger);
  441. $core.addMethod(
  442. $core.method({
  443. selector: "onDebuggerStepped:",
  444. protocol: 'reactions',
  445. fn: function (anAnnouncement){
  446. var self=this;
  447. function $HLContextInspectorDecorator(){return $globals.HLContextInspectorDecorator||(typeof HLContextInspectorDecorator=="undefined"?nil:HLContextInspectorDecorator)}
  448. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  449. return $core.withContext(function($ctx1) {
  450. //>>excludeEnd("ctx");
  451. var $1;
  452. $1=$recv(self._model())._atEnd();
  453. if($core.assert($1)){
  454. self._removeTab();
  455. };
  456. $recv(self._inspectorWidget())._inspect_($recv($HLContextInspectorDecorator())._on_($recv(anAnnouncement)._context()));
  457. $recv(self._stackListWidget())._refresh();
  458. return self;
  459. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  460. }, function($ctx1) {$ctx1.fill(self,"onDebuggerStepped:",{anAnnouncement:anAnnouncement},$globals.HLDebugger)});
  461. //>>excludeEnd("ctx");
  462. },
  463. //>>excludeStart("ide", pragmas.excludeIdeData);
  464. args: ["anAnnouncement"],
  465. source: "onDebuggerStepped: anAnnouncement\x0a\x09self model atEnd ifTrue: [ self removeTab ].\x0a\x09\x0a\x09self inspectorWidget inspect: (HLContextInspectorDecorator on: anAnnouncement context).\x0a\x09self stackListWidget refresh",
  466. referencedClasses: ["HLContextInspectorDecorator"],
  467. //>>excludeEnd("ide");
  468. messageSends: ["ifTrue:", "atEnd", "model", "removeTab", "inspect:", "inspectorWidget", "on:", "context", "refresh", "stackListWidget"]
  469. }),
  470. $globals.HLDebugger);
  471. $core.addMethod(
  472. $core.method({
  473. selector: "registerBindingsOn:",
  474. protocol: 'keybindings',
  475. fn: function (aBindingGroup){
  476. var self=this;
  477. function $HLToolCommand(){return $globals.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
  478. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  479. return $core.withContext(function($ctx1) {
  480. //>>excludeEnd("ctx");
  481. $recv($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,self._model());
  482. return self;
  483. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  484. }, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},$globals.HLDebugger)});
  485. //>>excludeEnd("ctx");
  486. },
  487. //>>excludeStart("ide", pragmas.excludeIdeData);
  488. args: ["aBindingGroup"],
  489. source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
  490. referencedClasses: ["HLToolCommand"],
  491. //>>excludeEnd("ide");
  492. messageSends: ["registerConcreteClassesOn:for:", "model"]
  493. }),
  494. $globals.HLDebugger);
  495. $core.addMethod(
  496. $core.method({
  497. selector: "renderContentOn:",
  498. protocol: 'rendering',
  499. fn: function (html){
  500. var self=this;
  501. function $HLContainer(){return $globals.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
  502. function $HLVerticalSplitter(){return $globals.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
  503. function $HLHorizontalSplitter(){return $globals.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
  504. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  505. return $core.withContext(function($ctx1) {
  506. //>>excludeEnd("ctx");
  507. var $2,$1;
  508. self._renderHeadOn_(html);
  509. $2=$recv($HLVerticalSplitter())._with_with_(self._codeWidget(),$recv($HLHorizontalSplitter())._with_with_(self._stackListWidget(),self._inspectorWidget()));
  510. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  511. $ctx1.sendIdx["with:with:"]=1;
  512. //>>excludeEnd("ctx");
  513. $1=$recv($HLContainer())._with_($2);
  514. $recv(html)._with_($1);
  515. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  516. $ctx1.sendIdx["with:"]=1;
  517. //>>excludeEnd("ctx");
  518. return self;
  519. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  520. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},$globals.HLDebugger)});
  521. //>>excludeEnd("ctx");
  522. },
  523. //>>excludeStart("ide", pragmas.excludeIdeData);
  524. args: ["html"],
  525. source: "renderContentOn: html\x0a\x09self renderHeadOn: html.\x0a\x09html with: (HLContainer with: (HLVerticalSplitter\x0a\x09\x09with: self codeWidget\x0a\x09\x09with: (HLHorizontalSplitter\x0a\x09\x09\x09with: self stackListWidget\x0a\x09\x09\x09with: self inspectorWidget)))",
  526. referencedClasses: ["HLContainer", "HLVerticalSplitter", "HLHorizontalSplitter"],
  527. //>>excludeEnd("ide");
  528. messageSends: ["renderHeadOn:", "with:", "with:with:", "codeWidget", "stackListWidget", "inspectorWidget"]
  529. }),
  530. $globals.HLDebugger);
  531. $core.addMethod(
  532. $core.method({
  533. selector: "renderHeadOn:",
  534. protocol: 'rendering',
  535. fn: function (html){
  536. var self=this;
  537. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  538. return $core.withContext(function($ctx1) {
  539. //>>excludeEnd("ctx");
  540. var $1,$2;
  541. $1=$recv(html)._div();
  542. $recv($1)._class_("head");
  543. $2=$recv($1)._with_((function(){
  544. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  545. return $core.withContext(function($ctx2) {
  546. //>>excludeEnd("ctx");
  547. return $recv($recv(html)._h2())._with_($recv($recv(self._model())._error())._messageText());
  548. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  549. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  550. //>>excludeEnd("ctx");
  551. }));
  552. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  553. $ctx1.sendIdx["with:"]=1;
  554. //>>excludeEnd("ctx");
  555. return self;
  556. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  557. }, function($ctx1) {$ctx1.fill(self,"renderHeadOn:",{html:html},$globals.HLDebugger)});
  558. //>>excludeEnd("ctx");
  559. },
  560. //>>excludeStart("ide", pragmas.excludeIdeData);
  561. args: ["html"],
  562. source: "renderHeadOn: html\x0a\x09html div \x0a\x09\x09class: 'head'; \x0a\x09\x09with: [ html h2 with: self model error messageText ]",
  563. referencedClasses: [],
  564. //>>excludeEnd("ide");
  565. messageSends: ["class:", "div", "with:", "h2", "messageText", "error", "model"]
  566. }),
  567. $globals.HLDebugger);
  568. $core.addMethod(
  569. $core.method({
  570. selector: "stackListWidget",
  571. protocol: 'widgets',
  572. fn: function (){
  573. var self=this;
  574. function $HLStackListWidget(){return $globals.HLStackListWidget||(typeof HLStackListWidget=="undefined"?nil:HLStackListWidget)}
  575. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  576. return $core.withContext(function($ctx1) {
  577. //>>excludeEnd("ctx");
  578. var $1,$2,$receiver;
  579. $1=self["@stackListWidget"];
  580. if(($receiver = $1) == null || $receiver.isNil){
  581. $2=$recv($HLStackListWidget())._on_(self._model());
  582. $recv($2)._next_(self._codeWidget());
  583. self["@stackListWidget"]=$recv($2)._yourself();
  584. return self["@stackListWidget"];
  585. } else {
  586. return $1;
  587. };
  588. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  589. }, function($ctx1) {$ctx1.fill(self,"stackListWidget",{},$globals.HLDebugger)});
  590. //>>excludeEnd("ctx");
  591. },
  592. //>>excludeStart("ide", pragmas.excludeIdeData);
  593. args: [],
  594. source: "stackListWidget\x0a\x09^ stackListWidget ifNil: [ \x0a\x09\x09stackListWidget := (HLStackListWidget on: self model)\x0a\x09\x09\x09next: self codeWidget;\x0a\x09\x09\x09yourself ]",
  595. referencedClasses: ["HLStackListWidget"],
  596. //>>excludeEnd("ide");
  597. messageSends: ["ifNil:", "next:", "on:", "model", "codeWidget", "yourself"]
  598. }),
  599. $globals.HLDebugger);
  600. $core.addMethod(
  601. $core.method({
  602. selector: "unregister",
  603. protocol: 'actions',
  604. fn: function (){
  605. var self=this;
  606. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  607. return $core.withContext(function($ctx1) {
  608. //>>excludeEnd("ctx");
  609. (
  610. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  611. $ctx1.supercall = true,
  612. //>>excludeEnd("ctx");
  613. $globals.HLDebugger.superclass.fn.prototype._unregister.apply($recv(self), []));
  614. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  615. $ctx1.supercall = false;
  616. //>>excludeEnd("ctx");;
  617. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  618. $ctx1.sendIdx["unregister"]=1;
  619. //>>excludeEnd("ctx");
  620. $recv(self._inspectorWidget())._unregister();
  621. return self;
  622. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  623. }, function($ctx1) {$ctx1.fill(self,"unregister",{},$globals.HLDebugger)});
  624. //>>excludeEnd("ctx");
  625. },
  626. //>>excludeStart("ide", pragmas.excludeIdeData);
  627. args: [],
  628. source: "unregister\x0a\x09super unregister.\x0a\x09self inspectorWidget unregister",
  629. referencedClasses: [],
  630. //>>excludeEnd("ide");
  631. messageSends: ["unregister", "inspectorWidget"]
  632. }),
  633. $globals.HLDebugger);
  634. $core.addMethod(
  635. $core.method({
  636. selector: "on:",
  637. protocol: 'instance creation',
  638. fn: function (anError){
  639. var self=this;
  640. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  641. return $core.withContext(function($ctx1) {
  642. //>>excludeEnd("ctx");
  643. var $1;
  644. $1=self._new();
  645. $recv($1)._initializeFromError_(anError);
  646. return $recv($1)._yourself();
  647. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  648. }, function($ctx1) {$ctx1.fill(self,"on:",{anError:anError},$globals.HLDebugger.klass)});
  649. //>>excludeEnd("ctx");
  650. },
  651. //>>excludeStart("ide", pragmas.excludeIdeData);
  652. args: ["anError"],
  653. source: "on: anError\x0a\x09^ self new\x0a\x09\x09initializeFromError: anError;\x0a\x09\x09yourself",
  654. referencedClasses: [],
  655. //>>excludeEnd("ide");
  656. messageSends: ["initializeFromError:", "new", "yourself"]
  657. }),
  658. $globals.HLDebugger.klass);
  659. $core.addMethod(
  660. $core.method({
  661. selector: "tabClass",
  662. protocol: 'accessing',
  663. fn: function (){
  664. var self=this;
  665. return "debugger";
  666. },
  667. //>>excludeStart("ide", pragmas.excludeIdeData);
  668. args: [],
  669. source: "tabClass\x0a\x09^ 'debugger'",
  670. referencedClasses: [],
  671. //>>excludeEnd("ide");
  672. messageSends: []
  673. }),
  674. $globals.HLDebugger.klass);
  675. $core.addMethod(
  676. $core.method({
  677. selector: "tabLabel",
  678. protocol: 'accessing',
  679. fn: function (){
  680. var self=this;
  681. return "Debugger";
  682. },
  683. //>>excludeStart("ide", pragmas.excludeIdeData);
  684. args: [],
  685. source: "tabLabel\x0a\x09^ 'Debugger'",
  686. referencedClasses: [],
  687. //>>excludeEnd("ide");
  688. messageSends: []
  689. }),
  690. $globals.HLDebugger.klass);
  691. $core.addClass('HLDebuggerCodeModel', $globals.HLCodeModel, ['debuggerModel'], 'Helios-Debugger');
  692. $core.addMethod(
  693. $core.method({
  694. selector: "debuggerModel",
  695. protocol: 'accessing',
  696. fn: function (){
  697. var self=this;
  698. return self["@debuggerModel"];
  699. },
  700. //>>excludeStart("ide", pragmas.excludeIdeData);
  701. args: [],
  702. source: "debuggerModel\x0a\x09^ debuggerModel",
  703. referencedClasses: [],
  704. //>>excludeEnd("ide");
  705. messageSends: []
  706. }),
  707. $globals.HLDebuggerCodeModel);
  708. $core.addMethod(
  709. $core.method({
  710. selector: "debuggerModel:",
  711. protocol: 'accessing',
  712. fn: function (anObject){
  713. var self=this;
  714. self["@debuggerModel"]=anObject;
  715. return self;
  716. },
  717. //>>excludeStart("ide", pragmas.excludeIdeData);
  718. args: ["anObject"],
  719. source: "debuggerModel: anObject\x0a\x09debuggerModel := anObject",
  720. referencedClasses: [],
  721. //>>excludeEnd("ide");
  722. messageSends: []
  723. }),
  724. $globals.HLDebuggerCodeModel);
  725. $core.addMethod(
  726. $core.method({
  727. selector: "doIt:",
  728. protocol: 'actions',
  729. fn: function (aString){
  730. var self=this;
  731. function $ErrorHandler(){return $globals.ErrorHandler||(typeof ErrorHandler=="undefined"?nil:ErrorHandler)}
  732. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  733. return $core.withContext(function($ctx1) {
  734. //>>excludeEnd("ctx");
  735. return $recv((function(){
  736. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  737. return $core.withContext(function($ctx2) {
  738. //>>excludeEnd("ctx");
  739. return $recv(self._debuggerModel())._evaluate_(aString);
  740. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  741. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  742. //>>excludeEnd("ctx");
  743. }))._tryCatch_((function(e){
  744. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  745. return $core.withContext(function($ctx2) {
  746. //>>excludeEnd("ctx");
  747. $recv($ErrorHandler())._handleError_(e);
  748. return nil;
  749. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  750. }, function($ctx2) {$ctx2.fillBlock({e:e},$ctx1,2)});
  751. //>>excludeEnd("ctx");
  752. }));
  753. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  754. }, function($ctx1) {$ctx1.fill(self,"doIt:",{aString:aString},$globals.HLDebuggerCodeModel)});
  755. //>>excludeEnd("ctx");
  756. },
  757. //>>excludeStart("ide", pragmas.excludeIdeData);
  758. args: ["aString"],
  759. source: "doIt: aString\x0a\x09^ [ self debuggerModel evaluate: aString ]\x0a\x09\x09tryCatch: [ :e | \x0a\x09\x09\x09ErrorHandler handleError: e.\x0a\x09\x09\x09nil ]",
  760. referencedClasses: ["ErrorHandler"],
  761. //>>excludeEnd("ide");
  762. messageSends: ["tryCatch:", "evaluate:", "debuggerModel", "handleError:"]
  763. }),
  764. $globals.HLDebuggerCodeModel);
  765. $core.addClass('HLDebuggerCodeWidget', $globals.HLBrowserCodeWidget, [], 'Helios-Debugger');
  766. $core.addMethod(
  767. $core.method({
  768. selector: "addStopAt:",
  769. protocol: 'actions',
  770. fn: function (anInteger){
  771. var self=this;
  772. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  773. return $core.withContext(function($ctx1) {
  774. //>>excludeEnd("ctx");
  775. $recv(self["@editor"])._setGutterMarker_gutter_value_(anInteger,"stops",$recv($recv("<div class=\x22stop\x22></stop>"._asJQuery())._toArray())._first());
  776. return self;
  777. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  778. }, function($ctx1) {$ctx1.fill(self,"addStopAt:",{anInteger:anInteger},$globals.HLDebuggerCodeWidget)});
  779. //>>excludeEnd("ctx");
  780. },
  781. //>>excludeStart("ide", pragmas.excludeIdeData);
  782. args: ["anInteger"],
  783. source: "addStopAt: anInteger\x0a\x09editor\x0a\x09\x09setGutterMarker: anInteger\x0a\x09\x09gutter: 'stops'\x0a\x09\x09value: '<div class=\x22stop\x22></stop>' asJQuery toArray first",
  784. referencedClasses: [],
  785. //>>excludeEnd("ide");
  786. messageSends: ["setGutterMarker:gutter:value:", "first", "toArray", "asJQuery"]
  787. }),
  788. $globals.HLDebuggerCodeWidget);
  789. $core.addMethod(
  790. $core.method({
  791. selector: "clearHighlight",
  792. protocol: 'actions',
  793. fn: function (){
  794. var self=this;
  795. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  796. return $core.withContext(function($ctx1) {
  797. //>>excludeEnd("ctx");
  798. $recv(self._editor())._clearGutter_("stops");
  799. return self;
  800. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  801. }, function($ctx1) {$ctx1.fill(self,"clearHighlight",{},$globals.HLDebuggerCodeWidget)});
  802. //>>excludeEnd("ctx");
  803. },
  804. //>>excludeStart("ide", pragmas.excludeIdeData);
  805. args: [],
  806. source: "clearHighlight\x0a\x09self editor clearGutter: 'stops'",
  807. referencedClasses: [],
  808. //>>excludeEnd("ide");
  809. messageSends: ["clearGutter:", "editor"]
  810. }),
  811. $globals.HLDebuggerCodeWidget);
  812. $core.addMethod(
  813. $core.method({
  814. selector: "contents:",
  815. protocol: 'accessing',
  816. fn: function (aString){
  817. var self=this;
  818. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  819. return $core.withContext(function($ctx1) {
  820. //>>excludeEnd("ctx");
  821. self._clearHighlight();
  822. (
  823. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  824. $ctx1.supercall = true,
  825. //>>excludeEnd("ctx");
  826. $globals.HLDebuggerCodeWidget.superclass.fn.prototype._contents_.apply($recv(self), [aString]));
  827. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  828. $ctx1.supercall = false;
  829. //>>excludeEnd("ctx");;
  830. return self;
  831. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  832. }, function($ctx1) {$ctx1.fill(self,"contents:",{aString:aString},$globals.HLDebuggerCodeWidget)});
  833. //>>excludeEnd("ctx");
  834. },
  835. //>>excludeStart("ide", pragmas.excludeIdeData);
  836. args: ["aString"],
  837. source: "contents: aString\x0a\x09self clearHighlight.\x0a\x09super contents: aString",
  838. referencedClasses: [],
  839. //>>excludeEnd("ide");
  840. messageSends: ["clearHighlight", "contents:"]
  841. }),
  842. $globals.HLDebuggerCodeWidget);
  843. $core.addMethod(
  844. $core.method({
  845. selector: "editorOptions",
  846. protocol: 'accessing',
  847. fn: function (){
  848. var self=this;
  849. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  850. return $core.withContext(function($ctx1) {
  851. //>>excludeEnd("ctx");
  852. var $1;
  853. $1=(
  854. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  855. $ctx1.supercall = true,
  856. //>>excludeEnd("ctx");
  857. $globals.HLDebuggerCodeWidget.superclass.fn.prototype._editorOptions.apply($recv(self), []));
  858. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  859. $ctx1.supercall = false;
  860. //>>excludeEnd("ctx");;
  861. $recv($1)._at_put_("gutters",["CodeMirror-linenumbers", "stops"]);
  862. return $recv($1)._yourself();
  863. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  864. }, function($ctx1) {$ctx1.fill(self,"editorOptions",{},$globals.HLDebuggerCodeWidget)});
  865. //>>excludeEnd("ctx");
  866. },
  867. //>>excludeStart("ide", pragmas.excludeIdeData);
  868. args: [],
  869. source: "editorOptions\x0a\x09^ super editorOptions\x0a\x09\x09at: 'gutters' put: #('CodeMirror-linenumbers' 'stops');\x0a\x09\x09yourself",
  870. referencedClasses: [],
  871. //>>excludeEnd("ide");
  872. messageSends: ["at:put:", "editorOptions", "yourself"]
  873. }),
  874. $globals.HLDebuggerCodeWidget);
  875. $core.addMethod(
  876. $core.method({
  877. selector: "highlight",
  878. protocol: 'actions',
  879. fn: function (){
  880. var self=this;
  881. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  882. return $core.withContext(function($ctx1) {
  883. //>>excludeEnd("ctx");
  884. var $1,$receiver;
  885. $1=$recv(self._browserModel())._nextNode();
  886. if(($receiver = $1) == null || $receiver.isNil){
  887. $1;
  888. } else {
  889. var node;
  890. node=$receiver;
  891. self._highlightNode_(node);
  892. };
  893. return self;
  894. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  895. }, function($ctx1) {$ctx1.fill(self,"highlight",{},$globals.HLDebuggerCodeWidget)});
  896. //>>excludeEnd("ctx");
  897. },
  898. //>>excludeStart("ide", pragmas.excludeIdeData);
  899. args: [],
  900. source: "highlight\x0a\x09self browserModel nextNode ifNotNil: [ :node |\x0a\x09\x09self highlightNode: node ]",
  901. referencedClasses: [],
  902. //>>excludeEnd("ide");
  903. messageSends: ["ifNotNil:", "nextNode", "browserModel", "highlightNode:"]
  904. }),
  905. $globals.HLDebuggerCodeWidget);
  906. $core.addMethod(
  907. $core.method({
  908. selector: "highlightNode:",
  909. protocol: 'actions',
  910. fn: function (aNode){
  911. var self=this;
  912. var token;
  913. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  914. return $core.withContext(function($ctx1) {
  915. //>>excludeEnd("ctx");
  916. var $3,$2,$1,$4,$8,$7,$6,$10,$9,$5,$14,$13,$12,$11,$receiver;
  917. if(($receiver = aNode) == null || $receiver.isNil){
  918. aNode;
  919. } else {
  920. self._clearHighlight();
  921. $3=$recv(aNode)._positionStart();
  922. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  923. $ctx1.sendIdx["positionStart"]=1;
  924. //>>excludeEnd("ctx");
  925. $2=$recv($3)._x();
  926. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  927. $ctx1.sendIdx["x"]=1;
  928. //>>excludeEnd("ctx");
  929. $1=$recv($2).__minus((1));
  930. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  931. $ctx1.sendIdx["-"]=1;
  932. //>>excludeEnd("ctx");
  933. self._addStopAt_($1);
  934. $4=self._editor();
  935. $8=$recv(aNode)._positionStart();
  936. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  937. $ctx1.sendIdx["positionStart"]=2;
  938. //>>excludeEnd("ctx");
  939. $7=$recv($8)._x();
  940. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  941. $ctx1.sendIdx["x"]=2;
  942. //>>excludeEnd("ctx");
  943. $6=$recv($7).__minus((1));
  944. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  945. $ctx1.sendIdx["-"]=2;
  946. //>>excludeEnd("ctx");
  947. $10=$recv($recv(aNode)._positionStart())._y();
  948. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  949. $ctx1.sendIdx["y"]=1;
  950. //>>excludeEnd("ctx");
  951. $9=$recv($10).__minus((1));
  952. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  953. $ctx1.sendIdx["-"]=3;
  954. //>>excludeEnd("ctx");
  955. $5=$globals.HashedCollection._newFromPairs_(["line",$6,"ch",$9]);
  956. $14=$recv(aNode)._positionEnd();
  957. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  958. $ctx1.sendIdx["positionEnd"]=1;
  959. //>>excludeEnd("ctx");
  960. $13=$recv($14)._x();
  961. $12=$recv($13).__minus((1));
  962. $11=$globals.HashedCollection._newFromPairs_(["line",$12,"ch",$recv($recv(aNode)._positionEnd())._y()]);
  963. $recv($4)._setSelection_to_($5,$11);
  964. };
  965. return self;
  966. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  967. }, function($ctx1) {$ctx1.fill(self,"highlightNode:",{aNode:aNode,token:token},$globals.HLDebuggerCodeWidget)});
  968. //>>excludeEnd("ctx");
  969. },
  970. //>>excludeStart("ide", pragmas.excludeIdeData);
  971. args: ["aNode"],
  972. source: "highlightNode: aNode\x0a\x09| token |\x0a\x09\x0a\x09aNode ifNotNil: [\x0a\x09\x09self\x0a\x09\x09\x09clearHighlight;\x0a\x09\x09\x09addStopAt: aNode positionStart x - 1.\x0a\x0a\x09\x09self editor \x0a\x09\x09\x09setSelection: #{ 'line' -> (aNode positionStart x - 1). 'ch' -> (aNode positionStart y - 1) }\x0a\x09\x09\x09to: #{ 'line' -> (aNode positionEnd x - 1). 'ch' -> (aNode positionEnd y) } ]",
  973. referencedClasses: [],
  974. //>>excludeEnd("ide");
  975. messageSends: ["ifNotNil:", "clearHighlight", "addStopAt:", "-", "x", "positionStart", "setSelection:to:", "editor", "y", "positionEnd"]
  976. }),
  977. $globals.HLDebuggerCodeWidget);
  978. $core.addMethod(
  979. $core.method({
  980. selector: "observeBrowserModel",
  981. protocol: 'actions',
  982. fn: function (){
  983. var self=this;
  984. function $HLDebuggerContextSelected(){return $globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  985. function $HLDebuggerStepped(){return $globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
  986. function $HLDebuggerWhere(){return $globals.HLDebuggerWhere||(typeof HLDebuggerWhere=="undefined"?nil:HLDebuggerWhere)}
  987. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  988. return $core.withContext(function($ctx1) {
  989. //>>excludeEnd("ctx");
  990. var $2,$1,$4,$3;
  991. (
  992. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  993. $ctx1.supercall = true,
  994. //>>excludeEnd("ctx");
  995. $globals.HLDebuggerCodeWidget.superclass.fn.prototype._observeBrowserModel.apply($recv(self), []));
  996. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  997. $ctx1.supercall = false;
  998. //>>excludeEnd("ctx");;
  999. $2=self._browserModel();
  1000. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1001. $ctx1.sendIdx["browserModel"]=1;
  1002. //>>excludeEnd("ctx");
  1003. $1=$recv($2)._announcer();
  1004. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1005. $ctx1.sendIdx["announcer"]=1;
  1006. //>>excludeEnd("ctx");
  1007. $recv($1)._on_send_to_($HLDebuggerContextSelected(),"onContextSelected",self);
  1008. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1009. $ctx1.sendIdx["on:send:to:"]=1;
  1010. //>>excludeEnd("ctx");
  1011. $4=self._browserModel();
  1012. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1013. $ctx1.sendIdx["browserModel"]=2;
  1014. //>>excludeEnd("ctx");
  1015. $3=$recv($4)._announcer();
  1016. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1017. $ctx1.sendIdx["announcer"]=2;
  1018. //>>excludeEnd("ctx");
  1019. $recv($3)._on_send_to_($HLDebuggerStepped(),"onContextSelected",self);
  1020. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1021. $ctx1.sendIdx["on:send:to:"]=2;
  1022. //>>excludeEnd("ctx");
  1023. $recv($recv(self._browserModel())._announcer())._on_send_to_($HLDebuggerWhere(),"onContextSelected",self);
  1024. return self;
  1025. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1026. }, function($ctx1) {$ctx1.fill(self,"observeBrowserModel",{},$globals.HLDebuggerCodeWidget)});
  1027. //>>excludeEnd("ctx");
  1028. },
  1029. //>>excludeStart("ide", pragmas.excludeIdeData);
  1030. args: [],
  1031. source: "observeBrowserModel\x0a\x09super observeBrowserModel.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerWhere\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self",
  1032. referencedClasses: ["HLDebuggerContextSelected", "HLDebuggerStepped", "HLDebuggerWhere"],
  1033. //>>excludeEnd("ide");
  1034. messageSends: ["observeBrowserModel", "on:send:to:", "announcer", "browserModel"]
  1035. }),
  1036. $globals.HLDebuggerCodeWidget);
  1037. $core.addMethod(
  1038. $core.method({
  1039. selector: "onContextSelected",
  1040. protocol: 'reactions',
  1041. fn: function (){
  1042. var self=this;
  1043. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1044. return $core.withContext(function($ctx1) {
  1045. //>>excludeEnd("ctx");
  1046. self._highlight();
  1047. return self;
  1048. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1049. }, function($ctx1) {$ctx1.fill(self,"onContextSelected",{},$globals.HLDebuggerCodeWidget)});
  1050. //>>excludeEnd("ctx");
  1051. },
  1052. //>>excludeStart("ide", pragmas.excludeIdeData);
  1053. args: [],
  1054. source: "onContextSelected\x0a\x09self highlight",
  1055. referencedClasses: [],
  1056. //>>excludeEnd("ide");
  1057. messageSends: ["highlight"]
  1058. }),
  1059. $globals.HLDebuggerCodeWidget);
  1060. $core.addMethod(
  1061. $core.method({
  1062. selector: "renderOn:",
  1063. protocol: 'rendering',
  1064. fn: function (html){
  1065. var self=this;
  1066. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1067. return $core.withContext(function($ctx1) {
  1068. //>>excludeEnd("ctx");
  1069. (
  1070. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1071. $ctx1.supercall = true,
  1072. //>>excludeEnd("ctx");
  1073. $globals.HLDebuggerCodeWidget.superclass.fn.prototype._renderOn_.apply($recv(self), [html]));
  1074. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1075. $ctx1.supercall = false;
  1076. //>>excludeEnd("ctx");;
  1077. self._contents_($recv($recv(self._browserModel())._selectedMethod())._source());
  1078. return self;
  1079. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1080. }, function($ctx1) {$ctx1.fill(self,"renderOn:",{html:html},$globals.HLDebuggerCodeWidget)});
  1081. //>>excludeEnd("ctx");
  1082. },
  1083. //>>excludeStart("ide", pragmas.excludeIdeData);
  1084. args: ["html"],
  1085. source: "renderOn: html\x0a\x09super renderOn: html.\x0a\x09self contents: self browserModel selectedMethod source",
  1086. referencedClasses: [],
  1087. //>>excludeEnd("ide");
  1088. messageSends: ["renderOn:", "contents:", "source", "selectedMethod", "browserModel"]
  1089. }),
  1090. $globals.HLDebuggerCodeWidget);
  1091. $core.addClass('HLDebuggerModel', $globals.HLToolModel, ['rootContext', 'debugger', 'error'], 'Helios-Debugger');
  1092. //>>excludeStart("ide", pragmas.excludeIdeData);
  1093. $globals.HLDebuggerModel.comment="I am a model for debugging Amber code in Helios.\x0a\x0aMy instances hold a reference to an `ASTDebugger` instance, itself referencing the current `context`. The context should be the root of the context stack.";
  1094. //>>excludeEnd("ide");
  1095. $core.addMethod(
  1096. $core.method({
  1097. selector: "atEnd",
  1098. protocol: 'testing',
  1099. fn: function (){
  1100. var self=this;
  1101. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1102. return $core.withContext(function($ctx1) {
  1103. //>>excludeEnd("ctx");
  1104. return $recv(self._debugger())._atEnd();
  1105. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1106. }, function($ctx1) {$ctx1.fill(self,"atEnd",{},$globals.HLDebuggerModel)});
  1107. //>>excludeEnd("ctx");
  1108. },
  1109. //>>excludeStart("ide", pragmas.excludeIdeData);
  1110. args: [],
  1111. source: "atEnd\x0a\x09^ self debugger atEnd",
  1112. referencedClasses: [],
  1113. //>>excludeEnd("ide");
  1114. messageSends: ["atEnd", "debugger"]
  1115. }),
  1116. $globals.HLDebuggerModel);
  1117. $core.addMethod(
  1118. $core.method({
  1119. selector: "contexts",
  1120. protocol: 'accessing',
  1121. fn: function (){
  1122. var self=this;
  1123. var contexts,context;
  1124. function $OrderedCollection(){return $globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  1125. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1126. return $core.withContext(function($ctx1) {
  1127. //>>excludeEnd("ctx");
  1128. contexts=$recv($OrderedCollection())._new();
  1129. context=self._rootContext();
  1130. $recv((function(){
  1131. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1132. return $core.withContext(function($ctx2) {
  1133. //>>excludeEnd("ctx");
  1134. return $recv(context)._notNil();
  1135. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1136. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1137. //>>excludeEnd("ctx");
  1138. }))._whileTrue_((function(){
  1139. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1140. return $core.withContext(function($ctx2) {
  1141. //>>excludeEnd("ctx");
  1142. $recv(contexts)._add_(context);
  1143. context=$recv(context)._outerContext();
  1144. return context;
  1145. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1146. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1147. //>>excludeEnd("ctx");
  1148. }));
  1149. return contexts;
  1150. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1151. }, function($ctx1) {$ctx1.fill(self,"contexts",{contexts:contexts,context:context},$globals.HLDebuggerModel)});
  1152. //>>excludeEnd("ctx");
  1153. },
  1154. //>>excludeStart("ide", pragmas.excludeIdeData);
  1155. args: [],
  1156. source: "contexts\x0a\x09| contexts context |\x0a\x09\x0a\x09contexts := OrderedCollection new.\x0a\x09context := self rootContext.\x0a\x09\x0a\x09[ context notNil ] whileTrue: [\x0a\x09\x09contexts add: context.\x0a\x09\x09context := context outerContext ].\x0a\x09\x09\x0a\x09^ contexts",
  1157. referencedClasses: ["OrderedCollection"],
  1158. //>>excludeEnd("ide");
  1159. messageSends: ["new", "rootContext", "whileTrue:", "notNil", "add:", "outerContext"]
  1160. }),
  1161. $globals.HLDebuggerModel);
  1162. $core.addMethod(
  1163. $core.method({
  1164. selector: "currentContext",
  1165. protocol: 'accessing',
  1166. fn: function (){
  1167. var self=this;
  1168. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1169. return $core.withContext(function($ctx1) {
  1170. //>>excludeEnd("ctx");
  1171. return $recv(self._debugger())._context();
  1172. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1173. }, function($ctx1) {$ctx1.fill(self,"currentContext",{},$globals.HLDebuggerModel)});
  1174. //>>excludeEnd("ctx");
  1175. },
  1176. //>>excludeStart("ide", pragmas.excludeIdeData);
  1177. args: [],
  1178. source: "currentContext\x0a\x09^ self debugger context",
  1179. referencedClasses: [],
  1180. //>>excludeEnd("ide");
  1181. messageSends: ["context", "debugger"]
  1182. }),
  1183. $globals.HLDebuggerModel);
  1184. $core.addMethod(
  1185. $core.method({
  1186. selector: "currentContext:",
  1187. protocol: 'accessing',
  1188. fn: function (aContext){
  1189. var self=this;
  1190. function $HLDebuggerContextSelected(){return $globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  1191. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1192. return $core.withContext(function($ctx1) {
  1193. //>>excludeEnd("ctx");
  1194. var $1;
  1195. self._withChangesDo_((function(){
  1196. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1197. return $core.withContext(function($ctx2) {
  1198. //>>excludeEnd("ctx");
  1199. self._selectedMethod_($recv(aContext)._method());
  1200. $recv(self._debugger())._context_(aContext);
  1201. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1202. $ctx2.sendIdx["context:"]=1;
  1203. //>>excludeEnd("ctx");
  1204. $1=$recv($HLDebuggerContextSelected())._new();
  1205. $recv($1)._context_(aContext);
  1206. return $recv(self._announcer())._announce_($recv($1)._yourself());
  1207. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1208. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1209. //>>excludeEnd("ctx");
  1210. }));
  1211. return self;
  1212. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1213. }, function($ctx1) {$ctx1.fill(self,"currentContext:",{aContext:aContext},$globals.HLDebuggerModel)});
  1214. //>>excludeEnd("ctx");
  1215. },
  1216. //>>excludeStart("ide", pragmas.excludeIdeData);
  1217. args: ["aContext"],
  1218. source: "currentContext: aContext\x0a\x09self withChangesDo: [ \x0a\x09\x09self selectedMethod: aContext method.\x0a\x09\x09self debugger context: aContext.\x0a\x09\x09self announcer announce: (HLDebuggerContextSelected new\x0a\x09\x09\x09context: aContext;\x0a\x09\x09\x09yourself) ]",
  1219. referencedClasses: ["HLDebuggerContextSelected"],
  1220. //>>excludeEnd("ide");
  1221. messageSends: ["withChangesDo:", "selectedMethod:", "method", "context:", "debugger", "announce:", "announcer", "new", "yourself"]
  1222. }),
  1223. $globals.HLDebuggerModel);
  1224. $core.addMethod(
  1225. $core.method({
  1226. selector: "debugger",
  1227. protocol: 'accessing',
  1228. fn: function (){
  1229. var self=this;
  1230. function $ASTDebugger(){return $globals.ASTDebugger||(typeof ASTDebugger=="undefined"?nil:ASTDebugger)}
  1231. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1232. return $core.withContext(function($ctx1) {
  1233. //>>excludeEnd("ctx");
  1234. var $1,$receiver;
  1235. $1=self["@debugger"];
  1236. if(($receiver = $1) == null || $receiver.isNil){
  1237. self["@debugger"]=$recv($ASTDebugger())._new();
  1238. return self["@debugger"];
  1239. } else {
  1240. return $1;
  1241. };
  1242. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1243. }, function($ctx1) {$ctx1.fill(self,"debugger",{},$globals.HLDebuggerModel)});
  1244. //>>excludeEnd("ctx");
  1245. },
  1246. //>>excludeStart("ide", pragmas.excludeIdeData);
  1247. args: [],
  1248. source: "debugger\x0a\x09^ debugger ifNil: [ debugger := ASTDebugger new ]",
  1249. referencedClasses: ["ASTDebugger"],
  1250. //>>excludeEnd("ide");
  1251. messageSends: ["ifNil:", "new"]
  1252. }),
  1253. $globals.HLDebuggerModel);
  1254. $core.addMethod(
  1255. $core.method({
  1256. selector: "error",
  1257. protocol: 'accessing',
  1258. fn: function (){
  1259. var self=this;
  1260. return self["@error"];
  1261. },
  1262. //>>excludeStart("ide", pragmas.excludeIdeData);
  1263. args: [],
  1264. source: "error\x0a\x09^ error",
  1265. referencedClasses: [],
  1266. //>>excludeEnd("ide");
  1267. messageSends: []
  1268. }),
  1269. $globals.HLDebuggerModel);
  1270. $core.addMethod(
  1271. $core.method({
  1272. selector: "evaluate:",
  1273. protocol: 'evaluating',
  1274. fn: function (aString){
  1275. var self=this;
  1276. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1277. return $core.withContext(function($ctx1) {
  1278. //>>excludeEnd("ctx");
  1279. return $recv(self._environment())._evaluate_for_(aString,self._currentContext());
  1280. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1281. }, function($ctx1) {$ctx1.fill(self,"evaluate:",{aString:aString},$globals.HLDebuggerModel)});
  1282. //>>excludeEnd("ctx");
  1283. },
  1284. //>>excludeStart("ide", pragmas.excludeIdeData);
  1285. args: ["aString"],
  1286. source: "evaluate: aString\x0a\x09^ self environment \x0a\x09\x09evaluate: aString \x0a\x09\x09for: self currentContext",
  1287. referencedClasses: [],
  1288. //>>excludeEnd("ide");
  1289. messageSends: ["evaluate:for:", "environment", "currentContext"]
  1290. }),
  1291. $globals.HLDebuggerModel);
  1292. $core.addMethod(
  1293. $core.method({
  1294. selector: "flushInnerContexts",
  1295. protocol: 'private',
  1296. fn: function (){
  1297. var self=this;
  1298. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1299. return $core.withContext(function($ctx1) {
  1300. //>>excludeEnd("ctx");
  1301. var $1;
  1302. $1=self._currentContext();
  1303. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1304. $ctx1.sendIdx["currentContext"]=1;
  1305. //>>excludeEnd("ctx");
  1306. $recv($1)._innerContext_(nil);
  1307. self["@rootContext"]=self._currentContext();
  1308. self._initializeContexts();
  1309. return self;
  1310. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1311. }, function($ctx1) {$ctx1.fill(self,"flushInnerContexts",{},$globals.HLDebuggerModel)});
  1312. //>>excludeEnd("ctx");
  1313. },
  1314. //>>excludeStart("ide", pragmas.excludeIdeData);
  1315. args: [],
  1316. source: "flushInnerContexts\x0a\x09\x22When stepping, the inner contexts are not relevent anymore,\x0a\x09and can be flushed\x22\x0a\x09\x0a\x09self currentContext innerContext: nil.\x0a\x09rootContext := self currentContext.\x0a\x09self initializeContexts",
  1317. referencedClasses: [],
  1318. //>>excludeEnd("ide");
  1319. messageSends: ["innerContext:", "currentContext", "initializeContexts"]
  1320. }),
  1321. $globals.HLDebuggerModel);
  1322. $core.addMethod(
  1323. $core.method({
  1324. selector: "initializeFromError:",
  1325. protocol: 'initialization',
  1326. fn: function (anError){
  1327. var self=this;
  1328. var errorContext;
  1329. function $AIContext(){return $globals.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
  1330. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1331. return $core.withContext(function($ctx1) {
  1332. //>>excludeEnd("ctx");
  1333. self["@error"]=anError;
  1334. errorContext=$recv($AIContext())._fromMethodContext_($recv(self["@error"])._context());
  1335. self["@rootContext"]=$recv(self["@error"])._signalerContextFrom_(errorContext);
  1336. self._selectedMethod_($recv(self["@rootContext"])._method());
  1337. return self;
  1338. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1339. }, function($ctx1) {$ctx1.fill(self,"initializeFromError:",{anError:anError,errorContext:errorContext},$globals.HLDebuggerModel)});
  1340. //>>excludeEnd("ctx");
  1341. },
  1342. //>>excludeStart("ide", pragmas.excludeIdeData);
  1343. args: ["anError"],
  1344. source: "initializeFromError: anError\x0a\x09| errorContext |\x0a\x09\x0a\x09error := anError.\x0a\x09errorContext := (AIContext fromMethodContext: error context).\x0a\x09rootContext := error signalerContextFrom: errorContext.\x0a\x09self selectedMethod: rootContext method",
  1345. referencedClasses: ["AIContext"],
  1346. //>>excludeEnd("ide");
  1347. messageSends: ["fromMethodContext:", "context", "signalerContextFrom:", "selectedMethod:", "method"]
  1348. }),
  1349. $globals.HLDebuggerModel);
  1350. $core.addMethod(
  1351. $core.method({
  1352. selector: "nextNode",
  1353. protocol: 'accessing',
  1354. fn: function (){
  1355. var self=this;
  1356. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1357. return $core.withContext(function($ctx1) {
  1358. //>>excludeEnd("ctx");
  1359. return $recv(self._debugger())._node();
  1360. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1361. }, function($ctx1) {$ctx1.fill(self,"nextNode",{},$globals.HLDebuggerModel)});
  1362. //>>excludeEnd("ctx");
  1363. },
  1364. //>>excludeStart("ide", pragmas.excludeIdeData);
  1365. args: [],
  1366. source: "nextNode\x0a\x09^ self debugger node",
  1367. referencedClasses: [],
  1368. //>>excludeEnd("ide");
  1369. messageSends: ["node", "debugger"]
  1370. }),
  1371. $globals.HLDebuggerModel);
  1372. $core.addMethod(
  1373. $core.method({
  1374. selector: "onStep",
  1375. protocol: 'reactions',
  1376. fn: function (){
  1377. var self=this;
  1378. function $HLDebuggerContextSelected(){return $globals.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  1379. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1380. return $core.withContext(function($ctx1) {
  1381. //>>excludeEnd("ctx");
  1382. var $2,$1,$3;
  1383. self["@rootContext"]=self._currentContext();
  1384. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1385. $ctx1.sendIdx["currentContext"]=1;
  1386. //>>excludeEnd("ctx");
  1387. $2=self._currentContext();
  1388. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1389. $ctx1.sendIdx["currentContext"]=2;
  1390. //>>excludeEnd("ctx");
  1391. $1=$recv($2)._method();
  1392. self._selectedMethod_($1);
  1393. $3=$recv($HLDebuggerContextSelected())._new();
  1394. $recv($3)._context_(self._currentContext());
  1395. $recv(self._announcer())._announce_($recv($3)._yourself());
  1396. return self;
  1397. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1398. }, function($ctx1) {$ctx1.fill(self,"onStep",{},$globals.HLDebuggerModel)});
  1399. //>>excludeEnd("ctx");
  1400. },
  1401. //>>excludeStart("ide", pragmas.excludeIdeData);
  1402. args: [],
  1403. source: "onStep\x0a\x09rootContext := self currentContext.\x0a\x09\x0a\x09\x22Force a refresh of the context list and code widget\x22\x0a\x09self selectedMethod: self currentContext method.\x0a\x09self announcer announce: (HLDebuggerContextSelected new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
  1404. referencedClasses: ["HLDebuggerContextSelected"],
  1405. //>>excludeEnd("ide");
  1406. messageSends: ["currentContext", "selectedMethod:", "method", "announce:", "announcer", "context:", "new", "yourself"]
  1407. }),
  1408. $globals.HLDebuggerModel);
  1409. $core.addMethod(
  1410. $core.method({
  1411. selector: "proceed",
  1412. protocol: 'actions',
  1413. fn: function (){
  1414. var self=this;
  1415. function $HLDebuggerProceeded(){return $globals.HLDebuggerProceeded||(typeof HLDebuggerProceeded=="undefined"?nil:HLDebuggerProceeded)}
  1416. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1417. return $core.withContext(function($ctx1) {
  1418. //>>excludeEnd("ctx");
  1419. $recv(self._debugger())._proceed();
  1420. $recv(self._announcer())._announce_($recv($HLDebuggerProceeded())._new());
  1421. return self;
  1422. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1423. }, function($ctx1) {$ctx1.fill(self,"proceed",{},$globals.HLDebuggerModel)});
  1424. //>>excludeEnd("ctx");
  1425. },
  1426. //>>excludeStart("ide", pragmas.excludeIdeData);
  1427. args: [],
  1428. source: "proceed\x0a\x09self debugger proceed.\x0a\x09\x0a\x09self announcer announce: HLDebuggerProceeded new",
  1429. referencedClasses: ["HLDebuggerProceeded"],
  1430. //>>excludeEnd("ide");
  1431. messageSends: ["proceed", "debugger", "announce:", "announcer", "new"]
  1432. }),
  1433. $globals.HLDebuggerModel);
  1434. $core.addMethod(
  1435. $core.method({
  1436. selector: "restart",
  1437. protocol: 'actions',
  1438. fn: function (){
  1439. var self=this;
  1440. function $HLDebuggerStepped(){return $globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
  1441. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1442. return $core.withContext(function($ctx1) {
  1443. //>>excludeEnd("ctx");
  1444. var $1;
  1445. $recv(self._debugger())._restart();
  1446. self._onStep();
  1447. $1=$recv($HLDebuggerStepped())._new();
  1448. $recv($1)._context_(self._currentContext());
  1449. $recv(self._announcer())._announce_($recv($1)._yourself());
  1450. return self;
  1451. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1452. }, function($ctx1) {$ctx1.fill(self,"restart",{},$globals.HLDebuggerModel)});
  1453. //>>excludeEnd("ctx");
  1454. },
  1455. //>>excludeStart("ide", pragmas.excludeIdeData);
  1456. args: [],
  1457. source: "restart\x0a\x09self debugger restart.\x0a\x09self onStep.\x0a\x09\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
  1458. referencedClasses: ["HLDebuggerStepped"],
  1459. //>>excludeEnd("ide");
  1460. messageSends: ["restart", "debugger", "onStep", "announce:", "announcer", "context:", "new", "currentContext", "yourself"]
  1461. }),
  1462. $globals.HLDebuggerModel);
  1463. $core.addMethod(
  1464. $core.method({
  1465. selector: "rootContext",
  1466. protocol: 'accessing',
  1467. fn: function (){
  1468. var self=this;
  1469. return self["@rootContext"];
  1470. },
  1471. //>>excludeStart("ide", pragmas.excludeIdeData);
  1472. args: [],
  1473. source: "rootContext\x0a\x09^ rootContext",
  1474. referencedClasses: [],
  1475. //>>excludeEnd("ide");
  1476. messageSends: []
  1477. }),
  1478. $globals.HLDebuggerModel);
  1479. $core.addMethod(
  1480. $core.method({
  1481. selector: "stepOver",
  1482. protocol: 'actions',
  1483. fn: function (){
  1484. var self=this;
  1485. function $HLDebuggerStepped(){return $globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
  1486. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1487. return $core.withContext(function($ctx1) {
  1488. //>>excludeEnd("ctx");
  1489. var $1;
  1490. $recv(self._debugger())._stepOver();
  1491. self._onStep();
  1492. $1=$recv($HLDebuggerStepped())._new();
  1493. $recv($1)._context_(self._currentContext());
  1494. $recv(self._announcer())._announce_($recv($1)._yourself());
  1495. return self;
  1496. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1497. }, function($ctx1) {$ctx1.fill(self,"stepOver",{},$globals.HLDebuggerModel)});
  1498. //>>excludeEnd("ctx");
  1499. },
  1500. //>>excludeStart("ide", pragmas.excludeIdeData);
  1501. args: [],
  1502. source: "stepOver\x0a\x09self debugger stepOver.\x0a\x09self onStep.\x0a\x09\x0a\x09self announcer announce: (HLDebuggerStepped new\x0a\x09\x09context: self currentContext;\x0a\x09\x09yourself)",
  1503. referencedClasses: ["HLDebuggerStepped"],
  1504. //>>excludeEnd("ide");
  1505. messageSends: ["stepOver", "debugger", "onStep", "announce:", "announcer", "context:", "new", "currentContext", "yourself"]
  1506. }),
  1507. $globals.HLDebuggerModel);
  1508. $core.addMethod(
  1509. $core.method({
  1510. selector: "where",
  1511. protocol: 'actions',
  1512. fn: function (){
  1513. var self=this;
  1514. function $HLDebuggerWhere(){return $globals.HLDebuggerWhere||(typeof HLDebuggerWhere=="undefined"?nil:HLDebuggerWhere)}
  1515. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1516. return $core.withContext(function($ctx1) {
  1517. //>>excludeEnd("ctx");
  1518. $recv(self._announcer())._announce_($recv($HLDebuggerWhere())._new());
  1519. return self;
  1520. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1521. }, function($ctx1) {$ctx1.fill(self,"where",{},$globals.HLDebuggerModel)});
  1522. //>>excludeEnd("ctx");
  1523. },
  1524. //>>excludeStart("ide", pragmas.excludeIdeData);
  1525. args: [],
  1526. source: "where\x0a\x09self announcer announce: HLDebuggerWhere new",
  1527. referencedClasses: ["HLDebuggerWhere"],
  1528. //>>excludeEnd("ide");
  1529. messageSends: ["announce:", "announcer", "new"]
  1530. }),
  1531. $globals.HLDebuggerModel);
  1532. $core.addMethod(
  1533. $core.method({
  1534. selector: "on:",
  1535. protocol: 'instance creation',
  1536. fn: function (anError){
  1537. var self=this;
  1538. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1539. return $core.withContext(function($ctx1) {
  1540. //>>excludeEnd("ctx");
  1541. var $1;
  1542. $1=self._new();
  1543. $recv($1)._initializeFromError_(anError);
  1544. return $recv($1)._yourself();
  1545. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1546. }, function($ctx1) {$ctx1.fill(self,"on:",{anError:anError},$globals.HLDebuggerModel.klass)});
  1547. //>>excludeEnd("ctx");
  1548. },
  1549. //>>excludeStart("ide", pragmas.excludeIdeData);
  1550. args: ["anError"],
  1551. source: "on: anError\x0a\x09^ self new\x0a\x09\x09initializeFromError: anError;\x0a\x09\x09yourself",
  1552. referencedClasses: [],
  1553. //>>excludeEnd("ide");
  1554. messageSends: ["initializeFromError:", "new", "yourself"]
  1555. }),
  1556. $globals.HLDebuggerModel.klass);
  1557. $core.addClass('HLErrorHandler', $globals.Object, [], 'Helios-Debugger');
  1558. $core.addMethod(
  1559. $core.method({
  1560. selector: "confirmDebugError:",
  1561. protocol: 'error handling',
  1562. fn: function (anError){
  1563. var self=this;
  1564. function $HLConfirmationWidget(){return $globals.HLConfirmationWidget||(typeof HLConfirmationWidget=="undefined"?nil:HLConfirmationWidget)}
  1565. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1566. return $core.withContext(function($ctx1) {
  1567. //>>excludeEnd("ctx");
  1568. var $1;
  1569. $1=$recv($HLConfirmationWidget())._new();
  1570. $recv($1)._confirmationString_($recv(anError)._messageText());
  1571. $recv($1)._actionBlock_((function(){
  1572. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1573. return $core.withContext(function($ctx2) {
  1574. //>>excludeEnd("ctx");
  1575. return self._debugError_(anError);
  1576. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1577. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1578. //>>excludeEnd("ctx");
  1579. }));
  1580. $recv($1)._cancelButtonLabel_("Abandon");
  1581. $recv($1)._confirmButtonLabel_("Debug");
  1582. $recv($1)._show();
  1583. return self;
  1584. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1585. }, function($ctx1) {$ctx1.fill(self,"confirmDebugError:",{anError:anError},$globals.HLErrorHandler)});
  1586. //>>excludeEnd("ctx");
  1587. },
  1588. //>>excludeStart("ide", pragmas.excludeIdeData);
  1589. args: ["anError"],
  1590. source: "confirmDebugError: anError\x0a\x09HLConfirmationWidget new\x0a\x09\x09confirmationString: anError messageText;\x0a\x09\x09actionBlock: [ self debugError: anError ];\x0a\x09\x09cancelButtonLabel: 'Abandon';\x0a\x09\x09confirmButtonLabel: 'Debug';\x0a\x09\x09show",
  1591. referencedClasses: ["HLConfirmationWidget"],
  1592. //>>excludeEnd("ide");
  1593. messageSends: ["confirmationString:", "new", "messageText", "actionBlock:", "debugError:", "cancelButtonLabel:", "confirmButtonLabel:", "show"]
  1594. }),
  1595. $globals.HLErrorHandler);
  1596. $core.addMethod(
  1597. $core.method({
  1598. selector: "debugError:",
  1599. protocol: 'error handling',
  1600. fn: function (anError){
  1601. var self=this;
  1602. function $HLDebugger(){return $globals.HLDebugger||(typeof HLDebugger=="undefined"?nil:HLDebugger)}
  1603. function $Error(){return $globals.Error||(typeof Error=="undefined"?nil:Error)}
  1604. function $ConsoleErrorHandler(){return $globals.ConsoleErrorHandler||(typeof ConsoleErrorHandler=="undefined"?nil:ConsoleErrorHandler)}
  1605. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1606. return $core.withContext(function($ctx1) {
  1607. //>>excludeEnd("ctx");
  1608. $recv((function(){
  1609. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1610. return $core.withContext(function($ctx2) {
  1611. //>>excludeEnd("ctx");
  1612. return $recv($recv($HLDebugger())._on_(anError))._openAsTab();
  1613. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1614. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1615. //>>excludeEnd("ctx");
  1616. }))._on_do_($Error(),(function(error){
  1617. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1618. return $core.withContext(function($ctx2) {
  1619. //>>excludeEnd("ctx");
  1620. return $recv($recv($ConsoleErrorHandler())._new())._handleError_(error);
  1621. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1622. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1,2)});
  1623. //>>excludeEnd("ctx");
  1624. }));
  1625. return self;
  1626. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1627. }, function($ctx1) {$ctx1.fill(self,"debugError:",{anError:anError},$globals.HLErrorHandler)});
  1628. //>>excludeEnd("ctx");
  1629. },
  1630. //>>excludeStart("ide", pragmas.excludeIdeData);
  1631. args: ["anError"],
  1632. source: "debugError: anError\x0a\x0a\x09[ \x0a\x09\x09(HLDebugger on: anError) openAsTab \x0a\x09] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ConsoleErrorHandler new handleError: error ]",
  1633. referencedClasses: ["HLDebugger", "Error", "ConsoleErrorHandler"],
  1634. //>>excludeEnd("ide");
  1635. messageSends: ["on:do:", "openAsTab", "on:", "handleError:", "new"]
  1636. }),
  1637. $globals.HLErrorHandler);
  1638. $core.addMethod(
  1639. $core.method({
  1640. selector: "handleError:",
  1641. protocol: 'error handling',
  1642. fn: function (anError){
  1643. var self=this;
  1644. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1645. return $core.withContext(function($ctx1) {
  1646. //>>excludeEnd("ctx");
  1647. self._confirmDebugError_(anError);
  1648. return self;
  1649. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1650. }, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},$globals.HLErrorHandler)});
  1651. //>>excludeEnd("ctx");
  1652. },
  1653. //>>excludeStart("ide", pragmas.excludeIdeData);
  1654. args: ["anError"],
  1655. source: "handleError: anError\x0a\x09self confirmDebugError: anError",
  1656. referencedClasses: [],
  1657. //>>excludeEnd("ide");
  1658. messageSends: ["confirmDebugError:"]
  1659. }),
  1660. $globals.HLErrorHandler);
  1661. $core.addMethod(
  1662. $core.method({
  1663. selector: "onErrorHandled",
  1664. protocol: 'error handling',
  1665. fn: function (){
  1666. var self=this;
  1667. function $HLProgressWidget(){return $globals.HLProgressWidget||(typeof HLProgressWidget=="undefined"?nil:HLProgressWidget)}
  1668. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1669. return $core.withContext(function($ctx1) {
  1670. //>>excludeEnd("ctx");
  1671. var $1;
  1672. $1=$recv($HLProgressWidget())._default();
  1673. $recv($1)._flush();
  1674. $recv($1)._remove();
  1675. return self;
  1676. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1677. }, function($ctx1) {$ctx1.fill(self,"onErrorHandled",{},$globals.HLErrorHandler)});
  1678. //>>excludeEnd("ctx");
  1679. },
  1680. //>>excludeStart("ide", pragmas.excludeIdeData);
  1681. args: [],
  1682. source: "onErrorHandled\x0a\x09\x22when an error is handled, we need to make sure that\x0a\x09any progress bar widget gets removed. Because HLProgressBarWidget is asynchronous,\x0a\x09it has to be done here.\x22\x0a\x09\x0a\x09HLProgressWidget default \x0a\x09\x09flush; \x0a\x09\x09remove",
  1683. referencedClasses: ["HLProgressWidget"],
  1684. //>>excludeEnd("ide");
  1685. messageSends: ["flush", "default", "remove"]
  1686. }),
  1687. $globals.HLErrorHandler);
  1688. $core.addClass('HLStackListWidget', $globals.HLToolListWidget, [], 'Helios-Debugger');
  1689. $core.addMethod(
  1690. $core.method({
  1691. selector: "items",
  1692. protocol: 'accessing',
  1693. fn: function (){
  1694. var self=this;
  1695. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1696. return $core.withContext(function($ctx1) {
  1697. //>>excludeEnd("ctx");
  1698. return $recv(self._model())._contexts();
  1699. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1700. }, function($ctx1) {$ctx1.fill(self,"items",{},$globals.HLStackListWidget)});
  1701. //>>excludeEnd("ctx");
  1702. },
  1703. //>>excludeStart("ide", pragmas.excludeIdeData);
  1704. args: [],
  1705. source: "items\x0a\x09^ self model contexts",
  1706. referencedClasses: [],
  1707. //>>excludeEnd("ide");
  1708. messageSends: ["contexts", "model"]
  1709. }),
  1710. $globals.HLStackListWidget);
  1711. $core.addMethod(
  1712. $core.method({
  1713. selector: "label",
  1714. protocol: 'accessing',
  1715. fn: function (){
  1716. var self=this;
  1717. return "Call stack";
  1718. },
  1719. //>>excludeStart("ide", pragmas.excludeIdeData);
  1720. args: [],
  1721. source: "label\x0a\x09^ 'Call stack'",
  1722. referencedClasses: [],
  1723. //>>excludeEnd("ide");
  1724. messageSends: []
  1725. }),
  1726. $globals.HLStackListWidget);
  1727. $core.addMethod(
  1728. $core.method({
  1729. selector: "observeModel",
  1730. protocol: 'actions',
  1731. fn: function (){
  1732. var self=this;
  1733. function $HLDebuggerStepped(){return $globals.HLDebuggerStepped||(typeof HLDebuggerStepped=="undefined"?nil:HLDebuggerStepped)}
  1734. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1735. return $core.withContext(function($ctx1) {
  1736. //>>excludeEnd("ctx");
  1737. (
  1738. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1739. $ctx1.supercall = true,
  1740. //>>excludeEnd("ctx");
  1741. $globals.HLStackListWidget.superclass.fn.prototype._observeModel.apply($recv(self), []));
  1742. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1743. $ctx1.supercall = false;
  1744. //>>excludeEnd("ctx");;
  1745. $recv($recv(self._model())._announcer())._on_send_to_($HLDebuggerStepped(),"onDebuggerStepped:",self);
  1746. return self;
  1747. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1748. }, function($ctx1) {$ctx1.fill(self,"observeModel",{},$globals.HLStackListWidget)});
  1749. //>>excludeEnd("ctx");
  1750. },
  1751. //>>excludeStart("ide", pragmas.excludeIdeData);
  1752. args: [],
  1753. source: "observeModel\x0a\x09super observeModel.\x0a\x09\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerStepped\x0a\x09\x09send: #onDebuggerStepped:\x0a\x09\x09to: self",
  1754. referencedClasses: ["HLDebuggerStepped"],
  1755. //>>excludeEnd("ide");
  1756. messageSends: ["observeModel", "on:send:to:", "announcer", "model"]
  1757. }),
  1758. $globals.HLStackListWidget);
  1759. $core.addMethod(
  1760. $core.method({
  1761. selector: "onDebuggerStepped:",
  1762. protocol: 'reactions',
  1763. fn: function (anAnnouncement){
  1764. var self=this;
  1765. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1766. return $core.withContext(function($ctx1) {
  1767. //>>excludeEnd("ctx");
  1768. self["@items"]=nil;
  1769. self._refresh();
  1770. return self;
  1771. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1772. }, function($ctx1) {$ctx1.fill(self,"onDebuggerStepped:",{anAnnouncement:anAnnouncement},$globals.HLStackListWidget)});
  1773. //>>excludeEnd("ctx");
  1774. },
  1775. //>>excludeStart("ide", pragmas.excludeIdeData);
  1776. args: ["anAnnouncement"],
  1777. source: "onDebuggerStepped: anAnnouncement\x0a\x09items := nil.\x0a\x09self refresh",
  1778. referencedClasses: [],
  1779. //>>excludeEnd("ide");
  1780. messageSends: ["refresh"]
  1781. }),
  1782. $globals.HLStackListWidget);
  1783. $core.addMethod(
  1784. $core.method({
  1785. selector: "proceed",
  1786. protocol: 'actions',
  1787. fn: function (){
  1788. var self=this;
  1789. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1790. return $core.withContext(function($ctx1) {
  1791. //>>excludeEnd("ctx");
  1792. $recv(self._model())._proceed();
  1793. return self;
  1794. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1795. }, function($ctx1) {$ctx1.fill(self,"proceed",{},$globals.HLStackListWidget)});
  1796. //>>excludeEnd("ctx");
  1797. },
  1798. //>>excludeStart("ide", pragmas.excludeIdeData);
  1799. args: [],
  1800. source: "proceed\x0a\x09self model proceed",
  1801. referencedClasses: [],
  1802. //>>excludeEnd("ide");
  1803. messageSends: ["proceed", "model"]
  1804. }),
  1805. $globals.HLStackListWidget);
  1806. $core.addMethod(
  1807. $core.method({
  1808. selector: "renderButtonsOn:",
  1809. protocol: 'rendering',
  1810. fn: function (html){
  1811. var self=this;
  1812. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1813. return $core.withContext(function($ctx1) {
  1814. //>>excludeEnd("ctx");
  1815. var $1,$3,$4,$5,$6,$7,$8,$9,$2;
  1816. $1=$recv(html)._div();
  1817. $recv($1)._class_("debugger_bar");
  1818. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1819. $ctx1.sendIdx["class:"]=1;
  1820. //>>excludeEnd("ctx");
  1821. $2=$recv($1)._with_((function(){
  1822. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1823. return $core.withContext(function($ctx2) {
  1824. //>>excludeEnd("ctx");
  1825. $3=$recv(html)._button();
  1826. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1827. $ctx2.sendIdx["button"]=1;
  1828. //>>excludeEnd("ctx");
  1829. $recv($3)._class_("btn btn-default restart");
  1830. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1831. $ctx2.sendIdx["class:"]=2;
  1832. //>>excludeEnd("ctx");
  1833. $recv($3)._with_("Restart");
  1834. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1835. $ctx2.sendIdx["with:"]=2;
  1836. //>>excludeEnd("ctx");
  1837. $4=$recv($3)._onClick_((function(){
  1838. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1839. return $core.withContext(function($ctx3) {
  1840. //>>excludeEnd("ctx");
  1841. return self._restart();
  1842. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1843. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,2)});
  1844. //>>excludeEnd("ctx");
  1845. }));
  1846. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1847. $ctx2.sendIdx["onClick:"]=1;
  1848. //>>excludeEnd("ctx");
  1849. $4;
  1850. $5=$recv(html)._button();
  1851. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1852. $ctx2.sendIdx["button"]=2;
  1853. //>>excludeEnd("ctx");
  1854. $recv($5)._class_("btn btn-default where");
  1855. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1856. $ctx2.sendIdx["class:"]=3;
  1857. //>>excludeEnd("ctx");
  1858. $recv($5)._with_("Where");
  1859. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1860. $ctx2.sendIdx["with:"]=3;
  1861. //>>excludeEnd("ctx");
  1862. $6=$recv($5)._onClick_((function(){
  1863. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1864. return $core.withContext(function($ctx3) {
  1865. //>>excludeEnd("ctx");
  1866. return self._where();
  1867. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1868. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,3)});
  1869. //>>excludeEnd("ctx");
  1870. }));
  1871. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1872. $ctx2.sendIdx["onClick:"]=2;
  1873. //>>excludeEnd("ctx");
  1874. $6;
  1875. $7=$recv(html)._button();
  1876. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1877. $ctx2.sendIdx["button"]=3;
  1878. //>>excludeEnd("ctx");
  1879. $recv($7)._class_("btn btn-default stepOver");
  1880. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1881. $ctx2.sendIdx["class:"]=4;
  1882. //>>excludeEnd("ctx");
  1883. $recv($7)._with_("Step over");
  1884. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1885. $ctx2.sendIdx["with:"]=4;
  1886. //>>excludeEnd("ctx");
  1887. $8=$recv($7)._onClick_((function(){
  1888. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1889. return $core.withContext(function($ctx3) {
  1890. //>>excludeEnd("ctx");
  1891. return self._stepOver();
  1892. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1893. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,4)});
  1894. //>>excludeEnd("ctx");
  1895. }));
  1896. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1897. $ctx2.sendIdx["onClick:"]=3;
  1898. //>>excludeEnd("ctx");
  1899. $8;
  1900. $9=$recv(html)._button();
  1901. $recv($9)._class_("btn btn-default proceed");
  1902. $recv($9)._with_("Proceed");
  1903. return $recv($9)._onClick_((function(){
  1904. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1905. return $core.withContext(function($ctx3) {
  1906. //>>excludeEnd("ctx");
  1907. return self._proceed();
  1908. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1909. }, function($ctx3) {$ctx3.fillBlock({},$ctx2,5)});
  1910. //>>excludeEnd("ctx");
  1911. }));
  1912. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1913. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1914. //>>excludeEnd("ctx");
  1915. }));
  1916. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1917. $ctx1.sendIdx["with:"]=1;
  1918. //>>excludeEnd("ctx");
  1919. return self;
  1920. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1921. }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},$globals.HLStackListWidget)});
  1922. //>>excludeEnd("ctx");
  1923. },
  1924. //>>excludeStart("ide", pragmas.excludeIdeData);
  1925. args: ["html"],
  1926. source: "renderButtonsOn: html\x0a\x09html div \x0a\x09\x09class: 'debugger_bar'; \x0a\x09\x09with: [\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default restart';\x0a\x09\x09\x09\x09with: 'Restart';\x0a\x09\x09\x09\x09onClick: [ self restart ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default where';\x0a\x09\x09\x09\x09with: 'Where';\x0a\x09\x09\x09\x09onClick: [ self where ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default stepOver';\x0a\x09\x09\x09\x09with: 'Step over';\x0a\x09\x09\x09\x09onClick: [ self stepOver ].\x0a\x09\x09\x09html button \x0a\x09\x09\x09\x09class: 'btn btn-default proceed';\x0a\x09\x09\x09\x09with: 'Proceed';\x0a\x09\x09\x09\x09onClick: [ self proceed ] ]",
  1927. referencedClasses: [],
  1928. //>>excludeEnd("ide");
  1929. messageSends: ["class:", "div", "with:", "button", "onClick:", "restart", "where", "stepOver", "proceed"]
  1930. }),
  1931. $globals.HLStackListWidget);
  1932. $core.addMethod(
  1933. $core.method({
  1934. selector: "restart",
  1935. protocol: 'actions',
  1936. fn: function (){
  1937. var self=this;
  1938. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1939. return $core.withContext(function($ctx1) {
  1940. //>>excludeEnd("ctx");
  1941. $recv(self._model())._restart();
  1942. return self;
  1943. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1944. }, function($ctx1) {$ctx1.fill(self,"restart",{},$globals.HLStackListWidget)});
  1945. //>>excludeEnd("ctx");
  1946. },
  1947. //>>excludeStart("ide", pragmas.excludeIdeData);
  1948. args: [],
  1949. source: "restart\x0a\x09self model restart",
  1950. referencedClasses: [],
  1951. //>>excludeEnd("ide");
  1952. messageSends: ["restart", "model"]
  1953. }),
  1954. $globals.HLStackListWidget);
  1955. $core.addMethod(
  1956. $core.method({
  1957. selector: "selectItem:",
  1958. protocol: 'actions',
  1959. fn: function (aContext){
  1960. var self=this;
  1961. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1962. return $core.withContext(function($ctx1) {
  1963. //>>excludeEnd("ctx");
  1964. $recv(self._model())._currentContext_(aContext);
  1965. (
  1966. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1967. $ctx1.supercall = true,
  1968. //>>excludeEnd("ctx");
  1969. $globals.HLStackListWidget.superclass.fn.prototype._selectItem_.apply($recv(self), [aContext]));
  1970. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1971. $ctx1.supercall = false;
  1972. //>>excludeEnd("ctx");;
  1973. return self;
  1974. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1975. }, function($ctx1) {$ctx1.fill(self,"selectItem:",{aContext:aContext},$globals.HLStackListWidget)});
  1976. //>>excludeEnd("ctx");
  1977. },
  1978. //>>excludeStart("ide", pragmas.excludeIdeData);
  1979. args: ["aContext"],
  1980. source: "selectItem: aContext\x0a \x09self model currentContext: aContext.\x0a\x09super selectItem: aContext",
  1981. referencedClasses: [],
  1982. //>>excludeEnd("ide");
  1983. messageSends: ["currentContext:", "model", "selectItem:"]
  1984. }),
  1985. $globals.HLStackListWidget);
  1986. $core.addMethod(
  1987. $core.method({
  1988. selector: "selectedItem",
  1989. protocol: 'actions',
  1990. fn: function (){
  1991. var self=this;
  1992. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1993. return $core.withContext(function($ctx1) {
  1994. //>>excludeEnd("ctx");
  1995. return $recv(self._model())._currentContext();
  1996. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1997. }, function($ctx1) {$ctx1.fill(self,"selectedItem",{},$globals.HLStackListWidget)});
  1998. //>>excludeEnd("ctx");
  1999. },
  2000. //>>excludeStart("ide", pragmas.excludeIdeData);
  2001. args: [],
  2002. source: "selectedItem\x0a \x09^ self model currentContext",
  2003. referencedClasses: [],
  2004. //>>excludeEnd("ide");
  2005. messageSends: ["currentContext", "model"]
  2006. }),
  2007. $globals.HLStackListWidget);
  2008. $core.addMethod(
  2009. $core.method({
  2010. selector: "stepOver",
  2011. protocol: 'actions',
  2012. fn: function (){
  2013. var self=this;
  2014. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2015. return $core.withContext(function($ctx1) {
  2016. //>>excludeEnd("ctx");
  2017. $recv(self._model())._stepOver();
  2018. return self;
  2019. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2020. }, function($ctx1) {$ctx1.fill(self,"stepOver",{},$globals.HLStackListWidget)});
  2021. //>>excludeEnd("ctx");
  2022. },
  2023. //>>excludeStart("ide", pragmas.excludeIdeData);
  2024. args: [],
  2025. source: "stepOver\x0a\x09self model stepOver",
  2026. referencedClasses: [],
  2027. //>>excludeEnd("ide");
  2028. messageSends: ["stepOver", "model"]
  2029. }),
  2030. $globals.HLStackListWidget);
  2031. $core.addMethod(
  2032. $core.method({
  2033. selector: "where",
  2034. protocol: 'actions',
  2035. fn: function (){
  2036. var self=this;
  2037. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2038. return $core.withContext(function($ctx1) {
  2039. //>>excludeEnd("ctx");
  2040. $recv(self._model())._where();
  2041. return self;
  2042. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  2043. }, function($ctx1) {$ctx1.fill(self,"where",{},$globals.HLStackListWidget)});
  2044. //>>excludeEnd("ctx");
  2045. },
  2046. //>>excludeStart("ide", pragmas.excludeIdeData);
  2047. args: [],
  2048. source: "where\x0a\x09self model where",
  2049. referencedClasses: [],
  2050. //>>excludeEnd("ide");
  2051. messageSends: ["where", "model"]
  2052. }),
  2053. $globals.HLStackListWidget);
  2054. });