Helios-References.js 43 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368
  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-References");
  4. $pkg.innerEval = function (expr) { return eval(expr); };
  5. $pkg.transport = {"type":"amd","amdNamespace":"helios"};
  6. $core.addClass("HLReferences", $globals.HLWidget, ["model", "sendersListWidget", "implementorsListWidget", "classReferencesListWidget", "regexpListWidget", "sourceCodeWidget"], "Helios-References");
  7. $core.addMethod(
  8. $core.method({
  9. selector: "classReferencesListWidget",
  10. protocol: "accessing",
  11. fn: function (){
  12. var self=this,$self=this;
  13. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  14. return $core.withContext(function($ctx1) {
  15. //>>excludeEnd("ctx");
  16. var $1,$receiver;
  17. $1=$self.classReferencesListWidget;
  18. if(($receiver = $1) == null || $receiver.a$nil){
  19. $self.classReferencesListWidget=$recv($globals.HLClassReferencesListWidget)._on_($self._model());
  20. return $recv($self.classReferencesListWidget)._next_($self._regexpListWidget());
  21. } else {
  22. return $1;
  23. }
  24. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  25. }, function($ctx1) {$ctx1.fill(self,"classReferencesListWidget",{})});
  26. //>>excludeEnd("ctx");
  27. },
  28. //>>excludeStart("ide", pragmas.excludeIdeData);
  29. args: [],
  30. source: "classReferencesListWidget\x0a\x09^ classReferencesListWidget ifNil: [\x0a \x09classReferencesListWidget := HLClassReferencesListWidget on: self model.\x0a\x09\x09classReferencesListWidget next: self regexpListWidget ]",
  31. referencedClasses: ["HLClassReferencesListWidget"],
  32. //>>excludeEnd("ide");
  33. pragmas: [],
  34. messageSends: ["ifNil:", "on:", "model", "next:", "regexpListWidget"]
  35. }),
  36. $globals.HLReferences);
  37. $core.addMethod(
  38. $core.method({
  39. selector: "implementorsListWidget",
  40. protocol: "accessing",
  41. fn: function (){
  42. var self=this,$self=this;
  43. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  44. return $core.withContext(function($ctx1) {
  45. //>>excludeEnd("ctx");
  46. var $1,$receiver;
  47. $1=$self.implementorsListWidget;
  48. if(($receiver = $1) == null || $receiver.a$nil){
  49. $self.implementorsListWidget=$recv($globals.HLImplementorsListWidget)._on_($self._model());
  50. return $recv($self.implementorsListWidget)._next_($self._classReferencesListWidget());
  51. } else {
  52. return $1;
  53. }
  54. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  55. }, function($ctx1) {$ctx1.fill(self,"implementorsListWidget",{})});
  56. //>>excludeEnd("ctx");
  57. },
  58. //>>excludeStart("ide", pragmas.excludeIdeData);
  59. args: [],
  60. source: "implementorsListWidget\x0a\x09^ implementorsListWidget ifNil: [\x0a \x09implementorsListWidget := HLImplementorsListWidget on: self model.\x0a\x09\x09implementorsListWidget next: self classReferencesListWidget ]",
  61. referencedClasses: ["HLImplementorsListWidget"],
  62. //>>excludeEnd("ide");
  63. pragmas: [],
  64. messageSends: ["ifNil:", "on:", "model", "next:", "classReferencesListWidget"]
  65. }),
  66. $globals.HLReferences);
  67. $core.addMethod(
  68. $core.method({
  69. selector: "model",
  70. protocol: "accessing",
  71. fn: function (){
  72. var self=this,$self=this;
  73. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  74. return $core.withContext(function($ctx1) {
  75. //>>excludeEnd("ctx");
  76. var $1,$2,$receiver;
  77. $1=$self.model;
  78. if(($receiver = $1) == null || $receiver.a$nil){
  79. $2=$recv($globals.HLReferencesModel)._new();
  80. $recv($2)._environment_($recv($self._manager())._environment());
  81. $self.model=$recv($2)._yourself();
  82. return $self.model;
  83. } else {
  84. return $1;
  85. }
  86. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  87. }, function($ctx1) {$ctx1.fill(self,"model",{})});
  88. //>>excludeEnd("ctx");
  89. },
  90. //>>excludeStart("ide", pragmas.excludeIdeData);
  91. args: [],
  92. source: "model\x0a\x09^ model ifNil: [\x0a\x09\x09model := (HLReferencesModel new\x0a\x09\x09\x09environment: self manager environment;\x0a\x09\x09\x09yourself) ]",
  93. referencedClasses: ["HLReferencesModel"],
  94. //>>excludeEnd("ide");
  95. pragmas: [],
  96. messageSends: ["ifNil:", "environment:", "new", "environment", "manager", "yourself"]
  97. }),
  98. $globals.HLReferences);
  99. $core.addMethod(
  100. $core.method({
  101. selector: "model:",
  102. protocol: "accessing",
  103. fn: function (aModel){
  104. var self=this,$self=this;
  105. $self.model=aModel;
  106. return self;
  107. },
  108. //>>excludeStart("ide", pragmas.excludeIdeData);
  109. args: ["aModel"],
  110. source: "model: aModel\x0a\x09model := aModel",
  111. referencedClasses: [],
  112. //>>excludeEnd("ide");
  113. pragmas: [],
  114. messageSends: []
  115. }),
  116. $globals.HLReferences);
  117. $core.addMethod(
  118. $core.method({
  119. selector: "regexpListWidget",
  120. protocol: "accessing",
  121. fn: function (){
  122. var self=this,$self=this;
  123. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  124. return $core.withContext(function($ctx1) {
  125. //>>excludeEnd("ctx");
  126. var $1,$receiver;
  127. $1=$self.regexpListWidget;
  128. if(($receiver = $1) == null || $receiver.a$nil){
  129. $self.regexpListWidget=$recv($globals.HLRegexpListWidget)._on_($self._model());
  130. return $recv($self.regexpListWidget)._next_($self._sourceCodeWidget());
  131. } else {
  132. return $1;
  133. }
  134. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  135. }, function($ctx1) {$ctx1.fill(self,"regexpListWidget",{})});
  136. //>>excludeEnd("ctx");
  137. },
  138. //>>excludeStart("ide", pragmas.excludeIdeData);
  139. args: [],
  140. source: "regexpListWidget\x0a\x09^ regexpListWidget ifNil: [\x0a \x09regexpListWidget := HLRegexpListWidget on: self model.\x0a\x09\x09regexpListWidget next: self sourceCodeWidget ]",
  141. referencedClasses: ["HLRegexpListWidget"],
  142. //>>excludeEnd("ide");
  143. pragmas: [],
  144. messageSends: ["ifNil:", "on:", "model", "next:", "sourceCodeWidget"]
  145. }),
  146. $globals.HLReferences);
  147. $core.addMethod(
  148. $core.method({
  149. selector: "registerBindingsOn:",
  150. protocol: "actions",
  151. fn: function (aBindingGroup){
  152. var self=this,$self=this;
  153. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  154. return $core.withContext(function($ctx1) {
  155. //>>excludeEnd("ctx");
  156. $recv($globals.HLToolCommand)._registerConcreteClassesOn_for_(aBindingGroup,$self._model());
  157. return self;
  158. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  159. }, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup})});
  160. //>>excludeEnd("ctx");
  161. },
  162. //>>excludeStart("ide", pragmas.excludeIdeData);
  163. args: ["aBindingGroup"],
  164. source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
  165. referencedClasses: ["HLToolCommand"],
  166. //>>excludeEnd("ide");
  167. pragmas: [],
  168. messageSends: ["registerConcreteClassesOn:for:", "model"]
  169. }),
  170. $globals.HLReferences);
  171. $core.addMethod(
  172. $core.method({
  173. selector: "renderContentOn:",
  174. protocol: "rendering",
  175. fn: function (html){
  176. var self=this,$self=this;
  177. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  178. return $core.withContext(function($ctx1) {
  179. //>>excludeEnd("ctx");
  180. var $5,$4,$3,$2,$1;
  181. $5=$self._sendersListWidget();
  182. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  183. $ctx1.sendIdx["sendersListWidget"]=1;
  184. //>>excludeEnd("ctx");
  185. $4=$recv($globals.HLVerticalSplitter)._with_with_($5,$self._implementorsListWidget());
  186. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  187. $ctx1.sendIdx["with:with:"]=3;
  188. //>>excludeEnd("ctx");
  189. $3=$recv($globals.HLVerticalSplitter)._with_with_($4,$recv($globals.HLVerticalSplitter)._with_with_($self._classReferencesListWidget(),$self._regexpListWidget()));
  190. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  191. $ctx1.sendIdx["with:with:"]=2;
  192. //>>excludeEnd("ctx");
  193. $2=$recv($globals.HLHorizontalSplitter)._with_with_($3,$self._sourceCodeWidget());
  194. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  195. $ctx1.sendIdx["with:with:"]=1;
  196. //>>excludeEnd("ctx");
  197. $1=$recv($globals.HLContainer)._with_($2);
  198. $recv(html)._with_($1);
  199. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  200. $ctx1.sendIdx["with:"]=1;
  201. //>>excludeEnd("ctx");
  202. $recv($self._sendersListWidget())._focus();
  203. return self;
  204. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  205. }, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html})});
  206. //>>excludeEnd("ctx");
  207. },
  208. //>>excludeStart("ide", pragmas.excludeIdeData);
  209. args: ["html"],
  210. source: "renderContentOn: html\x0a\x09html with: (HLContainer with: (HLHorizontalSplitter \x0a \x09with: (HLVerticalSplitter\x0a \x09with: (HLVerticalSplitter\x0a \x09with: self sendersListWidget\x0a with: self implementorsListWidget)\x0a with: (HLVerticalSplitter\x0a \x09with: self classReferencesListWidget\x0a with: self regexpListWidget)) \x0a with: self sourceCodeWidget)).\x0a\x09\x0a\x09self sendersListWidget focus",
  211. referencedClasses: ["HLContainer", "HLHorizontalSplitter", "HLVerticalSplitter"],
  212. //>>excludeEnd("ide");
  213. pragmas: [],
  214. messageSends: ["with:", "with:with:", "sendersListWidget", "implementorsListWidget", "classReferencesListWidget", "regexpListWidget", "sourceCodeWidget", "focus"]
  215. }),
  216. $globals.HLReferences);
  217. $core.addMethod(
  218. $core.method({
  219. selector: "search:",
  220. protocol: "actions",
  221. fn: function (aString){
  222. var self=this,$self=this;
  223. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  224. return $core.withContext(function($ctx1) {
  225. //>>excludeEnd("ctx");
  226. $recv($self._model())._search_(aString);
  227. $self._setTabLabel_(aString);
  228. return self;
  229. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  230. }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString})});
  231. //>>excludeEnd("ctx");
  232. },
  233. //>>excludeStart("ide", pragmas.excludeIdeData);
  234. args: ["aString"],
  235. source: "search: aString\x0a\x09self model search: aString.\x0a\x09self setTabLabel: aString",
  236. referencedClasses: [],
  237. //>>excludeEnd("ide");
  238. pragmas: [],
  239. messageSends: ["search:", "model", "setTabLabel:"]
  240. }),
  241. $globals.HLReferences);
  242. $core.addMethod(
  243. $core.method({
  244. selector: "sendersListWidget",
  245. protocol: "accessing",
  246. fn: function (){
  247. var self=this,$self=this;
  248. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  249. return $core.withContext(function($ctx1) {
  250. //>>excludeEnd("ctx");
  251. var $1,$receiver;
  252. $1=$self.sendersListWidget;
  253. if(($receiver = $1) == null || $receiver.a$nil){
  254. $self.sendersListWidget=$recv($globals.HLSendersListWidget)._on_($self._model());
  255. return $recv($self.sendersListWidget)._next_($self._implementorsListWidget());
  256. } else {
  257. return $1;
  258. }
  259. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  260. }, function($ctx1) {$ctx1.fill(self,"sendersListWidget",{})});
  261. //>>excludeEnd("ctx");
  262. },
  263. //>>excludeStart("ide", pragmas.excludeIdeData);
  264. args: [],
  265. source: "sendersListWidget\x0a\x09^ sendersListWidget ifNil: [\x0a \x09sendersListWidget := HLSendersListWidget on: self model.\x0a\x09\x09sendersListWidget next: self implementorsListWidget ]",
  266. referencedClasses: ["HLSendersListWidget"],
  267. //>>excludeEnd("ide");
  268. pragmas: [],
  269. messageSends: ["ifNil:", "on:", "model", "next:", "implementorsListWidget"]
  270. }),
  271. $globals.HLReferences);
  272. $core.addMethod(
  273. $core.method({
  274. selector: "sourceCodeWidget",
  275. protocol: "accessing",
  276. fn: function (){
  277. var self=this,$self=this;
  278. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  279. return $core.withContext(function($ctx1) {
  280. //>>excludeEnd("ctx");
  281. var $1,$2,$receiver;
  282. $1=$self.sourceCodeWidget;
  283. if(($receiver = $1) == null || $receiver.a$nil){
  284. $2=$recv($globals.HLBrowserCodeWidget)._new();
  285. $recv($2)._browserModel_($self._model());
  286. $self.sourceCodeWidget=$recv($2)._yourself();
  287. return $self.sourceCodeWidget;
  288. } else {
  289. return $1;
  290. }
  291. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  292. }, function($ctx1) {$ctx1.fill(self,"sourceCodeWidget",{})});
  293. //>>excludeEnd("ctx");
  294. },
  295. //>>excludeStart("ide", pragmas.excludeIdeData);
  296. args: [],
  297. source: "sourceCodeWidget\x0a\x09^ sourceCodeWidget ifNil: [\x0a \x09sourceCodeWidget := HLBrowserCodeWidget new\x0a\x09\x09\x09browserModel: self model;\x0a\x09\x09\x09yourself ]",
  298. referencedClasses: ["HLBrowserCodeWidget"],
  299. //>>excludeEnd("ide");
  300. pragmas: [],
  301. messageSends: ["ifNil:", "browserModel:", "new", "model", "yourself"]
  302. }),
  303. $globals.HLReferences);
  304. $core.addMethod(
  305. $core.method({
  306. selector: "canBeOpenAsTab",
  307. protocol: "testing",
  308. fn: function (){
  309. var self=this,$self=this;
  310. return false;
  311. },
  312. //>>excludeStart("ide", pragmas.excludeIdeData);
  313. args: [],
  314. source: "canBeOpenAsTab\x0a\x09^ false",
  315. referencedClasses: [],
  316. //>>excludeEnd("ide");
  317. pragmas: [],
  318. messageSends: []
  319. }),
  320. $globals.HLReferences.a$cls);
  321. $core.addMethod(
  322. $core.method({
  323. selector: "tabClass",
  324. protocol: "accessing",
  325. fn: function (){
  326. var self=this,$self=this;
  327. return "references";
  328. },
  329. //>>excludeStart("ide", pragmas.excludeIdeData);
  330. args: [],
  331. source: "tabClass\x0a\x09^ 'references'",
  332. referencedClasses: [],
  333. //>>excludeEnd("ide");
  334. pragmas: [],
  335. messageSends: []
  336. }),
  337. $globals.HLReferences.a$cls);
  338. $core.addMethod(
  339. $core.method({
  340. selector: "tabLabel",
  341. protocol: "accessing",
  342. fn: function (){
  343. var self=this,$self=this;
  344. return "References";
  345. },
  346. //>>excludeStart("ide", pragmas.excludeIdeData);
  347. args: [],
  348. source: "tabLabel\x0a\x09^ 'References'",
  349. referencedClasses: [],
  350. //>>excludeEnd("ide");
  351. pragmas: [],
  352. messageSends: []
  353. }),
  354. $globals.HLReferences.a$cls);
  355. $core.addMethod(
  356. $core.method({
  357. selector: "tabPriority",
  358. protocol: "accessing",
  359. fn: function (){
  360. var self=this,$self=this;
  361. return (100);
  362. },
  363. //>>excludeStart("ide", pragmas.excludeIdeData);
  364. args: [],
  365. source: "tabPriority\x0a\x09^ 100",
  366. referencedClasses: [],
  367. //>>excludeEnd("ide");
  368. pragmas: [],
  369. messageSends: []
  370. }),
  371. $globals.HLReferences.a$cls);
  372. $core.addClass("HLReferencesListWidget", $globals.HLToolListWidget, [], "Helios-References");
  373. $core.addMethod(
  374. $core.method({
  375. selector: "activateListItem:",
  376. protocol: "actions",
  377. fn: function (anItem){
  378. var self=this,$self=this;
  379. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  380. return $core.withContext(function($ctx1) {
  381. //>>excludeEnd("ctx");
  382. $recv($self._model())._withChangesDo_((function(){
  383. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  384. return $core.withContext(function($ctx2) {
  385. //>>excludeEnd("ctx");
  386. return (
  387. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  388. $ctx2.supercall = true,
  389. //>>excludeEnd("ctx");
  390. ($globals.HLReferencesListWidget.superclass||$boot.nilAsClass).fn.prototype._activateListItem_.apply($self, [anItem]));
  391. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  392. $ctx2.supercall = false;
  393. //>>excludeEnd("ctx");;
  394. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  395. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  396. //>>excludeEnd("ctx");
  397. }));
  398. return self;
  399. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  400. }, function($ctx1) {$ctx1.fill(self,"activateListItem:",{anItem:anItem})});
  401. //>>excludeEnd("ctx");
  402. },
  403. //>>excludeStart("ide", pragmas.excludeIdeData);
  404. args: ["anItem"],
  405. source: "activateListItem: anItem\x0a\x09self model withChangesDo: [ super activateListItem: anItem ]",
  406. referencedClasses: [],
  407. //>>excludeEnd("ide");
  408. pragmas: [],
  409. messageSends: ["withChangesDo:", "model", "activateListItem:"]
  410. }),
  411. $globals.HLReferencesListWidget);
  412. $core.addMethod(
  413. $core.method({
  414. selector: "commandCategory",
  415. protocol: "accessing",
  416. fn: function (){
  417. var self=this,$self=this;
  418. return "Methods";
  419. },
  420. //>>excludeStart("ide", pragmas.excludeIdeData);
  421. args: [],
  422. source: "commandCategory\x0a\x09^ 'Methods'",
  423. referencedClasses: [],
  424. //>>excludeEnd("ide");
  425. pragmas: [],
  426. messageSends: []
  427. }),
  428. $globals.HLReferencesListWidget);
  429. $core.addMethod(
  430. $core.method({
  431. selector: "label",
  432. protocol: "accessing",
  433. fn: function (){
  434. var self=this,$self=this;
  435. return "List";
  436. },
  437. //>>excludeStart("ide", pragmas.excludeIdeData);
  438. args: [],
  439. source: "label\x0a\x09^ 'List'",
  440. referencedClasses: [],
  441. //>>excludeEnd("ide");
  442. pragmas: [],
  443. messageSends: []
  444. }),
  445. $globals.HLReferencesListWidget);
  446. $core.addMethod(
  447. $core.method({
  448. selector: "observeModel",
  449. protocol: "actions",
  450. fn: function (){
  451. var self=this,$self=this;
  452. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  453. return $core.withContext(function($ctx1) {
  454. //>>excludeEnd("ctx");
  455. var $1;
  456. $1=$recv($self._model())._announcer();
  457. $recv($1)._on_do_($globals.HLSearchReferences,(function(ann){
  458. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  459. return $core.withContext(function($ctx2) {
  460. //>>excludeEnd("ctx");
  461. return $self._onSearchReferences_($recv(ann)._searchString());
  462. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  463. }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1,1)});
  464. //>>excludeEnd("ctx");
  465. }));
  466. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  467. $ctx1.sendIdx["on:do:"]=1;
  468. //>>excludeEnd("ctx");
  469. $recv($1)._on_do_($globals.HLMethodSelected,(function(ann){
  470. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  471. return $core.withContext(function($ctx2) {
  472. //>>excludeEnd("ctx");
  473. return $self._onMethodSelected_($recv(ann)._item());
  474. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  475. }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1,2)});
  476. //>>excludeEnd("ctx");
  477. }));
  478. return self;
  479. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  480. }, function($ctx1) {$ctx1.fill(self,"observeModel",{})});
  481. //>>excludeEnd("ctx");
  482. },
  483. //>>excludeStart("ide", pragmas.excludeIdeData);
  484. args: [],
  485. source: "observeModel\x0a\x09self model announcer\x0a\x09\x09on: HLSearchReferences\x0a\x09\x09do: [ :ann | self onSearchReferences: ann searchString ];\x0a\x09\x09on: HLMethodSelected\x0a\x09\x09do: [ :ann | self onMethodSelected: ann item ]",
  486. referencedClasses: ["HLSearchReferences", "HLMethodSelected"],
  487. //>>excludeEnd("ide");
  488. pragmas: [],
  489. messageSends: ["on:do:", "announcer", "model", "onSearchReferences:", "searchString", "onMethodSelected:", "item"]
  490. }),
  491. $globals.HLReferencesListWidget);
  492. $core.addMethod(
  493. $core.method({
  494. selector: "onMethodSelected:",
  495. protocol: "reactions",
  496. fn: function (aMethod){
  497. var self=this,$self=this;
  498. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  499. return $core.withContext(function($ctx1) {
  500. //>>excludeEnd("ctx");
  501. var $1,$receiver;
  502. if(($receiver = aMethod) == null || $receiver.a$nil){
  503. return self;
  504. } else {
  505. aMethod;
  506. }
  507. $1=$recv($self._items())._includes_(aMethod);
  508. if(!$core.assert($1)){
  509. return self;
  510. }
  511. $self._selectedItem_(aMethod);
  512. $self._activateItem_(aMethod);
  513. return self;
  514. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  515. }, function($ctx1) {$ctx1.fill(self,"onMethodSelected:",{aMethod:aMethod})});
  516. //>>excludeEnd("ctx");
  517. },
  518. //>>excludeStart("ide", pragmas.excludeIdeData);
  519. args: ["aMethod"],
  520. source: "onMethodSelected: aMethod\x0a\x09aMethod ifNil: [ ^ self ].\x0a\x09(self items includes: aMethod) ifFalse: [ ^ self ].\x0a\x09\x0a\x09self \x0a\x09\x09selectedItem: aMethod;\x0a\x09\x09activateItem: aMethod",
  521. referencedClasses: [],
  522. //>>excludeEnd("ide");
  523. pragmas: [],
  524. messageSends: ["ifNil:", "ifFalse:", "includes:", "items", "selectedItem:", "activateItem:"]
  525. }),
  526. $globals.HLReferencesListWidget);
  527. $core.addMethod(
  528. $core.method({
  529. selector: "onSearchReferences:",
  530. protocol: "reactions",
  531. fn: function (aString){
  532. var self=this,$self=this;
  533. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  534. return $core.withContext(function($ctx1) {
  535. //>>excludeEnd("ctx");
  536. $self._subclassResponsibility();
  537. return self;
  538. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  539. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  540. //>>excludeEnd("ctx");
  541. },
  542. //>>excludeStart("ide", pragmas.excludeIdeData);
  543. args: ["aString"],
  544. source: "onSearchReferences: aString\x0a\x09self subclassResponsibility",
  545. referencedClasses: [],
  546. //>>excludeEnd("ide");
  547. pragmas: [],
  548. messageSends: ["subclassResponsibility"]
  549. }),
  550. $globals.HLReferencesListWidget);
  551. $core.addMethod(
  552. $core.method({
  553. selector: "renderItemLabel:on:",
  554. protocol: "rendering",
  555. fn: function (aMethod,html){
  556. var self=this,$self=this;
  557. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  558. return $core.withContext(function($ctx1) {
  559. //>>excludeEnd("ctx");
  560. $recv(html)._with_($recv(aMethod)._asString());
  561. return self;
  562. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  563. }, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{aMethod:aMethod,html:html})});
  564. //>>excludeEnd("ctx");
  565. },
  566. //>>excludeStart("ide", pragmas.excludeIdeData);
  567. args: ["aMethod", "html"],
  568. source: "renderItemLabel: aMethod on: html\x0a\x09html with: aMethod asString",
  569. referencedClasses: [],
  570. //>>excludeEnd("ide");
  571. pragmas: [],
  572. messageSends: ["with:", "asString"]
  573. }),
  574. $globals.HLReferencesListWidget);
  575. $core.addMethod(
  576. $core.method({
  577. selector: "reselectItem:",
  578. protocol: "actions",
  579. fn: function (aMethod){
  580. var self=this,$self=this;
  581. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  582. return $core.withContext(function($ctx1) {
  583. //>>excludeEnd("ctx");
  584. $self._selectItem_(aMethod);
  585. return self;
  586. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  587. }, function($ctx1) {$ctx1.fill(self,"reselectItem:",{aMethod:aMethod})});
  588. //>>excludeEnd("ctx");
  589. },
  590. //>>excludeStart("ide", pragmas.excludeIdeData);
  591. args: ["aMethod"],
  592. source: "reselectItem: aMethod\x0a\x09self selectItem: aMethod",
  593. referencedClasses: [],
  594. //>>excludeEnd("ide");
  595. pragmas: [],
  596. messageSends: ["selectItem:"]
  597. }),
  598. $globals.HLReferencesListWidget);
  599. $core.addMethod(
  600. $core.method({
  601. selector: "selectItem:",
  602. protocol: "actions",
  603. fn: function (aMethod){
  604. var self=this,$self=this;
  605. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  606. return $core.withContext(function($ctx1) {
  607. //>>excludeEnd("ctx");
  608. var $1;
  609. (
  610. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  611. $ctx1.supercall = true,
  612. //>>excludeEnd("ctx");
  613. ($globals.HLReferencesListWidget.superclass||$boot.nilAsClass).fn.prototype._selectItem_.apply($self, [aMethod]));
  614. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  615. $ctx1.supercall = false;
  616. //>>excludeEnd("ctx");;
  617. $1=$self._model();
  618. $recv($1)._selectedClass_(nil);
  619. $recv($1)._selectedMethod_(aMethod);
  620. return self;
  621. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  622. }, function($ctx1) {$ctx1.fill(self,"selectItem:",{aMethod:aMethod})});
  623. //>>excludeEnd("ctx");
  624. },
  625. //>>excludeStart("ide", pragmas.excludeIdeData);
  626. args: ["aMethod"],
  627. source: "selectItem: aMethod\x0a\x09super selectItem: aMethod.\x0a\x09self model selectedClass: nil; selectedMethod: aMethod",
  628. referencedClasses: [],
  629. //>>excludeEnd("ide");
  630. pragmas: [],
  631. messageSends: ["selectItem:", "selectedClass:", "model", "selectedMethod:"]
  632. }),
  633. $globals.HLReferencesListWidget);
  634. $core.addMethod(
  635. $core.method({
  636. selector: "on:",
  637. protocol: "instance creation",
  638. fn: function (aModel){
  639. var self=this,$self=this;
  640. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  641. return $core.withContext(function($ctx1) {
  642. //>>excludeEnd("ctx");
  643. var $1;
  644. $1=$self._new();
  645. $recv($1)._model_(aModel);
  646. return $recv($1)._yourself();
  647. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  648. }, function($ctx1) {$ctx1.fill(self,"on:",{aModel:aModel})});
  649. //>>excludeEnd("ctx");
  650. },
  651. //>>excludeStart("ide", pragmas.excludeIdeData);
  652. args: ["aModel"],
  653. source: "on: aModel\x0a\x09^ self new \x0a\x09\x09model: aModel; \x0a\x09\x09yourself",
  654. referencedClasses: [],
  655. //>>excludeEnd("ide");
  656. pragmas: [],
  657. messageSends: ["model:", "new", "yourself"]
  658. }),
  659. $globals.HLReferencesListWidget.a$cls);
  660. $core.addClass("HLClassReferencesListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  661. $core.addMethod(
  662. $core.method({
  663. selector: "label",
  664. protocol: "accessing",
  665. fn: function (){
  666. var self=this,$self=this;
  667. return "Class references";
  668. },
  669. //>>excludeStart("ide", pragmas.excludeIdeData);
  670. args: [],
  671. source: "label\x0a\x09^ 'Class references'",
  672. referencedClasses: [],
  673. //>>excludeEnd("ide");
  674. pragmas: [],
  675. messageSends: []
  676. }),
  677. $globals.HLClassReferencesListWidget);
  678. $core.addMethod(
  679. $core.method({
  680. selector: "onSearchReferences:",
  681. protocol: "reactions",
  682. fn: function (aString){
  683. var self=this,$self=this;
  684. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  685. return $core.withContext(function($ctx1) {
  686. //>>excludeEnd("ctx");
  687. $self._selectItem_(nil);
  688. $self._items_($recv($self._model())._classReferencesOf_(aString));
  689. $self._refresh();
  690. return self;
  691. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  692. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  693. //>>excludeEnd("ctx");
  694. },
  695. //>>excludeStart("ide", pragmas.excludeIdeData);
  696. args: ["aString"],
  697. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model classReferencesOf: aString).\x0a\x09self refresh",
  698. referencedClasses: [],
  699. //>>excludeEnd("ide");
  700. pragmas: [],
  701. messageSends: ["selectItem:", "items:", "classReferencesOf:", "model", "refresh"]
  702. }),
  703. $globals.HLClassReferencesListWidget);
  704. $core.addClass("HLImplementorsListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  705. $core.addMethod(
  706. $core.method({
  707. selector: "label",
  708. protocol: "accessing",
  709. fn: function (){
  710. var self=this,$self=this;
  711. return "Implementors";
  712. },
  713. //>>excludeStart("ide", pragmas.excludeIdeData);
  714. args: [],
  715. source: "label\x0a\x09^ 'Implementors'",
  716. referencedClasses: [],
  717. //>>excludeEnd("ide");
  718. pragmas: [],
  719. messageSends: []
  720. }),
  721. $globals.HLImplementorsListWidget);
  722. $core.addMethod(
  723. $core.method({
  724. selector: "onSearchReferences:",
  725. protocol: "reactions",
  726. fn: function (aString){
  727. var self=this,$self=this;
  728. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  729. return $core.withContext(function($ctx1) {
  730. //>>excludeEnd("ctx");
  731. $self._selectItem_(nil);
  732. $self._items_($recv($self._model())._implementorsOf_(aString));
  733. $self._refresh();
  734. return self;
  735. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  736. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  737. //>>excludeEnd("ctx");
  738. },
  739. //>>excludeStart("ide", pragmas.excludeIdeData);
  740. args: ["aString"],
  741. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model implementorsOf: aString).\x0a\x09self refresh",
  742. referencedClasses: [],
  743. //>>excludeEnd("ide");
  744. pragmas: [],
  745. messageSends: ["selectItem:", "items:", "implementorsOf:", "model", "refresh"]
  746. }),
  747. $globals.HLImplementorsListWidget);
  748. $core.addClass("HLRegexpListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  749. $core.addMethod(
  750. $core.method({
  751. selector: "label",
  752. protocol: "accessing",
  753. fn: function (){
  754. var self=this,$self=this;
  755. return "Source search";
  756. },
  757. //>>excludeStart("ide", pragmas.excludeIdeData);
  758. args: [],
  759. source: "label\x0a\x09^ 'Source search'",
  760. referencedClasses: [],
  761. //>>excludeEnd("ide");
  762. pragmas: [],
  763. messageSends: []
  764. }),
  765. $globals.HLRegexpListWidget);
  766. $core.addMethod(
  767. $core.method({
  768. selector: "onSearchReferences:",
  769. protocol: "reactions",
  770. fn: function (aString){
  771. var self=this,$self=this;
  772. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  773. return $core.withContext(function($ctx1) {
  774. //>>excludeEnd("ctx");
  775. $self._selectItem_(nil);
  776. $self._items_($recv($self._model())._regexpReferencesOf_(aString));
  777. $self._refresh();
  778. return self;
  779. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  780. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  781. //>>excludeEnd("ctx");
  782. },
  783. //>>excludeStart("ide", pragmas.excludeIdeData);
  784. args: ["aString"],
  785. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model regexpReferencesOf: aString).\x0a\x09self refresh",
  786. referencedClasses: [],
  787. //>>excludeEnd("ide");
  788. pragmas: [],
  789. messageSends: ["selectItem:", "items:", "regexpReferencesOf:", "model", "refresh"]
  790. }),
  791. $globals.HLRegexpListWidget);
  792. $core.addClass("HLSendersListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  793. $core.addMethod(
  794. $core.method({
  795. selector: "label",
  796. protocol: "accessing",
  797. fn: function (){
  798. var self=this,$self=this;
  799. return "Senders";
  800. },
  801. //>>excludeStart("ide", pragmas.excludeIdeData);
  802. args: [],
  803. source: "label\x0a\x09^ 'Senders'",
  804. referencedClasses: [],
  805. //>>excludeEnd("ide");
  806. pragmas: [],
  807. messageSends: []
  808. }),
  809. $globals.HLSendersListWidget);
  810. $core.addMethod(
  811. $core.method({
  812. selector: "onSearchReferences:",
  813. protocol: "reactions",
  814. fn: function (aString){
  815. var self=this,$self=this;
  816. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  817. return $core.withContext(function($ctx1) {
  818. //>>excludeEnd("ctx");
  819. $self._selectItem_(nil);
  820. $self._items_($recv($self._model())._sendersOf_(aString));
  821. $self._refresh();
  822. return self;
  823. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  824. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  825. //>>excludeEnd("ctx");
  826. },
  827. //>>excludeStart("ide", pragmas.excludeIdeData);
  828. args: ["aString"],
  829. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model sendersOf: aString).\x0a\x09self refresh",
  830. referencedClasses: [],
  831. //>>excludeEnd("ide");
  832. pragmas: [],
  833. messageSends: ["selectItem:", "items:", "sendersOf:", "model", "refresh"]
  834. }),
  835. $globals.HLSendersListWidget);
  836. $core.addClass("HLReferencesModel", $globals.HLToolModel, ["methodsCache", "classesAndMetaclassesCache"], "Helios-References");
  837. $core.addMethod(
  838. $core.method({
  839. selector: "allMethods",
  840. protocol: "accessing",
  841. fn: function (){
  842. var self=this,$self=this;
  843. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  844. return $core.withContext(function($ctx1) {
  845. //>>excludeEnd("ctx");
  846. return $self._methodsCache();
  847. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  848. }, function($ctx1) {$ctx1.fill(self,"allMethods",{})});
  849. //>>excludeEnd("ctx");
  850. },
  851. //>>excludeStart("ide", pragmas.excludeIdeData);
  852. args: [],
  853. source: "allMethods\x0a\x09^ self methodsCache",
  854. referencedClasses: [],
  855. //>>excludeEnd("ide");
  856. pragmas: [],
  857. messageSends: ["methodsCache"]
  858. }),
  859. $globals.HLReferencesModel);
  860. $core.addMethod(
  861. $core.method({
  862. selector: "classReferencesOf:",
  863. protocol: "accessing",
  864. fn: function (aString){
  865. var self=this,$self=this;
  866. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  867. return $core.withContext(function($ctx1) {
  868. //>>excludeEnd("ctx");
  869. return $recv($self._allMethods())._select_((function(each){
  870. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  871. return $core.withContext(function($ctx2) {
  872. //>>excludeEnd("ctx");
  873. return $recv($recv(each)._referencedClasses())._includes_(aString);
  874. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  875. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  876. //>>excludeEnd("ctx");
  877. }));
  878. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  879. }, function($ctx1) {$ctx1.fill(self,"classReferencesOf:",{aString:aString})});
  880. //>>excludeEnd("ctx");
  881. },
  882. //>>excludeStart("ide", pragmas.excludeIdeData);
  883. args: ["aString"],
  884. source: "classReferencesOf: aString\x0a\x09\x22Answer all methods referencing the class named aString\x22\x0a\x09\x0a\x09^self allMethods select: [ :each |\x0a\x09\x09\x09(each referencedClasses includes: aString) ]",
  885. referencedClasses: [],
  886. //>>excludeEnd("ide");
  887. pragmas: [],
  888. messageSends: ["select:", "allMethods", "includes:", "referencedClasses"]
  889. }),
  890. $globals.HLReferencesModel);
  891. $core.addMethod(
  892. $core.method({
  893. selector: "classesAndMetaclasses",
  894. protocol: "accessing",
  895. fn: function (){
  896. var self=this,$self=this;
  897. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  898. return $core.withContext(function($ctx1) {
  899. //>>excludeEnd("ctx");
  900. return $self._classesAndMetaclassesCache();
  901. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  902. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{})});
  903. //>>excludeEnd("ctx");
  904. },
  905. //>>excludeStart("ide", pragmas.excludeIdeData);
  906. args: [],
  907. source: "classesAndMetaclasses\x0a\x09^ self classesAndMetaclassesCache",
  908. referencedClasses: [],
  909. //>>excludeEnd("ide");
  910. pragmas: [],
  911. messageSends: ["classesAndMetaclassesCache"]
  912. }),
  913. $globals.HLReferencesModel);
  914. $core.addMethod(
  915. $core.method({
  916. selector: "classesAndMetaclassesCache",
  917. protocol: "cache",
  918. fn: function (){
  919. var self=this,$self=this;
  920. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  921. return $core.withContext(function($ctx1) {
  922. //>>excludeEnd("ctx");
  923. var $1,$receiver;
  924. $1=$self.classesAndMetaclassesCache;
  925. if(($receiver = $1) == null || $receiver.a$nil){
  926. $self._updateClassesAndMetaclassesCache();
  927. } else {
  928. $1;
  929. }
  930. return $self.classesAndMetaclassesCache;
  931. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  932. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclassesCache",{})});
  933. //>>excludeEnd("ctx");
  934. },
  935. //>>excludeStart("ide", pragmas.excludeIdeData);
  936. args: [],
  937. source: "classesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache ifNil: [ self updateClassesAndMetaclassesCache ].\x0a\x09^ classesAndMetaclassesCache",
  938. referencedClasses: [],
  939. //>>excludeEnd("ide");
  940. pragmas: [],
  941. messageSends: ["ifNil:", "updateClassesAndMetaclassesCache"]
  942. }),
  943. $globals.HLReferencesModel);
  944. $core.addMethod(
  945. $core.method({
  946. selector: "implementorsOf:",
  947. protocol: "accessing",
  948. fn: function (aString){
  949. var self=this,$self=this;
  950. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  951. return $core.withContext(function($ctx1) {
  952. //>>excludeEnd("ctx");
  953. return $recv($self._allMethods())._select_((function(each){
  954. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  955. return $core.withContext(function($ctx2) {
  956. //>>excludeEnd("ctx");
  957. return $recv($recv(each)._selector()).__eq(aString);
  958. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  959. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  960. //>>excludeEnd("ctx");
  961. }));
  962. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  963. }, function($ctx1) {$ctx1.fill(self,"implementorsOf:",{aString:aString})});
  964. //>>excludeEnd("ctx");
  965. },
  966. //>>excludeStart("ide", pragmas.excludeIdeData);
  967. args: ["aString"],
  968. source: "implementorsOf: aString\x0a\x09^ self allMethods select: [ :each |\x0a\x09\x09each selector = aString ]",
  969. referencedClasses: [],
  970. //>>excludeEnd("ide");
  971. pragmas: [],
  972. messageSends: ["select:", "allMethods", "=", "selector"]
  973. }),
  974. $globals.HLReferencesModel);
  975. $core.addMethod(
  976. $core.method({
  977. selector: "isReferencesModel",
  978. protocol: "testing",
  979. fn: function (){
  980. var self=this,$self=this;
  981. return true;
  982. },
  983. //>>excludeStart("ide", pragmas.excludeIdeData);
  984. args: [],
  985. source: "isReferencesModel\x0a\x09^ true",
  986. referencedClasses: [],
  987. //>>excludeEnd("ide");
  988. pragmas: [],
  989. messageSends: []
  990. }),
  991. $globals.HLReferencesModel);
  992. $core.addMethod(
  993. $core.method({
  994. selector: "methodsCache",
  995. protocol: "cache",
  996. fn: function (){
  997. var self=this,$self=this;
  998. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  999. return $core.withContext(function($ctx1) {
  1000. //>>excludeEnd("ctx");
  1001. var $1,$receiver;
  1002. $1=$self.methodsCache;
  1003. if(($receiver = $1) == null || $receiver.a$nil){
  1004. $self._updateMethodsCache();
  1005. } else {
  1006. $1;
  1007. }
  1008. return $self.methodsCache;
  1009. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1010. }, function($ctx1) {$ctx1.fill(self,"methodsCache",{})});
  1011. //>>excludeEnd("ctx");
  1012. },
  1013. //>>excludeStart("ide", pragmas.excludeIdeData);
  1014. args: [],
  1015. source: "methodsCache\x0a\x09methodsCache ifNil: [ self updateMethodsCache ].\x0a\x09^ methodsCache",
  1016. referencedClasses: [],
  1017. //>>excludeEnd("ide");
  1018. pragmas: [],
  1019. messageSends: ["ifNil:", "updateMethodsCache"]
  1020. }),
  1021. $globals.HLReferencesModel);
  1022. $core.addMethod(
  1023. $core.method({
  1024. selector: "openClassNamed:",
  1025. protocol: "actions",
  1026. fn: function (aString){
  1027. var self=this,$self=this;
  1028. var browser;
  1029. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1030. return $core.withContext(function($ctx1) {
  1031. //>>excludeEnd("ctx");
  1032. $self._withChangesDo_((function(){
  1033. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1034. return $core.withContext(function($ctx2) {
  1035. //>>excludeEnd("ctx");
  1036. browser=$recv($globals.HLBrowser)._openAsTab();
  1037. return $recv(browser)._openClassNamed_(aString);
  1038. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1039. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1040. //>>excludeEnd("ctx");
  1041. }));
  1042. return self;
  1043. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1044. }, function($ctx1) {$ctx1.fill(self,"openClassNamed:",{aString:aString,browser:browser})});
  1045. //>>excludeEnd("ctx");
  1046. },
  1047. //>>excludeStart("ide", pragmas.excludeIdeData);
  1048. args: ["aString"],
  1049. source: "openClassNamed: aString\x0a\x09| browser |\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09browser := HLBrowser openAsTab.\x0a\x09\x09browser openClassNamed: aString ]",
  1050. referencedClasses: ["HLBrowser"],
  1051. //>>excludeEnd("ide");
  1052. pragmas: [],
  1053. messageSends: ["withChangesDo:", "openAsTab", "openClassNamed:"]
  1054. }),
  1055. $globals.HLReferencesModel);
  1056. $core.addMethod(
  1057. $core.method({
  1058. selector: "openMethod",
  1059. protocol: "actions",
  1060. fn: function (){
  1061. var self=this,$self=this;
  1062. var browser;
  1063. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1064. return $core.withContext(function($ctx1) {
  1065. //>>excludeEnd("ctx");
  1066. var $1,$receiver;
  1067. $1=$self._selectedMethod();
  1068. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1069. $ctx1.sendIdx["selectedMethod"]=1;
  1070. //>>excludeEnd("ctx");
  1071. if(($receiver = $1) == null || $receiver.a$nil){
  1072. return self;
  1073. } else {
  1074. $1;
  1075. }
  1076. $self._withChangesDo_((function(){
  1077. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1078. return $core.withContext(function($ctx2) {
  1079. //>>excludeEnd("ctx");
  1080. browser=$recv($globals.HLBrowser)._openAsTab();
  1081. return $recv(browser)._openMethod_($self._selectedMethod());
  1082. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1083. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1084. //>>excludeEnd("ctx");
  1085. }));
  1086. return self;
  1087. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1088. }, function($ctx1) {$ctx1.fill(self,"openMethod",{browser:browser})});
  1089. //>>excludeEnd("ctx");
  1090. },
  1091. //>>excludeStart("ide", pragmas.excludeIdeData);
  1092. args: [],
  1093. source: "openMethod\x0a\x09| browser |\x0a\x09\x0a\x09self selectedMethod ifNil: [ ^ self ].\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09browser := HLBrowser openAsTab.\x0a\x09\x09browser openMethod: self selectedMethod ]",
  1094. referencedClasses: ["HLBrowser"],
  1095. //>>excludeEnd("ide");
  1096. pragmas: [],
  1097. messageSends: ["ifNil:", "selectedMethod", "withChangesDo:", "openAsTab", "openMethod:"]
  1098. }),
  1099. $globals.HLReferencesModel);
  1100. $core.addMethod(
  1101. $core.method({
  1102. selector: "regexpReferencesOf:",
  1103. protocol: "accessing",
  1104. fn: function (aString){
  1105. var self=this,$self=this;
  1106. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1107. return $core.withContext(function($ctx1) {
  1108. //>>excludeEnd("ctx");
  1109. return $recv($self._allMethods())._select_((function(each){
  1110. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1111. return $core.withContext(function($ctx2) {
  1112. //>>excludeEnd("ctx");
  1113. return $recv($recv(each)._source())._match_(aString);
  1114. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1115. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1116. //>>excludeEnd("ctx");
  1117. }));
  1118. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1119. }, function($ctx1) {$ctx1.fill(self,"regexpReferencesOf:",{aString:aString})});
  1120. //>>excludeEnd("ctx");
  1121. },
  1122. //>>excludeStart("ide", pragmas.excludeIdeData);
  1123. args: ["aString"],
  1124. source: "regexpReferencesOf: aString\x0a\x09^ self allMethods select: [ :each |\x0a\x09\x09each source match: aString ]",
  1125. referencedClasses: [],
  1126. //>>excludeEnd("ide");
  1127. pragmas: [],
  1128. messageSends: ["select:", "allMethods", "match:", "source"]
  1129. }),
  1130. $globals.HLReferencesModel);
  1131. $core.addMethod(
  1132. $core.method({
  1133. selector: "search:",
  1134. protocol: "actions",
  1135. fn: function (aString){
  1136. var self=this,$self=this;
  1137. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1138. return $core.withContext(function($ctx1) {
  1139. //>>excludeEnd("ctx");
  1140. var $1,$3,$2;
  1141. $self._updateCaches();
  1142. $1=$self._announcer();
  1143. $3=$recv($globals.HLSearchReferences)._new();
  1144. $recv($3)._searchString_(aString);
  1145. $2=$recv($3)._yourself();
  1146. $recv($1)._announce_($2);
  1147. return self;
  1148. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1149. }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString})});
  1150. //>>excludeEnd("ctx");
  1151. },
  1152. //>>excludeStart("ide", pragmas.excludeIdeData);
  1153. args: ["aString"],
  1154. source: "search: aString\x0a\x09self updateCaches.\x0a\x09\x0a\x09self announcer announce: (HLSearchReferences new\x0a\x09\x09searchString: aString;\x0a\x09\x09yourself)",
  1155. referencedClasses: ["HLSearchReferences"],
  1156. //>>excludeEnd("ide");
  1157. pragmas: [],
  1158. messageSends: ["updateCaches", "announce:", "announcer", "searchString:", "new", "yourself"]
  1159. }),
  1160. $globals.HLReferencesModel);
  1161. $core.addMethod(
  1162. $core.method({
  1163. selector: "sendersOf:",
  1164. protocol: "accessing",
  1165. fn: function (aString){
  1166. var self=this,$self=this;
  1167. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1168. return $core.withContext(function($ctx1) {
  1169. //>>excludeEnd("ctx");
  1170. return $recv($self._allMethods())._select_((function(each){
  1171. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1172. return $core.withContext(function($ctx2) {
  1173. //>>excludeEnd("ctx");
  1174. return $recv($recv(each)._messageSends())._includes_(aString);
  1175. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1176. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1177. //>>excludeEnd("ctx");
  1178. }));
  1179. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1180. }, function($ctx1) {$ctx1.fill(self,"sendersOf:",{aString:aString})});
  1181. //>>excludeEnd("ctx");
  1182. },
  1183. //>>excludeStart("ide", pragmas.excludeIdeData);
  1184. args: ["aString"],
  1185. source: "sendersOf: aString\x0a\x09^ self allMethods select: [ :each |\x0a\x09\x09each messageSends includes: aString ]",
  1186. referencedClasses: [],
  1187. //>>excludeEnd("ide");
  1188. pragmas: [],
  1189. messageSends: ["select:", "allMethods", "includes:", "messageSends"]
  1190. }),
  1191. $globals.HLReferencesModel);
  1192. $core.addMethod(
  1193. $core.method({
  1194. selector: "updateCaches",
  1195. protocol: "cache",
  1196. fn: function (){
  1197. var self=this,$self=this;
  1198. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1199. return $core.withContext(function($ctx1) {
  1200. //>>excludeEnd("ctx");
  1201. $self._updateClassesAndMetaclassesCache();
  1202. $self._updateMethodsCache();
  1203. return self;
  1204. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1205. }, function($ctx1) {$ctx1.fill(self,"updateCaches",{})});
  1206. //>>excludeEnd("ctx");
  1207. },
  1208. //>>excludeStart("ide", pragmas.excludeIdeData);
  1209. args: [],
  1210. source: "updateCaches\x0a\x09self \x0a\x09\x09updateClassesAndMetaclassesCache;\x0a\x09\x09updateMethodsCache",
  1211. referencedClasses: [],
  1212. //>>excludeEnd("ide");
  1213. pragmas: [],
  1214. messageSends: ["updateClassesAndMetaclassesCache", "updateMethodsCache"]
  1215. }),
  1216. $globals.HLReferencesModel);
  1217. $core.addMethod(
  1218. $core.method({
  1219. selector: "updateClassesAndMetaclassesCache",
  1220. protocol: "cache",
  1221. fn: function (){
  1222. var self=this,$self=this;
  1223. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1224. return $core.withContext(function($ctx1) {
  1225. //>>excludeEnd("ctx");
  1226. var $1,$receiver;
  1227. $self.classesAndMetaclassesCache=$recv($globals.OrderedCollection)._new();
  1228. $recv($recv($self._environment())._classes())._do_((function(each){
  1229. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1230. return $core.withContext(function($ctx2) {
  1231. //>>excludeEnd("ctx");
  1232. $recv($self.classesAndMetaclassesCache)._add_(each);
  1233. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1234. $ctx2.sendIdx["add:"]=1;
  1235. //>>excludeEnd("ctx");
  1236. $1=$recv(each)._theMetaClass();
  1237. if(($receiver = $1) == null || $receiver.a$nil){
  1238. return $1;
  1239. } else {
  1240. var meta;
  1241. meta=$receiver;
  1242. return $recv($self.classesAndMetaclassesCache)._add_(meta);
  1243. }
  1244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1245. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1246. //>>excludeEnd("ctx");
  1247. }));
  1248. return self;
  1249. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1250. }, function($ctx1) {$ctx1.fill(self,"updateClassesAndMetaclassesCache",{})});
  1251. //>>excludeEnd("ctx");
  1252. },
  1253. //>>excludeStart("ide", pragmas.excludeIdeData);
  1254. args: [],
  1255. source: "updateClassesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache := OrderedCollection new.\x0a\x09\x0a\x09self environment classes do: [ :each |\x0a\x09\x09classesAndMetaclassesCache add: each.\x0a\x09\x09each theMetaClass ifNotNil: [ :meta | classesAndMetaclassesCache add: meta ] ]",
  1256. referencedClasses: ["OrderedCollection"],
  1257. //>>excludeEnd("ide");
  1258. pragmas: [],
  1259. messageSends: ["new", "do:", "classes", "environment", "add:", "ifNotNil:", "theMetaClass"]
  1260. }),
  1261. $globals.HLReferencesModel);
  1262. $core.addMethod(
  1263. $core.method({
  1264. selector: "updateMethodsCache",
  1265. protocol: "cache",
  1266. fn: function (){
  1267. var self=this,$self=this;
  1268. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1269. return $core.withContext(function($ctx1) {
  1270. //>>excludeEnd("ctx");
  1271. $self.methodsCache=$recv($globals.OrderedCollection)._new();
  1272. $recv($self._classesAndMetaclasses())._do_((function(each){
  1273. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1274. return $core.withContext(function($ctx2) {
  1275. //>>excludeEnd("ctx");
  1276. return $recv($self.methodsCache)._addAll_($recv(each)._methods());
  1277. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1278. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1279. //>>excludeEnd("ctx");
  1280. }));
  1281. return self;
  1282. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1283. }, function($ctx1) {$ctx1.fill(self,"updateMethodsCache",{})});
  1284. //>>excludeEnd("ctx");
  1285. },
  1286. //>>excludeStart("ide", pragmas.excludeIdeData);
  1287. args: [],
  1288. source: "updateMethodsCache\x0a\x09methodsCache := OrderedCollection new.\x0a\x09\x0a\x09self classesAndMetaclasses\x0a\x09\x09do: [ :each | methodsCache addAll: each methods ]",
  1289. referencedClasses: ["OrderedCollection"],
  1290. //>>excludeEnd("ide");
  1291. pragmas: [],
  1292. messageSends: ["new", "do:", "classesAndMetaclasses", "addAll:", "methods"]
  1293. }),
  1294. $globals.HLReferencesModel);
  1295. });