Helios-References.js 55 KB

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