Helios-Inspector.js 62 KB

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