Helios-References.js 44 KB

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