Helios-References.js 52 KB

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