Helios-References.js 43 KB

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