Helios-References.js 42 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109111011111112111311141115111611171118111911201121112211231124112511261127112811291130113111321133113411351136113711381139114011411142114311441145114611471148114911501151115211531154115511561157115811591160116111621163116411651166116711681169117011711172117311741175117611771178117911801181118211831184118511861187118811891190119111921193119411951196119711981199120012011202120312041205120612071208120912101211121212131214121512161217121812191220122112221223122412251226122712281229123012311232123312341235123612371238123912401241124212431244124512461247124812491250125112521253125412551256125712581259126012611262126312641265126612671268126912701271127212731274127512761277127812791280128112821283128412851286128712881289129012911292129312941295129612971298129913001301130213031304130513061307130813091310131113121313131413151316131713181319132013211322132313241325132613271328132913301331133213331334133513361337133813391340134113421343
  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: "selectItem:",
  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. var $1;
  585. (
  586. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  587. $ctx1.supercall = true,
  588. //>>excludeEnd("ctx");
  589. ($globals.HLReferencesListWidget.superclass||$boot.nilAsClass).fn.prototype._selectItem_.apply($self, [aMethod]));
  590. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  591. $ctx1.supercall = false;
  592. //>>excludeEnd("ctx");;
  593. $1=$self._model();
  594. $recv($1)._selectedClass_(nil);
  595. $recv($1)._selectedMethod_(aMethod);
  596. return self;
  597. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  598. }, function($ctx1) {$ctx1.fill(self,"selectItem:",{aMethod:aMethod})});
  599. //>>excludeEnd("ctx");
  600. },
  601. //>>excludeStart("ide", pragmas.excludeIdeData);
  602. args: ["aMethod"],
  603. source: "selectItem: aMethod\x0a\x09super selectItem: aMethod.\x0a\x09self model selectedClass: nil; selectedMethod: aMethod",
  604. referencedClasses: [],
  605. //>>excludeEnd("ide");
  606. pragmas: [],
  607. messageSends: ["selectItem:", "selectedClass:", "model", "selectedMethod:"]
  608. }),
  609. $globals.HLReferencesListWidget);
  610. $core.addMethod(
  611. $core.method({
  612. selector: "on:",
  613. protocol: "instance creation",
  614. fn: function (aModel){
  615. var self=this,$self=this;
  616. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  617. return $core.withContext(function($ctx1) {
  618. //>>excludeEnd("ctx");
  619. var $1;
  620. $1=$self._new();
  621. $recv($1)._model_(aModel);
  622. return $recv($1)._yourself();
  623. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  624. }, function($ctx1) {$ctx1.fill(self,"on:",{aModel:aModel})});
  625. //>>excludeEnd("ctx");
  626. },
  627. //>>excludeStart("ide", pragmas.excludeIdeData);
  628. args: ["aModel"],
  629. source: "on: aModel\x0a\x09^ self new \x0a\x09\x09model: aModel; \x0a\x09\x09yourself",
  630. referencedClasses: [],
  631. //>>excludeEnd("ide");
  632. pragmas: [],
  633. messageSends: ["model:", "new", "yourself"]
  634. }),
  635. $globals.HLReferencesListWidget.a$cls);
  636. $core.addClass("HLClassReferencesListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  637. $core.addMethod(
  638. $core.method({
  639. selector: "label",
  640. protocol: "accessing",
  641. fn: function (){
  642. var self=this,$self=this;
  643. return "Class references";
  644. },
  645. //>>excludeStart("ide", pragmas.excludeIdeData);
  646. args: [],
  647. source: "label\x0a\x09^ 'Class references'",
  648. referencedClasses: [],
  649. //>>excludeEnd("ide");
  650. pragmas: [],
  651. messageSends: []
  652. }),
  653. $globals.HLClassReferencesListWidget);
  654. $core.addMethod(
  655. $core.method({
  656. selector: "onSearchReferences:",
  657. protocol: "reactions",
  658. fn: function (aString){
  659. var self=this,$self=this;
  660. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  661. return $core.withContext(function($ctx1) {
  662. //>>excludeEnd("ctx");
  663. $self._selectItem_(nil);
  664. $self._items_($recv($self._model())._classReferencesOf_(aString));
  665. $self._refresh();
  666. return self;
  667. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  668. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  669. //>>excludeEnd("ctx");
  670. },
  671. //>>excludeStart("ide", pragmas.excludeIdeData);
  672. args: ["aString"],
  673. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model classReferencesOf: aString).\x0a\x09self refresh",
  674. referencedClasses: [],
  675. //>>excludeEnd("ide");
  676. pragmas: [],
  677. messageSends: ["selectItem:", "items:", "classReferencesOf:", "model", "refresh"]
  678. }),
  679. $globals.HLClassReferencesListWidget);
  680. $core.addClass("HLImplementorsListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  681. $core.addMethod(
  682. $core.method({
  683. selector: "label",
  684. protocol: "accessing",
  685. fn: function (){
  686. var self=this,$self=this;
  687. return "Implementors";
  688. },
  689. //>>excludeStart("ide", pragmas.excludeIdeData);
  690. args: [],
  691. source: "label\x0a\x09^ 'Implementors'",
  692. referencedClasses: [],
  693. //>>excludeEnd("ide");
  694. pragmas: [],
  695. messageSends: []
  696. }),
  697. $globals.HLImplementorsListWidget);
  698. $core.addMethod(
  699. $core.method({
  700. selector: "onSearchReferences:",
  701. protocol: "reactions",
  702. fn: function (aString){
  703. var self=this,$self=this;
  704. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  705. return $core.withContext(function($ctx1) {
  706. //>>excludeEnd("ctx");
  707. $self._selectItem_(nil);
  708. $self._items_($recv($self._model())._implementorsOf_(aString));
  709. $self._refresh();
  710. return self;
  711. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  712. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  713. //>>excludeEnd("ctx");
  714. },
  715. //>>excludeStart("ide", pragmas.excludeIdeData);
  716. args: ["aString"],
  717. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model implementorsOf: aString).\x0a\x09self refresh",
  718. referencedClasses: [],
  719. //>>excludeEnd("ide");
  720. pragmas: [],
  721. messageSends: ["selectItem:", "items:", "implementorsOf:", "model", "refresh"]
  722. }),
  723. $globals.HLImplementorsListWidget);
  724. $core.addClass("HLRegexpListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  725. $core.addMethod(
  726. $core.method({
  727. selector: "label",
  728. protocol: "accessing",
  729. fn: function (){
  730. var self=this,$self=this;
  731. return "Source search";
  732. },
  733. //>>excludeStart("ide", pragmas.excludeIdeData);
  734. args: [],
  735. source: "label\x0a\x09^ 'Source search'",
  736. referencedClasses: [],
  737. //>>excludeEnd("ide");
  738. pragmas: [],
  739. messageSends: []
  740. }),
  741. $globals.HLRegexpListWidget);
  742. $core.addMethod(
  743. $core.method({
  744. selector: "onSearchReferences:",
  745. protocol: "reactions",
  746. fn: function (aString){
  747. var self=this,$self=this;
  748. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  749. return $core.withContext(function($ctx1) {
  750. //>>excludeEnd("ctx");
  751. $self._selectItem_(nil);
  752. $self._items_($recv($self._model())._regexpReferencesOf_(aString));
  753. $self._refresh();
  754. return self;
  755. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  756. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  757. //>>excludeEnd("ctx");
  758. },
  759. //>>excludeStart("ide", pragmas.excludeIdeData);
  760. args: ["aString"],
  761. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model regexpReferencesOf: aString).\x0a\x09self refresh",
  762. referencedClasses: [],
  763. //>>excludeEnd("ide");
  764. pragmas: [],
  765. messageSends: ["selectItem:", "items:", "regexpReferencesOf:", "model", "refresh"]
  766. }),
  767. $globals.HLRegexpListWidget);
  768. $core.addClass("HLSendersListWidget", $globals.HLReferencesListWidget, [], "Helios-References");
  769. $core.addMethod(
  770. $core.method({
  771. selector: "label",
  772. protocol: "accessing",
  773. fn: function (){
  774. var self=this,$self=this;
  775. return "Senders";
  776. },
  777. //>>excludeStart("ide", pragmas.excludeIdeData);
  778. args: [],
  779. source: "label\x0a\x09^ 'Senders'",
  780. referencedClasses: [],
  781. //>>excludeEnd("ide");
  782. pragmas: [],
  783. messageSends: []
  784. }),
  785. $globals.HLSendersListWidget);
  786. $core.addMethod(
  787. $core.method({
  788. selector: "onSearchReferences:",
  789. protocol: "reactions",
  790. fn: function (aString){
  791. var self=this,$self=this;
  792. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  793. return $core.withContext(function($ctx1) {
  794. //>>excludeEnd("ctx");
  795. $self._selectItem_(nil);
  796. $self._items_($recv($self._model())._sendersOf_(aString));
  797. $self._refresh();
  798. return self;
  799. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  800. }, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString})});
  801. //>>excludeEnd("ctx");
  802. },
  803. //>>excludeStart("ide", pragmas.excludeIdeData);
  804. args: ["aString"],
  805. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model sendersOf: aString).\x0a\x09self refresh",
  806. referencedClasses: [],
  807. //>>excludeEnd("ide");
  808. pragmas: [],
  809. messageSends: ["selectItem:", "items:", "sendersOf:", "model", "refresh"]
  810. }),
  811. $globals.HLSendersListWidget);
  812. $core.addClass("HLReferencesModel", $globals.HLToolModel, ["methodsCache", "classesAndMetaclassesCache"], "Helios-References");
  813. $core.addMethod(
  814. $core.method({
  815. selector: "allMethods",
  816. protocol: "accessing",
  817. fn: function (){
  818. var self=this,$self=this;
  819. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  820. return $core.withContext(function($ctx1) {
  821. //>>excludeEnd("ctx");
  822. return $self._methodsCache();
  823. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  824. }, function($ctx1) {$ctx1.fill(self,"allMethods",{})});
  825. //>>excludeEnd("ctx");
  826. },
  827. //>>excludeStart("ide", pragmas.excludeIdeData);
  828. args: [],
  829. source: "allMethods\x0a\x09^ self methodsCache",
  830. referencedClasses: [],
  831. //>>excludeEnd("ide");
  832. pragmas: [],
  833. messageSends: ["methodsCache"]
  834. }),
  835. $globals.HLReferencesModel);
  836. $core.addMethod(
  837. $core.method({
  838. selector: "classReferencesOf:",
  839. protocol: "accessing",
  840. fn: function (aString){
  841. var self=this,$self=this;
  842. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  843. return $core.withContext(function($ctx1) {
  844. //>>excludeEnd("ctx");
  845. return $recv($self._allMethods())._select_((function(each){
  846. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  847. return $core.withContext(function($ctx2) {
  848. //>>excludeEnd("ctx");
  849. return $recv($recv(each)._referencedClasses())._includes_(aString);
  850. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  851. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  852. //>>excludeEnd("ctx");
  853. }));
  854. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  855. }, function($ctx1) {$ctx1.fill(self,"classReferencesOf:",{aString:aString})});
  856. //>>excludeEnd("ctx");
  857. },
  858. //>>excludeStart("ide", pragmas.excludeIdeData);
  859. args: ["aString"],
  860. 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) ]",
  861. referencedClasses: [],
  862. //>>excludeEnd("ide");
  863. pragmas: [],
  864. messageSends: ["select:", "allMethods", "includes:", "referencedClasses"]
  865. }),
  866. $globals.HLReferencesModel);
  867. $core.addMethod(
  868. $core.method({
  869. selector: "classesAndMetaclasses",
  870. protocol: "accessing",
  871. fn: function (){
  872. var self=this,$self=this;
  873. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  874. return $core.withContext(function($ctx1) {
  875. //>>excludeEnd("ctx");
  876. return $self._classesAndMetaclassesCache();
  877. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  878. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{})});
  879. //>>excludeEnd("ctx");
  880. },
  881. //>>excludeStart("ide", pragmas.excludeIdeData);
  882. args: [],
  883. source: "classesAndMetaclasses\x0a\x09^ self classesAndMetaclassesCache",
  884. referencedClasses: [],
  885. //>>excludeEnd("ide");
  886. pragmas: [],
  887. messageSends: ["classesAndMetaclassesCache"]
  888. }),
  889. $globals.HLReferencesModel);
  890. $core.addMethod(
  891. $core.method({
  892. selector: "classesAndMetaclassesCache",
  893. protocol: "cache",
  894. fn: function (){
  895. var self=this,$self=this;
  896. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  897. return $core.withContext(function($ctx1) {
  898. //>>excludeEnd("ctx");
  899. var $1,$receiver;
  900. $1=$self.classesAndMetaclassesCache;
  901. if(($receiver = $1) == null || $receiver.a$nil){
  902. $self._updateClassesAndMetaclassesCache();
  903. } else {
  904. $1;
  905. }
  906. return $self.classesAndMetaclassesCache;
  907. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  908. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclassesCache",{})});
  909. //>>excludeEnd("ctx");
  910. },
  911. //>>excludeStart("ide", pragmas.excludeIdeData);
  912. args: [],
  913. source: "classesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache ifNil: [ self updateClassesAndMetaclassesCache ].\x0a\x09^ classesAndMetaclassesCache",
  914. referencedClasses: [],
  915. //>>excludeEnd("ide");
  916. pragmas: [],
  917. messageSends: ["ifNil:", "updateClassesAndMetaclassesCache"]
  918. }),
  919. $globals.HLReferencesModel);
  920. $core.addMethod(
  921. $core.method({
  922. selector: "implementorsOf:",
  923. protocol: "accessing",
  924. fn: function (aString){
  925. var self=this,$self=this;
  926. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  927. return $core.withContext(function($ctx1) {
  928. //>>excludeEnd("ctx");
  929. return $recv($self._allMethods())._select_((function(each){
  930. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  931. return $core.withContext(function($ctx2) {
  932. //>>excludeEnd("ctx");
  933. return $recv($recv(each)._selector()).__eq(aString);
  934. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  935. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  936. //>>excludeEnd("ctx");
  937. }));
  938. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  939. }, function($ctx1) {$ctx1.fill(self,"implementorsOf:",{aString:aString})});
  940. //>>excludeEnd("ctx");
  941. },
  942. //>>excludeStart("ide", pragmas.excludeIdeData);
  943. args: ["aString"],
  944. source: "implementorsOf: aString\x0a\x09^ self allMethods select: [ :each |\x0a\x09\x09each selector = aString ]",
  945. referencedClasses: [],
  946. //>>excludeEnd("ide");
  947. pragmas: [],
  948. messageSends: ["select:", "allMethods", "=", "selector"]
  949. }),
  950. $globals.HLReferencesModel);
  951. $core.addMethod(
  952. $core.method({
  953. selector: "isReferencesModel",
  954. protocol: "testing",
  955. fn: function (){
  956. var self=this,$self=this;
  957. return true;
  958. },
  959. //>>excludeStart("ide", pragmas.excludeIdeData);
  960. args: [],
  961. source: "isReferencesModel\x0a\x09^ true",
  962. referencedClasses: [],
  963. //>>excludeEnd("ide");
  964. pragmas: [],
  965. messageSends: []
  966. }),
  967. $globals.HLReferencesModel);
  968. $core.addMethod(
  969. $core.method({
  970. selector: "methodsCache",
  971. protocol: "cache",
  972. fn: function (){
  973. var self=this,$self=this;
  974. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  975. return $core.withContext(function($ctx1) {
  976. //>>excludeEnd("ctx");
  977. var $1,$receiver;
  978. $1=$self.methodsCache;
  979. if(($receiver = $1) == null || $receiver.a$nil){
  980. $self._updateMethodsCache();
  981. } else {
  982. $1;
  983. }
  984. return $self.methodsCache;
  985. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  986. }, function($ctx1) {$ctx1.fill(self,"methodsCache",{})});
  987. //>>excludeEnd("ctx");
  988. },
  989. //>>excludeStart("ide", pragmas.excludeIdeData);
  990. args: [],
  991. source: "methodsCache\x0a\x09methodsCache ifNil: [ self updateMethodsCache ].\x0a\x09^ methodsCache",
  992. referencedClasses: [],
  993. //>>excludeEnd("ide");
  994. pragmas: [],
  995. messageSends: ["ifNil:", "updateMethodsCache"]
  996. }),
  997. $globals.HLReferencesModel);
  998. $core.addMethod(
  999. $core.method({
  1000. selector: "openClassNamed:",
  1001. protocol: "actions",
  1002. fn: function (aString){
  1003. var self=this,$self=this;
  1004. var browser;
  1005. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1006. return $core.withContext(function($ctx1) {
  1007. //>>excludeEnd("ctx");
  1008. $self._withChangesDo_((function(){
  1009. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1010. return $core.withContext(function($ctx2) {
  1011. //>>excludeEnd("ctx");
  1012. browser=$recv($globals.HLBrowser)._openAsTab();
  1013. return $recv(browser)._openClassNamed_(aString);
  1014. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1015. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)});
  1016. //>>excludeEnd("ctx");
  1017. }));
  1018. return self;
  1019. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1020. }, function($ctx1) {$ctx1.fill(self,"openClassNamed:",{aString:aString,browser:browser})});
  1021. //>>excludeEnd("ctx");
  1022. },
  1023. //>>excludeStart("ide", pragmas.excludeIdeData);
  1024. args: ["aString"],
  1025. source: "openClassNamed: aString\x0a\x09| browser |\x0a\x09\x0a\x09self withChangesDo: [\x0a\x09\x09browser := HLBrowser openAsTab.\x0a\x09\x09browser openClassNamed: aString ]",
  1026. referencedClasses: ["HLBrowser"],
  1027. //>>excludeEnd("ide");
  1028. pragmas: [],
  1029. messageSends: ["withChangesDo:", "openAsTab", "openClassNamed:"]
  1030. }),
  1031. $globals.HLReferencesModel);
  1032. $core.addMethod(
  1033. $core.method({
  1034. selector: "openMethod",
  1035. protocol: "actions",
  1036. fn: function (){
  1037. var self=this,$self=this;
  1038. var browser;
  1039. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1040. return $core.withContext(function($ctx1) {
  1041. //>>excludeEnd("ctx");
  1042. var $1,$receiver;
  1043. $1=$self._selectedMethod();
  1044. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1045. $ctx1.sendIdx["selectedMethod"]=1;
  1046. //>>excludeEnd("ctx");
  1047. if(($receiver = $1) == null || $receiver.a$nil){
  1048. return self;
  1049. } else {
  1050. $1;
  1051. }
  1052. $self._withChangesDo_((function(){
  1053. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1054. return $core.withContext(function($ctx2) {
  1055. //>>excludeEnd("ctx");
  1056. browser=$recv($globals.HLBrowser)._openAsTab();
  1057. return $recv(browser)._openMethod_($self._selectedMethod());
  1058. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1059. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)});
  1060. //>>excludeEnd("ctx");
  1061. }));
  1062. return self;
  1063. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1064. }, function($ctx1) {$ctx1.fill(self,"openMethod",{browser:browser})});
  1065. //>>excludeEnd("ctx");
  1066. },
  1067. //>>excludeStart("ide", pragmas.excludeIdeData);
  1068. args: [],
  1069. 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 ]",
  1070. referencedClasses: ["HLBrowser"],
  1071. //>>excludeEnd("ide");
  1072. pragmas: [],
  1073. messageSends: ["ifNil:", "selectedMethod", "withChangesDo:", "openAsTab", "openMethod:"]
  1074. }),
  1075. $globals.HLReferencesModel);
  1076. $core.addMethod(
  1077. $core.method({
  1078. selector: "regexpReferencesOf:",
  1079. protocol: "accessing",
  1080. fn: function (aString){
  1081. var self=this,$self=this;
  1082. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1083. return $core.withContext(function($ctx1) {
  1084. //>>excludeEnd("ctx");
  1085. return $recv($self._allMethods())._select_((function(each){
  1086. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1087. return $core.withContext(function($ctx2) {
  1088. //>>excludeEnd("ctx");
  1089. return $recv($recv(each)._source())._match_(aString);
  1090. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1091. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1092. //>>excludeEnd("ctx");
  1093. }));
  1094. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1095. }, function($ctx1) {$ctx1.fill(self,"regexpReferencesOf:",{aString:aString})});
  1096. //>>excludeEnd("ctx");
  1097. },
  1098. //>>excludeStart("ide", pragmas.excludeIdeData);
  1099. args: ["aString"],
  1100. source: "regexpReferencesOf: aString\x0a\x09^ self allMethods select: [ :each |\x0a\x09\x09each source match: aString ]",
  1101. referencedClasses: [],
  1102. //>>excludeEnd("ide");
  1103. pragmas: [],
  1104. messageSends: ["select:", "allMethods", "match:", "source"]
  1105. }),
  1106. $globals.HLReferencesModel);
  1107. $core.addMethod(
  1108. $core.method({
  1109. selector: "search:",
  1110. protocol: "actions",
  1111. fn: function (aString){
  1112. var self=this,$self=this;
  1113. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1114. return $core.withContext(function($ctx1) {
  1115. //>>excludeEnd("ctx");
  1116. var $1,$3,$2;
  1117. $self._updateCaches();
  1118. $1=$self._announcer();
  1119. $3=$recv($globals.HLSearchReferences)._new();
  1120. $recv($3)._searchString_(aString);
  1121. $2=$recv($3)._yourself();
  1122. $recv($1)._announce_($2);
  1123. return self;
  1124. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1125. }, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString})});
  1126. //>>excludeEnd("ctx");
  1127. },
  1128. //>>excludeStart("ide", pragmas.excludeIdeData);
  1129. args: ["aString"],
  1130. source: "search: aString\x0a\x09self updateCaches.\x0a\x09\x0a\x09self announcer announce: (HLSearchReferences new\x0a\x09\x09searchString: aString;\x0a\x09\x09yourself)",
  1131. referencedClasses: ["HLSearchReferences"],
  1132. //>>excludeEnd("ide");
  1133. pragmas: [],
  1134. messageSends: ["updateCaches", "announce:", "announcer", "searchString:", "new", "yourself"]
  1135. }),
  1136. $globals.HLReferencesModel);
  1137. $core.addMethod(
  1138. $core.method({
  1139. selector: "sendersOf:",
  1140. protocol: "accessing",
  1141. fn: function (aString){
  1142. var self=this,$self=this;
  1143. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1144. return $core.withContext(function($ctx1) {
  1145. //>>excludeEnd("ctx");
  1146. return $recv($self._allMethods())._select_((function(each){
  1147. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1148. return $core.withContext(function($ctx2) {
  1149. //>>excludeEnd("ctx");
  1150. return $recv($recv(each)._messageSends())._includes_(aString);
  1151. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1152. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1153. //>>excludeEnd("ctx");
  1154. }));
  1155. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1156. }, function($ctx1) {$ctx1.fill(self,"sendersOf:",{aString:aString})});
  1157. //>>excludeEnd("ctx");
  1158. },
  1159. //>>excludeStart("ide", pragmas.excludeIdeData);
  1160. args: ["aString"],
  1161. source: "sendersOf: aString\x0a\x09^ self allMethods select: [ :each |\x0a\x09\x09each messageSends includes: aString ]",
  1162. referencedClasses: [],
  1163. //>>excludeEnd("ide");
  1164. pragmas: [],
  1165. messageSends: ["select:", "allMethods", "includes:", "messageSends"]
  1166. }),
  1167. $globals.HLReferencesModel);
  1168. $core.addMethod(
  1169. $core.method({
  1170. selector: "updateCaches",
  1171. protocol: "cache",
  1172. fn: function (){
  1173. var self=this,$self=this;
  1174. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1175. return $core.withContext(function($ctx1) {
  1176. //>>excludeEnd("ctx");
  1177. $self._updateClassesAndMetaclassesCache();
  1178. $self._updateMethodsCache();
  1179. return self;
  1180. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1181. }, function($ctx1) {$ctx1.fill(self,"updateCaches",{})});
  1182. //>>excludeEnd("ctx");
  1183. },
  1184. //>>excludeStart("ide", pragmas.excludeIdeData);
  1185. args: [],
  1186. source: "updateCaches\x0a\x09self \x0a\x09\x09updateClassesAndMetaclassesCache;\x0a\x09\x09updateMethodsCache",
  1187. referencedClasses: [],
  1188. //>>excludeEnd("ide");
  1189. pragmas: [],
  1190. messageSends: ["updateClassesAndMetaclassesCache", "updateMethodsCache"]
  1191. }),
  1192. $globals.HLReferencesModel);
  1193. $core.addMethod(
  1194. $core.method({
  1195. selector: "updateClassesAndMetaclassesCache",
  1196. protocol: "cache",
  1197. fn: function (){
  1198. var self=this,$self=this;
  1199. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1200. return $core.withContext(function($ctx1) {
  1201. //>>excludeEnd("ctx");
  1202. var $1,$receiver;
  1203. $self.classesAndMetaclassesCache=$recv($globals.OrderedCollection)._new();
  1204. $recv($recv($self._environment())._classes())._do_((function(each){
  1205. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1206. return $core.withContext(function($ctx2) {
  1207. //>>excludeEnd("ctx");
  1208. $recv($self.classesAndMetaclassesCache)._add_(each);
  1209. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1210. $ctx2.sendIdx["add:"]=1;
  1211. //>>excludeEnd("ctx");
  1212. $1=$recv(each)._theMetaClass();
  1213. if(($receiver = $1) == null || $receiver.a$nil){
  1214. return $1;
  1215. } else {
  1216. var meta;
  1217. meta=$receiver;
  1218. return $recv($self.classesAndMetaclassesCache)._add_(meta);
  1219. }
  1220. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1221. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1222. //>>excludeEnd("ctx");
  1223. }));
  1224. return self;
  1225. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1226. }, function($ctx1) {$ctx1.fill(self,"updateClassesAndMetaclassesCache",{})});
  1227. //>>excludeEnd("ctx");
  1228. },
  1229. //>>excludeStart("ide", pragmas.excludeIdeData);
  1230. args: [],
  1231. source: "updateClassesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache := OrderedCollection new.\x0a\x09\x0a\x09self environment classes do: [ :each |\x0a\x09\x09classesAndMetaclassesCache add: each.\x0a\x09\x09each theMetaClass ifNotNil: [ :meta | classesAndMetaclassesCache add: meta ] ]",
  1232. referencedClasses: ["OrderedCollection"],
  1233. //>>excludeEnd("ide");
  1234. pragmas: [],
  1235. messageSends: ["new", "do:", "classes", "environment", "add:", "ifNotNil:", "theMetaClass"]
  1236. }),
  1237. $globals.HLReferencesModel);
  1238. $core.addMethod(
  1239. $core.method({
  1240. selector: "updateMethodsCache",
  1241. protocol: "cache",
  1242. fn: function (){
  1243. var self=this,$self=this;
  1244. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1245. return $core.withContext(function($ctx1) {
  1246. //>>excludeEnd("ctx");
  1247. $self.methodsCache=$recv($globals.OrderedCollection)._new();
  1248. $recv($self._classesAndMetaclasses())._do_((function(each){
  1249. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1250. return $core.withContext(function($ctx2) {
  1251. //>>excludeEnd("ctx");
  1252. return $recv($self.methodsCache)._addAll_($recv(each)._methods());
  1253. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1254. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
  1255. //>>excludeEnd("ctx");
  1256. }));
  1257. return self;
  1258. //>>excludeStart("ctx", pragmas.excludeDebugContexts);
  1259. }, function($ctx1) {$ctx1.fill(self,"updateMethodsCache",{})});
  1260. //>>excludeEnd("ctx");
  1261. },
  1262. //>>excludeStart("ide", pragmas.excludeIdeData);
  1263. args: [],
  1264. source: "updateMethodsCache\x0a\x09methodsCache := OrderedCollection new.\x0a\x09\x0a\x09self classesAndMetaclasses\x0a\x09\x09do: [ :each | methodsCache addAll: each methods ]",
  1265. referencedClasses: ["OrderedCollection"],
  1266. //>>excludeEnd("ide");
  1267. pragmas: [],
  1268. messageSends: ["new", "do:", "classesAndMetaclasses", "addAll:", "methods"]
  1269. }),
  1270. $globals.HLReferencesModel);
  1271. });