Helios-Debugger.js 76 KB

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