Helios-References.js 52 KB

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