1
0

Helios-Debugger.js 35 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922
  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=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({},$ctx2)})}));
  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=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_(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(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. 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(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(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: "registerBindingsOn:",
  239. category: 'keybindings',
  240. fn: function (aBindingGroup){
  241. var self=this;
  242. function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
  243. return smalltalk.withContext(function($ctx1) {
  244. _st($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,self._model());
  245. return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},smalltalk.HLDebugger)})},
  246. args: ["aBindingGroup"],
  247. source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
  248. messageSends: ["registerConcreteClassesOn:for:", "model"],
  249. referencedClasses: ["HLToolCommand"]
  250. }),
  251. smalltalk.HLDebugger);
  252. smalltalk.addMethod(
  253. smalltalk.method({
  254. selector: "renderContentOn:",
  255. category: 'rendering',
  256. fn: function (html){
  257. var self=this;
  258. function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
  259. function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
  260. function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
  261. return smalltalk.withContext(function($ctx1) {
  262. _st(html)._with_(_st($HLContainer())._with_(_st($HLHorizontalSplitter())._with_with_(self._stackListWidget(),_st($HLVerticalSplitter())._with_with_(self._codeWidget(),self._inspectorWidget()))));
  263. return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLDebugger)})},
  264. args: ["html"],
  265. 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)))",
  266. messageSends: ["with:", "with:with:", "stackListWidget", "codeWidget", "inspectorWidget"],
  267. referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
  268. }),
  269. smalltalk.HLDebugger);
  270. smalltalk.addMethod(
  271. smalltalk.method({
  272. selector: "stackListWidget",
  273. category: 'accessing',
  274. fn: function (){
  275. var self=this;
  276. function $HLStackListWidget(){return smalltalk.HLStackListWidget||(typeof HLStackListWidget=="undefined"?nil:HLStackListWidget)}
  277. return smalltalk.withContext(function($ctx1) {
  278. var $2,$3,$4,$1;
  279. $2=self["@stackListWidget"];
  280. if(($receiver = $2) == nil || $receiver == undefined){
  281. $3=_st($HLStackListWidget())._on_(self._model());
  282. _st($3)._next_(self._codeWidget());
  283. $4=_st($3)._yourself();
  284. self["@stackListWidget"]=$4;
  285. $1=self["@stackListWidget"];
  286. } else {
  287. $1=$2;
  288. };
  289. return $1;
  290. }, function($ctx1) {$ctx1.fill(self,"stackListWidget",{},smalltalk.HLDebugger)})},
  291. args: [],
  292. source: "stackListWidget\x0a\x09^ stackListWidget ifNil: [ \x0a\x09\x09stackListWidget := (HLStackListWidget on: self model)\x0a\x09\x09\x09next: self codeWidget;\x0a\x09\x09\x09yourself ]",
  293. messageSends: ["ifNil:", "next:", "codeWidget", "on:", "model", "yourself"],
  294. referencedClasses: ["HLStackListWidget"]
  295. }),
  296. smalltalk.HLDebugger);
  297. smalltalk.addMethod(
  298. smalltalk.method({
  299. selector: "unregister",
  300. category: 'actions',
  301. fn: function (){
  302. var self=this;
  303. return smalltalk.withContext(function($ctx1) {
  304. smalltalk.HLFocusableWidget.fn.prototype._unregister.apply(_st(self), []);
  305. _st(self._inspectorWidget())._unregister();
  306. return self}, function($ctx1) {$ctx1.fill(self,"unregister",{},smalltalk.HLDebugger)})},
  307. args: [],
  308. source: "unregister\x0a\x09super unregister.\x0a\x09self inspectorWidget unregister",
  309. messageSends: ["unregister", "inspectorWidget"],
  310. referencedClasses: []
  311. }),
  312. smalltalk.HLDebugger);
  313. smalltalk.addMethod(
  314. smalltalk.method({
  315. selector: "on:",
  316. category: 'instance creation',
  317. fn: function (aMethodContext){
  318. var self=this;
  319. return smalltalk.withContext(function($ctx1) {
  320. var $2,$3,$1;
  321. $2=self._new();
  322. _st($2)._initializeFromMethodContext_(aMethodContext);
  323. $3=_st($2)._yourself();
  324. $1=$3;
  325. return $1;
  326. }, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},smalltalk.HLDebugger.klass)})},
  327. args: ["aMethodContext"],
  328. source: "on: aMethodContext\x0a\x09^ self new\x0a\x09\x09initializeFromMethodContext: aMethodContext;\x0a\x09\x09yourself",
  329. messageSends: ["initializeFromMethodContext:", "new", "yourself"],
  330. referencedClasses: []
  331. }),
  332. smalltalk.HLDebugger.klass);
  333. smalltalk.addMethod(
  334. smalltalk.method({
  335. selector: "tabClass",
  336. category: 'accessing',
  337. fn: function (){
  338. var self=this;
  339. return smalltalk.withContext(function($ctx1) {
  340. return "debugger";
  341. }, function($ctx1) {$ctx1.fill(self,"tabClass",{},smalltalk.HLDebugger.klass)})},
  342. args: [],
  343. source: "tabClass\x0a\x09^ 'debugger'",
  344. messageSends: [],
  345. referencedClasses: []
  346. }),
  347. smalltalk.HLDebugger.klass);
  348. smalltalk.addMethod(
  349. smalltalk.method({
  350. selector: "tabLabel",
  351. category: 'accessing',
  352. fn: function (){
  353. var self=this;
  354. return smalltalk.withContext(function($ctx1) {
  355. return "Debugger";
  356. }, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLDebugger.klass)})},
  357. args: [],
  358. source: "tabLabel\x0a\x09^ 'Debugger'",
  359. messageSends: [],
  360. referencedClasses: []
  361. }),
  362. smalltalk.HLDebugger.klass);
  363. smalltalk.addClass('HLDebuggerCodeWidget', smalltalk.HLBrowserCodeWidget, ['highlightedNode'], 'Helios-Debugger');
  364. smalltalk.addMethod(
  365. smalltalk.method({
  366. selector: "addStopAt:",
  367. category: 'actions',
  368. fn: function (anInteger){
  369. var self=this;
  370. return smalltalk.withContext(function($ctx1) {
  371. _st(self["@editor"])._setGutterMarker_gutter_value_(anInteger,"stops",_st(_st("<div class=\x22stop\x22></stop>"._asJQuery())._toArray())._first());
  372. return self}, function($ctx1) {$ctx1.fill(self,"addStopAt:",{anInteger:anInteger},smalltalk.HLDebuggerCodeWidget)})},
  373. args: ["anInteger"],
  374. source: "addStopAt: anInteger\x0a\x09editor\x0a\x09\x09setGutterMarker: anInteger\x0a\x09\x09gutter: 'stops'\x0a\x09\x09value: '<div class=\x22stop\x22></stop>' asJQuery toArray first",
  375. messageSends: ["setGutterMarker:gutter:value:", "first", "toArray", "asJQuery"],
  376. referencedClasses: []
  377. }),
  378. smalltalk.HLDebuggerCodeWidget);
  379. smalltalk.addMethod(
  380. smalltalk.method({
  381. selector: "clearHighlight",
  382. category: 'actions',
  383. fn: function (){
  384. var self=this;
  385. return smalltalk.withContext(function($ctx1) {
  386. var $1;
  387. _st(self["@editor"])._clearGutter_("stops");
  388. $1=self._highlightedNode();
  389. if(($receiver = $1) == nil || $receiver == undefined){
  390. $1;
  391. } else {
  392. var node;
  393. node=$receiver;
  394. _st(self["@editor"])._removeLineClass_where_class_(_st(_st(_st(node)._position())._x()).__minus((1)),"background","highlighted");
  395. };
  396. return self}, function($ctx1) {$ctx1.fill(self,"clearHighlight",{},smalltalk.HLDebuggerCodeWidget)})},
  397. args: [],
  398. 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' ]",
  399. messageSends: ["clearGutter:", "ifNotNil:", "removeLineClass:where:class:", "-", "x", "position", "highlightedNode"],
  400. referencedClasses: []
  401. }),
  402. smalltalk.HLDebuggerCodeWidget);
  403. smalltalk.addMethod(
  404. smalltalk.method({
  405. selector: "contents:",
  406. category: 'accessing',
  407. fn: function (aString){
  408. var self=this;
  409. return smalltalk.withContext(function($ctx1) {
  410. self._clearHighlight();
  411. smalltalk.HLBrowserCodeWidget.fn.prototype._contents_.apply(_st(self), [aString]);
  412. return self}, function($ctx1) {$ctx1.fill(self,"contents:",{aString:aString},smalltalk.HLDebuggerCodeWidget)})},
  413. args: ["aString"],
  414. source: "contents: aString\x0a\x09self clearHighlight.\x0a\x09super contents: aString",
  415. messageSends: ["clearHighlight", "contents:"],
  416. referencedClasses: []
  417. }),
  418. smalltalk.HLDebuggerCodeWidget);
  419. smalltalk.addMethod(
  420. smalltalk.method({
  421. selector: "editorOptions",
  422. category: 'accessing',
  423. fn: function (){
  424. var self=this;
  425. return smalltalk.withContext(function($ctx1) {
  426. var $2,$3,$1;
  427. $2=smalltalk.HLBrowserCodeWidget.fn.prototype._editorOptions.apply(_st(self), []);
  428. _st($2)._at_put_("gutters",["CodeMirror-linenumbers", "stops"]);
  429. $3=_st($2)._yourself();
  430. $1=$3;
  431. return $1;
  432. }, function($ctx1) {$ctx1.fill(self,"editorOptions",{},smalltalk.HLDebuggerCodeWidget)})},
  433. args: [],
  434. source: "editorOptions\x0a\x09^ super editorOptions\x0a\x09\x09at: 'gutters' put: #('CodeMirror-linenumbers' 'stops');\x0a\x09\x09yourself",
  435. messageSends: ["at:put:", "editorOptions", "yourself"],
  436. referencedClasses: []
  437. }),
  438. smalltalk.HLDebuggerCodeWidget);
  439. smalltalk.addMethod(
  440. smalltalk.method({
  441. selector: "highlight",
  442. category: 'actions',
  443. fn: function (){
  444. var self=this;
  445. var anchor,head,selection;
  446. return smalltalk.withContext(function($ctx1) {
  447. head=smalltalk.HashedCollection._fromPairs_(["line".__minus_gt(_st(_st(_st(self._highlightedNode())._position())._x()).__minus((1))),"ch".__minus_gt(_st(_st(_st(self._highlightedNode())._position())._y()).__minus((1)))]);
  448. anchor=smalltalk.HashedCollection._fromPairs_(["line".__minus_gt(_st(_st(_st(self._highlightedNode())._extent())._x()).__minus((1))),"ch".__minus_gt(_st(_st(_st(self._highlightedNode())._extent())._y()).__minus((1)))]);
  449. _st(self["@editor"])._setSelection_to_(head,anchor);
  450. return self}, function($ctx1) {$ctx1.fill(self,"highlight",{anchor:anchor,head:head,selection:selection},smalltalk.HLDebuggerCodeWidget)})},
  451. args: [],
  452. 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",
  453. messageSends: ["->", "-", "x", "position", "highlightedNode", "y", "extent", "setSelection:to:"],
  454. referencedClasses: []
  455. }),
  456. smalltalk.HLDebuggerCodeWidget);
  457. smalltalk.addMethod(
  458. smalltalk.method({
  459. selector: "highlightLine:",
  460. category: 'actions',
  461. fn: function (anInteger){
  462. var self=this;
  463. return smalltalk.withContext(function($ctx1) {
  464. _st(self["@editor"])._addLineClass_where_class_(anInteger,"background","highlighted");
  465. return self}, function($ctx1) {$ctx1.fill(self,"highlightLine:",{anInteger:anInteger},smalltalk.HLDebuggerCodeWidget)})},
  466. args: ["anInteger"],
  467. source: "highlightLine: anInteger\x0a\x09editor \x0a\x09\x09addLineClass: anInteger\x0a\x09\x09where: 'background'\x0a\x09\x09class: 'highlighted'",
  468. messageSends: ["addLineClass:where:class:"],
  469. referencedClasses: []
  470. }),
  471. smalltalk.HLDebuggerCodeWidget);
  472. smalltalk.addMethod(
  473. smalltalk.method({
  474. selector: "highlightNode:",
  475. category: 'actions',
  476. fn: function (aNode){
  477. var self=this;
  478. var line;
  479. return smalltalk.withContext(function($ctx1) {
  480. var $1,$2,$3;
  481. $1=aNode;
  482. if(($receiver = $1) == nil || $receiver == undefined){
  483. $1;
  484. } else {
  485. line=_st(_st(_st(aNode)._position())._x()).__minus((1));
  486. line;
  487. $2=self;
  488. _st($2)._clearHighlight();
  489. _st($2)._addStopAt_(line);
  490. _st($2)._highlightLine_(line);
  491. $3=_st($2)._highlightedNode_(aNode);
  492. $3;
  493. };
  494. return self}, function($ctx1) {$ctx1.fill(self,"highlightNode:",{aNode:aNode,line:line},smalltalk.HLDebuggerCodeWidget)})},
  495. args: ["aNode"],
  496. 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]",
  497. messageSends: ["ifNotNil:", "-", "x", "position", "clearHighlight", "addStopAt:", "highlightLine:", "highlightedNode:"],
  498. referencedClasses: []
  499. }),
  500. smalltalk.HLDebuggerCodeWidget);
  501. smalltalk.addMethod(
  502. smalltalk.method({
  503. selector: "highlightedNode",
  504. category: 'accessing',
  505. fn: function (){
  506. var self=this;
  507. return smalltalk.withContext(function($ctx1) {
  508. var $1;
  509. $1=self["@highlightedNode"];
  510. return $1;
  511. }, function($ctx1) {$ctx1.fill(self,"highlightedNode",{},smalltalk.HLDebuggerCodeWidget)})},
  512. args: [],
  513. source: "highlightedNode\x0a\x09^ highlightedNode",
  514. messageSends: [],
  515. referencedClasses: []
  516. }),
  517. smalltalk.HLDebuggerCodeWidget);
  518. smalltalk.addMethod(
  519. smalltalk.method({
  520. selector: "highlightedNode:",
  521. category: 'accessing',
  522. fn: function (aNode){
  523. var self=this;
  524. return smalltalk.withContext(function($ctx1) {
  525. self["@highlightedNode"]=aNode;
  526. return self}, function($ctx1) {$ctx1.fill(self,"highlightedNode:",{aNode:aNode},smalltalk.HLDebuggerCodeWidget)})},
  527. args: ["aNode"],
  528. source: "highlightedNode: aNode\x0a\x09highlightedNode := aNode",
  529. messageSends: [],
  530. referencedClasses: []
  531. }),
  532. smalltalk.HLDebuggerCodeWidget);
  533. smalltalk.addMethod(
  534. smalltalk.method({
  535. selector: "observeBrowserModel",
  536. category: 'actions',
  537. fn: function (){
  538. var self=this;
  539. function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  540. return smalltalk.withContext(function($ctx1) {
  541. smalltalk.HLBrowserCodeWidget.fn.prototype._observeBrowserModel.apply(_st(self), []);
  542. _st(_st(self._browserModel())._announcer())._on_send_to_($HLDebuggerContextSelected(),"onContextSelected",self);
  543. return self}, function($ctx1) {$ctx1.fill(self,"observeBrowserModel",{},smalltalk.HLDebuggerCodeWidget)})},
  544. args: [],
  545. source: "observeBrowserModel\x0a\x09super observeBrowserModel.\x0a\x09\x0a\x09self browserModel announcer \x0a\x09\x09on: HLDebuggerContextSelected\x0a\x09\x09send: #onContextSelected\x0a\x09\x09to: self",
  546. messageSends: ["observeBrowserModel", "on:send:to:", "announcer", "browserModel"],
  547. referencedClasses: ["HLDebuggerContextSelected"]
  548. }),
  549. smalltalk.HLDebuggerCodeWidget);
  550. smalltalk.addMethod(
  551. smalltalk.method({
  552. selector: "onContextSelected",
  553. category: 'reactions',
  554. fn: function (){
  555. var self=this;
  556. return smalltalk.withContext(function($ctx1) {
  557. self._highlightNode_(_st(self._browserModel())._nextNode());
  558. return self}, function($ctx1) {$ctx1.fill(self,"onContextSelected",{},smalltalk.HLDebuggerCodeWidget)})},
  559. args: [],
  560. source: "onContextSelected\x0a\x09self highlightNode: self browserModel nextNode",
  561. messageSends: ["highlightNode:", "nextNode", "browserModel"],
  562. referencedClasses: []
  563. }),
  564. smalltalk.HLDebuggerCodeWidget);
  565. smalltalk.addClass('HLDebuggerModel', smalltalk.HLToolModel, ['rootContext', 'currentContext', 'contexts', 'interpreter'], 'Helios-Debugger');
  566. 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.";
  567. smalltalk.addMethod(
  568. smalltalk.method({
  569. selector: "contexts",
  570. category: 'accessing',
  571. fn: function (){
  572. var self=this;
  573. return smalltalk.withContext(function($ctx1) {
  574. var $1;
  575. $1=self["@contexts"];
  576. return $1;
  577. }, function($ctx1) {$ctx1.fill(self,"contexts",{},smalltalk.HLDebuggerModel)})},
  578. args: [],
  579. source: "contexts\x0a\x09^ contexts",
  580. messageSends: [],
  581. referencedClasses: []
  582. }),
  583. smalltalk.HLDebuggerModel);
  584. smalltalk.addMethod(
  585. smalltalk.method({
  586. selector: "currentContext",
  587. category: 'accessing',
  588. fn: function (){
  589. var self=this;
  590. return smalltalk.withContext(function($ctx1) {
  591. var $1,$2;
  592. $1=self["@currentContext"];
  593. if(($receiver = $1) == nil || $receiver == undefined){
  594. self._currentContext_(self._rootContext());
  595. } else {
  596. $1;
  597. };
  598. $2=self["@currentContext"];
  599. return $2;
  600. }, function($ctx1) {$ctx1.fill(self,"currentContext",{},smalltalk.HLDebuggerModel)})},
  601. args: [],
  602. source: "currentContext\x0a\x09currentContext ifNil: [ self currentContext: self rootContext ].\x0a\x09^ currentContext",
  603. messageSends: ["ifNil:", "currentContext:", "rootContext"],
  604. referencedClasses: []
  605. }),
  606. smalltalk.HLDebuggerModel);
  607. smalltalk.addMethod(
  608. smalltalk.method({
  609. selector: "currentContext:",
  610. category: 'accessing',
  611. fn: function (aContext){
  612. var self=this;
  613. function $ASTDebugger(){return smalltalk.ASTDebugger||(typeof ASTDebugger=="undefined"?nil:ASTDebugger)}
  614. function $HLDebuggerContextSelected(){return smalltalk.HLDebuggerContextSelected||(typeof HLDebuggerContextSelected=="undefined"?nil:HLDebuggerContextSelected)}
  615. return smalltalk.withContext(function($ctx1) {
  616. var $1,$2;
  617. self._withChangesDo_((function(){
  618. return smalltalk.withContext(function($ctx2) {
  619. self._selectedMethod_(_st(aContext)._method());
  620. self["@currentContext"]=aContext;
  621. self["@currentContext"];
  622. self["@interpreter"]=_st($ASTDebugger())._context_(aContext);
  623. self["@interpreter"];
  624. $1=_st($HLDebuggerContextSelected())._new();
  625. _st($1)._context_(aContext);
  626. $2=_st($1)._yourself();
  627. return _st(self._announcer())._announce_($2);
  628. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  629. return self}, function($ctx1) {$ctx1.fill(self,"currentContext:",{aContext:aContext},smalltalk.HLDebuggerModel)})},
  630. args: ["aContext"],
  631. 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) ]",
  632. messageSends: ["withChangesDo:", "selectedMethod:", "method", "context:", "announce:", "new", "yourself", "announcer"],
  633. referencedClasses: ["ASTDebugger", "HLDebuggerContextSelected"]
  634. }),
  635. smalltalk.HLDebuggerModel);
  636. smalltalk.addMethod(
  637. smalltalk.method({
  638. selector: "initializeContexts",
  639. category: 'initialization',
  640. fn: function (){
  641. var self=this;
  642. var context;
  643. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  644. return smalltalk.withContext(function($ctx1) {
  645. self["@contexts"]=_st($OrderedCollection())._new();
  646. context=self._rootContext();
  647. _st((function(){
  648. return smalltalk.withContext(function($ctx2) {
  649. return _st(context)._notNil();
  650. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._whileTrue_((function(){
  651. return smalltalk.withContext(function($ctx2) {
  652. _st(self["@contexts"])._add_(context);
  653. context=_st(context)._outerContext();
  654. return context;
  655. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  656. return self}, function($ctx1) {$ctx1.fill(self,"initializeContexts",{context:context},smalltalk.HLDebuggerModel)})},
  657. args: [],
  658. 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 ]",
  659. messageSends: ["new", "rootContext", "whileTrue:", "add:", "outerContext", "notNil"],
  660. referencedClasses: ["OrderedCollection"]
  661. }),
  662. smalltalk.HLDebuggerModel);
  663. smalltalk.addMethod(
  664. smalltalk.method({
  665. selector: "initializeFromContext:",
  666. category: 'initialization',
  667. fn: function (aMethodContext){
  668. var self=this;
  669. function $AIContext(){return smalltalk.AIContext||(typeof AIContext=="undefined"?nil:AIContext)}
  670. return smalltalk.withContext(function($ctx1) {
  671. self["@rootContext"]=_st($AIContext())._fromMethodContext_(aMethodContext);
  672. self._initializeContexts();
  673. return self}, function($ctx1) {$ctx1.fill(self,"initializeFromContext:",{aMethodContext:aMethodContext},smalltalk.HLDebuggerModel)})},
  674. args: ["aMethodContext"],
  675. source: "initializeFromContext: aMethodContext\x0a\x09rootContext := AIContext fromMethodContext: aMethodContext.\x0a\x09self initializeContexts",
  676. messageSends: ["fromMethodContext:", "initializeContexts"],
  677. referencedClasses: ["AIContext"]
  678. }),
  679. smalltalk.HLDebuggerModel);
  680. smalltalk.addMethod(
  681. smalltalk.method({
  682. selector: "interpreter",
  683. category: 'accessing',
  684. fn: function (){
  685. var self=this;
  686. return smalltalk.withContext(function($ctx1) {
  687. var $1;
  688. $1=self["@interpreter"];
  689. return $1;
  690. }, function($ctx1) {$ctx1.fill(self,"interpreter",{},smalltalk.HLDebuggerModel)})},
  691. args: [],
  692. source: "interpreter\x0a\x09^ interpreter",
  693. messageSends: [],
  694. referencedClasses: []
  695. }),
  696. smalltalk.HLDebuggerModel);
  697. smalltalk.addMethod(
  698. smalltalk.method({
  699. selector: "nextNode",
  700. category: 'accessing',
  701. fn: function (){
  702. var self=this;
  703. return smalltalk.withContext(function($ctx1) {
  704. var $1;
  705. $1=_st(self._interpreter())._nextNode();
  706. return $1;
  707. }, function($ctx1) {$ctx1.fill(self,"nextNode",{},smalltalk.HLDebuggerModel)})},
  708. args: [],
  709. source: "nextNode\x0a\x09^ self interpreter nextNode",
  710. messageSends: ["nextNode", "interpreter"],
  711. referencedClasses: []
  712. }),
  713. smalltalk.HLDebuggerModel);
  714. smalltalk.addMethod(
  715. smalltalk.method({
  716. selector: "rootContext",
  717. category: 'accessing',
  718. fn: function (){
  719. var self=this;
  720. return smalltalk.withContext(function($ctx1) {
  721. var $1;
  722. $1=self["@rootContext"];
  723. return $1;
  724. }, function($ctx1) {$ctx1.fill(self,"rootContext",{},smalltalk.HLDebuggerModel)})},
  725. args: [],
  726. source: "rootContext\x0a\x09^ rootContext",
  727. messageSends: [],
  728. referencedClasses: []
  729. }),
  730. smalltalk.HLDebuggerModel);
  731. smalltalk.addMethod(
  732. smalltalk.method({
  733. selector: "on:",
  734. category: 'instance creation',
  735. fn: function (aMethodContext){
  736. var self=this;
  737. return smalltalk.withContext(function($ctx1) {
  738. var $2,$3,$1;
  739. $2=self._new();
  740. _st($2)._initializeFromContext_(aMethodContext);
  741. $3=_st($2)._yourself();
  742. $1=$3;
  743. return $1;
  744. }, function($ctx1) {$ctx1.fill(self,"on:",{aMethodContext:aMethodContext},smalltalk.HLDebuggerModel.klass)})},
  745. args: ["aMethodContext"],
  746. source: "on: aMethodContext\x0a\x09^ self new\x0a\x09\x09initializeFromContext: aMethodContext;\x0a\x09\x09yourself",
  747. messageSends: ["initializeFromContext:", "new", "yourself"],
  748. referencedClasses: []
  749. }),
  750. smalltalk.HLDebuggerModel.klass);
  751. smalltalk.addClass('HLErrorHandler', smalltalk.ErrorHandler, [], 'Helios-Debugger');
  752. smalltalk.addMethod(
  753. smalltalk.method({
  754. selector: "handleError:",
  755. category: 'error handling',
  756. fn: function (anError){
  757. var self=this;
  758. function $Error(){return smalltalk.Error||(typeof Error=="undefined"?nil:Error)}
  759. function $ErrorHandler(){return smalltalk.ErrorHandler||(typeof ErrorHandler=="undefined"?nil:ErrorHandler)}
  760. function $HLDebugger(){return smalltalk.HLDebugger||(typeof HLDebugger=="undefined"?nil:HLDebugger)}
  761. return smalltalk.withContext(function($ctx1) {
  762. self._onErrorHandled();
  763. _st((function(){
  764. return smalltalk.withContext(function($ctx2) {
  765. return _st(_st($HLDebugger())._on_(_st(anError)._context()))._openAsTab();
  766. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}))._on_do_($Error(),(function(error){
  767. return smalltalk.withContext(function($ctx2) {
  768. return _st(_st($ErrorHandler())._new())._handleError_(error);
  769. }, function($ctx2) {$ctx2.fillBlock({error:error},$ctx1)})}));
  770. return self}, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},smalltalk.HLErrorHandler)})},
  771. args: ["anError"],
  772. source: "handleError: anError\x0a\x09self onErrorHandled.\x0a\x0a\x09[ \x0a\x09\x09(HLDebugger on: anError context) openAsTab \x0a\x09] \x0a\x09\x09on: Error \x0a\x09\x09do: [ :error | ErrorHandler new handleError: error ]",
  773. messageSends: ["onErrorHandled", "on:do:", "handleError:", "new", "openAsTab", "on:", "context"],
  774. referencedClasses: ["Error", "ErrorHandler", "HLDebugger"]
  775. }),
  776. smalltalk.HLErrorHandler);
  777. smalltalk.addMethod(
  778. smalltalk.method({
  779. selector: "onErrorHandled",
  780. category: 'error handling',
  781. fn: function (){
  782. var self=this;
  783. function $HLProgressWidget(){return smalltalk.HLProgressWidget||(typeof HLProgressWidget=="undefined"?nil:HLProgressWidget)}
  784. return smalltalk.withContext(function($ctx1) {
  785. var $1,$2;
  786. $1=_st($HLProgressWidget())._default();
  787. _st($1)._flush();
  788. $2=_st($1)._remove();
  789. return self}, function($ctx1) {$ctx1.fill(self,"onErrorHandled",{},smalltalk.HLErrorHandler)})},
  790. args: [],
  791. 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",
  792. messageSends: ["flush", "default", "remove"],
  793. referencedClasses: ["HLProgressWidget"]
  794. }),
  795. smalltalk.HLErrorHandler);
  796. smalltalk.addMethod(
  797. smalltalk.method({
  798. selector: "handleError:",
  799. category: 'error handling',
  800. fn: function (anError){
  801. var self=this;
  802. return smalltalk.withContext(function($ctx1) {
  803. var $1;
  804. $1=_st(self._new())._handleError_(anError);
  805. return $1;
  806. }, function($ctx1) {$ctx1.fill(self,"handleError:",{anError:anError},smalltalk.HLErrorHandler.klass)})},
  807. args: ["anError"],
  808. source: "handleError: anError\x0a\x09^ self new handleError: anError",
  809. messageSends: ["handleError:", "new"],
  810. referencedClasses: []
  811. }),
  812. smalltalk.HLErrorHandler.klass);
  813. smalltalk.addClass('HLStackListWidget', smalltalk.HLToolListWidget, [], 'Helios-Debugger');
  814. smalltalk.addMethod(
  815. smalltalk.method({
  816. selector: "items",
  817. category: 'accessing',
  818. fn: function (){
  819. var self=this;
  820. return smalltalk.withContext(function($ctx1) {
  821. var $2,$1;
  822. $2=self["@items"];
  823. if(($receiver = $2) == nil || $receiver == undefined){
  824. self["@items"]=_st(self._model())._contexts();
  825. $1=self["@items"];
  826. } else {
  827. $1=$2;
  828. };
  829. return $1;
  830. }, function($ctx1) {$ctx1.fill(self,"items",{},smalltalk.HLStackListWidget)})},
  831. args: [],
  832. source: "items\x0a\x09^ items ifNil: [ items := self model contexts ]",
  833. messageSends: ["ifNil:", "contexts", "model"],
  834. referencedClasses: []
  835. }),
  836. smalltalk.HLStackListWidget);
  837. smalltalk.addMethod(
  838. smalltalk.method({
  839. selector: "label",
  840. category: 'accessing',
  841. fn: function (){
  842. var self=this;
  843. return smalltalk.withContext(function($ctx1) {
  844. return "Call stack";
  845. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLStackListWidget)})},
  846. args: [],
  847. source: "label\x0a\x09^ 'Call stack'",
  848. messageSends: [],
  849. referencedClasses: []
  850. }),
  851. smalltalk.HLStackListWidget);
  852. smalltalk.addMethod(
  853. smalltalk.method({
  854. selector: "selectItem:",
  855. category: 'actions',
  856. fn: function (aContext){
  857. var self=this;
  858. return smalltalk.withContext(function($ctx1) {
  859. _st(self._model())._currentContext_(aContext);
  860. return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{aContext:aContext},smalltalk.HLStackListWidget)})},
  861. args: ["aContext"],
  862. source: "selectItem: aContext\x0a \x09self model currentContext: aContext",
  863. messageSends: ["currentContext:", "model"],
  864. referencedClasses: []
  865. }),
  866. smalltalk.HLStackListWidget);