Helios-Inspector.js 45 KB

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