2
0

Helios-Inspector.js 40 KB

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