Helios-Inspector.js 63 KB

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