1
0

Helios-Debugger.js 35 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919
  1. smalltalk.addPackage('Helios-Debugger');
  2. smalltalk.addClass('HLContextInspectorDecorator', smalltalk.Object, ['context'], 'Helios-Debugger');
  3. smalltalk.addMethod(
  4. smalltalk.method({
  5. selector: "context",
  6. category: 'accessing',
  7. fn: function (){
  8. var self=this;
  9. return smalltalk.withContext(function($ctx1) {
  10. var $1;
  11. $1=self["@context"];
  12. return $1;
  13. }, function($ctx1) {$ctx1.fill(self,"context",{},smalltalk.HLContextInspectorDecorator)})},
  14. args: [],
  15. source: "context\x0a\x09^ context",
  16. messageSends: [],
  17. referencedClasses: []
  18. }),
  19. smalltalk.HLContextInspectorDecorator);
  20. smalltalk.addMethod(
  21. smalltalk.method({
  22. selector: "initializeFromContext:",
  23. category: 'initialization',
  24. fn: function (aContext){
  25. var self=this;
  26. return smalltalk.withContext(function($ctx1) {
  27. self["@context"]=aContext;
  28. return self}, function($ctx1) {$ctx1.fill(self,"initializeFromContext:",{aContext:aContext},smalltalk.HLContextInspectorDecorator)})},
  29. args: ["aContext"],
  30. source: "initializeFromContext: aContext\x0a\x09context := aContext",
  31. messageSends: [],
  32. referencedClasses: []
  33. }),
  34. smalltalk.HLContextInspectorDecorator);
  35. smalltalk.addMethod(
  36. smalltalk.method({
  37. selector: "inspectOn:",
  38. category: 'inspecting',
  39. fn: function (anInspector){
  40. var self=this;
  41. var variables,inspectedContext;
  42. function $Dictionary(){return smalltalk.Dictionary||(typeof Dictionary=="undefined"?nil:Dictionary)}
  43. return smalltalk.withContext(function($ctx1) {
  44. var $1,$2,$3;
  45. variables=_st($Dictionary())._new();
  46. inspectedContext=_st(self)._context();
  47. _st(variables)._addAll_(_st(inspectedContext)._locals());
  48. _st((function(){
  49. return smalltalk.withContext(function($ctx2) {
  50. return _st(_st(inspectedContext)._notNil())._and_((function(){
  51. return smalltalk.withContext(function($ctx3) {
  52. return _st(inspectedContext)._isBlockContext();
  53. }, function($ctx3) {$ctx3.fillBlock({},$ctx1)})}));
  54. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  55. return smalltalk.withContext(function($ctx2) {
  56. inspectedContext=_st(inspectedContext)._outerContext();
  57. inspectedContext;
  58. $1=inspectedContext;
  59. if(($receiver = $1) == nil || $receiver == undefined){
  60. return $1;
  61. } else {
  62. return _st(variables)._addAll_(_st(inspectedContext)._locals());
  63. };
  64. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  65. $2=anInspector;
  66. _st($2)._setLabel_("Context");
  67. $3=_st($2)._setVariables_(variables);
  68. return self}, function($ctx1) {$ctx1.fill(self,"inspectOn:",{anInspector:anInspector,variables:variables,inspectedContext:inspectedContext},smalltalk.HLContextInspectorDecorator)})},
  69. args: ["anInspector"],
  70. 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",
  71. messageSends: ["new", "context", "addAll:", "locals", "whileTrue:", "outerContext", "ifNotNil:", "and:", "isBlockContext", "notNil", "setLabel:", "setVariables:"],
  72. referencedClasses: ["Dictionary"]
  73. }),
  74. smalltalk.HLContextInspectorDecorator);
  75. smalltalk.addMethod(
  76. smalltalk.method({
  77. selector: "on:",
  78. category: 'instance creation',
  79. fn: function (aContext){
  80. var self=this;
  81. return smalltalk.withContext(function($ctx1) {
  82. var $2,$3,$1;
  83. $2=_st(self)._new();
  84. _st($2)._initializeFromContext_(aContext);
  85. $3=_st($2)._yourself();
  86. $1=$3;
  87. return $1;
  88. }, function($ctx1) {$ctx1.fill(self,"on:",{aContext:aContext},smalltalk.HLContextInspectorDecorator.klass)})},
  89. args: ["aContext"],
  90. source: "on: aContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aContext;\x0a\x09\x09yourself",
  91. messageSends: ["initializeFromContext:", "new", "yourself"],
  92. referencedClasses: []
  93. }),
  94. smalltalk.HLContextInspectorDecorator.klass);
  95. smalltalk.addClass('HLDebugger', smalltalk.HLFocusableWidget, ['model', 'stackListWidget', 'codeWidget', 'inspectorWidget'], 'Helios-Debugger');
  96. smalltalk.HLDebugger.comment="I am the main widget for the Helios debugger."
  97. smalltalk.addMethod(
  98. smalltalk.method({
  99. selector: "codeWidget",
  100. category: 'accessing',
  101. fn: function (){
  102. var self=this;
  103. function $HLDebuggerCodeWidget(){return smalltalk.HLDebuggerCodeWidget||(typeof HLDebuggerCodeWidget=="undefined"?nil:HLDebuggerCodeWidget)}
  104. return smalltalk.withContext(function($ctx1) {
  105. var $2,$3,$4,$1;
  106. $2=self["@codeWidget"];
  107. if(($receiver = $2) == nil || $receiver == undefined){
  108. $3=_st($HLDebuggerCodeWidget())._new();
  109. _st($3)._browserModel_(_st(self)._model());
  110. $4=_st($3)._yourself();
  111. self["@codeWidget"]=$4;
  112. $1=self["@codeWidget"];
  113. } else {
  114. $1=$2;
  115. };
  116. return $1;
  117. }, function($ctx1) {$ctx1.fill(self,"codeWidget",{},smalltalk.HLDebugger)})},
  118. args: [],
  119. source: "codeWidget\x0a\x09^ codeWidget ifNil: [ codeWidget := HLDebuggerCodeWidget new\x0a\x09\x09browserModel: self model;\x0a\x09\x09yourself ]",
  120. messageSends: ["ifNil:", "browserModel:", "model", "new", "yourself"],
  121. referencedClasses: ["HLDebuggerCodeWidget"]
  122. }),
  123. smalltalk.HLDebugger);
  124. smalltalk.addMethod(
  125. smalltalk.method({
  126. selector: "focus",
  127. category: 'actions',
  128. fn: function (){
  129. var self=this;
  130. return smalltalk.withContext(function($ctx1) {
  131. _st(_st(self)._stackListWidget())._focus();
  132. return self}, function($ctx1) {$ctx1.fill(self,"focus",{},smalltalk.HLDebugger)})},
  133. args: [],
  134. source: "focus\x0a\x09self stackListWidget focus",
  135. messageSends: ["focus", "stackListWidget"],
  136. referencedClasses: []
  137. }),
  138. smalltalk.HLDebugger);
  139. smalltalk.addMethod(
  140. smalltalk.method({
  141. selector: "initializeFromMethodContext:",
  142. category: 'accessing',
  143. fn: function (aMethodContext){
  144. var self=this;
  145. function $HLDebuggerModel(){return smalltalk.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
  146. return smalltalk.withContext(function($ctx1) {
  147. self["@model"]=_st($HLDebuggerModel())._on_(aMethodContext);
  148. _st(self)._observeModel();
  149. return self}, function($ctx1) {$ctx1.fill(self,"initializeFromMethodContext:",{aMethodContext:aMethodContext},smalltalk.HLDebugger)})},
  150. args: ["aMethodContext"],
  151. source: "initializeFromMethodContext: aMethodContext\x0a\x09model := HLDebuggerModel on: aMethodContext.\x0a\x09self observeModel",
  152. messageSends: ["on:", "observeModel"],
  153. referencedClasses: ["HLDebuggerModel"]
  154. }),
  155. smalltalk.HLDebugger);
  156. smalltalk.addMethod(
  157. smalltalk.method({
  158. selector: "inspectorWidget",
  159. category: 'accessing',
  160. fn: function (){
  161. var self=this;
  162. function $HLInspectorWidget(){return smalltalk.HLInspectorWidget||(typeof HLInspectorWidget=="undefined"?nil:HLInspectorWidget)}
  163. return smalltalk.withContext(function($ctx1) {
  164. var $2,$1;
  165. $2=self["@inspectorWidget"];
  166. if(($receiver = $2) == nil || $receiver == undefined){
  167. self["@inspectorWidget"]=_st($HLInspectorWidget())._new();
  168. $1=self["@inspectorWidget"];
  169. } else {
  170. $1=$2;
  171. };
  172. return $1;
  173. }, function($ctx1) {$ctx1.fill(self,"inspectorWidget",{},smalltalk.HLDebugger)})},
  174. args: [],
  175. source: "inspectorWidget\x0a\x09^ inspectorWidget ifNil: [ \x0a\x09\x09inspectorWidget := HLInspectorWidget new ]",
  176. messageSends: ["ifNil:", "new"],
  177. referencedClasses: ["HLInspectorWidget"]
  178. }),
  179. smalltalk.HLDebugger);
  180. smalltalk.addMethod(
  181. smalltalk.method({
  182. selector: "model",
  183. category: 'accessing',
  184. fn: function (){
  185. var self=this;
  186. function $HLDebuggerModel(){return smalltalk.HLDebuggerModel||(typeof HLDebuggerModel=="undefined"?nil:HLDebuggerModel)}
  187. return smalltalk.withContext(function($ctx1) {
  188. var $2,$1;
  189. $2=self["@model"];
  190. if(($receiver = $2) == nil || $receiver == undefined){
  191. self["@model"]=_st($HLDebuggerModel())._new();
  192. $1=self["@model"];
  193. } else {
  194. $1=$2;
  195. };
  196. return $1;
  197. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLDebugger)})},
  198. args: [],
  199. source: "model\x0a\x09^ model ifNil: [ model := HLDebuggerModel new ]",
  200. messageSends: ["ifNil:", "new"],
  201. referencedClasses: ["HLDebuggerModel"]
  202. }),
  203. smalltalk.HLDebugger);
  204. smalltalk.addMethod(
  205. smalltalk.method({
  206. selector: "observeModel",
  207. category: 'actions',
  208. fn: function (){
  209. var self=this;
  210. function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  211. return smalltalk.withContext(function($ctx1) {
  212. _st(_st(_st(self)._model())._announcer())._on_send_to_($HLDebuggerContextSelected(),"onContextSelected:",self);
  213. return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},smalltalk.HLDebugger)})},
  214. args: [],
  215. source: "observeModel\x0a\x09self model announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected:\x0a\x09\x09to: self",
  216. messageSends: ["on:send:to:", "announcer", "model"],
  217. referencedClasses: ["HLDebuggerContextSelected"]
  218. }),
  219. smalltalk.HLDebugger);
  220. smalltalk.addMethod(
  221. smalltalk.method({
  222. selector: "onContextSelected:",
  223. category: 'reactions',
  224. fn: function (anAnnouncement){
  225. var self=this;
  226. function $HLContextInspectorDecorator(){return smalltalk.HLContextInspectorDecorator||(typeof HLContextInspectorDecorator=="undefined"?nil:HLContextInspectorDecorator)}
  227. return smalltalk.withContext(function($ctx1) {
  228. _st(_st(self)._inspectorWidget())._inspect_(_st($HLContextInspectorDecorator())._on_(_st(anAnnouncement)._context()));
  229. return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected:",{anAnnouncement:anAnnouncement},smalltalk.HLDebugger)})},
  230. args: ["anAnnouncement"],
  231. source: "onContextSelected: anAnnouncement\x0a\x09self inspectorWidget inspect: (HLContextInspectorDecorator on: anAnnouncement context)",
  232. messageSends: ["inspect:", "on:", "context", "inspectorWidget"],
  233. referencedClasses: ["HLContextInspectorDecorator"]
  234. }),
  235. smalltalk.HLDebugger);
  236. smalltalk.addMethod(
  237. smalltalk.method({
  238. selector: "open",
  239. category: 'rendering',
  240. fn: function (){
  241. var self=this;
  242. function $HLTab(){return smalltalk.HLTab||(typeof HLTab=="undefined"?nil:HLTab)}
  243. function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
  244. return smalltalk.withContext(function($ctx1) {
  245. _st(_st($HLManager())._current())._addTab_(_st($HLTab())._on_labelled_(self,_st(_st(self)._class())._tabLabel()));
  246. return self}, function($ctx1) {$ctx1.fill(self,"open",{},smalltalk.HLDebugger)})},
  247. args: [],
  248. source: "open\x0a\x09HLManager current addTab: (HLTab on: self labelled: self class tabLabel)",
  249. messageSends: ["addTab:", "on:labelled:", "tabLabel", "class", "current"],
  250. referencedClasses: ["HLTab", "HLManager"]
  251. }),
  252. smalltalk.HLDebugger);
  253. smalltalk.addMethod(
  254. smalltalk.method({
  255. selector: "registerBindingsOn:",
  256. category: 'keybindings',
  257. fn: function (aBindingGroup){
  258. var self=this;
  259. function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
  260. return smalltalk.withContext(function($ctx1) {
  261. _st($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,_st(self)._model());
  262. return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},smalltalk.HLDebugger)})},
  263. args: ["aBindingGroup"],
  264. source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
  265. messageSends: ["registerConcreteClassesOn:for:", "model"],
  266. referencedClasses: ["HLToolCommand"]
  267. }),
  268. smalltalk.HLDebugger);
  269. smalltalk.addMethod(
  270. smalltalk.method({
  271. selector: "renderContentOn:",
  272. category: 'rendering',
  273. fn: function (html){
  274. var self=this;
  275. function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
  276. function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
  277. function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
  278. return smalltalk.withContext(function($ctx1) {
  279. _st(html)._with_(_st($HLContainer())._with_(_st($HLHorizontalSplitter())._with_with_(_st(self)._stackListWidget(),_st($HLVerticalSplitter())._with_with_(_st(self)._codeWidget(),_st(self)._inspectorWidget()))));
  280. return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLDebugger)})},
  281. args: ["html"],
  282. source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter\x0a\x09\x09with: self stackListWidget\x0a\x09\x09with: (HLVerticalSplitter\x0a\x09\x09\x09with: self codeWidget\x0a\x09\x09\x09with: self inspectorWidget)))",
  283. messageSends: ["with:", "with:with:", "stackListWidget", "codeWidget", "inspectorWidget"],
  284. referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
  285. }),
  286. smalltalk.HLDebugger);
  287. smalltalk.addMethod(
  288. smalltalk.method({
  289. selector: "stackListWidget",
  290. category: 'accessing',
  291. fn: function (){
  292. var self=this;
  293. function $HLStackListWidget(){return smalltalk.HLStackListWidget||(typeof HLStackListWidget=="undefined"?nil:HLStackListWidget)}
  294. return smalltalk.withContext(function($ctx1) {
  295. var $2,$3,$4,$1;
  296. $2=self["@stackListWidget"];
  297. if(($receiver = $2) == nil || $receiver == undefined){
  298. $3=_st($HLStackListWidget())._on_(_st(self)._model());
  299. _st($3)._next_(_st(self)._codeWidget());
  300. $4=_st($3)._yourself();
  301. self["@stackListWidget"]=$4;
  302. $1=self["@stackListWidget"];
  303. } else {
  304. $1=$2;
  305. };
  306. return $1;
  307. }, function($ctx1) {$ctx1.fill(self,"stackListWidget",{},smalltalk.HLDebugger)})},
  308. args: [],
  309. source: "stackListWidget\x0a\x09^ stackListWidget ifNil: [ \x0a\x09\x09stackListWidget := (HLStackListWidget on: self model)\x0a\x09\x09\x09next: self codeWidget;\x0a\x09\x09\x09yourself ]",
  310. messageSends: ["ifNil:", "next:", "codeWidget", "on:", "model", "yourself"],
  311. referencedClasses: ["HLStackListWidget"]
  312. }),
  313. smalltalk.HLDebugger);
  314. smalltalk.addMethod(
  315. smalltalk.method({
  316. selector: "unregister",
  317. category: 'actions',
  318. fn: function (){
  319. var self=this;
  320. return smalltalk.withContext(function($ctx1) {
  321. smalltalk.HLFocusableWidget.fn.prototype._unregister.apply(_st(self), []);
  322. _st(_st(self)._inspectorWidget())._unregister();
  323. return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},smalltalk.HLDebugger)})},
  324. args: [],
  325. source: "unregister\x0a\x09super unregister.\x0a\x09self inspectorWidget unregister",
  326. messageSends: ["unregister", "inspectorWidget"],
  327. referencedClasses: []
  328. }),
  329. smalltalk.HLDebugger);
  330. smalltalk.addMethod(
  331. smalltalk.method({
  332. selector: "on:",
  333. category: 'instance creation',
  334. fn: function (aMethodContext){
  335. var self=this;
  336. return smalltalk.withContext(function($ctx1) {
  337. var $2,$3,$1;
  338. $2=_st(self)._new();
  339. _st($2)._initializeFromMethodContext_(aMethodContext);
  340. $3=_st($2)._yourself();
  341. $1=$3;
  342. return $1;
  343. }, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},smalltalk.HLDebugger.klass)})},
  344. args: ["aMethodContext"],
  345. source: "on: aMethodContext\x0a\x09^ self new\x0a\x09\x09initializeFromMethodContext: aMethodContext;\x0a\x09\x09yourself",
  346. messageSends: ["initializeFromMethodContext:", "new", "yourself"],
  347. referencedClasses: []
  348. }),
  349. smalltalk.HLDebugger.klass);
  350. smalltalk.addMethod(
  351. smalltalk.method({
  352. selector: "tabClass",
  353. category: 'accessing',
  354. fn: function (){
  355. var self=this;
  356. return smalltalk.withContext(function($ctx1) {
  357. return "debugger";
  358. }, function($ctx1) {$ctx1.fill(self,"tabClass",{},smalltalk.HLDebugger.klass)})},
  359. args: [],
  360. source: "tabClass\x0a\x09^ 'debugger'",
  361. messageSends: [],
  362. referencedClasses: []
  363. }),
  364. smalltalk.HLDebugger.klass);
  365. smalltalk.addMethod(
  366. smalltalk.method({
  367. selector: "tabLabel",
  368. category: 'accessing',
  369. fn: function (){
  370. var self=this;
  371. return smalltalk.withContext(function($ctx1) {
  372. return "Debugger";
  373. }, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLDebugger.klass)})},
  374. args: [],
  375. source: "tabLabel\x0a\x09^ 'Debugger'",
  376. messageSends: [],
  377. referencedClasses: []
  378. }),
  379. smalltalk.HLDebugger.klass);
  380. smalltalk.addClass('HLDebuggerCodeWidget', smalltalk.HLBrowserCodeWidget, ['highlightedNode'], 'Helios-Debugger');
  381. smalltalk.addMethod(
  382. smalltalk.method({
  383. selector: "addStopAt:",
  384. category: 'actions',
  385. fn: function (anInteger){
  386. var self=this;
  387. return smalltalk.withContext(function($ctx1) {
  388. _st(self["@editor"])._setGutterMarker_gutter_value_(anInteger,"stops",_st(_st(_st("<div class=\x22stop\x22></stop>")._asJQuery())._toArray())._first());
  389. return self}, function($ctx1) {$ctx1.fill(self,"addStopAt:",{anInteger:anInteger},smalltalk.HLDebuggerCodeWidget)})},
  390. args: ["anInteger"],
  391. source: "addStopAt: anInteger\x0a\x09editor\x0a\x09\x09setGutterMarker: anInteger\x0a\x09\x09gutter: 'stops'\x0a\x09\x09value: '<div class=\x22stop\x22></stop>' asJQuery toArray first",
  392. messageSends: ["setGutterMarker:gutter:value:", "first", "toArray", "asJQuery"],
  393. referencedClasses: []
  394. }),
  395. smalltalk.HLDebuggerCodeWidget);
  396. smalltalk.addMethod(
  397. smalltalk.method({
  398. selector: "clearHighlight",
  399. category: 'actions',
  400. fn: function (){
  401. var self=this;
  402. return smalltalk.withContext(function($ctx1) {
  403. var $1;
  404. _st(self["@editor"])._clearGutter_("stops");
  405. $1=_st(self)._highlightedNode();
  406. if(($receiver = $1) == nil || $receiver == undefined){
  407. $1;
  408. } else {
  409. var node;
  410. node=$receiver;
  411. _st(self["@editor"])._removeLineClass_where_class_(_st(_st(_st(node)._position())._x()).__minus((1)),"background","highlighted");
  412. };
  413. return self}, function($ctx1) {$ctx1.fill(self,"clearHighlight",{},smalltalk.HLDebuggerCodeWidget)})},
  414. args: [],
  415. source: "clearHighlight\x0a\x09editor clearGutter: 'stops'.\x0a\x09self highlightedNode ifNotNil: [ :node |\x0a\x09\x09editor \x0a\x09\x09\x09removeLineClass: node position x - 1\x0a\x09\x09\x09where: 'background'\x0a\x09\x09\x09class: 'highlighted' ]",
  416. messageSends: ["clearGutter:", "ifNotNil:", "removeLineClass:where:class:", "-", "x", "position", "highlightedNode"],
  417. referencedClasses: []
  418. }),
  419. smalltalk.HLDebuggerCodeWidget);
  420. smalltalk.addMethod(
  421. smalltalk.method({
  422. selector: "contents:",
  423. category: 'accessing',
  424. fn: function (aString){
  425. var self=this;
  426. return smalltalk.withContext(function($ctx1) {
  427. _st(self)._clearHighlight();
  428. smalltalk.HLBrowserCodeWidget.fn.prototype._contents_.apply(_st(self), [aString]);
  429. return self}, function($ctx1) {$ctx1.fill(self,"contents:",{aString:aString},smalltalk.HLDebuggerCodeWidget)})},
  430. args: ["aString"],
  431. source: "contents: aString\x0a\x09self clearHighlight.\x0a\x09super contents: aString",
  432. messageSends: ["clearHighlight", "contents:"],
  433. referencedClasses: []
  434. }),
  435. smalltalk.HLDebuggerCodeWidget);
  436. smalltalk.addMethod(
  437. smalltalk.method({
  438. selector: "editorOptions",
  439. category: 'accessing',
  440. fn: function (){
  441. var self=this;
  442. return smalltalk.withContext(function($ctx1) {
  443. var $2,$3,$1;
  444. $2=smalltalk.HLBrowserCodeWidget.fn.prototype._editorOptions.apply(_st(self), []);
  445. _st($2)._at_put_("gutters",["CodeMirror-linenumbers", "stops"]);
  446. $3=_st($2)._yourself();
  447. $1=$3;
  448. return $1;
  449. }, function($ctx1) {$ctx1.fill(self,"editorOptions",{},smalltalk.HLDebuggerCodeWidget)})},
  450. args: [],
  451. source: "editorOptions\x0a\x09^ super editorOptions\x0a\x09\x09at: 'gutters' put: #('CodeMirror-linenumbers' 'stops');\x0a\x09\x09yourself",
  452. messageSends: ["at:put:", "editorOptions", "yourself"],
  453. referencedClasses: []
  454. }),
  455. smalltalk.HLDebuggerCodeWidget);
  456. smalltalk.addMethod(
  457. smalltalk.method({
  458. selector: "highlight",
  459. category: 'actions',
  460. fn: function (){
  461. var self=this;
  462. var anchor,head,selection;
  463. return smalltalk.withContext(function($ctx1) {
  464. head=smalltalk.HashedCollection._fromPairs_([_st("line").__minus_gt(_st(_st(_st(_st(self)._highlightedNode())._position())._x()).__minus((1))),_st("ch").__minus_gt(_st(_st(_st(_st(self)._highlightedNode())._position())._y()).__minus((1)))]);
  465. anchor=smalltalk.HashedCollection._fromPairs_([_st("line").__minus_gt(_st(_st(_st(_st(self)._highlightedNode())._extent())._x()).__minus((1))),_st("ch").__minus_gt(_st(_st(_st(_st(self)._highlightedNode())._extent())._y()).__minus((1)))]);
  466. _st(self["@editor"])._setSelection_to_(head,anchor);
  467. return self}, function($ctx1) {$ctx1.fill(self,"highlight",{anchor:anchor,head:head,selection:selection},smalltalk.HLDebuggerCodeWidget)})},
  468. args: [],
  469. source: "highlight\x0a\x09| anchor head selection |\x0a\x09\x0a\x09head := #{\x0a\x09\x09'line' -> (self highlightedNode position x - 1).\x0a\x09\x09'ch' -> (self highlightedNode position y - 1)\x0a\x09}.\x0a\x09\x0a\x09anchor := #{\x0a\x09\x09'line' -> (self highlightedNode extent x - 1).\x0a\x09\x09'ch' -> (self highlightedNode extent y - 1)\x0a\x09}.\x0a\x09\x0a\x09editor setSelection: head to: anchor",
  470. messageSends: ["->", "-", "x", "position", "highlightedNode", "y", "extent", "setSelection:to:"],
  471. referencedClasses: []
  472. }),
  473. smalltalk.HLDebuggerCodeWidget);
  474. smalltalk.addMethod(
  475. smalltalk.method({
  476. selector: "highlightLine:",
  477. category: 'actions',
  478. fn: function (anInteger){
  479. var self=this;
  480. return smalltalk.withContext(function($ctx1) {
  481. _st(self["@editor"])._addLineClass_where_class_(anInteger,"background","highlighted");
  482. return self}, function($ctx1) {$ctx1.fill(self,"highlightLine:",{anInteger:anInteger},smalltalk.HLDebuggerCodeWidget)})},
  483. args: ["anInteger"],
  484. source: "highlightLine: anInteger\x0a\x09editor \x0a\x09\x09addLineClass: anInteger\x0a\x09\x09where: 'background'\x0a\x09\x09class: 'highlighted'",
  485. messageSends: ["addLineClass:where:class:"],
  486. referencedClasses: []
  487. }),
  488. smalltalk.HLDebuggerCodeWidget);
  489. smalltalk.addMethod(
  490. smalltalk.method({
  491. selector: "highlightNode:",
  492. category: 'actions',
  493. fn: function (aNode){
  494. var self=this;
  495. var line;
  496. return smalltalk.withContext(function($ctx1) {
  497. var $1,$2,$3;
  498. $1=aNode;
  499. if(($receiver = $1) == nil || $receiver == undefined){
  500. $1;
  501. } else {
  502. line=_st(_st(_st(aNode)._position())._x()).__minus((1));
  503. line;
  504. $2=self;
  505. _st($2)._clearHighlight();
  506. _st($2)._addStopAt_(line);
  507. _st($2)._highlightLine_(line);
  508. $3=_st($2)._highlightedNode_(aNode);
  509. $3;
  510. };
  511. return self}, function($ctx1) {$ctx1.fill(self,"highlightNode:",{aNode:aNode,line:line},smalltalk.HLDebuggerCodeWidget)})},
  512. args: ["aNode"],
  513. source: "highlightNode: aNode\x0a\x09| line |\x0a\x09aNode ifNotNil: [\x0a\x09\x09line := aNode position x - 1.\x0a\x09\x09self \x0a\x09\x09\x09clearHighlight; \x0a\x09\x09\x09addStopAt: line;\x0a\x09\x09\x09highlightLine: line;\x0a\x09\x09\x09highlightedNode: aNode\x0a\x09\x09]",
  514. messageSends: ["ifNotNil:", "-", "x", "position", "clearHighlight", "addStopAt:", "highlightLine:", "highlightedNode:"],
  515. referencedClasses: []
  516. }),
  517. smalltalk.HLDebuggerCodeWidget);
  518. smalltalk.addMethod(
  519. smalltalk.method({
  520. selector: "highlightedNode",
  521. category: 'accessing',
  522. fn: function (){
  523. var self=this;
  524. return smalltalk.withContext(function($ctx1) {
  525. var $1;
  526. $1=self["@highlightedNode"];
  527. return $1;
  528. }, function($ctx1) {$ctx1.fill(self,"highlightedNode",{},smalltalk.HLDebuggerCodeWidget)})},
  529. args: [],
  530. source: "highlightedNode\x0a\x09^ highlightedNode",
  531. messageSends: [],
  532. referencedClasses: []
  533. }),
  534. smalltalk.HLDebuggerCodeWidget);
  535. smalltalk.addMethod(
  536. smalltalk.method({
  537. selector: "highlightedNode:",
  538. category: 'accessing',
  539. fn: function (aNode){
  540. var self=this;
  541. return smalltalk.withContext(function($ctx1) {
  542. self["@highlightedNode"]=aNode;
  543. return self}, function($ctx1) {$ctx1.fill(self,"highlightedNode:",{aNode:aNode},smalltalk.HLDebuggerCodeWidget)})},
  544. args: ["aNode"],
  545. source: "highlightedNode: aNode\x0a\x09highlightedNode := aNode",
  546. messageSends: [],
  547. referencedClasses: []
  548. }),
  549. smalltalk.HLDebuggerCodeWidget);
  550. smalltalk.addMethod(
  551. smalltalk.method({
  552. selector: "observeBrowserModel",
  553. category: 'actions',
  554. fn: function (){
  555. var self=this;
  556. function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  557. return smalltalk.withContext(function($ctx1) {
  558. smalltalk.HLBrowserCodeWidget.fn.prototype._observeBrowserModel.apply(_st(self), []);
  559. _st(_st(_st(self)._browserModel())._announcer())._on_send_to_($HLDebuggerContextSelected(),"onContextSelected",self);
  560. return self}, function($ctx1) {$ctx1.fill(self,"observeBrowserModel",{},smalltalk.HLDebuggerCodeWidget)})},
  561. args: [],
  562. source: "observeBrowserModel\x0a\x09super observeBrowserModel.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self",
  563. messageSends: ["observeBrowserModel", "on:send:to:", "announcer", "browserModel"],
  564. referencedClasses: ["HLDebuggerContextSelected"]
  565. }),
  566. smalltalk.HLDebuggerCodeWidget);
  567. smalltalk.addMethod(
  568. smalltalk.method({
  569. selector: "onContextSelected",
  570. category: 'reactions',
  571. fn: function (){
  572. var self=this;
  573. return smalltalk.withContext(function($ctx1) {
  574. _st(self)._highlightNode_(_st(_st(self)._browserModel())._nextNode());
  575. return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected",{},smalltalk.HLDebuggerCodeWidget)})},
  576. args: [],
  577. source: "onContextSelected\x0a\x09self highlightNode: self browserModel nextNode",
  578. messageSends: ["highlightNode:", "nextNode", "browserModel"],
  579. referencedClasses: []
  580. }),
  581. smalltalk.HLDebuggerCodeWidget);
  582. smalltalk.addClass('HLDebuggerModel', smalltalk.HLToolModel, ['rootContext', 'currentContext', 'contexts', 'interpreter'], 'Helios-Debugger');
  583. smalltalk.HLDebuggerModel.comment="I am a model for Helios debugging.\x0a\x0aMy instances hold a reference to an `AIContext` instance, built from a `MethodContext`. The context should be the root of the context stack."
  584. smalltalk.addMethod(
  585. smalltalk.method({
  586. selector: "contexts",
  587. category: 'accessing',
  588. fn: function (){
  589. var self=this;
  590. return smalltalk.withContext(function($ctx1) {
  591. var $1;
  592. $1=self["@contexts"];
  593. return $1;
  594. }, function($ctx1) {$ctx1.fill(self,"contexts",{},smalltalk.HLDebuggerModel)})},
  595. args: [],
  596. source: "contexts\x0a\x09^ contexts",
  597. messageSends: [],
  598. referencedClasses: []
  599. }),
  600. smalltalk.HLDebuggerModel);
  601. smalltalk.addMethod(
  602. smalltalk.method({
  603. selector: "currentContext",
  604. category: 'accessing',
  605. fn: function (){
  606. var self=this;
  607. return smalltalk.withContext(function($ctx1) {
  608. var $1,$2;
  609. $1=self["@currentContext"];
  610. if(($receiver = $1) == nil || $receiver == undefined){
  611. _st(self)._currentContext_(_st(self)._rootContext());
  612. } else {
  613. $1;
  614. };
  615. $2=self["@currentContext"];
  616. return $2;
  617. }, function($ctx1) {$ctx1.fill(self,"currentContext",{},smalltalk.HLDebuggerModel)})},
  618. args: [],
  619. source: "currentContext\x0a\x09currentContext ifNil: [ self currentContext: self rootContext ].\x0a\x09^ currentContext",
  620. messageSends: ["ifNil:", "currentContext:", "rootContext"],
  621. referencedClasses: []
  622. }),
  623. smalltalk.HLDebuggerModel);
  624. smalltalk.addMethod(
  625. smalltalk.method({
  626. selector: "currentContext:",
  627. category: 'accessing',
  628. fn: function (aContext){
  629. var self=this;
  630. function $ASTDebugger(){return smalltalk.ASTDebugger||(typeof ASTDebugger=="undefined"?nil:ASTDebugger)}
  631. function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  632. return smalltalk.withContext(function($ctx1) {
  633. var $1,$2;
  634. _st(self)._withChangesDo_((function(){
  635. return smalltalk.withContext(function($ctx2) {
  636. _st(self)._selectedMethod_(_st(aContext)._method());
  637. self["@currentContext"]=aContext;
  638. self["@currentContext"];
  639. self["@interpreter"]=_st($ASTDebugger())._context_(aContext);
  640. self["@interpreter"];
  641. $1=_st($HLDebuggerContextSelected())._new();
  642. _st($1)._context_(aContext);
  643. $2=_st($1)._yourself();
  644. return _st(_st(self)._announcer())._announce_($2);
  645. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  646. return self}, function($ctx1) {$ctx1.fill(self,"currentContext:",{aContext:aContext},smalltalk.HLDebuggerModel)})},
  647. args: ["aContext"],
  648. source: "currentContext: aContext\x0a\x09self withChangesDo: [ \x0a\x09\x09self selectedMethod: aContext method.\x0a\x09\x09currentContext := aContext.\x0a\x09\x09interpreter := ASTDebugger context: aContext.\x0a\x09\x09self announcer announce: (HLDebuggerContextSelected new\x0a\x09\x09\x09context: aContext;\x0a\x09\x09\x09yourself) ]",
  649. messageSends: ["withChangesDo:", "selectedMethod:", "method", "context:", "announce:", "new", "yourself", "announcer"],
  650. referencedClasses: ["ASTDebugger", "HLDebuggerContextSelected"]
  651. }),
  652. smalltalk.HLDebuggerModel);
  653. smalltalk.addMethod(
  654. smalltalk.method({
  655. selector: "initializeContexts",
  656. category: 'initialization',
  657. fn: function (){
  658. var self=this;
  659. var context;
  660. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  661. return smalltalk.withContext(function($ctx1) {
  662. self["@contexts"]=_st($OrderedCollection())._new();
  663. context=_st(self)._rootContext();
  664. _st((function(){
  665. return smalltalk.withContext(function($ctx2) {
  666. return _st(context)._notNil();
  667. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  668. return smalltalk.withContext(function($ctx2) {
  669. _st(self["@contexts"])._add_(context);
  670. context=_st(context)._outerContext();
  671. return context;
  672. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  673. return self}, function($ctx1) {$ctx1.fill(self,"initializeContexts",{context:context},smalltalk.HLDebuggerModel)})},
  674. args: [],
  675. source: "initializeContexts\x0a\x09\x22Flatten the context stack into an OrderedCollection\x22\x0a\x09\x0a\x09| 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 ]",
  676. messageSends: ["new", "rootContext", "whileTrue:", "add:", "outerContext", "notNil"],
  677. referencedClasses: ["OrderedCollection"]
  678. }),
  679. smalltalk.HLDebuggerModel);
  680. smalltalk.addMethod(
  681. smalltalk.method({
  682. selector: "initializeFromContext:",
  683. category: 'initialization',
  684. fn: function (aMethodContext){
  685. var self=this;
  686. function $AIContext(){return smalltalk.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
  687. return smalltalk.withContext(function($ctx1) {
  688. self["@rootContext"]=_st($AIContext())._fromMethodContext_(aMethodContext);
  689. _st(self)._initializeContexts();
  690. return self}, function($ctx1) {$ctx1.fill(self,"initializeFromContext:",{aMethodContext:aMethodContext},smalltalk.HLDebuggerModel)})},
  691. args: ["aMethodContext"],
  692. source: "initializeFromContext: aMethodContext\x0a\x09rootContext := AIContext fromMethodContext: aMethodContext.\x0a\x09self initializeContexts",
  693. messageSends: ["fromMethodContext:", "initializeContexts"],
  694. referencedClasses: ["AIContext"]
  695. }),
  696. smalltalk.HLDebuggerModel);
  697. smalltalk.addMethod(
  698. smalltalk.method({
  699. selector: "interpreter",
  700. category: 'accessing',
  701. fn: function (){
  702. var self=this;
  703. return smalltalk.withContext(function($ctx1) {
  704. var $1;
  705. $1=self["@interpreter"];
  706. return $1;
  707. }, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.HLDebuggerModel)})},
  708. args: [],
  709. source: "interpreter\x0a\x09^ interpreter",
  710. messageSends: [],
  711. referencedClasses: []
  712. }),
  713. smalltalk.HLDebuggerModel);
  714. smalltalk.addMethod(
  715. smalltalk.method({
  716. selector: "nextNode",
  717. category: 'accessing',
  718. fn: function (){
  719. var self=this;
  720. return smalltalk.withContext(function($ctx1) {
  721. var $1;
  722. $1=_st(_st(self)._interpreter())._nextNode();
  723. return $1;
  724. }, function($ctx1) {$ctx1.fill(self,"nextNode",{},smalltalk.HLDebuggerModel)})},
  725. args: [],
  726. source: "nextNode\x0a\x09^ self interpreter nextNode",
  727. messageSends: ["nextNode", "interpreter"],
  728. referencedClasses: []
  729. }),
  730. smalltalk.HLDebuggerModel);
  731. smalltalk.addMethod(
  732. smalltalk.method({
  733. selector: "rootContext",
  734. category: 'accessing',
  735. fn: function (){
  736. var self=this;
  737. return smalltalk.withContext(function($ctx1) {
  738. var $1;
  739. $1=self["@rootContext"];
  740. return $1;
  741. }, function($ctx1) {$ctx1.fill(self,"rootContext",{},smalltalk.HLDebuggerModel)})},
  742. args: [],
  743. source: "rootContext\x0a\x09^ rootContext",
  744. messageSends: [],
  745. referencedClasses: []
  746. }),
  747. smalltalk.HLDebuggerModel);
  748. smalltalk.addMethod(
  749. smalltalk.method({
  750. selector: "on:",
  751. category: 'instance creation',
  752. fn: function (aMethodContext){
  753. var self=this;
  754. return smalltalk.withContext(function($ctx1) {
  755. var $2,$3,$1;
  756. $2=_st(self)._new();
  757. _st($2)._initializeFromContext_(aMethodContext);
  758. $3=_st($2)._yourself();
  759. $1=$3;
  760. return $1;
  761. }, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},smalltalk.HLDebuggerModel.klass)})},
  762. args: ["aMethodContext"],
  763. source: "on: aMethodContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aMethodContext;\x0a\x09\x09yourself",
  764. messageSends: ["initializeFromContext:", "new", "yourself"],
  765. referencedClasses: []
  766. }),
  767. smalltalk.HLDebuggerModel.klass);
  768. smalltalk.addClass('HLErrorHandler', smalltalk.ErrorHandler, [], 'Helios-Debugger');
  769. smalltalk.addMethod(
  770. smalltalk.method({
  771. selector: "handleError:",
  772. category: 'error handling',
  773. fn: function (anError){
  774. var self=this;
  775. function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
  776. function $ErrorHandler(){return smalltalk.ErrorHandler||(typeof ErrorHandler=="undefined"?nil:ErrorHandler)}
  777. function $HLDebugger(){return smalltalk.HLDebugger||(typeof HLDebugger=="undefined"?nil:HLDebugger)}
  778. return smalltalk.withContext(function($ctx1) {
  779. _st((function(){
  780. return smalltalk.withContext(function($ctx2) {
  781. return _st(_st($HLDebugger())._on_(_st(anError)._context()))._open();
  782. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_($Error(),(function(error){
  783. return smalltalk.withContext(function($ctx2) {
  784. return _st(_st($ErrorHandler())._new())._handleError_(error);
  785. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1)})}));
  786. return self}, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},smalltalk.HLErrorHandler)})},
  787. args: ["anError"],
  788. source: "handleError: anError\x0a\x09[ (HLDebugger on: anError context)\x0a\x09\x09open ] on: Error do: [ :error |\x0a\x09\x09\x09ErrorHandler new handleError: error ]",
  789. messageSends: ["on:do:", "handleError:", "new", "open", "on:", "context"],
  790. referencedClasses: ["Error", "ErrorHandler", "HLDebugger"]
  791. }),
  792. smalltalk.HLErrorHandler);
  793. smalltalk.addMethod(
  794. smalltalk.method({
  795. selector: "handleError:",
  796. category: 'error handling',
  797. fn: function (anError){
  798. var self=this;
  799. return smalltalk.withContext(function($ctx1) {
  800. var $1;
  801. $1=_st(_st(self)._new())._handleError_(anError);
  802. return $1;
  803. }, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},smalltalk.HLErrorHandler.klass)})},
  804. args: ["anError"],
  805. source: "handleError: anError\x0a\x09^ self new handleError: anError",
  806. messageSends: ["handleError:", "new"],
  807. referencedClasses: []
  808. }),
  809. smalltalk.HLErrorHandler.klass);
  810. smalltalk.addClass('HLStackListWidget', smalltalk.HLToolListWidget, [], 'Helios-Debugger');
  811. smalltalk.addMethod(
  812. smalltalk.method({
  813. selector: "items",
  814. category: 'accessing',
  815. fn: function (){
  816. var self=this;
  817. return smalltalk.withContext(function($ctx1) {
  818. var $2,$1;
  819. $2=self["@items"];
  820. if(($receiver = $2) == nil || $receiver == undefined){
  821. self["@items"]=_st(_st(self)._model())._contexts();
  822. $1=self["@items"];
  823. } else {
  824. $1=$2;
  825. };
  826. return $1;
  827. }, function($ctx1) {$ctx1.fill(self,"items",{},smalltalk.HLStackListWidget)})},
  828. args: [],
  829. source: "items\x0a\x09^ items ifNil: [ items := self model contexts ]",
  830. messageSends: ["ifNil:", "contexts", "model"],
  831. referencedClasses: []
  832. }),
  833. smalltalk.HLStackListWidget);
  834. smalltalk.addMethod(
  835. smalltalk.method({
  836. selector: "label",
  837. category: 'accessing',
  838. fn: function (){
  839. var self=this;
  840. return smalltalk.withContext(function($ctx1) {
  841. return "Call stack";
  842. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLStackListWidget)})},
  843. args: [],
  844. source: "label\x0a\x09^ 'Call stack'",
  845. messageSends: [],
  846. referencedClasses: []
  847. }),
  848. smalltalk.HLStackListWidget);
  849. smalltalk.addMethod(
  850. smalltalk.method({
  851. selector: "selectItem:",
  852. category: 'actions',
  853. fn: function (aContext){
  854. var self=this;
  855. return smalltalk.withContext(function($ctx1) {
  856. _st(_st(self)._model())._currentContext_(aContext);
  857. return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{aContext:aContext},smalltalk.HLStackListWidget)})},
  858. args: ["aContext"],
  859. source: "selectItem: aContext\x0a \x09self model currentContext: aContext",
  860. messageSends: ["currentContext:", "model"],
  861. referencedClasses: []
  862. }),
  863. smalltalk.HLStackListWidget);