Helios-Inspector.js 60 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065
  1. define(["amber/boot", "require", "helios/Helios-Core"], function($boot,requirejs){"use strict";
  2. var $core=$boot.api,nil=$boot.nilAsValue,$nil=$boot.nilAsReceiver,$recv=$boot.asReceiver,$globals=$boot.globals;
  3. var $pkg = $core.addPackage("Helios-Inspector");
  4. $pkg.innerEval = function (expr) { return eval(expr); };
  5. $pkg.transport = {"type":"amd","amdNamespace":"helios"};
  6. $core.addClass("HLInspectorDisplayWidget", $globals.HLNavigationListWidget, ["inspector"], "Helios-Inspector");
  7. $core.addMethod(
  8. $core.method({
  9. selector: "inspector",
  10. protocol: "accessing",
  11. fn: function (){
  12. var self=this,$self=this;
  13. return $self.inspector;
  14. },
  15. //>>excludeStart("ide", pragmas.excludeIdeData);
  16. args: [],
  17. source: "inspector\x0a\x09^ inspector",
  18. referencedClasses: [],
  19. //>>excludeEnd("ide");
  20. pragmas: [],
  21. messageSends: []
  22. }),
  23. $globals.HLInspectorDisplayWidget);
  24. $core.addMethod(
  25. $core.method({
  26. selector: "inspector:",
  27. protocol: "accessing",
  28. fn: function (anInspector){
  29. var self=this,$self=this;
  30. $self.inspector=anInspector;
  31. return self;
  32. },
  33. //>>excludeStart("ide", pragmas.excludeIdeData);
  34. args: ["anInspector"],
  35. source: "inspector: anInspector\x0a\x09inspector := anInspector",
  36. referencedClasses: [],
  37. //>>excludeEnd("ide");
  38. pragmas: [],
  39. messageSends: []
  40. }),
  41. $globals.HLInspectorDisplayWidget);
  42. $core.addMethod(
  43. $core.method({
  44. selector: "model",
  45. protocol: "accessing",
  46. fn: function (){
  47. var self=this,$self=this;
  48. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  49. return $core.withContext(function($ctx1) {
  50. //>>excludeEnd("ctx");
  51. return $recv($self._inspector())._model();
  52. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  53. }, function($ctx1) {$ctx1.fill(self,"model",{})});
  54. //>>excludeEnd("ctx");
  55. },
  56. //>>excludeStart("ide", pragmas.excludeIdeData);
  57. args: [],
  58. source: "model\x0a\x0a\x09^ self inspector model",
  59. referencedClasses: [],
  60. //>>excludeEnd("ide");
  61. pragmas: [],
  62. messageSends: ["model", "inspector"]
  63. }),
  64. $globals.HLInspectorDisplayWidget);
  65. $core.addMethod(
  66. $core.method({
  67. selector: "renderContentOn:",
  68. protocol: "rendering",
  69. fn: function (html){
  70. var self=this,$self=this;
  71. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  72. return $core.withContext(function($ctx1) {
  73. //>>excludeEnd("ctx");
  74. $recv($recv(html)._div())._with_($self._selectionDisplayString());
  75. return self;
  76. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  77. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html})});
  78. //>>excludeEnd("ctx");
  79. },
  80. //>>excludeStart("ide", pragmas.excludeIdeData);
  81. args: ["html"],
  82. source: "renderContentOn: html\x0a\x09\x0a html div with: self selectionDisplayString",
  83. referencedClasses: [],
  84. //>>excludeEnd("ide");
  85. pragmas: [],
  86. messageSends: ["with:", "div", "selectionDisplayString"]
  87. }),
  88. $globals.HLInspectorDisplayWidget);
  89. $core.addMethod(
  90. $core.method({
  91. selector: "selectionDisplayString",
  92. protocol: "rendering",
  93. fn: function (){
  94. var self=this,$self=this;
  95. var selection;
  96. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  97. return $core.withContext(function($ctx1) {
  98. //>>excludeEnd("ctx");
  99. var $1,$4,$3,$2;
  100. $1=$self._model();
  101. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  102. $ctx1.sendIdx["model"]=1;
  103. //>>excludeEnd("ctx");
  104. selection=$recv($1)._selection();
  105. $4=$self._model();
  106. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  107. $ctx1.sendIdx["model"]=2;
  108. //>>excludeEnd("ctx");
  109. $3=$recv($4)._variables();
  110. $2=$recv($3)._includesKey_(selection);
  111. if($core.assert($2)){
  112. return $recv($recv($self._model())._instVarObjectAt_(selection))._printString();
  113. } else {
  114. return "";
  115. }
  116. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  117. }, function($ctx1) {$ctx1.fill(self,"selectionDisplayString",{selection:selection})});
  118. //>>excludeEnd("ctx");
  119. },
  120. //>>excludeStart("ide", pragmas.excludeIdeData);
  121. args: [],
  122. source: "selectionDisplayString\x0a\x09|selection|\x0a\x09selection := self model selection.\x0a ^ (self model variables includesKey: selection)\x0a \x09ifTrue:[ (self model instVarObjectAt: selection) printString ]\x0a \x09ifFalse:[ '' ]",
  123. referencedClasses: [],
  124. //>>excludeEnd("ide");
  125. pragmas: [],
  126. messageSends: ["selection", "model", "ifTrue:ifFalse:", "includesKey:", "variables", "printString", "instVarObjectAt:"]
  127. }),
  128. $globals.HLInspectorDisplayWidget);
  129. $core.addClass("HLInspectorModel", $globals.HLModel, ["inspectee", "code", "variables", "label", "selection"], "Helios-Inspector");
  130. //>>excludeStart("ide", pragmas.excludeIdeData);
  131. $globals.HLInspectorModel.comment="I am the model of the Helios inspector `HLInspectorWidget`.\x0a\x0a## API\x0a\x0aUse the method `inspect:on:` to inspect an object on an inspector.";
  132. //>>excludeEnd("ide");
  133. $core.addMethod(
  134. $core.method({
  135. selector: "code",
  136. protocol: "accessing",
  137. fn: function (){
  138. var self=this,$self=this;
  139. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  140. return $core.withContext(function($ctx1) {
  141. //>>excludeEnd("ctx");
  142. var $1,$receiver;
  143. $1=$self.code;
  144. if(($receiver = $1) == null || $receiver.a$nil){
  145. $self.code=$recv($globals.HLCodeModel)._on_($self._environment());
  146. return $self.code;
  147. } else {
  148. return $1;
  149. }
  150. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  151. }, function($ctx1) {$ctx1.fill(self,"code",{})});
  152. //>>excludeEnd("ctx");
  153. },
  154. //>>excludeStart("ide", pragmas.excludeIdeData);
  155. args: [],
  156. source: "code\x0a\x09\x22Answers the code model working for this workspace model\x22\x0a\x09^ code ifNil:[ code := HLCodeModel on: self environment ]",
  157. referencedClasses: ["HLCodeModel"],
  158. //>>excludeEnd("ide");
  159. pragmas: [],
  160. messageSends: ["ifNil:", "on:", "environment"]
  161. }),
  162. $globals.HLInspectorModel);
  163. $core.addMethod(
  164. $core.method({
  165. selector: "inspect:on:",
  166. protocol: "actions",
  167. fn: function (anObject,anInspector){
  168. var self=this,$self=this;
  169. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  170. return $core.withContext(function($ctx1) {
  171. //>>excludeEnd("ctx");
  172. $self.inspectee=anObject;
  173. $self.variables=[];
  174. $recv($self.inspectee)._inspectOn_(anInspector);
  175. return self;
  176. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  177. }, function($ctx1) {$ctx1.fill(self,"inspect:on:",{anObject:anObject,anInspector:anInspector})});
  178. //>>excludeEnd("ctx");
  179. },
  180. //>>excludeStart("ide", pragmas.excludeIdeData);
  181. args: ["anObject", "anInspector"],
  182. source: "inspect: anObject on: anInspector\x0a\x09inspectee := anObject.\x0a\x09variables := #().\x0a\x09inspectee inspectOn: anInspector",
  183. referencedClasses: [],
  184. //>>excludeEnd("ide");
  185. pragmas: [],
  186. messageSends: ["inspectOn:"]
  187. }),
  188. $globals.HLInspectorModel);
  189. $core.addMethod(
  190. $core.method({
  191. selector: "inspectee",
  192. protocol: "accessing",
  193. fn: function (){
  194. var self=this,$self=this;
  195. return $self.inspectee;
  196. },
  197. //>>excludeStart("ide", pragmas.excludeIdeData);
  198. args: [],
  199. source: "inspectee \x0a\x09^ inspectee",
  200. referencedClasses: [],
  201. //>>excludeEnd("ide");
  202. pragmas: [],
  203. messageSends: []
  204. }),
  205. $globals.HLInspectorModel);
  206. $core.addMethod(
  207. $core.method({
  208. selector: "inspectee:",
  209. protocol: "accessing",
  210. fn: function (anObject){
  211. var self=this,$self=this;
  212. $self.inspectee=anObject;
  213. return self;
  214. },
  215. //>>excludeStart("ide", pragmas.excludeIdeData);
  216. args: ["anObject"],
  217. source: "inspectee: anObject \x0a\x09inspectee := anObject",
  218. referencedClasses: [],
  219. //>>excludeEnd("ide");
  220. pragmas: [],
  221. messageSends: []
  222. }),
  223. $globals.HLInspectorModel);
  224. $core.addMethod(
  225. $core.method({
  226. selector: "instVarObjectAt:",
  227. protocol: "actions",
  228. fn: function (anInstVarName){
  229. var self=this,$self=this;
  230. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  231. return $core.withContext(function($ctx1) {
  232. //>>excludeEnd("ctx");
  233. return $recv($self._variables())._at_(anInstVarName);
  234. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  235. }, function($ctx1) {$ctx1.fill(self,"instVarObjectAt:",{anInstVarName:anInstVarName})});
  236. //>>excludeEnd("ctx");
  237. },
  238. //>>excludeStart("ide", pragmas.excludeIdeData);
  239. args: ["anInstVarName"],
  240. source: "instVarObjectAt: anInstVarName\x0a\x09^ self variables at: anInstVarName",
  241. referencedClasses: [],
  242. //>>excludeEnd("ide");
  243. pragmas: [],
  244. messageSends: ["at:", "variables"]
  245. }),
  246. $globals.HLInspectorModel);
  247. $core.addMethod(
  248. $core.method({
  249. selector: "label",
  250. protocol: "accessing",
  251. fn: function (){
  252. var self=this,$self=this;
  253. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  254. return $core.withContext(function($ctx1) {
  255. //>>excludeEnd("ctx");
  256. var $1,$receiver;
  257. $1=$self.label;
  258. if(($receiver = $1) == null || $receiver.a$nil){
  259. return $recv($self._inspectee())._printString();
  260. } else {
  261. return $1;
  262. }
  263. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  264. }, function($ctx1) {$ctx1.fill(self,"label",{})});
  265. //>>excludeEnd("ctx");
  266. },
  267. //>>excludeStart("ide", pragmas.excludeIdeData);
  268. args: [],
  269. source: "label\x0a ^ label ifNil: [ self inspectee printString ]",
  270. referencedClasses: [],
  271. //>>excludeEnd("ide");
  272. pragmas: [],
  273. messageSends: ["ifNil:", "printString", "inspectee"]
  274. }),
  275. $globals.HLInspectorModel);
  276. $core.addMethod(
  277. $core.method({
  278. selector: "label:",
  279. protocol: "accessing",
  280. fn: function (aString){
  281. var self=this,$self=this;
  282. $self.label=aString;
  283. return self;
  284. },
  285. //>>excludeStart("ide", pragmas.excludeIdeData);
  286. args: ["aString"],
  287. source: "label: aString\x0a label := aString",
  288. referencedClasses: [],
  289. //>>excludeEnd("ide");
  290. pragmas: [],
  291. messageSends: []
  292. }),
  293. $globals.HLInspectorModel);
  294. $core.addMethod(
  295. $core.method({
  296. selector: "selectedInstVar:",
  297. protocol: "actions",
  298. fn: function (anInstVarName){
  299. var self=this,$self=this;
  300. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  301. return $core.withContext(function($ctx1) {
  302. //>>excludeEnd("ctx");
  303. $self._selection_(anInstVarName);
  304. return self;
  305. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  306. }, function($ctx1) {$ctx1.fill(self,"selectedInstVar:",{anInstVarName:anInstVarName})});
  307. //>>excludeEnd("ctx");
  308. },
  309. //>>excludeStart("ide", pragmas.excludeIdeData);
  310. args: ["anInstVarName"],
  311. source: "selectedInstVar: anInstVarName\x0a self selection: anInstVarName",
  312. referencedClasses: [],
  313. //>>excludeEnd("ide");
  314. pragmas: [],
  315. messageSends: ["selection:"]
  316. }),
  317. $globals.HLInspectorModel);
  318. $core.addMethod(
  319. $core.method({
  320. selector: "selectedInstVarObject",
  321. protocol: "accessing",
  322. fn: function (){
  323. var self=this,$self=this;
  324. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  325. return $core.withContext(function($ctx1) {
  326. //>>excludeEnd("ctx");
  327. return $self._instVarObjectAt_($self._selection());
  328. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  329. }, function($ctx1) {$ctx1.fill(self,"selectedInstVarObject",{})});
  330. //>>excludeEnd("ctx");
  331. },
  332. //>>excludeStart("ide", pragmas.excludeIdeData);
  333. args: [],
  334. source: "selectedInstVarObject\x0a\x09^ self instVarObjectAt: self selection",
  335. referencedClasses: [],
  336. //>>excludeEnd("ide");
  337. pragmas: [],
  338. messageSends: ["instVarObjectAt:", "selection"]
  339. }),
  340. $globals.HLInspectorModel);
  341. $core.addMethod(
  342. $core.method({
  343. selector: "selection",
  344. protocol: "accessing",
  345. fn: function (){
  346. var self=this,$self=this;
  347. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  348. return $core.withContext(function($ctx1) {
  349. //>>excludeEnd("ctx");
  350. var $1,$receiver;
  351. $1=$self.selection;
  352. if(($receiver = $1) == null || $receiver.a$nil){
  353. return "";
  354. } else {
  355. return $1;
  356. }
  357. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  358. }, function($ctx1) {$ctx1.fill(self,"selection",{})});
  359. //>>excludeEnd("ctx");
  360. },
  361. //>>excludeStart("ide", pragmas.excludeIdeData);
  362. args: [],
  363. source: "selection\x0a\x09^ selection ifNil:[ '' ]",
  364. referencedClasses: [],
  365. //>>excludeEnd("ide");
  366. pragmas: [],
  367. messageSends: ["ifNil:"]
  368. }),
  369. $globals.HLInspectorModel);
  370. $core.addMethod(
  371. $core.method({
  372. selector: "selection:",
  373. protocol: "accessing",
  374. fn: function (anObject){
  375. var self=this,$self=this;
  376. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  377. return $core.withContext(function($ctx1) {
  378. //>>excludeEnd("ctx");
  379. $self.selection=anObject;
  380. $recv($self._announcer())._announce_($recv($globals.HLInstanceVariableSelected)._on_($self.selection));
  381. return self;
  382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  383. }, function($ctx1) {$ctx1.fill(self,"selection:",{anObject:anObject})});
  384. //>>excludeEnd("ctx");
  385. },
  386. //>>excludeStart("ide", pragmas.excludeIdeData);
  387. args: ["anObject"],
  388. source: "selection: anObject\x0a\x09selection := anObject.\x0a\x0a\x09self announcer announce: (HLInstanceVariableSelected on: selection)",
  389. referencedClasses: ["HLInstanceVariableSelected"],
  390. //>>excludeEnd("ide");
  391. pragmas: [],
  392. messageSends: ["announce:", "announcer", "on:"]
  393. }),
  394. $globals.HLInspectorModel);
  395. $core.addMethod(
  396. $core.method({
  397. selector: "subscribe:",
  398. protocol: "actions",
  399. fn: function (aWidget){
  400. var self=this,$self=this;
  401. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  402. return $core.withContext(function($ctx1) {
  403. //>>excludeEnd("ctx");
  404. $recv(aWidget)._subscribeTo_($self._announcer());
  405. return self;
  406. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  407. }, function($ctx1) {$ctx1.fill(self,"subscribe:",{aWidget:aWidget})});
  408. //>>excludeEnd("ctx");
  409. },
  410. //>>excludeStart("ide", pragmas.excludeIdeData);
  411. args: ["aWidget"],
  412. source: "subscribe: aWidget\x0a\x09aWidget subscribeTo: self announcer",
  413. referencedClasses: [],
  414. //>>excludeEnd("ide");
  415. pragmas: [],
  416. messageSends: ["subscribeTo:", "announcer"]
  417. }),
  418. $globals.HLInspectorModel);
  419. $core.addMethod(
  420. $core.method({
  421. selector: "variables",
  422. protocol: "accessing",
  423. fn: function (){
  424. var self=this,$self=this;
  425. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  426. return $core.withContext(function($ctx1) {
  427. //>>excludeEnd("ctx");
  428. var $1,$receiver;
  429. $1=$self.variables;
  430. if(($receiver = $1) == null || $receiver.a$nil){
  431. return $recv($globals.Dictionary)._new();
  432. } else {
  433. return $1;
  434. }
  435. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  436. }, function($ctx1) {$ctx1.fill(self,"variables",{})});
  437. //>>excludeEnd("ctx");
  438. },
  439. //>>excludeStart("ide", pragmas.excludeIdeData);
  440. args: [],
  441. source: "variables\x0a\x09^ variables ifNil: [ Dictionary new ]",
  442. referencedClasses: ["Dictionary"],
  443. //>>excludeEnd("ide");
  444. pragmas: [],
  445. messageSends: ["ifNil:", "new"]
  446. }),
  447. $globals.HLInspectorModel);
  448. $core.addMethod(
  449. $core.method({
  450. selector: "variables:",
  451. protocol: "accessing",
  452. fn: function (aCollection){
  453. var self=this,$self=this;
  454. $self.variables=aCollection;
  455. return self;
  456. },
  457. //>>excludeStart("ide", pragmas.excludeIdeData);
  458. args: ["aCollection"],
  459. source: "variables: aCollection\x0a\x09variables := aCollection",
  460. referencedClasses: [],
  461. //>>excludeEnd("ide");
  462. pragmas: [],
  463. messageSends: []
  464. }),
  465. $globals.HLInspectorModel);
  466. $core.addMethod(
  467. $core.method({
  468. selector: "on:",
  469. protocol: "actions",
  470. fn: function (anEnvironment){
  471. var self=this,$self=this;
  472. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  473. return $core.withContext(function($ctx1) {
  474. //>>excludeEnd("ctx");
  475. var $1;
  476. $1=$self._new();
  477. $recv($1)._environment_(anEnvironment);
  478. return $recv($1)._yourself();
  479. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  480. }, function($ctx1) {$ctx1.fill(self,"on:",{anEnvironment:anEnvironment})});
  481. //>>excludeEnd("ctx");
  482. },
  483. //>>excludeStart("ide", pragmas.excludeIdeData);
  484. args: ["anEnvironment"],
  485. source: "on: anEnvironment\x0a\x0a\x09^ self new\x0a \x09environment: anEnvironment;\x0a yourself",
  486. referencedClasses: [],
  487. //>>excludeEnd("ide");
  488. pragmas: [],
  489. messageSends: ["environment:", "new", "yourself"]
  490. }),
  491. $globals.HLInspectorModel.a$cls);
  492. $core.addClass("HLInspectorVariablesWidget", $globals.HLNavigationListWidget, ["announcer", "inspector", "list", "diveButton"], "Helios-Inspector");
  493. $core.addMethod(
  494. $core.method({
  495. selector: "announcer",
  496. protocol: "accessing",
  497. fn: function (){
  498. var self=this,$self=this;
  499. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  500. return $core.withContext(function($ctx1) {
  501. //>>excludeEnd("ctx");
  502. var $1,$receiver;
  503. $1=$self.announcer;
  504. if(($receiver = $1) == null || $receiver.a$nil){
  505. $self.announcer=$recv($globals.Announcer)._new();
  506. return $self.announcer;
  507. } else {
  508. return $1;
  509. }
  510. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  511. }, function($ctx1) {$ctx1.fill(self,"announcer",{})});
  512. //>>excludeEnd("ctx");
  513. },
  514. //>>excludeStart("ide", pragmas.excludeIdeData);
  515. args: [],
  516. source: "announcer\x0a\x09^ announcer ifNil:[ announcer := Announcer new ]",
  517. referencedClasses: ["Announcer"],
  518. //>>excludeEnd("ide");
  519. pragmas: [],
  520. messageSends: ["ifNil:", "new"]
  521. }),
  522. $globals.HLInspectorVariablesWidget);
  523. $core.addMethod(
  524. $core.method({
  525. selector: "defaultItems",
  526. protocol: "defaults",
  527. fn: function (){
  528. var self=this,$self=this;
  529. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  530. return $core.withContext(function($ctx1) {
  531. //>>excludeEnd("ctx");
  532. return $self._variables();
  533. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  534. }, function($ctx1) {$ctx1.fill(self,"defaultItems",{})});
  535. //>>excludeEnd("ctx");
  536. },
  537. //>>excludeStart("ide", pragmas.excludeIdeData);
  538. args: [],
  539. source: "defaultItems\x0a\x09^ self variables",
  540. referencedClasses: [],
  541. //>>excludeEnd("ide");
  542. pragmas: [],
  543. messageSends: ["variables"]
  544. }),
  545. $globals.HLInspectorVariablesWidget);
  546. $core.addMethod(
  547. $core.method({
  548. selector: "dive",
  549. protocol: "actions",
  550. fn: function (){
  551. var self=this,$self=this;
  552. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  553. return $core.withContext(function($ctx1) {
  554. //>>excludeEnd("ctx");
  555. $recv($self._announcer())._announce_($recv($globals.HLDiveRequested)._new());
  556. return self;
  557. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  558. }, function($ctx1) {$ctx1.fill(self,"dive",{})});
  559. //>>excludeEnd("ctx");
  560. },
  561. //>>excludeStart("ide", pragmas.excludeIdeData);
  562. args: [],
  563. source: "dive\x0a\x09self announcer announce: HLDiveRequested new",
  564. referencedClasses: ["HLDiveRequested"],
  565. //>>excludeEnd("ide");
  566. pragmas: [],
  567. messageSends: ["announce:", "announcer", "new"]
  568. }),
  569. $globals.HLInspectorVariablesWidget);
  570. $core.addMethod(
  571. $core.method({
  572. selector: "inspector",
  573. protocol: "accessing",
  574. fn: function (){
  575. var self=this,$self=this;
  576. return $self.inspector;
  577. },
  578. //>>excludeStart("ide", pragmas.excludeIdeData);
  579. args: [],
  580. source: "inspector\x0a\x09^ inspector",
  581. referencedClasses: [],
  582. //>>excludeEnd("ide");
  583. pragmas: [],
  584. messageSends: []
  585. }),
  586. $globals.HLInspectorVariablesWidget);
  587. $core.addMethod(
  588. $core.method({
  589. selector: "inspector:",
  590. protocol: "accessing",
  591. fn: function (anInspector){
  592. var self=this,$self=this;
  593. $self.inspector=anInspector;
  594. return self;
  595. },
  596. //>>excludeStart("ide", pragmas.excludeIdeData);
  597. args: ["anInspector"],
  598. source: "inspector: anInspector\x0a\x09inspector := anInspector",
  599. referencedClasses: [],
  600. //>>excludeEnd("ide");
  601. pragmas: [],
  602. messageSends: []
  603. }),
  604. $globals.HLInspectorVariablesWidget);
  605. $core.addMethod(
  606. $core.method({
  607. selector: "label",
  608. protocol: "accessing",
  609. fn: function (){
  610. var self=this,$self=this;
  611. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  612. return $core.withContext(function($ctx1) {
  613. //>>excludeEnd("ctx");
  614. return $recv($self._model())._label();
  615. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  616. }, function($ctx1) {$ctx1.fill(self,"label",{})});
  617. //>>excludeEnd("ctx");
  618. },
  619. //>>excludeStart("ide", pragmas.excludeIdeData);
  620. args: [],
  621. source: "label\x0a\x09^ self model label",
  622. referencedClasses: [],
  623. //>>excludeEnd("ide");
  624. pragmas: [],
  625. messageSends: ["label", "model"]
  626. }),
  627. $globals.HLInspectorVariablesWidget);
  628. $core.addMethod(
  629. $core.method({
  630. selector: "model",
  631. protocol: "accessing",
  632. fn: function (){
  633. var self=this,$self=this;
  634. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  635. return $core.withContext(function($ctx1) {
  636. //>>excludeEnd("ctx");
  637. return $recv($self._inspector())._model();
  638. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  639. }, function($ctx1) {$ctx1.fill(self,"model",{})});
  640. //>>excludeEnd("ctx");
  641. },
  642. //>>excludeStart("ide", pragmas.excludeIdeData);
  643. args: [],
  644. source: "model\x0a ^ self inspector model",
  645. referencedClasses: [],
  646. //>>excludeEnd("ide");
  647. pragmas: [],
  648. messageSends: ["model", "inspector"]
  649. }),
  650. $globals.HLInspectorVariablesWidget);
  651. $core.addMethod(
  652. $core.method({
  653. selector: "refresh",
  654. protocol: "actions",
  655. fn: function (){
  656. var self=this,$self=this;
  657. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  658. return $core.withContext(function($ctx1) {
  659. //>>excludeEnd("ctx");
  660. var $1;
  661. $1=$recv($self._variables()).__eq($self._items());
  662. if(!$core.assert($1)){
  663. $self._resetItems();
  664. (
  665. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  666. $ctx1.supercall = true,
  667. //>>excludeEnd("ctx");
  668. ($globals.HLInspectorVariablesWidget.superclass||$boot.nilAsClass).fn.prototype._refresh.apply($self, []));
  669. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  670. $ctx1.supercall = false;
  671. //>>excludeEnd("ctx");;
  672. }
  673. return self;
  674. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  675. }, function($ctx1) {$ctx1.fill(self,"refresh",{})});
  676. //>>excludeEnd("ctx");
  677. },
  678. //>>excludeStart("ide", pragmas.excludeIdeData);
  679. args: [],
  680. source: "refresh\x0a\x09self variables = self items ifFalse: [\x0a\x09\x09self resetItems.\x0a \x09super refresh ]",
  681. referencedClasses: [],
  682. //>>excludeEnd("ide");
  683. pragmas: [],
  684. messageSends: ["ifFalse:", "=", "variables", "items", "resetItems", "refresh"]
  685. }),
  686. $globals.HLInspectorVariablesWidget);
  687. $core.addMethod(
  688. $core.method({
  689. selector: "renderButtonsOn:",
  690. protocol: "rendering",
  691. fn: function (html){
  692. var self=this,$self=this;
  693. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  694. return $core.withContext(function($ctx1) {
  695. //>>excludeEnd("ctx");
  696. var $1;
  697. $1=$recv(html)._button();
  698. $recv($1)._class_("btn btn-default");
  699. $recv($1)._with_("Dive");
  700. $self.diveButton=$recv($1)._onClick_((function(){
  701. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  702. return $core.withContext(function($ctx2) {
  703. //>>excludeEnd("ctx");
  704. return $self._dive();
  705. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  706. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  707. //>>excludeEnd("ctx");
  708. }));
  709. return self;
  710. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  711. }, function($ctx1) {$ctx1.fill(self,"renderButtonsOn:",{html:html})});
  712. //>>excludeEnd("ctx");
  713. },
  714. //>>excludeStart("ide", pragmas.excludeIdeData);
  715. args: ["html"],
  716. source: "renderButtonsOn: html\x0a\x09diveButton := html button \x0a\x09\x09class: 'btn btn-default';\x0a\x09\x09with: 'Dive'; \x0a\x09\x09onClick: [ self dive ]",
  717. referencedClasses: [],
  718. //>>excludeEnd("ide");
  719. pragmas: [],
  720. messageSends: ["class:", "button", "with:", "onClick:", "dive"]
  721. }),
  722. $globals.HLInspectorVariablesWidget);
  723. $core.addMethod(
  724. $core.method({
  725. selector: "renderContentOn:",
  726. protocol: "rendering",
  727. fn: function (html){
  728. var self=this,$self=this;
  729. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  730. return $core.withContext(function($ctx1) {
  731. //>>excludeEnd("ctx");
  732. $self._renderHeadOn_(html);
  733. (
  734. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  735. $ctx1.supercall = true,
  736. //>>excludeEnd("ctx");
  737. ($globals.HLInspectorVariablesWidget.superclass||$boot.nilAsClass).fn.prototype._renderContentOn_.apply($self, [html]));
  738. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  739. $ctx1.supercall = false;
  740. //>>excludeEnd("ctx");;
  741. $recv($self._wrapper())._onDblClick_((function(){
  742. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  743. return $core.withContext(function($ctx2) {
  744. //>>excludeEnd("ctx");
  745. return $self._dive();
  746. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  747. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  748. //>>excludeEnd("ctx");
  749. }));
  750. return self;
  751. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  752. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html})});
  753. //>>excludeEnd("ctx");
  754. },
  755. //>>excludeStart("ide", pragmas.excludeIdeData);
  756. args: ["html"],
  757. source: "renderContentOn: html\x0a\x09self renderHeadOn: html.\x0a\x09super renderContentOn: html.\x0a\x09self wrapper onDblClick: [ self dive ]",
  758. referencedClasses: [],
  759. //>>excludeEnd("ide");
  760. pragmas: [],
  761. messageSends: ["renderHeadOn:", "renderContentOn:", "onDblClick:", "wrapper", "dive"]
  762. }),
  763. $globals.HLInspectorVariablesWidget);
  764. $core.addMethod(
  765. $core.method({
  766. selector: "renderHeadOn:",
  767. protocol: "rendering",
  768. fn: function (html){
  769. var self=this,$self=this;
  770. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  771. return $core.withContext(function($ctx1) {
  772. //>>excludeEnd("ctx");
  773. var $1;
  774. $1=$recv(html)._div();
  775. $recv($1)._class_("list-label");
  776. $recv($1)._with_($self._label());
  777. return self;
  778. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  779. }, function($ctx1) {$ctx1.fill(self,"renderHeadOn:",{html:html})});
  780. //>>excludeEnd("ctx");
  781. },
  782. //>>excludeStart("ide", pragmas.excludeIdeData);
  783. args: ["html"],
  784. source: "renderHeadOn: html\x0a\x09html div \x0a\x09\x09class: 'list-label';\x0a\x09\x09with: self label",
  785. referencedClasses: [],
  786. //>>excludeEnd("ide");
  787. pragmas: [],
  788. messageSends: ["class:", "div", "with:", "label"]
  789. }),
  790. $globals.HLInspectorVariablesWidget);
  791. $core.addMethod(
  792. $core.method({
  793. selector: "resetItems",
  794. protocol: "actions",
  795. fn: function (){
  796. var self=this,$self=this;
  797. $self.items=nil;
  798. return self;
  799. },
  800. //>>excludeStart("ide", pragmas.excludeIdeData);
  801. args: [],
  802. source: "resetItems\x0a\x09items := nil",
  803. referencedClasses: [],
  804. //>>excludeEnd("ide");
  805. pragmas: [],
  806. messageSends: []
  807. }),
  808. $globals.HLInspectorVariablesWidget);
  809. $core.addMethod(
  810. $core.method({
  811. selector: "selectItem:",
  812. protocol: "reactions",
  813. fn: function (anObject){
  814. var self=this,$self=this;
  815. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  816. return $core.withContext(function($ctx1) {
  817. //>>excludeEnd("ctx");
  818. (
  819. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  820. $ctx1.supercall = true,
  821. //>>excludeEnd("ctx");
  822. ($globals.HLInspectorVariablesWidget.superclass||$boot.nilAsClass).fn.prototype._selectItem_.apply($self, [anObject]));
  823. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  824. $ctx1.supercall = false;
  825. //>>excludeEnd("ctx");;
  826. $recv($self._model())._selectedInstVar_(anObject);
  827. return self;
  828. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  829. }, function($ctx1) {$ctx1.fill(self,"selectItem:",{anObject:anObject})});
  830. //>>excludeEnd("ctx");
  831. },
  832. //>>excludeStart("ide", pragmas.excludeIdeData);
  833. args: ["anObject"],
  834. source: "selectItem: anObject\x0a\x09super selectItem: anObject.\x0a self model selectedInstVar: anObject",
  835. referencedClasses: [],
  836. //>>excludeEnd("ide");
  837. pragmas: [],
  838. messageSends: ["selectItem:", "selectedInstVar:", "model"]
  839. }),
  840. $globals.HLInspectorVariablesWidget);
  841. $core.addMethod(
  842. $core.method({
  843. selector: "selection",
  844. protocol: "accessing",
  845. fn: function (){
  846. var self=this,$self=this;
  847. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  848. return $core.withContext(function($ctx1) {
  849. //>>excludeEnd("ctx");
  850. return $recv($self._model())._selection();
  851. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  852. }, function($ctx1) {$ctx1.fill(self,"selection",{})});
  853. //>>excludeEnd("ctx");
  854. },
  855. //>>excludeStart("ide", pragmas.excludeIdeData);
  856. args: [],
  857. source: "selection\x0a\x09^ self model selection",
  858. referencedClasses: [],
  859. //>>excludeEnd("ide");
  860. pragmas: [],
  861. messageSends: ["selection", "model"]
  862. }),
  863. $globals.HLInspectorVariablesWidget);
  864. $core.addMethod(
  865. $core.method({
  866. selector: "variables",
  867. protocol: "accessing",
  868. fn: function (){
  869. var self=this,$self=this;
  870. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  871. return $core.withContext(function($ctx1) {
  872. //>>excludeEnd("ctx");
  873. return $recv($recv($self._model())._variables())._keys();
  874. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  875. }, function($ctx1) {$ctx1.fill(self,"variables",{})});
  876. //>>excludeEnd("ctx");
  877. },
  878. //>>excludeStart("ide", pragmas.excludeIdeData);
  879. args: [],
  880. source: "variables\x0a\x09^ self model variables keys",
  881. referencedClasses: [],
  882. //>>excludeEnd("ide");
  883. pragmas: [],
  884. messageSends: ["keys", "variables", "model"]
  885. }),
  886. $globals.HLInspectorVariablesWidget);
  887. $core.addClass("HLInspectorWidget", $globals.HLWidget, ["model", "variablesWidget", "displayWidget", "codeWidget"], "Helios-Inspector");
  888. $core.addMethod(
  889. $core.method({
  890. selector: "codeWidget",
  891. protocol: "accessing",
  892. fn: function (){
  893. var self=this,$self=this;
  894. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  895. return $core.withContext(function($ctx1) {
  896. //>>excludeEnd("ctx");
  897. var $1,$receiver;
  898. $1=$self.codeWidget;
  899. if(($receiver = $1) == null || $receiver.a$nil){
  900. $self.codeWidget=$self._defaultCodeWidget();
  901. return $self.codeWidget;
  902. } else {
  903. return $1;
  904. }
  905. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  906. }, function($ctx1) {$ctx1.fill(self,"codeWidget",{})});
  907. //>>excludeEnd("ctx");
  908. },
  909. //>>excludeStart("ide", pragmas.excludeIdeData);
  910. args: [],
  911. source: "codeWidget\x0a\x09^ codeWidget ifNil: [\x0a\x09\x09codeWidget := self defaultCodeWidget ]",
  912. referencedClasses: [],
  913. //>>excludeEnd("ide");
  914. pragmas: [],
  915. messageSends: ["ifNil:", "defaultCodeWidget"]
  916. }),
  917. $globals.HLInspectorWidget);
  918. $core.addMethod(
  919. $core.method({
  920. selector: "codeWidget:",
  921. protocol: "accessing",
  922. fn: function (aWidget){
  923. var self=this,$self=this;
  924. $self.codeWidget=aWidget;
  925. return self;
  926. },
  927. //>>excludeStart("ide", pragmas.excludeIdeData);
  928. args: ["aWidget"],
  929. source: "codeWidget: aWidget\x0a\x09codeWidget := aWidget",
  930. referencedClasses: [],
  931. //>>excludeEnd("ide");
  932. pragmas: [],
  933. messageSends: []
  934. }),
  935. $globals.HLInspectorWidget);
  936. $core.addMethod(
  937. $core.method({
  938. selector: "defaultCodeWidget",
  939. protocol: "defaults",
  940. fn: function (){
  941. var self=this,$self=this;
  942. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  943. return $core.withContext(function($ctx1) {
  944. //>>excludeEnd("ctx");
  945. var $1,$3,$2;
  946. $1=$recv($globals.HLCodeWidget)._new();
  947. $3=$self._model();
  948. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  949. $ctx1.sendIdx["model"]=1;
  950. //>>excludeEnd("ctx");
  951. $2=$recv($3)._code();
  952. $recv($1)._model_($2);
  953. $recv($1)._receiver_($recv($self._model())._inspectee());
  954. return $recv($1)._yourself();
  955. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  956. }, function($ctx1) {$ctx1.fill(self,"defaultCodeWidget",{})});
  957. //>>excludeEnd("ctx");
  958. },
  959. //>>excludeStart("ide", pragmas.excludeIdeData);
  960. args: [],
  961. source: "defaultCodeWidget\x0a\x09^ HLCodeWidget new\x0a \x09model: self model code;\x0a \x09receiver: self model inspectee;\x0a \x09yourself",
  962. referencedClasses: ["HLCodeWidget"],
  963. //>>excludeEnd("ide");
  964. pragmas: [],
  965. messageSends: ["model:", "new", "code", "model", "receiver:", "inspectee", "yourself"]
  966. }),
  967. $globals.HLInspectorWidget);
  968. $core.addMethod(
  969. $core.method({
  970. selector: "displayWidget",
  971. protocol: "accessing",
  972. fn: function (){
  973. var self=this,$self=this;
  974. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  975. return $core.withContext(function($ctx1) {
  976. //>>excludeEnd("ctx");
  977. var $1,$2,$receiver;
  978. $1=$self.displayWidget;
  979. if(($receiver = $1) == null || $receiver.a$nil){
  980. $2=$recv($globals.HLInspectorDisplayWidget)._new();
  981. $recv($2)._inspector_(self);
  982. $self.displayWidget=$recv($2)._yourself();
  983. return $self.displayWidget;
  984. } else {
  985. return $1;
  986. }
  987. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  988. }, function($ctx1) {$ctx1.fill(self,"displayWidget",{})});
  989. //>>excludeEnd("ctx");
  990. },
  991. //>>excludeStart("ide", pragmas.excludeIdeData);
  992. args: [],
  993. source: "displayWidget\x0a\x09^ displayWidget ifNil: [\x0a\x09\x09displayWidget := HLInspectorDisplayWidget new\x0a \x09\x09inspector: self;\x0a \x09yourself ]",
  994. referencedClasses: ["HLInspectorDisplayWidget"],
  995. //>>excludeEnd("ide");
  996. pragmas: [],
  997. messageSends: ["ifNil:", "inspector:", "new", "yourself"]
  998. }),
  999. $globals.HLInspectorWidget);
  1000. $core.addMethod(
  1001. $core.method({
  1002. selector: "initialize",
  1003. protocol: "accessing",
  1004. fn: function (){
  1005. var self=this,$self=this;
  1006. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1007. return $core.withContext(function($ctx1) {
  1008. //>>excludeEnd("ctx");
  1009. (
  1010. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1011. $ctx1.supercall = true,
  1012. //>>excludeEnd("ctx");
  1013. ($globals.HLInspectorWidget.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  1014. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1015. $ctx1.supercall = false;
  1016. //>>excludeEnd("ctx");;
  1017. $self._register();
  1018. return self;
  1019. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1020. }, function($ctx1) {$ctx1.fill(self,"initialize",{})});
  1021. //>>excludeEnd("ctx");
  1022. },
  1023. //>>excludeStart("ide", pragmas.excludeIdeData);
  1024. args: [],
  1025. source: "initialize\x0a\x09super initialize.\x0a\x09self register",
  1026. referencedClasses: [],
  1027. //>>excludeEnd("ide");
  1028. pragmas: [],
  1029. messageSends: ["initialize", "register"]
  1030. }),
  1031. $globals.HLInspectorWidget);
  1032. $core.addMethod(
  1033. $core.method({
  1034. selector: "inspect:",
  1035. protocol: "actions",
  1036. fn: function (anObject){
  1037. var self=this,$self=this;
  1038. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1039. return $core.withContext(function($ctx1) {
  1040. //>>excludeEnd("ctx");
  1041. $recv($self._model())._inspect_on_(anObject,self);
  1042. $recv($self._codeWidget())._receiver_(anObject);
  1043. $self._refreshVariablesWidget();
  1044. $self._refreshDisplayWidget();
  1045. return self;
  1046. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1047. }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})});
  1048. //>>excludeEnd("ctx");
  1049. },
  1050. //>>excludeStart("ide", pragmas.excludeIdeData);
  1051. args: ["anObject"],
  1052. source: "inspect: anObject\x0a\x09self model inspect: anObject on: self.\x0a\x09self codeWidget receiver: anObject.\x0a \x0a\x09self \x0a \x09refreshVariablesWidget;\x0a\x09\x09refreshDisplayWidget",
  1053. referencedClasses: [],
  1054. //>>excludeEnd("ide");
  1055. pragmas: [],
  1056. messageSends: ["inspect:on:", "model", "receiver:", "codeWidget", "refreshVariablesWidget", "refreshDisplayWidget"]
  1057. }),
  1058. $globals.HLInspectorWidget);
  1059. $core.addMethod(
  1060. $core.method({
  1061. selector: "inspectee",
  1062. protocol: "accessing",
  1063. fn: function (){
  1064. var self=this,$self=this;
  1065. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1066. return $core.withContext(function($ctx1) {
  1067. //>>excludeEnd("ctx");
  1068. return $recv($self._model())._inspectee();
  1069. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1070. }, function($ctx1) {$ctx1.fill(self,"inspectee",{})});
  1071. //>>excludeEnd("ctx");
  1072. },
  1073. //>>excludeStart("ide", pragmas.excludeIdeData);
  1074. args: [],
  1075. source: "inspectee\x0a\x09^ self model inspectee",
  1076. referencedClasses: [],
  1077. //>>excludeEnd("ide");
  1078. pragmas: [],
  1079. messageSends: ["inspectee", "model"]
  1080. }),
  1081. $globals.HLInspectorWidget);
  1082. $core.addMethod(
  1083. $core.method({
  1084. selector: "inspectee:",
  1085. protocol: "accessing",
  1086. fn: function (anObject){
  1087. var self=this,$self=this;
  1088. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1089. return $core.withContext(function($ctx1) {
  1090. //>>excludeEnd("ctx");
  1091. $recv($self._model())._inspectee_(anObject);
  1092. return self;
  1093. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1094. }, function($ctx1) {$ctx1.fill(self,"inspectee:",{anObject:anObject})});
  1095. //>>excludeEnd("ctx");
  1096. },
  1097. //>>excludeStart("ide", pragmas.excludeIdeData);
  1098. args: ["anObject"],
  1099. source: "inspectee: anObject\x0a\x09self model inspectee: anObject",
  1100. referencedClasses: [],
  1101. //>>excludeEnd("ide");
  1102. pragmas: [],
  1103. messageSends: ["inspectee:", "model"]
  1104. }),
  1105. $globals.HLInspectorWidget);
  1106. $core.addMethod(
  1107. $core.method({
  1108. selector: "label",
  1109. protocol: "accessing",
  1110. fn: function (){
  1111. var self=this,$self=this;
  1112. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1113. return $core.withContext(function($ctx1) {
  1114. //>>excludeEnd("ctx");
  1115. return $recv($self._model())._label();
  1116. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1117. }, function($ctx1) {$ctx1.fill(self,"label",{})});
  1118. //>>excludeEnd("ctx");
  1119. },
  1120. //>>excludeStart("ide", pragmas.excludeIdeData);
  1121. args: [],
  1122. source: "label\x0a ^ self model label",
  1123. referencedClasses: [],
  1124. //>>excludeEnd("ide");
  1125. pragmas: [],
  1126. messageSends: ["label", "model"]
  1127. }),
  1128. $globals.HLInspectorWidget);
  1129. $core.addMethod(
  1130. $core.method({
  1131. selector: "model",
  1132. protocol: "accessing",
  1133. fn: function (){
  1134. var self=this,$self=this;
  1135. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1136. return $core.withContext(function($ctx1) {
  1137. //>>excludeEnd("ctx");
  1138. var $1,$receiver;
  1139. $1=$self.model;
  1140. if(($receiver = $1) == null || $receiver.a$nil){
  1141. $self._model_($recv($globals.HLInspectorModel)._new());
  1142. return $self.model;
  1143. } else {
  1144. return $1;
  1145. }
  1146. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1147. }, function($ctx1) {$ctx1.fill(self,"model",{})});
  1148. //>>excludeEnd("ctx");
  1149. },
  1150. //>>excludeStart("ide", pragmas.excludeIdeData);
  1151. args: [],
  1152. source: "model\x0a\x09^ model ifNil: [ \x0a \x09self model: HLInspectorModel new.\x0a\x09\x09model ]",
  1153. referencedClasses: ["HLInspectorModel"],
  1154. //>>excludeEnd("ide");
  1155. pragmas: [],
  1156. messageSends: ["ifNil:", "model:", "new"]
  1157. }),
  1158. $globals.HLInspectorWidget);
  1159. $core.addMethod(
  1160. $core.method({
  1161. selector: "model:",
  1162. protocol: "accessing",
  1163. fn: function (aModel){
  1164. var self=this,$self=this;
  1165. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1166. return $core.withContext(function($ctx1) {
  1167. //>>excludeEnd("ctx");
  1168. $self.model=aModel;
  1169. $recv($self._codeWidget())._model_($recv(aModel)._code());
  1170. $self._observeCodeWidget();
  1171. $self._observeVariablesWidget();
  1172. $self._observeModel();
  1173. return self;
  1174. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1175. }, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel})});
  1176. //>>excludeEnd("ctx");
  1177. },
  1178. //>>excludeStart("ide", pragmas.excludeIdeData);
  1179. args: ["aModel"],
  1180. source: "model: aModel\x0a\x09model := aModel. \x0a self codeWidget model: aModel code.\x0a \x0a self \x0a observeCodeWidget;\x0a \x09observeVariablesWidget;\x0a observeModel",
  1181. referencedClasses: [],
  1182. //>>excludeEnd("ide");
  1183. pragmas: [],
  1184. messageSends: ["model:", "codeWidget", "code", "observeCodeWidget", "observeVariablesWidget", "observeModel"]
  1185. }),
  1186. $globals.HLInspectorWidget);
  1187. $core.addMethod(
  1188. $core.method({
  1189. selector: "observeCodeWidget",
  1190. protocol: "actions",
  1191. fn: function (){
  1192. var self=this,$self=this;
  1193. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1194. return $core.withContext(function($ctx1) {
  1195. //>>excludeEnd("ctx");
  1196. $recv($recv($self._codeWidget())._announcer())._on_do_($globals.HLDoItExecuted,(function(){
  1197. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1198. return $core.withContext(function($ctx2) {
  1199. //>>excludeEnd("ctx");
  1200. return $self._onDoneIt();
  1201. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1202. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1203. //>>excludeEnd("ctx");
  1204. }));
  1205. return self;
  1206. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1207. }, function($ctx1) {$ctx1.fill(self,"observeCodeWidget",{})});
  1208. //>>excludeEnd("ctx");
  1209. },
  1210. //>>excludeStart("ide", pragmas.excludeIdeData);
  1211. args: [],
  1212. source: "observeCodeWidget\x0a\x09self codeWidget announcer \x0a \x09on: HLDoItExecuted \x0a do: [ self onDoneIt ]",
  1213. referencedClasses: ["HLDoItExecuted"],
  1214. //>>excludeEnd("ide");
  1215. pragmas: [],
  1216. messageSends: ["on:do:", "announcer", "codeWidget", "onDoneIt"]
  1217. }),
  1218. $globals.HLInspectorWidget);
  1219. $core.addMethod(
  1220. $core.method({
  1221. selector: "observeModel",
  1222. protocol: "actions",
  1223. fn: function (){
  1224. var self=this,$self=this;
  1225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1226. return $core.withContext(function($ctx1) {
  1227. //>>excludeEnd("ctx");
  1228. $recv($recv($self._model())._announcer())._on_send_to_($globals.HLInstanceVariableSelected,"onInstanceVariableSelected",self);
  1229. return self;
  1230. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1231. }, function($ctx1) {$ctx1.fill(self,"observeModel",{})});
  1232. //>>excludeEnd("ctx");
  1233. },
  1234. //>>excludeStart("ide", pragmas.excludeIdeData);
  1235. args: [],
  1236. source: "observeModel\x0a\x09self model announcer\x0a on: HLInstanceVariableSelected\x0a\x09\x09send: #onInstanceVariableSelected\x0a\x09\x09to: self",
  1237. referencedClasses: ["HLInstanceVariableSelected"],
  1238. //>>excludeEnd("ide");
  1239. pragmas: [],
  1240. messageSends: ["on:send:to:", "announcer", "model"]
  1241. }),
  1242. $globals.HLInspectorWidget);
  1243. $core.addMethod(
  1244. $core.method({
  1245. selector: "observeVariablesWidget",
  1246. protocol: "actions",
  1247. fn: function (){
  1248. var self=this,$self=this;
  1249. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1250. return $core.withContext(function($ctx1) {
  1251. //>>excludeEnd("ctx");
  1252. $recv($recv($self._variablesWidget())._announcer())._on_send_to_($globals.HLDiveRequested,"onDive",self);
  1253. return self;
  1254. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1255. }, function($ctx1) {$ctx1.fill(self,"observeVariablesWidget",{})});
  1256. //>>excludeEnd("ctx");
  1257. },
  1258. //>>excludeStart("ide", pragmas.excludeIdeData);
  1259. args: [],
  1260. source: "observeVariablesWidget\x0a\x09self variablesWidget announcer \x0a on: HLDiveRequested \x0a\x09\x09send: #onDive\x0a\x09\x09to: self",
  1261. referencedClasses: ["HLDiveRequested"],
  1262. //>>excludeEnd("ide");
  1263. pragmas: [],
  1264. messageSends: ["on:send:to:", "announcer", "variablesWidget"]
  1265. }),
  1266. $globals.HLInspectorWidget);
  1267. $core.addMethod(
  1268. $core.method({
  1269. selector: "onDive",
  1270. protocol: "reactions",
  1271. fn: function (){
  1272. var self=this,$self=this;
  1273. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1274. return $core.withContext(function($ctx1) {
  1275. //>>excludeEnd("ctx");
  1276. var $1;
  1277. $1=$recv($globals.HLInspector)._new();
  1278. $recv($1)._inspect_($recv($self._model())._selectedInstVarObject());
  1279. $recv($1)._openAsTab();
  1280. return self;
  1281. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1282. }, function($ctx1) {$ctx1.fill(self,"onDive",{})});
  1283. //>>excludeEnd("ctx");
  1284. },
  1285. //>>excludeStart("ide", pragmas.excludeIdeData);
  1286. args: [],
  1287. source: "onDive\x0a\x09HLInspector new \x0a\x09\x09inspect: self model selectedInstVarObject;\x0a\x09\x09openAsTab",
  1288. referencedClasses: ["HLInspector"],
  1289. //>>excludeEnd("ide");
  1290. pragmas: [],
  1291. messageSends: ["inspect:", "new", "selectedInstVarObject", "model", "openAsTab"]
  1292. }),
  1293. $globals.HLInspectorWidget);
  1294. $core.addMethod(
  1295. $core.method({
  1296. selector: "onDoneIt",
  1297. protocol: "reactions",
  1298. fn: function (){
  1299. var self=this,$self=this;
  1300. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1301. return $core.withContext(function($ctx1) {
  1302. //>>excludeEnd("ctx");
  1303. $self._refresh();
  1304. return self;
  1305. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1306. }, function($ctx1) {$ctx1.fill(self,"onDoneIt",{})});
  1307. //>>excludeEnd("ctx");
  1308. },
  1309. //>>excludeStart("ide", pragmas.excludeIdeData);
  1310. args: [],
  1311. source: "onDoneIt\x0a\x0a\x09self refresh",
  1312. referencedClasses: [],
  1313. //>>excludeEnd("ide");
  1314. pragmas: [],
  1315. messageSends: ["refresh"]
  1316. }),
  1317. $globals.HLInspectorWidget);
  1318. $core.addMethod(
  1319. $core.method({
  1320. selector: "onInspectIt",
  1321. protocol: "reactions",
  1322. fn: function (){
  1323. var self=this,$self=this;
  1324. return self;
  1325. },
  1326. //>>excludeStart("ide", pragmas.excludeIdeData);
  1327. args: [],
  1328. source: "onInspectIt",
  1329. referencedClasses: [],
  1330. //>>excludeEnd("ide");
  1331. pragmas: [],
  1332. messageSends: []
  1333. }),
  1334. $globals.HLInspectorWidget);
  1335. $core.addMethod(
  1336. $core.method({
  1337. selector: "onInstanceVariableSelected",
  1338. protocol: "reactions",
  1339. fn: function (){
  1340. var self=this,$self=this;
  1341. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1342. return $core.withContext(function($ctx1) {
  1343. //>>excludeEnd("ctx");
  1344. $self._refreshDisplayWidget();
  1345. return self;
  1346. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1347. }, function($ctx1) {$ctx1.fill(self,"onInstanceVariableSelected",{})});
  1348. //>>excludeEnd("ctx");
  1349. },
  1350. //>>excludeStart("ide", pragmas.excludeIdeData);
  1351. args: [],
  1352. source: "onInstanceVariableSelected\x0a\x09self refreshDisplayWidget",
  1353. referencedClasses: [],
  1354. //>>excludeEnd("ide");
  1355. pragmas: [],
  1356. messageSends: ["refreshDisplayWidget"]
  1357. }),
  1358. $globals.HLInspectorWidget);
  1359. $core.addMethod(
  1360. $core.method({
  1361. selector: "onPrintIt",
  1362. protocol: "reactions",
  1363. fn: function (){
  1364. var self=this,$self=this;
  1365. return self;
  1366. },
  1367. //>>excludeStart("ide", pragmas.excludeIdeData);
  1368. args: [],
  1369. source: "onPrintIt",
  1370. referencedClasses: [],
  1371. //>>excludeEnd("ide");
  1372. pragmas: [],
  1373. messageSends: []
  1374. }),
  1375. $globals.HLInspectorWidget);
  1376. $core.addMethod(
  1377. $core.method({
  1378. selector: "refresh",
  1379. protocol: "actions",
  1380. fn: function (){
  1381. var self=this,$self=this;
  1382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1383. return $core.withContext(function($ctx1) {
  1384. //>>excludeEnd("ctx");
  1385. $self._inspect_($self._inspectee());
  1386. return self;
  1387. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1388. }, function($ctx1) {$ctx1.fill(self,"refresh",{})});
  1389. //>>excludeEnd("ctx");
  1390. },
  1391. //>>excludeStart("ide", pragmas.excludeIdeData);
  1392. args: [],
  1393. source: "refresh\x0a\x09self inspect: self inspectee",
  1394. referencedClasses: [],
  1395. //>>excludeEnd("ide");
  1396. pragmas: [],
  1397. messageSends: ["inspect:", "inspectee"]
  1398. }),
  1399. $globals.HLInspectorWidget);
  1400. $core.addMethod(
  1401. $core.method({
  1402. selector: "refreshDisplayWidget",
  1403. protocol: "actions",
  1404. fn: function (){
  1405. var self=this,$self=this;
  1406. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1407. return $core.withContext(function($ctx1) {
  1408. //>>excludeEnd("ctx");
  1409. $recv($self._displayWidget())._refresh();
  1410. return self;
  1411. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1412. }, function($ctx1) {$ctx1.fill(self,"refreshDisplayWidget",{})});
  1413. //>>excludeEnd("ctx");
  1414. },
  1415. //>>excludeStart("ide", pragmas.excludeIdeData);
  1416. args: [],
  1417. source: "refreshDisplayWidget\x0a\x09self displayWidget refresh",
  1418. referencedClasses: [],
  1419. //>>excludeEnd("ide");
  1420. pragmas: [],
  1421. messageSends: ["refresh", "displayWidget"]
  1422. }),
  1423. $globals.HLInspectorWidget);
  1424. $core.addMethod(
  1425. $core.method({
  1426. selector: "refreshVariablesWidget",
  1427. protocol: "actions",
  1428. fn: function (){
  1429. var self=this,$self=this;
  1430. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1431. return $core.withContext(function($ctx1) {
  1432. //>>excludeEnd("ctx");
  1433. $recv($self._variablesWidget())._refresh();
  1434. return self;
  1435. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1436. }, function($ctx1) {$ctx1.fill(self,"refreshVariablesWidget",{})});
  1437. //>>excludeEnd("ctx");
  1438. },
  1439. //>>excludeStart("ide", pragmas.excludeIdeData);
  1440. args: [],
  1441. source: "refreshVariablesWidget\x0a\x09self variablesWidget refresh",
  1442. referencedClasses: [],
  1443. //>>excludeEnd("ide");
  1444. pragmas: [],
  1445. messageSends: ["refresh", "variablesWidget"]
  1446. }),
  1447. $globals.HLInspectorWidget);
  1448. $core.addMethod(
  1449. $core.method({
  1450. selector: "register",
  1451. protocol: "registration",
  1452. fn: function (){
  1453. var self=this,$self=this;
  1454. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1455. return $core.withContext(function($ctx1) {
  1456. //>>excludeEnd("ctx");
  1457. $recv($globals.HLInspector)._register_(self);
  1458. return self;
  1459. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1460. }, function($ctx1) {$ctx1.fill(self,"register",{})});
  1461. //>>excludeEnd("ctx");
  1462. },
  1463. //>>excludeStart("ide", pragmas.excludeIdeData);
  1464. args: [],
  1465. source: "register\x0a\x09HLInspector register: self",
  1466. referencedClasses: ["HLInspector"],
  1467. //>>excludeEnd("ide");
  1468. pragmas: [],
  1469. messageSends: ["register:"]
  1470. }),
  1471. $globals.HLInspectorWidget);
  1472. $core.addMethod(
  1473. $core.method({
  1474. selector: "renderContentOn:",
  1475. protocol: "rendering",
  1476. fn: function (html){
  1477. var self=this,$self=this;
  1478. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1479. return $core.withContext(function($ctx1) {
  1480. //>>excludeEnd("ctx");
  1481. var $1;
  1482. $1=$recv($globals.HLHorizontalSplitter)._with_with_($recv($globals.HLVerticalSplitter)._with_with_($self._variablesWidget(),$self._displayWidget()),$self._codeWidget());
  1483. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1484. $ctx1.sendIdx["with:with:"]=1;
  1485. //>>excludeEnd("ctx");
  1486. $recv(html)._with_($1);
  1487. return self;
  1488. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1489. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html})});
  1490. //>>excludeEnd("ctx");
  1491. },
  1492. //>>excludeStart("ide", pragmas.excludeIdeData);
  1493. args: ["html"],
  1494. source: "renderContentOn: html\x0a \x09html with: (HLHorizontalSplitter\x0a \x09with: (HLVerticalSplitter \x0a with: self variablesWidget\x0a with: self displayWidget)\x0a with: self codeWidget)",
  1495. referencedClasses: ["HLHorizontalSplitter", "HLVerticalSplitter"],
  1496. //>>excludeEnd("ide");
  1497. pragmas: [],
  1498. messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget"]
  1499. }),
  1500. $globals.HLInspectorWidget);
  1501. $core.addMethod(
  1502. $core.method({
  1503. selector: "setLabel:",
  1504. protocol: "actions",
  1505. fn: function (aString){
  1506. var self=this,$self=this;
  1507. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1508. return $core.withContext(function($ctx1) {
  1509. //>>excludeEnd("ctx");
  1510. $recv($self._model())._label_(aString);
  1511. return self;
  1512. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1513. }, function($ctx1) {$ctx1.fill(self,"setLabel:",{aString:aString})});
  1514. //>>excludeEnd("ctx");
  1515. },
  1516. //>>excludeStart("ide", pragmas.excludeIdeData);
  1517. args: ["aString"],
  1518. source: "setLabel: aString\x0a\x09self model label: aString",
  1519. referencedClasses: [],
  1520. //>>excludeEnd("ide");
  1521. pragmas: [],
  1522. messageSends: ["label:", "model"]
  1523. }),
  1524. $globals.HLInspectorWidget);
  1525. $core.addMethod(
  1526. $core.method({
  1527. selector: "setVariables:",
  1528. protocol: "actions",
  1529. fn: function (aDictionary){
  1530. var self=this,$self=this;
  1531. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1532. return $core.withContext(function($ctx1) {
  1533. //>>excludeEnd("ctx");
  1534. $recv($self._model())._variables_(aDictionary);
  1535. return self;
  1536. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1537. }, function($ctx1) {$ctx1.fill(self,"setVariables:",{aDictionary:aDictionary})});
  1538. //>>excludeEnd("ctx");
  1539. },
  1540. //>>excludeStart("ide", pragmas.excludeIdeData);
  1541. args: ["aDictionary"],
  1542. source: "setVariables: aDictionary\x0a\x09self model variables: aDictionary",
  1543. referencedClasses: [],
  1544. //>>excludeEnd("ide");
  1545. pragmas: [],
  1546. messageSends: ["variables:", "model"]
  1547. }),
  1548. $globals.HLInspectorWidget);
  1549. $core.addMethod(
  1550. $core.method({
  1551. selector: "tabLabel",
  1552. protocol: "accessing",
  1553. fn: function (){
  1554. var self=this,$self=this;
  1555. return "Inspector";
  1556. },
  1557. //>>excludeStart("ide", pragmas.excludeIdeData);
  1558. args: [],
  1559. source: "tabLabel\x0a ^ 'Inspector'",
  1560. referencedClasses: [],
  1561. //>>excludeEnd("ide");
  1562. pragmas: [],
  1563. messageSends: []
  1564. }),
  1565. $globals.HLInspectorWidget);
  1566. $core.addMethod(
  1567. $core.method({
  1568. selector: "unregister",
  1569. protocol: "registration",
  1570. fn: function (){
  1571. var self=this,$self=this;
  1572. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1573. return $core.withContext(function($ctx1) {
  1574. //>>excludeEnd("ctx");
  1575. (
  1576. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1577. $ctx1.supercall = true,
  1578. //>>excludeEnd("ctx");
  1579. ($globals.HLInspectorWidget.superclass||$boot.nilAsClass).fn.prototype._unregister.apply($self, []));
  1580. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1581. $ctx1.supercall = false;
  1582. //>>excludeEnd("ctx");;
  1583. $recv($globals.HLInspector)._unregister_(self);
  1584. return self;
  1585. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1586. }, function($ctx1) {$ctx1.fill(self,"unregister",{})});
  1587. //>>excludeEnd("ctx");
  1588. },
  1589. //>>excludeStart("ide", pragmas.excludeIdeData);
  1590. args: [],
  1591. source: "unregister\x0a\x09super unregister.\x0a\x09HLInspector unregister: self",
  1592. referencedClasses: ["HLInspector"],
  1593. //>>excludeEnd("ide");
  1594. pragmas: [],
  1595. messageSends: ["unregister", "unregister:"]
  1596. }),
  1597. $globals.HLInspectorWidget);
  1598. $core.addMethod(
  1599. $core.method({
  1600. selector: "variablesWidget",
  1601. protocol: "accessing",
  1602. fn: function (){
  1603. var self=this,$self=this;
  1604. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1605. return $core.withContext(function($ctx1) {
  1606. //>>excludeEnd("ctx");
  1607. var $1,$2,$receiver;
  1608. $1=$self.variablesWidget;
  1609. if(($receiver = $1) == null || $receiver.a$nil){
  1610. $2=$recv($globals.HLInspectorVariablesWidget)._new();
  1611. $recv($2)._inspector_(self);
  1612. $self.variablesWidget=$recv($2)._yourself();
  1613. return $self.variablesWidget;
  1614. } else {
  1615. return $1;
  1616. }
  1617. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1618. }, function($ctx1) {$ctx1.fill(self,"variablesWidget",{})});
  1619. //>>excludeEnd("ctx");
  1620. },
  1621. //>>excludeStart("ide", pragmas.excludeIdeData);
  1622. args: [],
  1623. source: "variablesWidget\x0a\x09^ variablesWidget ifNil: [\x0a\x09\x09variablesWidget := HLInspectorVariablesWidget new\x0a \x09\x09inspector: self;\x0a \x09yourself ]",
  1624. referencedClasses: ["HLInspectorVariablesWidget"],
  1625. //>>excludeEnd("ide");
  1626. pragmas: [],
  1627. messageSends: ["ifNil:", "inspector:", "new", "yourself"]
  1628. }),
  1629. $globals.HLInspectorWidget);
  1630. $core.addClass("HLInspector", $globals.HLInspectorWidget, [], "Helios-Inspector");
  1631. $core.addMethod(
  1632. $core.method({
  1633. selector: "inspect:",
  1634. protocol: "actions",
  1635. fn: function (anObject){
  1636. var self=this,$self=this;
  1637. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1638. return $core.withContext(function($ctx1) {
  1639. //>>excludeEnd("ctx");
  1640. (
  1641. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1642. $ctx1.supercall = true,
  1643. //>>excludeEnd("ctx");
  1644. ($globals.HLInspector.superclass||$boot.nilAsClass).fn.prototype._inspect_.apply($self, [anObject]));
  1645. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1646. $ctx1.supercall = false;
  1647. //>>excludeEnd("ctx");;
  1648. $recv((function(){
  1649. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1650. return $core.withContext(function($ctx2) {
  1651. //>>excludeEnd("ctx");
  1652. return $self._setTabLabel_($self._label());
  1653. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1654. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1655. //>>excludeEnd("ctx");
  1656. }))._fork();
  1657. return self;
  1658. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1659. }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})});
  1660. //>>excludeEnd("ctx");
  1661. },
  1662. //>>excludeStart("ide", pragmas.excludeIdeData);
  1663. args: ["anObject"],
  1664. source: "inspect: anObject\x0a\x09super inspect: anObject.\x0a\x09[ self setTabLabel: self label ] fork",
  1665. referencedClasses: [],
  1666. //>>excludeEnd("ide");
  1667. pragmas: [],
  1668. messageSends: ["inspect:", "fork", "setTabLabel:", "label"]
  1669. }),
  1670. $globals.HLInspector);
  1671. $core.addMethod(
  1672. $core.method({
  1673. selector: "renderContentOn:",
  1674. protocol: "rendering",
  1675. fn: function (html){
  1676. var self=this,$self=this;
  1677. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1678. return $core.withContext(function($ctx1) {
  1679. //>>excludeEnd("ctx");
  1680. var $4,$3,$2,$1;
  1681. $4=$self._variablesWidget();
  1682. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1683. $ctx1.sendIdx["variablesWidget"]=1;
  1684. //>>excludeEnd("ctx");
  1685. $3=$recv($globals.HLVerticalSplitter)._with_with_($4,$self._displayWidget());
  1686. $2=$recv($globals.HLHorizontalSplitter)._with_with_($3,$self._codeWidget());
  1687. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1688. $ctx1.sendIdx["with:with:"]=1;
  1689. //>>excludeEnd("ctx");
  1690. $1=$recv($globals.HLContainer)._with_($2);
  1691. $recv(html)._with_($1);
  1692. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1693. $ctx1.sendIdx["with:"]=1;
  1694. //>>excludeEnd("ctx");
  1695. $recv($self._variablesWidget())._focus();
  1696. return self;
  1697. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1698. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html})});
  1699. //>>excludeEnd("ctx");
  1700. },
  1701. //>>excludeStart("ide", pragmas.excludeIdeData);
  1702. args: ["html"],
  1703. source: "renderContentOn: html\x0a \x09html with: (HLContainer with: (HLHorizontalSplitter\x0a \x09with: (HLVerticalSplitter \x0a with: self variablesWidget\x0a with: self displayWidget)\x0a with: self codeWidget)).\x0a\x09\x0a\x09self variablesWidget focus",
  1704. referencedClasses: ["HLContainer", "HLHorizontalSplitter", "HLVerticalSplitter"],
  1705. //>>excludeEnd("ide");
  1706. pragmas: [],
  1707. messageSends: ["with:", "with:with:", "variablesWidget", "displayWidget", "codeWidget", "focus"]
  1708. }),
  1709. $globals.HLInspector);
  1710. $core.setSlots($globals.HLInspector.a$cls, ["inspectors"]);
  1711. $core.addMethod(
  1712. $core.method({
  1713. selector: "canBeOpenAsTab",
  1714. protocol: "testing",
  1715. fn: function (){
  1716. var self=this,$self=this;
  1717. return false;
  1718. },
  1719. //>>excludeStart("ide", pragmas.excludeIdeData);
  1720. args: [],
  1721. source: "canBeOpenAsTab\x0a\x09^ false",
  1722. referencedClasses: [],
  1723. //>>excludeEnd("ide");
  1724. pragmas: [],
  1725. messageSends: []
  1726. }),
  1727. $globals.HLInspector.a$cls);
  1728. $core.addMethod(
  1729. $core.method({
  1730. selector: "initialize",
  1731. protocol: "initialization",
  1732. fn: function (){
  1733. var self=this,$self=this;
  1734. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1735. return $core.withContext(function($ctx1) {
  1736. //>>excludeEnd("ctx");
  1737. (
  1738. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1739. $ctx1.supercall = true,
  1740. //>>excludeEnd("ctx");
  1741. ($globals.HLInspector.a$cls.superclass||$boot.nilAsClass).fn.prototype._initialize.apply($self, []));
  1742. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1743. $ctx1.supercall = false;
  1744. //>>excludeEnd("ctx");;
  1745. $self._watchChanges();
  1746. return self;
  1747. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1748. }, function($ctx1) {$ctx1.fill(self,"initialize",{})});
  1749. //>>excludeEnd("ctx");
  1750. },
  1751. //>>excludeStart("ide", pragmas.excludeIdeData);
  1752. args: [],
  1753. source: "initialize\x0a\x09super initialize.\x0a\x09self watchChanges",
  1754. referencedClasses: [],
  1755. //>>excludeEnd("ide");
  1756. pragmas: [],
  1757. messageSends: ["initialize", "watchChanges"]
  1758. }),
  1759. $globals.HLInspector.a$cls);
  1760. $core.addMethod(
  1761. $core.method({
  1762. selector: "inspect:",
  1763. protocol: "actions",
  1764. fn: function (anObject){
  1765. var self=this,$self=this;
  1766. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1767. return $core.withContext(function($ctx1) {
  1768. //>>excludeEnd("ctx");
  1769. var $1;
  1770. $1=$self._new();
  1771. $recv($1)._openAsTab();
  1772. $recv($1)._inspect_(anObject);
  1773. return self;
  1774. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1775. }, function($ctx1) {$ctx1.fill(self,"inspect:",{anObject:anObject})});
  1776. //>>excludeEnd("ctx");
  1777. },
  1778. //>>excludeStart("ide", pragmas.excludeIdeData);
  1779. args: ["anObject"],
  1780. source: "inspect: anObject\x0a\x09self new\x0a\x09\x09openAsTab;\x0a\x09\x09inspect: anObject",
  1781. referencedClasses: [],
  1782. //>>excludeEnd("ide");
  1783. pragmas: [],
  1784. messageSends: ["openAsTab", "new", "inspect:"]
  1785. }),
  1786. $globals.HLInspector.a$cls);
  1787. $core.addMethod(
  1788. $core.method({
  1789. selector: "inspectors",
  1790. protocol: "accessing",
  1791. fn: function (){
  1792. var self=this,$self=this;
  1793. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1794. return $core.withContext(function($ctx1) {
  1795. //>>excludeEnd("ctx");
  1796. var $1,$receiver;
  1797. $1=$self.inspectors;
  1798. if(($receiver = $1) == null || $receiver.a$nil){
  1799. $self.inspectors=$recv($globals.OrderedCollection)._new();
  1800. return $self.inspectors;
  1801. } else {
  1802. return $1;
  1803. }
  1804. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1805. }, function($ctx1) {$ctx1.fill(self,"inspectors",{})});
  1806. //>>excludeEnd("ctx");
  1807. },
  1808. //>>excludeStart("ide", pragmas.excludeIdeData);
  1809. args: [],
  1810. source: "inspectors\x0a\x09^ inspectors ifNil: [ inspectors := OrderedCollection new ]",
  1811. referencedClasses: ["OrderedCollection"],
  1812. //>>excludeEnd("ide");
  1813. pragmas: [],
  1814. messageSends: ["ifNil:", "new"]
  1815. }),
  1816. $globals.HLInspector.a$cls);
  1817. $core.addMethod(
  1818. $core.method({
  1819. selector: "register:",
  1820. protocol: "registration",
  1821. fn: function (anInspector){
  1822. var self=this,$self=this;
  1823. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1824. return $core.withContext(function($ctx1) {
  1825. //>>excludeEnd("ctx");
  1826. $recv($self._inspectors())._add_(anInspector);
  1827. return self;
  1828. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1829. }, function($ctx1) {$ctx1.fill(self,"register:",{anInspector:anInspector})});
  1830. //>>excludeEnd("ctx");
  1831. },
  1832. //>>excludeStart("ide", pragmas.excludeIdeData);
  1833. args: ["anInspector"],
  1834. source: "register: anInspector\x0a\x09self inspectors add: anInspector",
  1835. referencedClasses: [],
  1836. //>>excludeEnd("ide");
  1837. pragmas: [],
  1838. messageSends: ["add:", "inspectors"]
  1839. }),
  1840. $globals.HLInspector.a$cls);
  1841. $core.addMethod(
  1842. $core.method({
  1843. selector: "tabClass",
  1844. protocol: "accessing",
  1845. fn: function (){
  1846. var self=this,$self=this;
  1847. return "inspector";
  1848. },
  1849. //>>excludeStart("ide", pragmas.excludeIdeData);
  1850. args: [],
  1851. source: "tabClass\x0a\x09^ 'inspector'",
  1852. referencedClasses: [],
  1853. //>>excludeEnd("ide");
  1854. pragmas: [],
  1855. messageSends: []
  1856. }),
  1857. $globals.HLInspector.a$cls);
  1858. $core.addMethod(
  1859. $core.method({
  1860. selector: "tabLabel",
  1861. protocol: "accessing",
  1862. fn: function (){
  1863. var self=this,$self=this;
  1864. return "Inspector";
  1865. },
  1866. //>>excludeStart("ide", pragmas.excludeIdeData);
  1867. args: [],
  1868. source: "tabLabel\x0a\x09^ 'Inspector'",
  1869. referencedClasses: [],
  1870. //>>excludeEnd("ide");
  1871. pragmas: [],
  1872. messageSends: []
  1873. }),
  1874. $globals.HLInspector.a$cls);
  1875. $core.addMethod(
  1876. $core.method({
  1877. selector: "tabPriority",
  1878. protocol: "accessing",
  1879. fn: function (){
  1880. var self=this,$self=this;
  1881. return (10);
  1882. },
  1883. //>>excludeStart("ide", pragmas.excludeIdeData);
  1884. args: [],
  1885. source: "tabPriority\x0a\x09^ 10",
  1886. referencedClasses: [],
  1887. //>>excludeEnd("ide");
  1888. pragmas: [],
  1889. messageSends: []
  1890. }),
  1891. $globals.HLInspector.a$cls);
  1892. $core.addMethod(
  1893. $core.method({
  1894. selector: "unregister:",
  1895. protocol: "registration",
  1896. fn: function (anInspector){
  1897. var self=this,$self=this;
  1898. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1899. return $core.withContext(function($ctx1) {
  1900. //>>excludeEnd("ctx");
  1901. $recv($self._inspectors())._remove_(anInspector);
  1902. return self;
  1903. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1904. }, function($ctx1) {$ctx1.fill(self,"unregister:",{anInspector:anInspector})});
  1905. //>>excludeEnd("ctx");
  1906. },
  1907. //>>excludeStart("ide", pragmas.excludeIdeData);
  1908. args: ["anInspector"],
  1909. source: "unregister: anInspector\x0a\x09self inspectors remove: anInspector",
  1910. referencedClasses: [],
  1911. //>>excludeEnd("ide");
  1912. pragmas: [],
  1913. messageSends: ["remove:", "inspectors"]
  1914. }),
  1915. $globals.HLInspector.a$cls);
  1916. $core.addMethod(
  1917. $core.method({
  1918. selector: "watchChanges",
  1919. protocol: "initialization",
  1920. fn: function (){
  1921. var self=this,$self=this;
  1922. var refreshInterval;
  1923. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1924. return $core.withContext(function($ctx1) {
  1925. //>>excludeEnd("ctx");
  1926. var $1;
  1927. refreshInterval="helios.inspector.refreshMillis"._settingValueIfAbsent_((500));
  1928. $1=$recv(refreshInterval).__gt((0));
  1929. if($core.assert($1)){
  1930. $recv((function(){
  1931. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1932. return $core.withContext(function($ctx2) {
  1933. //>>excludeEnd("ctx");
  1934. return $recv($self._inspectors())._do_((function(each){
  1935. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1936. return $core.withContext(function($ctx3) {
  1937. //>>excludeEnd("ctx");
  1938. return $recv(each)._refresh();
  1939. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1940. }, function($ctx3) {$ctx3.fillBlock({each:each},$ctx2,3)});
  1941. //>>excludeEnd("ctx");
  1942. }));
  1943. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1944. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1945. //>>excludeEnd("ctx");
  1946. }))._valueWithInterval_(refreshInterval);
  1947. }
  1948. return self;
  1949. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1950. }, function($ctx1) {$ctx1.fill(self,"watchChanges",{refreshInterval:refreshInterval})});
  1951. //>>excludeEnd("ctx");
  1952. },
  1953. //>>excludeStart("ide", pragmas.excludeIdeData);
  1954. args: [],
  1955. source: "watchChanges\x0a\x09| refreshInterval |\x0a\x09refreshInterval := 'helios.inspector.refreshMillis' settingValueIfAbsent: 500.\x0a\x09refreshInterval > 0 ifTrue: [\x0a\x09\x09[ self inspectors do: [ :each | each refresh ] ]\x0a\x09\x09\x09valueWithInterval: refreshInterval ]",
  1956. referencedClasses: [],
  1957. //>>excludeEnd("ide");
  1958. pragmas: [],
  1959. messageSends: ["settingValueIfAbsent:", "ifTrue:", ">", "valueWithInterval:", "do:", "inspectors", "refresh"]
  1960. }),
  1961. $globals.HLInspector.a$cls);
  1962. });