Helios-References.js 50 KB

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