Helios-References.js 53 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621
  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. var smalltalk=$core,_st=$recv,globals=$globals;
  4. $core.addPackage('Helios-References');
  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: "onItemDoubleClicked:on:",
  851. protocol: 'reactions',
  852. fn: function (anEvent,anObject){
  853. var self=this;
  854. function $HLBrowser(){return $globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
  855. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  856. return $core.withContext(function($ctx1) {
  857. //>>excludeEnd("ctx");
  858. $recv($recv($HLBrowser())._openAsTab())._openMethod_(anObject);
  859. return self;
  860. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  861. }, function($ctx1) {$ctx1.fill(self,"onItemDoubleClicked:on:",{anEvent:anEvent,anObject:anObject},$globals.HLClassReferencesListWidget)});
  862. //>>excludeEnd("ctx");
  863. },
  864. //>>excludeStart("ide", pragmas.excludeIdeData);
  865. args: ["anEvent", "anObject"],
  866. source: "onItemDoubleClicked: anEvent on: anObject \x0a\x09\x22The item that this widget has rendered for anObject has been double clicked.\x22\x0a\x0a\x09HLBrowser openAsTab openMethod: anObject",
  867. referencedClasses: ["HLBrowser"],
  868. //>>excludeEnd("ide");
  869. messageSends: ["openMethod:", "openAsTab"]
  870. }),
  871. $globals.HLClassReferencesListWidget);
  872. $core.addMethod(
  873. $core.method({
  874. selector: "onSearchReferences:",
  875. protocol: 'reactions',
  876. fn: function (aString){
  877. var self=this;
  878. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  879. return $core.withContext(function($ctx1) {
  880. //>>excludeEnd("ctx");
  881. self._selectItem_(nil);
  882. self._items_($recv(self._model())._classReferencesOf_(aString));
  883. self._refresh();
  884. return self;
  885. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  886. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},$globals.HLClassReferencesListWidget)});
  887. //>>excludeEnd("ctx");
  888. },
  889. //>>excludeStart("ide", pragmas.excludeIdeData);
  890. args: ["aString"],
  891. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model classReferencesOf: aString).\x0a\x09self refresh",
  892. referencedClasses: [],
  893. //>>excludeEnd("ide");
  894. messageSends: ["selectItem:", "items:", "classReferencesOf:", "model", "refresh"]
  895. }),
  896. $globals.HLClassReferencesListWidget);
  897. $core.addClass('HLImplementorsListWidget', $globals.HLReferencesListWidget, [], 'Helios-References');
  898. $core.addMethod(
  899. $core.method({
  900. selector: "label",
  901. protocol: 'accessing',
  902. fn: function (){
  903. var self=this;
  904. return "Implementors";
  905. },
  906. //>>excludeStart("ide", pragmas.excludeIdeData);
  907. args: [],
  908. source: "label\x0a\x09^ 'Implementors'",
  909. referencedClasses: [],
  910. //>>excludeEnd("ide");
  911. messageSends: []
  912. }),
  913. $globals.HLImplementorsListWidget);
  914. $core.addMethod(
  915. $core.method({
  916. selector: "onSearchReferences:",
  917. protocol: 'reactions',
  918. fn: function (aString){
  919. var self=this;
  920. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  921. return $core.withContext(function($ctx1) {
  922. //>>excludeEnd("ctx");
  923. self._selectItem_(nil);
  924. self._items_($recv(self._model())._implementorsOf_(aString));
  925. self._refresh();
  926. return self;
  927. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  928. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},$globals.HLImplementorsListWidget)});
  929. //>>excludeEnd("ctx");
  930. },
  931. //>>excludeStart("ide", pragmas.excludeIdeData);
  932. args: ["aString"],
  933. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model implementorsOf: aString).\x0a\x09self refresh",
  934. referencedClasses: [],
  935. //>>excludeEnd("ide");
  936. messageSends: ["selectItem:", "items:", "implementorsOf:", "model", "refresh"]
  937. }),
  938. $globals.HLImplementorsListWidget);
  939. $core.addClass('HLRegexpListWidget', $globals.HLReferencesListWidget, [], 'Helios-References');
  940. $core.addMethod(
  941. $core.method({
  942. selector: "label",
  943. protocol: 'accessing',
  944. fn: function (){
  945. var self=this;
  946. return "Source search";
  947. },
  948. //>>excludeStart("ide", pragmas.excludeIdeData);
  949. args: [],
  950. source: "label\x0a\x09^ 'Source search'",
  951. referencedClasses: [],
  952. //>>excludeEnd("ide");
  953. messageSends: []
  954. }),
  955. $globals.HLRegexpListWidget);
  956. $core.addMethod(
  957. $core.method({
  958. selector: "onSearchReferences:",
  959. protocol: 'reactions',
  960. fn: function (aString){
  961. var self=this;
  962. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  963. return $core.withContext(function($ctx1) {
  964. //>>excludeEnd("ctx");
  965. self._selectItem_(nil);
  966. self._items_($recv(self._model())._regexpReferencesOf_(aString));
  967. self._refresh();
  968. return self;
  969. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  970. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},$globals.HLRegexpListWidget)});
  971. //>>excludeEnd("ctx");
  972. },
  973. //>>excludeStart("ide", pragmas.excludeIdeData);
  974. args: ["aString"],
  975. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model regexpReferencesOf: aString).\x0a\x09self refresh",
  976. referencedClasses: [],
  977. //>>excludeEnd("ide");
  978. messageSends: ["selectItem:", "items:", "regexpReferencesOf:", "model", "refresh"]
  979. }),
  980. $globals.HLRegexpListWidget);
  981. $core.addClass('HLSendersListWidget', $globals.HLReferencesListWidget, [], 'Helios-References');
  982. $core.addMethod(
  983. $core.method({
  984. selector: "label",
  985. protocol: 'accessing',
  986. fn: function (){
  987. var self=this;
  988. return "Senders";
  989. },
  990. //>>excludeStart("ide", pragmas.excludeIdeData);
  991. args: [],
  992. source: "label\x0a\x09^ 'Senders'",
  993. referencedClasses: [],
  994. //>>excludeEnd("ide");
  995. messageSends: []
  996. }),
  997. $globals.HLSendersListWidget);
  998. $core.addMethod(
  999. $core.method({
  1000. selector: "onSearchReferences:",
  1001. protocol: 'reactions',
  1002. fn: function (aString){
  1003. var self=this;
  1004. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1005. return $core.withContext(function($ctx1) {
  1006. //>>excludeEnd("ctx");
  1007. self._selectItem_(nil);
  1008. self._items_($recv(self._model())._sendersOf_(aString));
  1009. self._refresh();
  1010. return self;
  1011. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1012. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},$globals.HLSendersListWidget)});
  1013. //>>excludeEnd("ctx");
  1014. },
  1015. //>>excludeStart("ide", pragmas.excludeIdeData);
  1016. args: ["aString"],
  1017. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model sendersOf: aString).\x0a\x09self refresh",
  1018. referencedClasses: [],
  1019. //>>excludeEnd("ide");
  1020. messageSends: ["selectItem:", "items:", "sendersOf:", "model", "refresh"]
  1021. }),
  1022. $globals.HLSendersListWidget);
  1023. $core.addClass('HLReferencesModel', $globals.HLToolModel, ['methodsCache', 'classesAndMetaclassesCache'], 'Helios-References');
  1024. $core.addMethod(
  1025. $core.method({
  1026. selector: "allMethods",
  1027. protocol: 'accessing',
  1028. fn: function (){
  1029. var self=this;
  1030. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1031. return $core.withContext(function($ctx1) {
  1032. //>>excludeEnd("ctx");
  1033. var $1;
  1034. $1=self._methodsCache();
  1035. return $1;
  1036. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1037. }, function($ctx1) {$ctx1.fill(self,"allMethods",{},$globals.HLReferencesModel)});
  1038. //>>excludeEnd("ctx");
  1039. },
  1040. //>>excludeStart("ide", pragmas.excludeIdeData);
  1041. args: [],
  1042. source: "allMethods\x0a\x09^ self methodsCache",
  1043. referencedClasses: [],
  1044. //>>excludeEnd("ide");
  1045. messageSends: ["methodsCache"]
  1046. }),
  1047. $globals.HLReferencesModel);
  1048. $core.addMethod(
  1049. $core.method({
  1050. selector: "classReferencesOf:",
  1051. protocol: 'accessing',
  1052. fn: function (aString){
  1053. var self=this;
  1054. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1055. return $core.withContext(function($ctx1) {
  1056. //>>excludeEnd("ctx");
  1057. var $1;
  1058. $1=$recv(self._allMethods())._select_((function(each){
  1059. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1060. return $core.withContext(function($ctx2) {
  1061. //>>excludeEnd("ctx");
  1062. return $recv($recv(each)._referencedClasses())._includes_(aString);
  1063. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1064. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1065. //>>excludeEnd("ctx");
  1066. }));
  1067. return $1;
  1068. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1069. }, function($ctx1) {$ctx1.fill(self,"classReferencesOf:",{aString:aString},$globals.HLReferencesModel)});
  1070. //>>excludeEnd("ctx");
  1071. },
  1072. //>>excludeStart("ide", pragmas.excludeIdeData);
  1073. args: ["aString"],
  1074. 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) ].",
  1075. referencedClasses: [],
  1076. //>>excludeEnd("ide");
  1077. messageSends: ["select:", "allMethods", "includes:", "referencedClasses"]
  1078. }),
  1079. $globals.HLReferencesModel);
  1080. $core.addMethod(
  1081. $core.method({
  1082. selector: "classesAndMetaclasses",
  1083. protocol: 'accessing',
  1084. fn: function (){
  1085. var self=this;
  1086. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1087. return $core.withContext(function($ctx1) {
  1088. //>>excludeEnd("ctx");
  1089. var $1;
  1090. $1=self._classesAndMetaclassesCache();
  1091. return $1;
  1092. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1093. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{},$globals.HLReferencesModel)});
  1094. //>>excludeEnd("ctx");
  1095. },
  1096. //>>excludeStart("ide", pragmas.excludeIdeData);
  1097. args: [],
  1098. source: "classesAndMetaclasses\x0a\x09^ self classesAndMetaclassesCache",
  1099. referencedClasses: [],
  1100. //>>excludeEnd("ide");
  1101. messageSends: ["classesAndMetaclassesCache"]
  1102. }),
  1103. $globals.HLReferencesModel);
  1104. $core.addMethod(
  1105. $core.method({
  1106. selector: "classesAndMetaclassesCache",
  1107. protocol: 'cache',
  1108. fn: function (){
  1109. var self=this;
  1110. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1111. return $core.withContext(function($ctx1) {
  1112. //>>excludeEnd("ctx");
  1113. var $1,$2,$receiver;
  1114. $1=self["@classesAndMetaclassesCache"];
  1115. if(($receiver = $1) == null || $receiver.isNil){
  1116. self._updateClassesAndMetaclassesCache();
  1117. } else {
  1118. $1;
  1119. };
  1120. $2=self["@classesAndMetaclassesCache"];
  1121. return $2;
  1122. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1123. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclassesCache",{},$globals.HLReferencesModel)});
  1124. //>>excludeEnd("ctx");
  1125. },
  1126. //>>excludeStart("ide", pragmas.excludeIdeData);
  1127. args: [],
  1128. source: "classesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache ifNil: [ self updateClassesAndMetaclassesCache ].\x0a\x09^ classesAndMetaclassesCache",
  1129. referencedClasses: [],
  1130. //>>excludeEnd("ide");
  1131. messageSends: ["ifNil:", "updateClassesAndMetaclassesCache"]
  1132. }),
  1133. $globals.HLReferencesModel);
  1134. $core.addMethod(
  1135. $core.method({
  1136. selector: "implementorsOf:",
  1137. protocol: 'accessing',
  1138. fn: function (aString){
  1139. var self=this;
  1140. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1141. return $core.withContext(function($ctx1) {
  1142. //>>excludeEnd("ctx");
  1143. var $1;
  1144. $1=$recv($recv(self._allMethods())._select_((function(each){
  1145. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1146. return $core.withContext(function($ctx2) {
  1147. //>>excludeEnd("ctx");
  1148. return $recv($recv(each)._selector()).__eq(aString);
  1149. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1150. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1151. //>>excludeEnd("ctx");
  1152. })))._collect_((function(each){
  1153. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1154. return $core.withContext(function($ctx2) {
  1155. //>>excludeEnd("ctx");
  1156. return self._methodReferenceOn_(each);
  1157. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1158. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  1159. //>>excludeEnd("ctx");
  1160. }));
  1161. return $1;
  1162. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1163. }, function($ctx1) {$ctx1.fill(self,"implementorsOf:",{aString:aString},$globals.HLReferencesModel)});
  1164. //>>excludeEnd("ctx");
  1165. },
  1166. //>>excludeStart("ide", pragmas.excludeIdeData);
  1167. args: ["aString"],
  1168. source: "implementorsOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each selector = aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
  1169. referencedClasses: [],
  1170. //>>excludeEnd("ide");
  1171. messageSends: ["collect:", "select:", "allMethods", "=", "selector", "methodReferenceOn:"]
  1172. }),
  1173. $globals.HLReferencesModel);
  1174. $core.addMethod(
  1175. $core.method({
  1176. selector: "isReferencesModel",
  1177. protocol: 'testing',
  1178. fn: function (){
  1179. var self=this;
  1180. return true;
  1181. },
  1182. //>>excludeStart("ide", pragmas.excludeIdeData);
  1183. args: [],
  1184. source: "isReferencesModel\x0a\x09^ true",
  1185. referencedClasses: [],
  1186. //>>excludeEnd("ide");
  1187. messageSends: []
  1188. }),
  1189. $globals.HLReferencesModel);
  1190. $core.addMethod(
  1191. $core.method({
  1192. selector: "methodReferenceOn:",
  1193. protocol: 'accessing',
  1194. fn: function (aCompiledMethod){
  1195. var self=this;
  1196. function $HLMethodReference(){return $globals.HLMethodReference||(typeof HLMethodReference=="undefined"?nil:HLMethodReference)}
  1197. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1198. return $core.withContext(function($ctx1) {
  1199. //>>excludeEnd("ctx");
  1200. var $1;
  1201. $1=$recv($HLMethodReference())._on_(aCompiledMethod);
  1202. return $1;
  1203. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1204. }, function($ctx1) {$ctx1.fill(self,"methodReferenceOn:",{aCompiledMethod:aCompiledMethod},$globals.HLReferencesModel)});
  1205. //>>excludeEnd("ctx");
  1206. },
  1207. //>>excludeStart("ide", pragmas.excludeIdeData);
  1208. args: ["aCompiledMethod"],
  1209. source: "methodReferenceOn: aCompiledMethod\x0a\x09^ HLMethodReference on: aCompiledMethod",
  1210. referencedClasses: ["HLMethodReference"],
  1211. //>>excludeEnd("ide");
  1212. messageSends: ["on:"]
  1213. }),
  1214. $globals.HLReferencesModel);
  1215. $core.addMethod(
  1216. $core.method({
  1217. selector: "methodsCache",
  1218. protocol: 'cache',
  1219. fn: function (){
  1220. var self=this;
  1221. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1222. return $core.withContext(function($ctx1) {
  1223. //>>excludeEnd("ctx");
  1224. var $1,$2,$receiver;
  1225. $1=self["@methodsCache"];
  1226. if(($receiver = $1) == null || $receiver.isNil){
  1227. self._updateMethodsCache();
  1228. } else {
  1229. $1;
  1230. };
  1231. $2=self["@methodsCache"];
  1232. return $2;
  1233. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1234. }, function($ctx1) {$ctx1.fill(self,"methodsCache",{},$globals.HLReferencesModel)});
  1235. //>>excludeEnd("ctx");
  1236. },
  1237. //>>excludeStart("ide", pragmas.excludeIdeData);
  1238. args: [],
  1239. source: "methodsCache\x0a\x09methodsCache ifNil: [ self updateMethodsCache ].\x0a\x09^ methodsCache",
  1240. referencedClasses: [],
  1241. //>>excludeEnd("ide");
  1242. messageSends: ["ifNil:", "updateMethodsCache"]
  1243. }),
  1244. $globals.HLReferencesModel);
  1245. $core.addMethod(
  1246. $core.method({
  1247. selector: "openClassNamed:",
  1248. protocol: 'actions',
  1249. fn: function (aString){
  1250. var self=this;
  1251. var browser;
  1252. function $HLBrowser(){return $globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
  1253. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1254. return $core.withContext(function($ctx1) {
  1255. //>>excludeEnd("ctx");
  1256. self._withChangesDo_((function(){
  1257. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1258. return $core.withContext(function($ctx2) {
  1259. //>>excludeEnd("ctx");
  1260. browser=$recv($HLBrowser())._openAsTab();
  1261. browser;
  1262. return $recv(browser)._openClassNamed_(aString);
  1263. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1264. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1265. //>>excludeEnd("ctx");
  1266. }));
  1267. return self;
  1268. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1269. }, function($ctx1) {$ctx1.fill(self,"openClassNamed:",{aString:aString,browser:browser},$globals.HLReferencesModel)});
  1270. //>>excludeEnd("ctx");
  1271. },
  1272. //>>excludeStart("ide", pragmas.excludeIdeData);
  1273. args: ["aString"],
  1274. source: "openClassNamed: aString\x0a\x09| browser |\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09browser := HLBrowser openAsTab.\x0a\x09\x09browser openClassNamed: aString ]",
  1275. referencedClasses: ["HLBrowser"],
  1276. //>>excludeEnd("ide");
  1277. messageSends: ["withChangesDo:", "openAsTab", "openClassNamed:"]
  1278. }),
  1279. $globals.HLReferencesModel);
  1280. $core.addMethod(
  1281. $core.method({
  1282. selector: "openMethod",
  1283. protocol: 'actions',
  1284. fn: function (){
  1285. var self=this;
  1286. var browser;
  1287. function $HLBrowser(){return $globals.HLBrowser||(typeof HLBrowser=="undefined"?nil:HLBrowser)}
  1288. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1289. return $core.withContext(function($ctx1) {
  1290. //>>excludeEnd("ctx");
  1291. var $1,$receiver;
  1292. $1=self._selectedMethod();
  1293. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1294. $ctx1.sendIdx["selectedMethod"]=1;
  1295. //>>excludeEnd("ctx");
  1296. if(($receiver = $1) == null || $receiver.isNil){
  1297. return self;
  1298. } else {
  1299. $1;
  1300. };
  1301. self._withChangesDo_((function(){
  1302. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1303. return $core.withContext(function($ctx2) {
  1304. //>>excludeEnd("ctx");
  1305. browser=$recv($HLBrowser())._openAsTab();
  1306. browser;
  1307. return $recv(browser)._openMethod_(self._selectedMethod());
  1308. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1309. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1310. //>>excludeEnd("ctx");
  1311. }));
  1312. return self;
  1313. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1314. }, function($ctx1) {$ctx1.fill(self,"openMethod",{browser:browser},$globals.HLReferencesModel)});
  1315. //>>excludeEnd("ctx");
  1316. },
  1317. //>>excludeStart("ide", pragmas.excludeIdeData);
  1318. args: [],
  1319. 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 ]",
  1320. referencedClasses: ["HLBrowser"],
  1321. //>>excludeEnd("ide");
  1322. messageSends: ["ifNil:", "selectedMethod", "withChangesDo:", "openAsTab", "openMethod:"]
  1323. }),
  1324. $globals.HLReferencesModel);
  1325. $core.addMethod(
  1326. $core.method({
  1327. selector: "regexpReferencesOf:",
  1328. protocol: 'accessing',
  1329. fn: function (aString){
  1330. var self=this;
  1331. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1332. return $core.withContext(function($ctx1) {
  1333. //>>excludeEnd("ctx");
  1334. var $1;
  1335. $1=$recv($recv(self._allMethods())._select_((function(each){
  1336. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1337. return $core.withContext(function($ctx2) {
  1338. //>>excludeEnd("ctx");
  1339. return $recv($recv(each)._source())._match_(aString);
  1340. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1341. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1342. //>>excludeEnd("ctx");
  1343. })))._collect_((function(each){
  1344. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1345. return $core.withContext(function($ctx2) {
  1346. //>>excludeEnd("ctx");
  1347. return self._methodReferenceOn_(each);
  1348. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1349. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  1350. //>>excludeEnd("ctx");
  1351. }));
  1352. return $1;
  1353. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1354. }, function($ctx1) {$ctx1.fill(self,"regexpReferencesOf:",{aString:aString},$globals.HLReferencesModel)});
  1355. //>>excludeEnd("ctx");
  1356. },
  1357. //>>excludeStart("ide", pragmas.excludeIdeData);
  1358. args: ["aString"],
  1359. source: "regexpReferencesOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each source match: aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
  1360. referencedClasses: [],
  1361. //>>excludeEnd("ide");
  1362. messageSends: ["collect:", "select:", "allMethods", "match:", "source", "methodReferenceOn:"]
  1363. }),
  1364. $globals.HLReferencesModel);
  1365. $core.addMethod(
  1366. $core.method({
  1367. selector: "search:",
  1368. protocol: 'actions',
  1369. fn: function (aString){
  1370. var self=this;
  1371. function $HLSearchReferences(){return $globals.HLSearchReferences||(typeof HLSearchReferences=="undefined"?nil:HLSearchReferences)}
  1372. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1373. return $core.withContext(function($ctx1) {
  1374. //>>excludeEnd("ctx");
  1375. var $1,$2;
  1376. self._updateCaches();
  1377. $1=$recv($HLSearchReferences())._new();
  1378. $recv($1)._searchString_(aString);
  1379. $2=$recv($1)._yourself();
  1380. $recv(self._announcer())._announce_($2);
  1381. return self;
  1382. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1383. }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString},$globals.HLReferencesModel)});
  1384. //>>excludeEnd("ctx");
  1385. },
  1386. //>>excludeStart("ide", pragmas.excludeIdeData);
  1387. args: ["aString"],
  1388. source: "search: aString\x0a\x09self updateCaches.\x0a\x09\x0a\x09self announcer announce: (HLSearchReferences new\x0a\x09\x09searchString: aString;\x0a\x09\x09yourself)",
  1389. referencedClasses: ["HLSearchReferences"],
  1390. //>>excludeEnd("ide");
  1391. messageSends: ["updateCaches", "announce:", "announcer", "searchString:", "new", "yourself"]
  1392. }),
  1393. $globals.HLReferencesModel);
  1394. $core.addMethod(
  1395. $core.method({
  1396. selector: "sendersOf:",
  1397. protocol: 'accessing',
  1398. fn: function (aString){
  1399. var self=this;
  1400. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1401. return $core.withContext(function($ctx1) {
  1402. //>>excludeEnd("ctx");
  1403. var $1;
  1404. $1=$recv($recv(self._allMethods())._select_((function(each){
  1405. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1406. return $core.withContext(function($ctx2) {
  1407. //>>excludeEnd("ctx");
  1408. return $recv($recv(each)._messageSends())._includes_(aString);
  1409. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1410. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1411. //>>excludeEnd("ctx");
  1412. })))._collect_((function(each){
  1413. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1414. return $core.withContext(function($ctx2) {
  1415. //>>excludeEnd("ctx");
  1416. return self._methodReferenceOn_(each);
  1417. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1418. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)});
  1419. //>>excludeEnd("ctx");
  1420. }));
  1421. return $1;
  1422. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1423. }, function($ctx1) {$ctx1.fill(self,"sendersOf:",{aString:aString},$globals.HLReferencesModel)});
  1424. //>>excludeEnd("ctx");
  1425. },
  1426. //>>excludeStart("ide", pragmas.excludeIdeData);
  1427. args: ["aString"],
  1428. source: "sendersOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each messageSends includes: aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
  1429. referencedClasses: [],
  1430. //>>excludeEnd("ide");
  1431. messageSends: ["collect:", "select:", "allMethods", "includes:", "messageSends", "methodReferenceOn:"]
  1432. }),
  1433. $globals.HLReferencesModel);
  1434. $core.addMethod(
  1435. $core.method({
  1436. selector: "updateCaches",
  1437. protocol: 'cache',
  1438. fn: function (){
  1439. var self=this;
  1440. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1441. return $core.withContext(function($ctx1) {
  1442. //>>excludeEnd("ctx");
  1443. var $1;
  1444. self._updateClassesAndMetaclassesCache();
  1445. $1=self._updateMethodsCache();
  1446. return self;
  1447. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1448. }, function($ctx1) {$ctx1.fill(self,"updateCaches",{},$globals.HLReferencesModel)});
  1449. //>>excludeEnd("ctx");
  1450. },
  1451. //>>excludeStart("ide", pragmas.excludeIdeData);
  1452. args: [],
  1453. source: "updateCaches\x0a\x09self \x0a\x09\x09updateClassesAndMetaclassesCache;\x0a\x09\x09updateMethodsCache",
  1454. referencedClasses: [],
  1455. //>>excludeEnd("ide");
  1456. messageSends: ["updateClassesAndMetaclassesCache", "updateMethodsCache"]
  1457. }),
  1458. $globals.HLReferencesModel);
  1459. $core.addMethod(
  1460. $core.method({
  1461. selector: "updateClassesAndMetaclassesCache",
  1462. protocol: 'cache',
  1463. fn: function (){
  1464. var self=this;
  1465. function $OrderedCollection(){return $globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  1466. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1467. return $core.withContext(function($ctx1) {
  1468. //>>excludeEnd("ctx");
  1469. var $1,$2;
  1470. self["@classesAndMetaclassesCache"]=$recv($OrderedCollection())._new();
  1471. $recv($recv(self._environment())._classes())._do_((function(each){
  1472. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1473. return $core.withContext(function($ctx2) {
  1474. //>>excludeEnd("ctx");
  1475. $1=self["@classesAndMetaclassesCache"];
  1476. $recv($1)._add_(each);
  1477. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1478. $ctx2.sendIdx["add:"]=1;
  1479. //>>excludeEnd("ctx");
  1480. $2=$recv($1)._add_($recv(each)._class());
  1481. return $2;
  1482. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1483. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1484. //>>excludeEnd("ctx");
  1485. }));
  1486. return self;
  1487. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1488. }, function($ctx1) {$ctx1.fill(self,"updateClassesAndMetaclassesCache",{},$globals.HLReferencesModel)});
  1489. //>>excludeEnd("ctx");
  1490. },
  1491. //>>excludeStart("ide", pragmas.excludeIdeData);
  1492. args: [],
  1493. 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 ]",
  1494. referencedClasses: ["OrderedCollection"],
  1495. //>>excludeEnd("ide");
  1496. messageSends: ["new", "do:", "classes", "environment", "add:", "class"]
  1497. }),
  1498. $globals.HLReferencesModel);
  1499. $core.addMethod(
  1500. $core.method({
  1501. selector: "updateMethodsCache",
  1502. protocol: 'cache',
  1503. fn: function (){
  1504. var self=this;
  1505. function $OrderedCollection(){return $globals.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  1506. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1507. return $core.withContext(function($ctx1) {
  1508. //>>excludeEnd("ctx");
  1509. self["@methodsCache"]=$recv($OrderedCollection())._new();
  1510. $recv(self._classesAndMetaclasses())._do_((function(each){
  1511. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1512. return $core.withContext(function($ctx2) {
  1513. //>>excludeEnd("ctx");
  1514. return $recv(self["@methodsCache"])._addAll_($recv(each)._methods());
  1515. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1516. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1517. //>>excludeEnd("ctx");
  1518. }));
  1519. return self;
  1520. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1521. }, function($ctx1) {$ctx1.fill(self,"updateMethodsCache",{},$globals.HLReferencesModel)});
  1522. //>>excludeEnd("ctx");
  1523. },
  1524. //>>excludeStart("ide", pragmas.excludeIdeData);
  1525. args: [],
  1526. source: "updateMethodsCache\x0a\x09methodsCache := OrderedCollection new.\x0a\x09\x0a\x09self classesAndMetaclasses\x0a\x09\x09do: [ :each | methodsCache addAll: each methods ]",
  1527. referencedClasses: ["OrderedCollection"],
  1528. //>>excludeEnd("ide");
  1529. messageSends: ["new", "do:", "classesAndMetaclasses", "addAll:", "methods"]
  1530. }),
  1531. $globals.HLReferencesModel);
  1532. });