1
0

Helios-Inspector.js 40 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231
  1. smalltalk.addPackage('Helios-Inspector');
  2. smalltalk.addClass('HLInspector', smalltalk.HLWidget, ['model', 'variablesWidget', 'displayWidget', 'codeWidget', 'label'], 'Helios-Inspector');
  3. smalltalk.addMethod(
  4. smalltalk.method({
  5. selector: "codeWidget",
  6. category: 'accessing',
  7. fn: function (){
  8. var self=this;
  9. function $HLCodeWidget(){return smalltalk.HLCodeWidget||(typeof HLCodeWidget=="undefined"?nil:HLCodeWidget)}
  10. return smalltalk.withContext(function($ctx1) {
  11. var $2,$3,$4,$1;
  12. $2=self["@codeWidget"];
  13. if(($receiver = $2) == nil || $receiver == undefined){
  14. $3=_st($HLCodeWidget())._new();
  15. _st($3)._model_(_st(self["@model"])._code());
  16. _st($3)._receiver_(_st(self["@model"])._inspectee());
  17. $4=_st($3)._yourself();
  18. self["@codeWidget"]=$4;
  19. $1=self["@codeWidget"];
  20. } else {
  21. $1=$2;
  22. };
  23. return $1;
  24. }, function($ctx1) {$ctx1.fill(self,"codeWidget",{},smalltalk.HLInspector)})},
  25. args: [],
  26. source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := HLCodeWidget new\x0a \x09\x09model: model code;\x0a \x09receiver: model inspectee;\x0a \x09yourself ]",
  27. messageSends: ["ifNil:", "model:", "code", "new", "receiver:", "inspectee", "yourself"],
  28. referencedClasses: ["HLCodeWidget"]
  29. }),
  30. smalltalk.HLInspector);
  31. smalltalk.addMethod(
  32. smalltalk.method({
  33. selector: "displayWidget",
  34. category: 'accessing',
  35. fn: function (){
  36. var self=this;
  37. function $HLInspectorDisplayWidget(){return smalltalk.HLInspectorDisplayWidget||(typeof HLInspectorDisplayWidget=="undefined"?nil:HLInspectorDisplayWidget)}
  38. return smalltalk.withContext(function($ctx1) {
  39. var $2,$3,$4,$1;
  40. $2=self["@displayWidget"];
  41. if(($receiver = $2) == nil || $receiver == undefined){
  42. $3=_st($HLInspectorDisplayWidget())._new();
  43. _st($3)._model_(_st(self)._model());
  44. $4=_st($3)._yourself();
  45. self["@displayWidget"]=$4;
  46. $1=self["@displayWidget"];
  47. } else {
  48. $1=$2;
  49. };
  50. return $1;
  51. }, function($ctx1) {$ctx1.fill(self,"displayWidget",{},smalltalk.HLInspector)})},
  52. args: [],
  53. source: "displayWidget\x0a\x09^ displayWidget ifNil: [\x0a\x09\x09displayWidget := HLInspectorDisplayWidget new\x0a \x09\x09model: self model;\x0a \x09yourself ]",
  54. messageSends: ["ifNil:", "model:", "model", "new", "yourself"],
  55. referencedClasses: ["HLInspectorDisplayWidget"]
  56. }),
  57. smalltalk.HLInspector);
  58. smalltalk.addMethod(
  59. smalltalk.method({
  60. selector: "inspect:",
  61. category: 'actions',
  62. fn: function (anObject){
  63. var self=this;
  64. return smalltalk.withContext(function($ctx1) {
  65. var $1,$2;
  66. _st(_st(self)._model())._inspect_on_(anObject,self);
  67. $1=self;
  68. _st($1)._refreshVariablesWidget();
  69. $2=_st($1)._refreshDisplayWidget();
  70. return self}, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject},smalltalk.HLInspector)})},
  71. args: ["anObject"],
  72. source: "inspect: anObject\x0a\x09self model inspect: anObject on: self.\x0a \x0a\x09self \x0a \x09refreshVariablesWidget;\x0a\x09\x09refreshDisplayWidget",
  73. messageSends: ["inspect:on:", "model", "refreshVariablesWidget", "refreshDisplayWidget"],
  74. referencedClasses: []
  75. }),
  76. smalltalk.HLInspector);
  77. smalltalk.addMethod(
  78. smalltalk.method({
  79. selector: "inspectee",
  80. category: 'accessing',
  81. fn: function (){
  82. var self=this;
  83. return smalltalk.withContext(function($ctx1) {
  84. var $1;
  85. $1=_st(_st(self)._model())._inspectee();
  86. return $1;
  87. }, function($ctx1) {$ctx1.fill(self,"inspectee",{},smalltalk.HLInspector)})},
  88. args: [],
  89. source: "inspectee\x0a\x09^ self model inspectee",
  90. messageSends: ["inspectee", "model"],
  91. referencedClasses: []
  92. }),
  93. smalltalk.HLInspector);
  94. smalltalk.addMethod(
  95. smalltalk.method({
  96. selector: "inspectee:",
  97. category: 'accessing',
  98. fn: function (anObject){
  99. var self=this;
  100. return smalltalk.withContext(function($ctx1) {
  101. _st(_st(self)._model())._inspectee_(anObject);
  102. return self}, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject},smalltalk.HLInspector)})},
  103. args: ["anObject"],
  104. source: "inspectee: anObject\x0a\x09self model inspectee: anObject",
  105. messageSends: ["inspectee:", "model"],
  106. referencedClasses: []
  107. }),
  108. smalltalk.HLInspector);
  109. smalltalk.addMethod(
  110. smalltalk.method({
  111. selector: "label",
  112. category: 'accessing',
  113. fn: function (){
  114. var self=this;
  115. return smalltalk.withContext(function($ctx1) {
  116. var $2,$1;
  117. $2=self["@label"];
  118. if(($receiver = $2) == nil || $receiver == undefined){
  119. $1=_st(_st(self["@model"])._inspectee())._printString();
  120. } else {
  121. $1=$2;
  122. };
  123. return $1;
  124. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLInspector)})},
  125. args: [],
  126. source: "label\x0a ^ label ifNil: [ model inspectee printString ]",
  127. messageSends: ["ifNil:", "printString", "inspectee"],
  128. referencedClasses: []
  129. }),
  130. smalltalk.HLInspector);
  131. smalltalk.addMethod(
  132. smalltalk.method({
  133. selector: "model",
  134. category: 'accessing',
  135. fn: function (){
  136. var self=this;
  137. function $HLInspectorModel(){return smalltalk.HLInspectorModel||(typeof HLInspectorModel=="undefined"?nil:HLInspectorModel)}
  138. return smalltalk.withContext(function($ctx1) {
  139. var $2,$1;
  140. $2=self["@model"];
  141. if(($receiver = $2) == nil || $receiver == undefined){
  142. _st(self)._model_(_st($HLInspectorModel())._new());
  143. $1=self["@model"];
  144. } else {
  145. $1=$2;
  146. };
  147. return $1;
  148. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLInspector)})},
  149. args: [],
  150. source: "model\x0a\x09^ model ifNil: [ \x0a \x09self model: HLInspectorModel new.\x0a\x09\x09model ]",
  151. messageSends: ["ifNil:", "model:", "new"],
  152. referencedClasses: ["HLInspectorModel"]
  153. }),
  154. smalltalk.HLInspector);
  155. smalltalk.addMethod(
  156. smalltalk.method({
  157. selector: "model:",
  158. category: 'accessing',
  159. fn: function (aModel){
  160. var self=this;
  161. return smalltalk.withContext(function($ctx1) {
  162. var $1,$2;
  163. self["@model"]=aModel;
  164. _st(_st(self)._codeWidget())._model_(_st(aModel)._code());
  165. $1=self;
  166. _st($1)._observeCodeWidget();
  167. _st($1)._observeVariablesWidget();
  168. $2=_st($1)._observeModel();
  169. return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLInspector)})},
  170. args: ["aModel"],
  171. source: "model: aModel\x0a\x09model := aModel. \x0a self codeWidget model: aModel code.\x0a \x0a self \x0a observeCodeWidget;\x0a \x09observeVariablesWidget;\x0a observeModel",
  172. messageSends: ["model:", "code", "codeWidget", "observeCodeWidget", "observeVariablesWidget", "observeModel"],
  173. referencedClasses: []
  174. }),
  175. smalltalk.HLInspector);
  176. smalltalk.addMethod(
  177. smalltalk.method({
  178. selector: "observeCodeWidget",
  179. category: 'actions',
  180. fn: function (){
  181. var self=this;
  182. function $HLDoItExecuted(){return smalltalk.HLDoItExecuted||(typeof HLDoItExecuted=="undefined"?nil:HLDoItExecuted)}
  183. return smalltalk.withContext(function($ctx1) {
  184. _st(_st(_st(self)._codeWidget())._announcer())._on_do_($HLDoItExecuted(),(function(){
  185. return smalltalk.withContext(function($ctx2) {
  186. return _st(self)._onDoneIt();
  187. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  188. return self}, function($ctx1) {$ctx1.fill(self,"observeCodeWidget",{},smalltalk.HLInspector)})},
  189. args: [],
  190. source: "observeCodeWidget\x0a\x09self codeWidget announcer \x0a \x09on: HLDoItExecuted \x0a do: [ self onDoneIt ]",
  191. messageSends: ["on:do:", "onDoneIt", "announcer", "codeWidget"],
  192. referencedClasses: ["HLDoItExecuted"]
  193. }),
  194. smalltalk.HLInspector);
  195. smalltalk.addMethod(
  196. smalltalk.method({
  197. selector: "observeModel",
  198. category: 'actions',
  199. fn: function (){
  200. var self=this;
  201. function $HLInstanceVariableSelected(){return smalltalk.HLInstanceVariableSelected||(typeof HLInstanceVariableSelected=="undefined"?nil:HLInstanceVariableSelected)}
  202. return smalltalk.withContext(function($ctx1) {
  203. _st(_st(_st(self)._model())._announcer())._on_do_($HLInstanceVariableSelected(),(function(ann){
  204. return smalltalk.withContext(function($ctx2) {
  205. return _st(self)._onInstanceVariableSelected();
  206. }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})}));
  207. return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},smalltalk.HLInspector)})},
  208. args: [],
  209. source: "observeModel\x0a\x09self model announcer\x0a on: HLInstanceVariableSelected do: [ :ann | self onInstanceVariableSelected ]",
  210. messageSends: ["on:do:", "onInstanceVariableSelected", "announcer", "model"],
  211. referencedClasses: ["HLInstanceVariableSelected"]
  212. }),
  213. smalltalk.HLInspector);
  214. smalltalk.addMethod(
  215. smalltalk.method({
  216. selector: "observeVariablesWidget",
  217. category: 'actions',
  218. fn: function (){
  219. var self=this;
  220. function $HLRefreshRequested(){return smalltalk.HLRefreshRequested||(typeof HLRefreshRequested=="undefined"?nil:HLRefreshRequested)}
  221. function $HLDiveRequested(){return smalltalk.HLDiveRequested||(typeof HLDiveRequested=="undefined"?nil:HLDiveRequested)}
  222. return smalltalk.withContext(function($ctx1) {
  223. var $1,$2;
  224. $1=_st(_st(self)._variablesWidget())._announcer();
  225. _st($1)._on_do_($HLRefreshRequested(),(function(ann){
  226. return smalltalk.withContext(function($ctx2) {
  227. return _st(self)._onRefresh();
  228. }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})}));
  229. $2=_st($1)._on_do_($HLDiveRequested(),(function(){
  230. return smalltalk.withContext(function($ctx2) {
  231. return _st(self)._onDive();
  232. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  233. return self}, function($ctx1) {$ctx1.fill(self,"observeVariablesWidget",{},smalltalk.HLInspector)})},
  234. args: [],
  235. source: "observeVariablesWidget\x0a\x09self variablesWidget announcer \x0a \x09on: HLRefreshRequested do: [ :ann | self onRefresh ];\x0a on: HLDiveRequested do:[ self onDive ]\x0a ",
  236. messageSends: ["on:do:", "onRefresh", "announcer", "variablesWidget", "onDive"],
  237. referencedClasses: ["HLRefreshRequested", "HLDiveRequested"]
  238. }),
  239. smalltalk.HLInspector);
  240. smalltalk.addMethod(
  241. smalltalk.method({
  242. selector: "onDive",
  243. category: 'reactions',
  244. fn: function (){
  245. var self=this;
  246. return smalltalk.withContext(function($ctx1) {
  247. _st(self)._inspect_(_st(_st(self)._model())._selectedInstVarObject());
  248. return self}, function($ctx1) {$ctx1.fill(self,"onDive",{},smalltalk.HLInspector)})},
  249. args: [],
  250. source: "onDive\x0a\x0a\x09self inspect: self model selectedInstVarObject",
  251. messageSends: ["inspect:", "selectedInstVarObject", "model"],
  252. referencedClasses: []
  253. }),
  254. smalltalk.HLInspector);
  255. smalltalk.addMethod(
  256. smalltalk.method({
  257. selector: "onDoneIt",
  258. category: 'reactions',
  259. fn: function (){
  260. var self=this;
  261. return smalltalk.withContext(function($ctx1) {
  262. _st(self)._refresh();
  263. return self}, function($ctx1) {$ctx1.fill(self,"onDoneIt",{},smalltalk.HLInspector)})},
  264. args: [],
  265. source: "onDoneIt\x0a\x0a\x09self refresh",
  266. messageSends: ["refresh"],
  267. referencedClasses: []
  268. }),
  269. smalltalk.HLInspector);
  270. smalltalk.addMethod(
  271. smalltalk.method({
  272. selector: "onInspectIt",
  273. category: 'reactions',
  274. fn: function (){
  275. var self=this;
  276. return smalltalk.withContext(function($ctx1) {
  277. return self}, function($ctx1) {$ctx1.fill(self,"onInspectIt",{},smalltalk.HLInspector)})},
  278. args: [],
  279. source: "onInspectIt",
  280. messageSends: [],
  281. referencedClasses: []
  282. }),
  283. smalltalk.HLInspector);
  284. smalltalk.addMethod(
  285. smalltalk.method({
  286. selector: "onInstanceVariableSelected",
  287. category: 'reactions',
  288. fn: function (){
  289. var self=this;
  290. return smalltalk.withContext(function($ctx1) {
  291. _st(_st(self)._codeWidget())._receiver_(_st(_st(self)._model())._selectedInstVarObject());
  292. _st(self)._refreshDisplayWidget();
  293. return self}, function($ctx1) {$ctx1.fill(self,"onInstanceVariableSelected",{},smalltalk.HLInspector)})},
  294. args: [],
  295. source: "onInstanceVariableSelected\x0a\x09self codeWidget receiver: self model selectedInstVarObject.\x0a\x09self refreshDisplayWidget",
  296. messageSends: ["receiver:", "selectedInstVarObject", "model", "codeWidget", "refreshDisplayWidget"],
  297. referencedClasses: []
  298. }),
  299. smalltalk.HLInspector);
  300. smalltalk.addMethod(
  301. smalltalk.method({
  302. selector: "onPrintIt",
  303. category: 'reactions',
  304. fn: function (){
  305. var self=this;
  306. return smalltalk.withContext(function($ctx1) {
  307. return self}, function($ctx1) {$ctx1.fill(self,"onPrintIt",{},smalltalk.HLInspector)})},
  308. args: [],
  309. source: "onPrintIt",
  310. messageSends: [],
  311. referencedClasses: []
  312. }),
  313. smalltalk.HLInspector);
  314. smalltalk.addMethod(
  315. smalltalk.method({
  316. selector: "onRefresh",
  317. category: 'reactions',
  318. fn: function (){
  319. var self=this;
  320. return smalltalk.withContext(function($ctx1) {
  321. _st(self)._refresh();
  322. return self}, function($ctx1) {$ctx1.fill(self,"onRefresh",{},smalltalk.HLInspector)})},
  323. args: [],
  324. source: "onRefresh\x0a\x0a\x09self refresh",
  325. messageSends: ["refresh"],
  326. referencedClasses: []
  327. }),
  328. smalltalk.HLInspector);
  329. smalltalk.addMethod(
  330. smalltalk.method({
  331. selector: "open",
  332. category: 'actions',
  333. fn: function (){
  334. var self=this;
  335. function $HLTab(){return smalltalk.HLTab||(typeof HLTab=="undefined"?nil:HLTab)}
  336. function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
  337. return smalltalk.withContext(function($ctx1) {
  338. _st(_st($HLManager())._current())._addTab_(_st($HLTab())._on_labelled_(self,_st(self)._tabLabel()));
  339. return self}, function($ctx1) {$ctx1.fill(self,"open",{},smalltalk.HLInspector)})},
  340. args: [],
  341. source: "open\x0a\x09HLManager current addTab: (HLTab on: self labelled: self tabLabel)",
  342. messageSends: ["addTab:", "on:labelled:", "tabLabel", "current"],
  343. referencedClasses: ["HLTab", "HLManager"]
  344. }),
  345. smalltalk.HLInspector);
  346. smalltalk.addMethod(
  347. smalltalk.method({
  348. selector: "refresh",
  349. category: 'actions',
  350. fn: function (){
  351. var self=this;
  352. return smalltalk.withContext(function($ctx1) {
  353. _st(self)._inspect_(_st(self)._inspectee());
  354. return self}, function($ctx1) {$ctx1.fill(self,"refresh",{},smalltalk.HLInspector)})},
  355. args: [],
  356. source: "refresh\x0a\x09self inspect: self inspectee",
  357. messageSends: ["inspect:", "inspectee"],
  358. referencedClasses: []
  359. }),
  360. smalltalk.HLInspector);
  361. smalltalk.addMethod(
  362. smalltalk.method({
  363. selector: "refreshDisplayWidget",
  364. category: 'actions',
  365. fn: function (){
  366. var self=this;
  367. return smalltalk.withContext(function($ctx1) {
  368. _st(_st(self)._displayWidget())._refresh();
  369. return self}, function($ctx1) {$ctx1.fill(self,"refreshDisplayWidget",{},smalltalk.HLInspector)})},
  370. args: [],
  371. source: "refreshDisplayWidget\x0a\x09self displayWidget refresh",
  372. messageSends: ["refresh", "displayWidget"],
  373. referencedClasses: []
  374. }),
  375. smalltalk.HLInspector);
  376. smalltalk.addMethod(
  377. smalltalk.method({
  378. selector: "refreshVariablesWidget",
  379. category: 'actions',
  380. fn: function (){
  381. var self=this;
  382. return smalltalk.withContext(function($ctx1) {
  383. _st(_st(self)._variablesWidget())._refresh();
  384. return self}, function($ctx1) {$ctx1.fill(self,"refreshVariablesWidget",{},smalltalk.HLInspector)})},
  385. args: [],
  386. source: "refreshVariablesWidget\x0a\x09self variablesWidget refresh",
  387. messageSends: ["refresh", "variablesWidget"],
  388. referencedClasses: []
  389. }),
  390. smalltalk.HLInspector);
  391. smalltalk.addMethod(
  392. smalltalk.method({
  393. selector: "renderContentOn:",
  394. category: 'rendering',
  395. fn: function (html){
  396. var self=this;
  397. function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
  398. function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
  399. function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
  400. return smalltalk.withContext(function($ctx1) {
  401. _st(html)._with_(_st($HLContainer())._with_(_st($HLHorizontalSplitter())._with_with_(_st($HLVerticalSplitter())._with_with_(_st(self)._variablesWidget(),_st(self)._displayWidget()),_st(self)._codeWidget())));
  402. _st(_st(self)._variablesWidget())._focus();
  403. return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLInspector)})},
  404. args: ["html"],
  405. source: "renderContentOn: html\x0a \x09html with: (HLContainer with: (HLHorizontalSplitter\x0a \x09with: (HLVerticalSplitter \x0a \x09\x09with: self variablesWidget\x0a \x09 with: self displayWidget)\x0a with: self codeWidget)).\x0a\x09\x0a\x09self variablesWidget focus\x0a ",
  406. messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget", "focus"],
  407. referencedClasses: ["HLVerticalSplitter", "HLHorizontalSplitter", "HLContainer"]
  408. }),
  409. smalltalk.HLInspector);
  410. smalltalk.addMethod(
  411. smalltalk.method({
  412. selector: "setLabel:",
  413. category: 'actions',
  414. fn: function (aString){
  415. var self=this;
  416. return smalltalk.withContext(function($ctx1) {
  417. self["@label"]=aString;
  418. return self}, function($ctx1) {$ctx1.fill(self,"setLabel:",{aString:aString},smalltalk.HLInspector)})},
  419. args: ["aString"],
  420. source: "setLabel: aString\x0a\x09label := aString",
  421. messageSends: [],
  422. referencedClasses: []
  423. }),
  424. smalltalk.HLInspector);
  425. smalltalk.addMethod(
  426. smalltalk.method({
  427. selector: "setVariables:",
  428. category: 'actions',
  429. fn: function (aDictionary){
  430. var self=this;
  431. return smalltalk.withContext(function($ctx1) {
  432. _st(_st(self)._model())._variables_(aDictionary);
  433. return self}, function($ctx1) {$ctx1.fill(self,"setVariables:",{aDictionary:aDictionary},smalltalk.HLInspector)})},
  434. args: ["aDictionary"],
  435. source: "setVariables: aDictionary\x0a\x09self model variables: aDictionary",
  436. messageSends: ["variables:", "model"],
  437. referencedClasses: []
  438. }),
  439. smalltalk.HLInspector);
  440. smalltalk.addMethod(
  441. smalltalk.method({
  442. selector: "tabLabel",
  443. category: 'accessing',
  444. fn: function (){
  445. var self=this;
  446. return smalltalk.withContext(function($ctx1) {
  447. return "Inspector";
  448. }, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLInspector)})},
  449. args: [],
  450. source: "tabLabel\x0a ^ 'Inspector'",
  451. messageSends: [],
  452. referencedClasses: []
  453. }),
  454. smalltalk.HLInspector);
  455. smalltalk.addMethod(
  456. smalltalk.method({
  457. selector: "variablesWidget",
  458. category: 'accessing',
  459. fn: function (){
  460. var self=this;
  461. function $HLInspectorVariablesWidget(){return smalltalk.HLInspectorVariablesWidget||(typeof HLInspectorVariablesWidget=="undefined"?nil:HLInspectorVariablesWidget)}
  462. return smalltalk.withContext(function($ctx1) {
  463. var $2,$3,$4,$1;
  464. $2=self["@variablesWidget"];
  465. if(($receiver = $2) == nil || $receiver == undefined){
  466. $3=_st($HLInspectorVariablesWidget())._new();
  467. _st($3)._model_(_st(self)._model());
  468. $4=_st($3)._yourself();
  469. self["@variablesWidget"]=$4;
  470. $1=self["@variablesWidget"];
  471. } else {
  472. $1=$2;
  473. };
  474. return $1;
  475. }, function($ctx1) {$ctx1.fill(self,"variablesWidget",{},smalltalk.HLInspector)})},
  476. args: [],
  477. source: "variablesWidget\x0a\x09^ variablesWidget ifNil: [\x0a\x09\x09variablesWidget := HLInspectorVariablesWidget new\x0a \x09\x09model: self model;\x0a \x09yourself ]",
  478. messageSends: ["ifNil:", "model:", "model", "new", "yourself"],
  479. referencedClasses: ["HLInspectorVariablesWidget"]
  480. }),
  481. smalltalk.HLInspector);
  482. smalltalk.addMethod(
  483. smalltalk.method({
  484. selector: "canBeOpenAsTab",
  485. category: 'testing',
  486. fn: function (){
  487. var self=this;
  488. return smalltalk.withContext(function($ctx1) {
  489. return false;
  490. }, function($ctx1) {$ctx1.fill(self,"canBeOpenAsTab",{},smalltalk.HLInspector.klass)})},
  491. args: [],
  492. source: "canBeOpenAsTab\x0a\x09^ false",
  493. messageSends: [],
  494. referencedClasses: []
  495. }),
  496. smalltalk.HLInspector.klass);
  497. smalltalk.addMethod(
  498. smalltalk.method({
  499. selector: "tabLabel",
  500. category: 'accessing',
  501. fn: function (){
  502. var self=this;
  503. return smalltalk.withContext(function($ctx1) {
  504. return "Inspector";
  505. }, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLInspector.klass)})},
  506. args: [],
  507. source: "tabLabel\x0a\x09^ 'Inspector'",
  508. messageSends: [],
  509. referencedClasses: []
  510. }),
  511. smalltalk.HLInspector.klass);
  512. smalltalk.addMethod(
  513. smalltalk.method({
  514. selector: "tabPriority",
  515. category: 'accessing',
  516. fn: function (){
  517. var self=this;
  518. return smalltalk.withContext(function($ctx1) {
  519. var $1;
  520. $1=(10);
  521. return $1;
  522. }, function($ctx1) {$ctx1.fill(self,"tabPriority",{},smalltalk.HLInspector.klass)})},
  523. args: [],
  524. source: "tabPriority\x0a\x09^ 10",
  525. messageSends: [],
  526. referencedClasses: []
  527. }),
  528. smalltalk.HLInspector.klass);
  529. smalltalk.addClass('HLInspectorDisplayWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-Inspector');
  530. smalltalk.addMethod(
  531. smalltalk.method({
  532. selector: "model",
  533. category: 'accessing',
  534. fn: function (){
  535. var self=this;
  536. return smalltalk.withContext(function($ctx1) {
  537. var $1;
  538. $1=self["@model"];
  539. return $1;
  540. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLInspectorDisplayWidget)})},
  541. args: [],
  542. source: "model\x0a\x0a\x09^ model",
  543. messageSends: [],
  544. referencedClasses: []
  545. }),
  546. smalltalk.HLInspectorDisplayWidget);
  547. smalltalk.addMethod(
  548. smalltalk.method({
  549. selector: "model:",
  550. category: 'accessing',
  551. fn: function (aModel){
  552. var self=this;
  553. return smalltalk.withContext(function($ctx1) {
  554. self["@model"]=aModel;
  555. return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLInspectorDisplayWidget)})},
  556. args: ["aModel"],
  557. source: "model: aModel\x0a\x0a\x09model := aModel",
  558. messageSends: [],
  559. referencedClasses: []
  560. }),
  561. smalltalk.HLInspectorDisplayWidget);
  562. smalltalk.addMethod(
  563. smalltalk.method({
  564. selector: "renderContentOn:",
  565. category: 'rendering',
  566. fn: function (html){
  567. var self=this;
  568. return smalltalk.withContext(function($ctx1) {
  569. _st(_st(html)._div())._with_(_st(self)._selectionDisplayString());
  570. return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLInspectorDisplayWidget)})},
  571. args: ["html"],
  572. source: "renderContentOn: html\x0a\x09\x0a html div with: self selectionDisplayString\x0a ",
  573. messageSends: ["with:", "selectionDisplayString", "div"],
  574. referencedClasses: []
  575. }),
  576. smalltalk.HLInspectorDisplayWidget);
  577. smalltalk.addMethod(
  578. smalltalk.method({
  579. selector: "selectionDisplayString",
  580. category: 'rendering',
  581. fn: function (){
  582. var self=this;
  583. var selection;
  584. return smalltalk.withContext(function($ctx1) {
  585. var $2,$1;
  586. selection=_st(self["@model"])._selection();
  587. $2=_st(_st(_st(self["@model"])._variables())._keys())._includes_(selection);
  588. if(smalltalk.assert($2)){
  589. $1=_st(_st(self["@model"])._instVarObjectAt_(selection))._printString();
  590. } else {
  591. $1="";
  592. };
  593. return $1;
  594. }, function($ctx1) {$ctx1.fill(self,"selectionDisplayString",{selection:selection},smalltalk.HLInspectorDisplayWidget)})},
  595. args: [],
  596. source: "selectionDisplayString\x0a\x09|selection|\x0a\x09selection := model selection.\x0a ^ (model variables keys includes: selection)\x0a \x09ifTrue:[(model instVarObjectAt: selection) printString]\x0a \x09ifFalse:['']",
  597. messageSends: ["selection", "ifTrue:ifFalse:", "printString", "instVarObjectAt:", "includes:", "keys", "variables"],
  598. referencedClasses: []
  599. }),
  600. smalltalk.HLInspectorDisplayWidget);
  601. smalltalk.addClass('HLInspectorModel', smalltalk.Object, ['announcer', 'environment', 'inspectee', 'code', 'variables', 'selection'], 'Helios-Inspector');
  602. smalltalk.addMethod(
  603. smalltalk.method({
  604. selector: "announcer",
  605. category: 'accessing',
  606. fn: function (){
  607. var self=this;
  608. function $Announcer(){return smalltalk.Announcer||(typeof Announcer=="undefined"?nil:Announcer)}
  609. return smalltalk.withContext(function($ctx1) {
  610. var $2,$1;
  611. $2=self["@announcer"];
  612. if(($receiver = $2) == nil || $receiver == undefined){
  613. self["@announcer"]=_st($Announcer())._new();
  614. $1=self["@announcer"];
  615. } else {
  616. $1=$2;
  617. };
  618. return $1;
  619. }, function($ctx1) {$ctx1.fill(self,"announcer",{},smalltalk.HLInspectorModel)})},
  620. args: [],
  621. source: "announcer\x0a\x09^ announcer ifNil: [announcer := Announcer new ]",
  622. messageSends: ["ifNil:", "new"],
  623. referencedClasses: ["Announcer"]
  624. }),
  625. smalltalk.HLInspectorModel);
  626. smalltalk.addMethod(
  627. smalltalk.method({
  628. selector: "code",
  629. category: 'accessing',
  630. fn: function (){
  631. var self=this;
  632. function $HLCodeModel(){return smalltalk.HLCodeModel||(typeof HLCodeModel=="undefined"?nil:HLCodeModel)}
  633. return smalltalk.withContext(function($ctx1) {
  634. var $2,$1;
  635. $2=self["@code"];
  636. if(($receiver = $2) == nil || $receiver == undefined){
  637. self["@code"]=_st($HLCodeModel())._on_(_st(self)._environment());
  638. $1=self["@code"];
  639. } else {
  640. $1=$2;
  641. };
  642. return $1;
  643. }, function($ctx1) {$ctx1.fill(self,"code",{},smalltalk.HLInspectorModel)})},
  644. args: [],
  645. source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ code := HLCodeModel on: self environment ]",
  646. messageSends: ["ifNil:", "on:", "environment"],
  647. referencedClasses: ["HLCodeModel"]
  648. }),
  649. smalltalk.HLInspectorModel);
  650. smalltalk.addMethod(
  651. smalltalk.method({
  652. selector: "environment",
  653. category: 'accessing',
  654. fn: function (){
  655. var self=this;
  656. function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)}
  657. return smalltalk.withContext(function($ctx1) {
  658. var $2,$1;
  659. $2=self["@environment"];
  660. if(($receiver = $2) == nil || $receiver == undefined){
  661. $1=_st(_st($HLManager())._current())._environment();
  662. } else {
  663. $1=$2;
  664. };
  665. return $1;
  666. }, function($ctx1) {$ctx1.fill(self,"environment",{},smalltalk.HLInspectorModel)})},
  667. args: [],
  668. source: "environment\x0a\x09^ environment ifNil: [ HLManager current environment ]",
  669. messageSends: ["ifNil:", "environment", "current"],
  670. referencedClasses: ["HLManager"]
  671. }),
  672. smalltalk.HLInspectorModel);
  673. smalltalk.addMethod(
  674. smalltalk.method({
  675. selector: "environment:",
  676. category: 'accessing',
  677. fn: function (anEnvironment){
  678. var self=this;
  679. return smalltalk.withContext(function($ctx1) {
  680. self["@environment"]=anEnvironment;
  681. return self}, function($ctx1) {$ctx1.fill(self,"environment:",{anEnvironment:anEnvironment},smalltalk.HLInspectorModel)})},
  682. args: ["anEnvironment"],
  683. source: "environment: anEnvironment\x0a\x09environment := anEnvironment",
  684. messageSends: [],
  685. referencedClasses: []
  686. }),
  687. smalltalk.HLInspectorModel);
  688. smalltalk.addMethod(
  689. smalltalk.method({
  690. selector: "inspect:on:",
  691. category: 'actions',
  692. fn: function (anObject,anInspector){
  693. var self=this;
  694. return smalltalk.withContext(function($ctx1) {
  695. self["@inspectee"]=anObject;
  696. self["@variables"]=[];
  697. _st(self["@inspectee"])._inspectOn_(anInspector);
  698. return self}, function($ctx1) {$ctx1.fill(self,"inspect:on:",{anObject:anObject,anInspector:anInspector},smalltalk.HLInspectorModel)})},
  699. args: ["anObject", "anInspector"],
  700. source: "inspect: anObject on: anInspector\x0a\x09inspectee := anObject.\x0a\x09variables := #().\x0a\x09inspectee inspectOn: anInspector ",
  701. messageSends: ["inspectOn:"],
  702. referencedClasses: []
  703. }),
  704. smalltalk.HLInspectorModel);
  705. smalltalk.addMethod(
  706. smalltalk.method({
  707. selector: "inspectee",
  708. category: 'accessing',
  709. fn: function (){
  710. var self=this;
  711. return smalltalk.withContext(function($ctx1) {
  712. var $1;
  713. $1=self["@inspectee"];
  714. return $1;
  715. }, function($ctx1) {$ctx1.fill(self,"inspectee",{},smalltalk.HLInspectorModel)})},
  716. args: [],
  717. source: "inspectee \x0a\x09^ inspectee ",
  718. messageSends: [],
  719. referencedClasses: []
  720. }),
  721. smalltalk.HLInspectorModel);
  722. smalltalk.addMethod(
  723. smalltalk.method({
  724. selector: "inspectee:",
  725. category: 'accessing',
  726. fn: function (anObject){
  727. var self=this;
  728. return smalltalk.withContext(function($ctx1) {
  729. self["@inspectee"]=anObject;
  730. return self}, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject},smalltalk.HLInspectorModel)})},
  731. args: ["anObject"],
  732. source: "inspectee: anObject \x0a\x09inspectee := anObject\x0a ",
  733. messageSends: [],
  734. referencedClasses: []
  735. }),
  736. smalltalk.HLInspectorModel);
  737. smalltalk.addMethod(
  738. smalltalk.method({
  739. selector: "instVarObjectAt:",
  740. category: 'actions',
  741. fn: function (anInstVarName){
  742. var self=this;
  743. return smalltalk.withContext(function($ctx1) {
  744. var $1;
  745. $1=_st(_st(self)._variables())._at_(anInstVarName);
  746. return $1;
  747. }, function($ctx1) {$ctx1.fill(self,"instVarObjectAt:",{anInstVarName:anInstVarName},smalltalk.HLInspectorModel)})},
  748. args: ["anInstVarName"],
  749. source: "instVarObjectAt: anInstVarName\x0a\x09^ self variables at: anInstVarName",
  750. messageSends: ["at:", "variables"],
  751. referencedClasses: []
  752. }),
  753. smalltalk.HLInspectorModel);
  754. smalltalk.addMethod(
  755. smalltalk.method({
  756. selector: "onKeyDown:",
  757. category: 'reactions',
  758. fn: function (anEvent){
  759. var self=this;
  760. return smalltalk.withContext(function($ctx1) {
  761. if(anEvent.ctrlKey) {
  762. if(anEvent.keyCode === 80) { //ctrl+p
  763. self._printIt();
  764. anEvent.preventDefault();
  765. return false;
  766. }
  767. if(anEvent.keyCode === 68) { //ctrl+d
  768. self._doIt();
  769. anEvent.preventDefault();
  770. return false;
  771. }
  772. if(anEvent.keyCode === 73) { //ctrl+i
  773. self._inspectIt();
  774. anEvent.preventDefault();
  775. return false;
  776. }
  777. };
  778. return self}, function($ctx1) {$ctx1.fill(self,"onKeyDown:",{anEvent:anEvent},smalltalk.HLInspectorModel)})},
  779. args: ["anEvent"],
  780. source: "onKeyDown: anEvent\x0a\x0a\x09<if(anEvent.ctrlKey) {\x0a\x09\x09if(anEvent.keyCode === 80) { //ctrl+p\x0a\x09\x09\x09self._printIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 68) { //ctrl+d\x0a\x09\x09\x09self._doIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09\x09if(anEvent.keyCode === 73) { //ctrl+i\x0a\x09\x09\x09self._inspectIt();\x0a\x09\x09\x09anEvent.preventDefault();\x0a\x09\x09\x09return false;\x0a\x09\x09}\x0a\x09}>",
  781. messageSends: [],
  782. referencedClasses: []
  783. }),
  784. smalltalk.HLInspectorModel);
  785. smalltalk.addMethod(
  786. smalltalk.method({
  787. selector: "selectedInstVar:",
  788. category: 'actions',
  789. fn: function (anInstVarName){
  790. var self=this;
  791. return smalltalk.withContext(function($ctx1) {
  792. _st(self)._selection_(anInstVarName);
  793. return self}, function($ctx1) {$ctx1.fill(self,"selectedInstVar:",{anInstVarName:anInstVarName},smalltalk.HLInspectorModel)})},
  794. args: ["anInstVarName"],
  795. source: "selectedInstVar: anInstVarName\x0a self selection: anInstVarName",
  796. messageSends: ["selection:"],
  797. referencedClasses: []
  798. }),
  799. smalltalk.HLInspectorModel);
  800. smalltalk.addMethod(
  801. smalltalk.method({
  802. selector: "selectedInstVarObject",
  803. category: 'accessing',
  804. fn: function (){
  805. var self=this;
  806. return smalltalk.withContext(function($ctx1) {
  807. var $1;
  808. $1=_st(self)._instVarObjectAt_(_st(self)._selection());
  809. return $1;
  810. }, function($ctx1) {$ctx1.fill(self,"selectedInstVarObject",{},smalltalk.HLInspectorModel)})},
  811. args: [],
  812. source: "selectedInstVarObject\x0a\x09^ self instVarObjectAt: self selection\x0a ",
  813. messageSends: ["instVarObjectAt:", "selection"],
  814. referencedClasses: []
  815. }),
  816. smalltalk.HLInspectorModel);
  817. smalltalk.addMethod(
  818. smalltalk.method({
  819. selector: "selection",
  820. category: 'accessing',
  821. fn: function (){
  822. var self=this;
  823. return smalltalk.withContext(function($ctx1) {
  824. var $2,$1;
  825. $2=self["@selection"];
  826. if(($receiver = $2) == nil || $receiver == undefined){
  827. $1="";
  828. } else {
  829. $1=$2;
  830. };
  831. return $1;
  832. }, function($ctx1) {$ctx1.fill(self,"selection",{},smalltalk.HLInspectorModel)})},
  833. args: [],
  834. source: "selection\x0a\x09^ selection ifNil:[ '' ] ",
  835. messageSends: ["ifNil:"],
  836. referencedClasses: []
  837. }),
  838. smalltalk.HLInspectorModel);
  839. smalltalk.addMethod(
  840. smalltalk.method({
  841. selector: "selection:",
  842. category: 'accessing',
  843. fn: function (anObject){
  844. var self=this;
  845. function $HLInstanceVariableSelected(){return smalltalk.HLInstanceVariableSelected||(typeof HLInstanceVariableSelected=="undefined"?nil:HLInstanceVariableSelected)}
  846. return smalltalk.withContext(function($ctx1) {
  847. self["@selection"]=anObject;
  848. _st(_st(self)._announcer())._announce_(_st($HLInstanceVariableSelected())._on_(self["@selection"]));
  849. return self}, function($ctx1) {$ctx1.fill(self,"selection:",{anObject:anObject},smalltalk.HLInspectorModel)})},
  850. args: ["anObject"],
  851. source: "selection: anObject\x0a\x09selection := anObject.\x0a\x0a\x09self announcer announce: (HLInstanceVariableSelected on: selection)\x0a ",
  852. messageSends: ["announce:", "on:", "announcer"],
  853. referencedClasses: ["HLInstanceVariableSelected"]
  854. }),
  855. smalltalk.HLInspectorModel);
  856. smalltalk.addMethod(
  857. smalltalk.method({
  858. selector: "subscribe:",
  859. category: 'actions',
  860. fn: function (aWidget){
  861. var self=this;
  862. return smalltalk.withContext(function($ctx1) {
  863. _st(aWidget)._subscribeTo_(_st(self)._announcer());
  864. return self}, function($ctx1) {$ctx1.fill(self,"subscribe:",{aWidget:aWidget},smalltalk.HLInspectorModel)})},
  865. args: ["aWidget"],
  866. source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
  867. messageSends: ["subscribeTo:", "announcer"],
  868. referencedClasses: []
  869. }),
  870. smalltalk.HLInspectorModel);
  871. smalltalk.addMethod(
  872. smalltalk.method({
  873. selector: "variables",
  874. category: 'accessing',
  875. fn: function (){
  876. var self=this;
  877. return smalltalk.withContext(function($ctx1) {
  878. var $1;
  879. $1=self["@variables"];
  880. return $1;
  881. }, function($ctx1) {$ctx1.fill(self,"variables",{},smalltalk.HLInspectorModel)})},
  882. args: [],
  883. source: "variables\x0a\x09^ variables",
  884. messageSends: [],
  885. referencedClasses: []
  886. }),
  887. smalltalk.HLInspectorModel);
  888. smalltalk.addMethod(
  889. smalltalk.method({
  890. selector: "variables:",
  891. category: 'accessing',
  892. fn: function (aCollection){
  893. var self=this;
  894. return smalltalk.withContext(function($ctx1) {
  895. self["@variables"]=aCollection;
  896. return self}, function($ctx1) {$ctx1.fill(self,"variables:",{aCollection:aCollection},smalltalk.HLInspectorModel)})},
  897. args: ["aCollection"],
  898. source: "variables: aCollection\x0a\x09variables := aCollection\x0a ",
  899. messageSends: [],
  900. referencedClasses: []
  901. }),
  902. smalltalk.HLInspectorModel);
  903. smalltalk.addMethod(
  904. smalltalk.method({
  905. selector: "on:",
  906. category: 'actions',
  907. fn: function (anEnvironment){
  908. var self=this;
  909. return smalltalk.withContext(function($ctx1) {
  910. var $2,$3,$1;
  911. $2=_st(self)._new();
  912. _st($2)._environment_(anEnvironment);
  913. $3=_st($2)._yourself();
  914. $1=$3;
  915. return $1;
  916. }, function($ctx1) {$ctx1.fill(self,"on:",{anEnvironment:anEnvironment},smalltalk.HLInspectorModel.klass)})},
  917. args: ["anEnvironment"],
  918. source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a \x09environment: anEnvironment;\x0a yourself",
  919. messageSends: ["environment:", "new", "yourself"],
  920. referencedClasses: []
  921. }),
  922. smalltalk.HLInspectorModel.klass);
  923. smalltalk.addClass('HLInspectorVariablesWidget', smalltalk.HLNavigationListWidget, ['announcer', 'model', 'list', 'diveButton'], 'Helios-Inspector');
  924. smalltalk.addMethod(
  925. smalltalk.method({
  926. selector: "announcer",
  927. category: 'accessing',
  928. fn: function (){
  929. var self=this;
  930. function $Announcer(){return smalltalk.Announcer||(typeof Announcer=="undefined"?nil:Announcer)}
  931. return smalltalk.withContext(function($ctx1) {
  932. var $2,$1;
  933. $2=self["@announcer"];
  934. if(($receiver = $2) == nil || $receiver == undefined){
  935. self["@announcer"]=_st($Announcer())._new();
  936. $1=self["@announcer"];
  937. } else {
  938. $1=$2;
  939. };
  940. return $1;
  941. }, function($ctx1) {$ctx1.fill(self,"announcer",{},smalltalk.HLInspectorVariablesWidget)})},
  942. args: [],
  943. source: "announcer\x0a\x09^ announcer ifNil:[ announcer := Announcer new ]",
  944. messageSends: ["ifNil:", "new"],
  945. referencedClasses: ["Announcer"]
  946. }),
  947. smalltalk.HLInspectorVariablesWidget);
  948. smalltalk.addMethod(
  949. smalltalk.method({
  950. selector: "defaultItems",
  951. category: 'defaults',
  952. fn: function (){
  953. var self=this;
  954. return smalltalk.withContext(function($ctx1) {
  955. var $1;
  956. $1=_st(_st(_st(self)._model())._variables())._keys();
  957. return $1;
  958. }, function($ctx1) {$ctx1.fill(self,"defaultItems",{},smalltalk.HLInspectorVariablesWidget)})},
  959. args: [],
  960. source: "defaultItems\x0a\x09^ self model variables keys",
  961. messageSends: ["keys", "variables", "model"],
  962. referencedClasses: []
  963. }),
  964. smalltalk.HLInspectorVariablesWidget);
  965. smalltalk.addMethod(
  966. smalltalk.method({
  967. selector: "label",
  968. category: 'accessing',
  969. fn: function (){
  970. var self=this;
  971. return smalltalk.withContext(function($ctx1) {
  972. var $1;
  973. $1=_st(_st(_st(_st(self)._model())._inspectee())._class())._name();
  974. return $1;
  975. }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLInspectorVariablesWidget)})},
  976. args: [],
  977. source: "label\x0a\x09^ self model inspectee class name",
  978. messageSends: ["name", "class", "inspectee", "model"],
  979. referencedClasses: []
  980. }),
  981. smalltalk.HLInspectorVariablesWidget);
  982. smalltalk.addMethod(
  983. smalltalk.method({
  984. selector: "model",
  985. category: 'accessing',
  986. fn: function (){
  987. var self=this;
  988. return smalltalk.withContext(function($ctx1) {
  989. var $1;
  990. $1=self["@model"];
  991. return $1;
  992. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLInspectorVariablesWidget)})},
  993. args: [],
  994. source: "model\x0a ^ model\x0a ",
  995. messageSends: [],
  996. referencedClasses: []
  997. }),
  998. smalltalk.HLInspectorVariablesWidget);
  999. smalltalk.addMethod(
  1000. smalltalk.method({
  1001. selector: "model:",
  1002. category: 'accessing',
  1003. fn: function (aModel){
  1004. var self=this;
  1005. return smalltalk.withContext(function($ctx1) {
  1006. self["@model"]=aModel;
  1007. return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLInspectorVariablesWidget)})},
  1008. args: ["aModel"],
  1009. source: "model: aModel\x0a model := aModel\x0a ",
  1010. messageSends: [],
  1011. referencedClasses: []
  1012. }),
  1013. smalltalk.HLInspectorVariablesWidget);
  1014. smalltalk.addMethod(
  1015. smalltalk.method({
  1016. selector: "refresh",
  1017. category: 'actions',
  1018. fn: function (){
  1019. var self=this;
  1020. return smalltalk.withContext(function($ctx1) {
  1021. _st(self)._resetItems();
  1022. smalltalk.HLNavigationListWidget.fn.prototype._refresh.apply(_st(self), []);
  1023. return self}, function($ctx1) {$ctx1.fill(self,"refresh",{},smalltalk.HLInspectorVariablesWidget)})},
  1024. args: [],
  1025. source: "refresh\x0a\x09self resetItems.\x0a super refresh\x0a ",
  1026. messageSends: ["resetItems", "refresh"],
  1027. referencedClasses: []
  1028. }),
  1029. smalltalk.HLInspectorVariablesWidget);
  1030. smalltalk.addMethod(
  1031. smalltalk.method({
  1032. selector: "renderButtonsOn:",
  1033. category: 'rendering',
  1034. fn: function (html){
  1035. var self=this;
  1036. function $HLRefreshRequested(){return smalltalk.HLRefreshRequested||(typeof HLRefreshRequested=="undefined"?nil:HLRefreshRequested)}
  1037. function $HLDiveRequested(){return smalltalk.HLDiveRequested||(typeof HLDiveRequested=="undefined"?nil:HLDiveRequested)}
  1038. return smalltalk.withContext(function($ctx1) {
  1039. var $1,$2,$3,$4;
  1040. $1=_st(html)._button();
  1041. _st($1)._class_("btn");
  1042. _st($1)._with_("Refresh");
  1043. $2=_st($1)._onClick_((function(){
  1044. return smalltalk.withContext(function($ctx2) {
  1045. return _st(_st(self)._announcer())._announce_(_st($HLRefreshRequested())._new());
  1046. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  1047. $3=_st(html)._button();
  1048. _st($3)._class_("btn");
  1049. _st($3)._with_("Dive");
  1050. $4=_st($3)._onClick_((function(){
  1051. return smalltalk.withContext(function($ctx2) {
  1052. return _st(_st(self)._announcer())._announce_(_st($HLDiveRequested())._new());
  1053. }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})}));
  1054. self["@diveButton"]=$4;
  1055. return self}, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html},smalltalk.HLInspectorVariablesWidget)})},
  1056. args: ["html"],
  1057. source: "renderButtonsOn: html\x0a\x09html button\x0a\x09\x09class: 'btn';\x0a\x09\x09with: 'Refresh';\x0a\x09\x09onClick: [ self announcer announce: HLRefreshRequested new ].\x0a\x0a\x09diveButton := html button \x0a\x09\x09class: 'btn';\x0a\x09\x09with: 'Dive'; \x0a\x09\x09onClick: [ self announcer announce: HLDiveRequested new ]",
  1058. messageSends: ["class:", "button", "with:", "onClick:", "announce:", "new", "announcer"],
  1059. referencedClasses: ["HLRefreshRequested", "HLDiveRequested"]
  1060. }),
  1061. smalltalk.HLInspectorVariablesWidget);
  1062. smalltalk.addMethod(
  1063. smalltalk.method({
  1064. selector: "renderContentOn:",
  1065. category: 'rendering',
  1066. fn: function (html){
  1067. var self=this;
  1068. return smalltalk.withContext(function($ctx1) {
  1069. _st(self)._renderHeadOn_(html);
  1070. smalltalk.HLNavigationListWidget.fn.prototype._renderContentOn_.apply(_st(self), [html]);
  1071. return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLInspectorVariablesWidget)})},
  1072. args: ["html"],
  1073. source: "renderContentOn: html\x0a\x09self renderHeadOn: html.\x0a\x09super renderContentOn: html",
  1074. messageSends: ["renderHeadOn:", "renderContentOn:"],
  1075. referencedClasses: []
  1076. }),
  1077. smalltalk.HLInspectorVariablesWidget);
  1078. smalltalk.addMethod(
  1079. smalltalk.method({
  1080. selector: "renderHeadOn:",
  1081. category: 'rendering',
  1082. fn: function (html){
  1083. var self=this;
  1084. return smalltalk.withContext(function($ctx1) {
  1085. var $1,$2;
  1086. $1=_st(html)._div();
  1087. _st($1)._class_("list-label");
  1088. $2=_st($1)._with_(_st(self)._label());
  1089. return self}, function($ctx1) {$ctx1.fill(self,"renderHeadOn:",{html:html},smalltalk.HLInspectorVariablesWidget)})},
  1090. args: ["html"],
  1091. source: "renderHeadOn: html\x0a\x09html div \x0a\x09\x09class: 'list-label';\x0a\x09\x09with: self label",
  1092. messageSends: ["class:", "div", "with:", "label"],
  1093. referencedClasses: []
  1094. }),
  1095. smalltalk.HLInspectorVariablesWidget);
  1096. smalltalk.addMethod(
  1097. smalltalk.method({
  1098. selector: "resetItems",
  1099. category: 'actions',
  1100. fn: function (){
  1101. var self=this;
  1102. return smalltalk.withContext(function($ctx1) {
  1103. self["@items"]=nil;
  1104. return self}, function($ctx1) {$ctx1.fill(self,"resetItems",{},smalltalk.HLInspectorVariablesWidget)})},
  1105. args: [],
  1106. source: "resetItems\x0a\x09items := nil",
  1107. messageSends: [],
  1108. referencedClasses: []
  1109. }),
  1110. smalltalk.HLInspectorVariablesWidget);
  1111. smalltalk.addMethod(
  1112. smalltalk.method({
  1113. selector: "selectItem:",
  1114. category: 'reactions',
  1115. fn: function (anObject){
  1116. var self=this;
  1117. return smalltalk.withContext(function($ctx1) {
  1118. smalltalk.HLNavigationListWidget.fn.prototype._selectItem_.apply(_st(self), [anObject]);
  1119. _st(_st(self)._model())._selectedInstVar_(anObject);
  1120. return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{anObject:anObject},smalltalk.HLInspectorVariablesWidget)})},
  1121. args: ["anObject"],
  1122. source: "selectItem: anObject\x0a\x09super selectItem: anObject.\x0a self model selectedInstVar: anObject",
  1123. messageSends: ["selectItem:", "selectedInstVar:", "model"],
  1124. referencedClasses: []
  1125. }),
  1126. smalltalk.HLInspectorVariablesWidget);
  1127. smalltalk.addMethod(
  1128. smalltalk.method({
  1129. selector: "selection",
  1130. category: 'accessing',
  1131. fn: function (){
  1132. var self=this;
  1133. return smalltalk.withContext(function($ctx1) {
  1134. var $1;
  1135. $1=_st(self["@model"])._selection();
  1136. return $1;
  1137. }, function($ctx1) {$ctx1.fill(self,"selection",{},smalltalk.HLInspectorVariablesWidget)})},
  1138. args: [],
  1139. source: "selection\x0a\x09^ model selection",
  1140. messageSends: ["selection"],
  1141. referencedClasses: []
  1142. }),
  1143. smalltalk.HLInspectorVariablesWidget);
  1144. smalltalk.addMethod(
  1145. smalltalk.method({
  1146. selector: "variables",
  1147. category: 'accessing',
  1148. fn: function (){
  1149. var self=this;
  1150. return smalltalk.withContext(function($ctx1) {
  1151. var $1;
  1152. $1=_st(self["@model"])._variables();
  1153. return $1;
  1154. }, function($ctx1) {$ctx1.fill(self,"variables",{},smalltalk.HLInspectorVariablesWidget)})},
  1155. args: [],
  1156. source: "variables\x0a\x09^ model variables",
  1157. messageSends: ["variables"],
  1158. referencedClasses: []
  1159. }),
  1160. smalltalk.HLInspectorVariablesWidget);