2
0

Helios-References.js 37 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083
  1. define("amber_core/Helios-References", ["amber_vm/smalltalk", "amber_vm/nil", "amber_vm/_st", "amber_core/Kernel-Objects", "amber_core/Helios-Core"], function(smalltalk,nil,_st){
  2. smalltalk.addPackage('Helios-References');
  3. smalltalk.packages["Helios-References"].transport = {"type":"amd","amdNamespace":"amber_core"};
  4. smalltalk.addClass('HLMethodReference', smalltalk.Object, ['selector', 'methodClass'], 'Helios-References');
  5. smalltalk.addMethod(
  6. smalltalk.method({
  7. selector: "initializeFromMethod:",
  8. protocol: 'initialization',
  9. fn: function (aCompiledMethod){
  10. var self=this;
  11. return smalltalk.withContext(function($ctx1) {
  12. var $1;
  13. self._selector_(_st(aCompiledMethod)._selector());
  14. $1=self._methodClass_(_st(aCompiledMethod)._methodClass());
  15. return self}, function($ctx1) {$ctx1.fill(self,"initializeFromMethod:",{aCompiledMethod:aCompiledMethod},smalltalk.HLMethodReference)})},
  16. args: ["aCompiledMethod"],
  17. source: "initializeFromMethod: aCompiledMethod\x0a\x09self\x0a\x09\x09selector: aCompiledMethod selector;\x0a\x09\x09methodClass: aCompiledMethod methodClass",
  18. messageSends: ["selector:", "selector", "methodClass:", "methodClass"],
  19. referencedClasses: []
  20. }),
  21. smalltalk.HLMethodReference);
  22. smalltalk.addMethod(
  23. smalltalk.method({
  24. selector: "method",
  25. protocol: 'accessing',
  26. fn: function (){
  27. var self=this;
  28. return smalltalk.withContext(function($ctx1) {
  29. var $1;
  30. $1=_st(self._methodClass())._methodAt_(self._selector());
  31. return $1;
  32. }, function($ctx1) {$ctx1.fill(self,"method",{},smalltalk.HLMethodReference)})},
  33. args: [],
  34. source: "method\x0a\x09^ self methodClass methodAt: self selector",
  35. messageSends: ["methodAt:", "methodClass", "selector"],
  36. referencedClasses: []
  37. }),
  38. smalltalk.HLMethodReference);
  39. smalltalk.addMethod(
  40. smalltalk.method({
  41. selector: "methodClass",
  42. protocol: 'accessing',
  43. fn: function (){
  44. var self=this;
  45. var $1;
  46. $1=self["@methodClass"];
  47. return $1;
  48. },
  49. args: [],
  50. source: "methodClass\x0a\x09^ methodClass",
  51. messageSends: [],
  52. referencedClasses: []
  53. }),
  54. smalltalk.HLMethodReference);
  55. smalltalk.addMethod(
  56. smalltalk.method({
  57. selector: "methodClass:",
  58. protocol: 'accessing',
  59. fn: function (aClass){
  60. var self=this;
  61. self["@methodClass"]=aClass;
  62. return self},
  63. args: ["aClass"],
  64. source: "methodClass: aClass\x0a\x09methodClass := aClass",
  65. messageSends: [],
  66. referencedClasses: []
  67. }),
  68. smalltalk.HLMethodReference);
  69. smalltalk.addMethod(
  70. smalltalk.method({
  71. selector: "selector",
  72. protocol: 'accessing',
  73. fn: function (){
  74. var self=this;
  75. var $1;
  76. $1=self["@selector"];
  77. return $1;
  78. },
  79. args: [],
  80. source: "selector\x0a\x09^ selector",
  81. messageSends: [],
  82. referencedClasses: []
  83. }),
  84. smalltalk.HLMethodReference);
  85. smalltalk.addMethod(
  86. smalltalk.method({
  87. selector: "selector:",
  88. protocol: 'accessing',
  89. fn: function (aString){
  90. var self=this;
  91. self["@selector"]=aString;
  92. return self},
  93. args: ["aString"],
  94. source: "selector: aString\x0a\x09selector := aString",
  95. messageSends: [],
  96. referencedClasses: []
  97. }),
  98. smalltalk.HLMethodReference);
  99. smalltalk.addMethod(
  100. smalltalk.method({
  101. selector: "source",
  102. protocol: 'accessing',
  103. fn: function (){
  104. var self=this;
  105. return smalltalk.withContext(function($ctx1) {
  106. var $1;
  107. $1=_st(self._method())._source();
  108. return $1;
  109. }, function($ctx1) {$ctx1.fill(self,"source",{},smalltalk.HLMethodReference)})},
  110. args: [],
  111. source: "source\x0a\x09^ self method source",
  112. messageSends: ["source", "method"],
  113. referencedClasses: []
  114. }),
  115. smalltalk.HLMethodReference);
  116. smalltalk.addMethod(
  117. smalltalk.method({
  118. selector: "on:",
  119. protocol: 'instance creation',
  120. fn: function (aCompiledMethod){
  121. var self=this;
  122. return smalltalk.withContext(function($ctx1) {
  123. var $2,$3,$1;
  124. $2=self._new();
  125. _st($2)._initializeFromMethod_(aCompiledMethod);
  126. $3=_st($2)._yourself();
  127. $1=$3;
  128. return $1;
  129. }, function($ctx1) {$ctx1.fill(self,"on:",{aCompiledMethod:aCompiledMethod},smalltalk.HLMethodReference.klass)})},
  130. args: ["aCompiledMethod"],
  131. source: "on: aCompiledMethod\x0a\x09^ self new\x0a\x09\x09initializeFromMethod: aCompiledMethod;\x0a\x09\x09yourself",
  132. messageSends: ["initializeFromMethod:", "new", "yourself"],
  133. referencedClasses: []
  134. }),
  135. smalltalk.HLMethodReference.klass);
  136. smalltalk.addClass('HLReferences', smalltalk.HLWidget, ['model', 'sendersListWidget', 'implementorsListWidget', 'classReferencesListWidget', 'regexpListWidget', 'sourceCodeWidget'], 'Helios-References');
  137. smalltalk.addMethod(
  138. smalltalk.method({
  139. selector: "classReferencesListWidget",
  140. protocol: 'accessing',
  141. fn: function (){
  142. var self=this;
  143. function $HLClassReferencesListWidget(){return smalltalk.HLClassReferencesListWidget||(typeof HLClassReferencesListWidget=="undefined"?nil:HLClassReferencesListWidget)}
  144. return smalltalk.withContext(function($ctx1) {
  145. var $2,$1;
  146. $2=self["@classReferencesListWidget"];
  147. if(($receiver = $2) == nil || $receiver == null){
  148. self["@classReferencesListWidget"]=_st($HLClassReferencesListWidget())._on_(self._model());
  149. self["@classReferencesListWidget"];
  150. $1=_st(self["@classReferencesListWidget"])._next_(self._regexpListWidget());
  151. } else {
  152. $1=$2;
  153. };
  154. return $1;
  155. }, function($ctx1) {$ctx1.fill(self,"classReferencesListWidget",{},smalltalk.HLReferences)})},
  156. args: [],
  157. source: "classReferencesListWidget\x0a\x09^ classReferencesListWidget ifNil: [\x0a \x09classReferencesListWidget := HLClassReferencesListWidget on: self model.\x0a\x09\x09classReferencesListWidget next: self regexpListWidget ]",
  158. messageSends: ["ifNil:", "on:", "model", "next:", "regexpListWidget"],
  159. referencedClasses: ["HLClassReferencesListWidget"]
  160. }),
  161. smalltalk.HLReferences);
  162. smalltalk.addMethod(
  163. smalltalk.method({
  164. selector: "implementorsListWidget",
  165. protocol: 'accessing',
  166. fn: function (){
  167. var self=this;
  168. function $HLImplementorsListWidget(){return smalltalk.HLImplementorsListWidget||(typeof HLImplementorsListWidget=="undefined"?nil:HLImplementorsListWidget)}
  169. return smalltalk.withContext(function($ctx1) {
  170. var $2,$1;
  171. $2=self["@implementorsListWidget"];
  172. if(($receiver = $2) == nil || $receiver == null){
  173. self["@implementorsListWidget"]=_st($HLImplementorsListWidget())._on_(self._model());
  174. self["@implementorsListWidget"];
  175. $1=_st(self["@implementorsListWidget"])._next_(self._classReferencesListWidget());
  176. } else {
  177. $1=$2;
  178. };
  179. return $1;
  180. }, function($ctx1) {$ctx1.fill(self,"implementorsListWidget",{},smalltalk.HLReferences)})},
  181. args: [],
  182. source: "implementorsListWidget\x0a\x09^ implementorsListWidget ifNil: [\x0a \x09implementorsListWidget := HLImplementorsListWidget on: self model.\x0a\x09\x09implementorsListWidget next: self classReferencesListWidget ]",
  183. messageSends: ["ifNil:", "on:", "model", "next:", "classReferencesListWidget"],
  184. referencedClasses: ["HLImplementorsListWidget"]
  185. }),
  186. smalltalk.HLReferences);
  187. smalltalk.addMethod(
  188. smalltalk.method({
  189. selector: "model",
  190. protocol: 'accessing',
  191. fn: function (){
  192. var self=this;
  193. function $HLReferencesModel(){return smalltalk.HLReferencesModel||(typeof HLReferencesModel=="undefined"?nil:HLReferencesModel)}
  194. return smalltalk.withContext(function($ctx1) {
  195. var $2,$3,$4,$1;
  196. $2=self["@model"];
  197. if(($receiver = $2) == nil || $receiver == null){
  198. $3=_st($HLReferencesModel())._new();
  199. _st($3)._environment_(_st(self._manager())._environment());
  200. $4=_st($3)._yourself();
  201. self["@model"]=$4;
  202. $1=self["@model"];
  203. } else {
  204. $1=$2;
  205. };
  206. return $1;
  207. }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLReferences)})},
  208. args: [],
  209. source: "model\x0a\x09^ model ifNil: [\x0a\x09\x09model := (HLReferencesModel new\x0a\x09\x09\x09environment: self manager environment;\x0a\x09\x09\x09yourself) ]",
  210. messageSends: ["ifNil:", "environment:", "new", "environment", "manager", "yourself"],
  211. referencedClasses: ["HLReferencesModel"]
  212. }),
  213. smalltalk.HLReferences);
  214. smalltalk.addMethod(
  215. smalltalk.method({
  216. selector: "model:",
  217. protocol: 'accessing',
  218. fn: function (aModel){
  219. var self=this;
  220. self["@model"]=aModel;
  221. return self},
  222. args: ["aModel"],
  223. source: "model: aModel\x0a\x09model := aModel",
  224. messageSends: [],
  225. referencedClasses: []
  226. }),
  227. smalltalk.HLReferences);
  228. smalltalk.addMethod(
  229. smalltalk.method({
  230. selector: "regexpListWidget",
  231. protocol: 'accessing',
  232. fn: function (){
  233. var self=this;
  234. function $HLRegexpListWidget(){return smalltalk.HLRegexpListWidget||(typeof HLRegexpListWidget=="undefined"?nil:HLRegexpListWidget)}
  235. return smalltalk.withContext(function($ctx1) {
  236. var $2,$1;
  237. $2=self["@regexpListWidget"];
  238. if(($receiver = $2) == nil || $receiver == null){
  239. self["@regexpListWidget"]=_st($HLRegexpListWidget())._on_(self._model());
  240. self["@regexpListWidget"];
  241. $1=_st(self["@regexpListWidget"])._next_(self._sourceCodeWidget());
  242. } else {
  243. $1=$2;
  244. };
  245. return $1;
  246. }, function($ctx1) {$ctx1.fill(self,"regexpListWidget",{},smalltalk.HLReferences)})},
  247. args: [],
  248. source: "regexpListWidget\x0a\x09^ regexpListWidget ifNil: [\x0a \x09regexpListWidget := HLRegexpListWidget on: self model.\x0a\x09\x09regexpListWidget next: self sourceCodeWidget ]",
  249. messageSends: ["ifNil:", "on:", "model", "next:", "sourceCodeWidget"],
  250. referencedClasses: ["HLRegexpListWidget"]
  251. }),
  252. smalltalk.HLReferences);
  253. smalltalk.addMethod(
  254. smalltalk.method({
  255. selector: "registerBindingsOn:",
  256. protocol: 'actions',
  257. fn: function (aBindingGroup){
  258. var self=this;
  259. function $HLToolCommand(){return smalltalk.HLToolCommand||(typeof HLToolCommand=="undefined"?nil:HLToolCommand)}
  260. return smalltalk.withContext(function($ctx1) {
  261. _st($HLToolCommand())._registerConcreteClassesOn_for_(aBindingGroup,self._model());
  262. return self}, function($ctx1) {$ctx1.fill(self,"registerBindingsOn:",{aBindingGroup:aBindingGroup},smalltalk.HLReferences)})},
  263. args: ["aBindingGroup"],
  264. source: "registerBindingsOn: aBindingGroup\x0a\x09HLToolCommand \x0a\x09\x09registerConcreteClassesOn: aBindingGroup \x0a\x09\x09for: self model",
  265. messageSends: ["registerConcreteClassesOn:for:", "model"],
  266. referencedClasses: ["HLToolCommand"]
  267. }),
  268. smalltalk.HLReferences);
  269. smalltalk.addMethod(
  270. smalltalk.method({
  271. selector: "renderContentOn:",
  272. protocol: 'rendering',
  273. fn: function (html){
  274. var self=this;
  275. function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)}
  276. function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)}
  277. function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)}
  278. return smalltalk.withContext(function($ctx1) {
  279. var $5,$4,$3,$2,$1;
  280. $5=self._sendersListWidget();
  281. $ctx1.sendIdx["sendersListWidget"]=1;
  282. $4=_st($HLVerticalSplitter())._with_with_($5,self._implementorsListWidget());
  283. $ctx1.sendIdx["with:with:"]=3;
  284. $3=_st($HLVerticalSplitter())._with_with_($4,_st($HLVerticalSplitter())._with_with_(self._classReferencesListWidget(),self._regexpListWidget()));
  285. $ctx1.sendIdx["with:with:"]=2;
  286. $2=_st($HLHorizontalSplitter())._with_with_($3,self._sourceCodeWidget());
  287. $ctx1.sendIdx["with:with:"]=1;
  288. $1=_st($HLContainer())._with_($2);
  289. _st(html)._with_($1);
  290. $ctx1.sendIdx["with:"]=1;
  291. _st(self._sendersListWidget())._focus();
  292. return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLReferences)})},
  293. args: ["html"],
  294. 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",
  295. messageSends: ["with:", "with:with:", "sendersListWidget", "implementorsListWidget", "classReferencesListWidget", "regexpListWidget", "sourceCodeWidget", "focus"],
  296. referencedClasses: ["HLContainer", "HLHorizontalSplitter", "HLVerticalSplitter"]
  297. }),
  298. smalltalk.HLReferences);
  299. smalltalk.addMethod(
  300. smalltalk.method({
  301. selector: "search:",
  302. protocol: 'actions',
  303. fn: function (aString){
  304. var self=this;
  305. return smalltalk.withContext(function($ctx1) {
  306. _st(self._model())._search_(aString);
  307. return self}, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString},smalltalk.HLReferences)})},
  308. args: ["aString"],
  309. source: "search: aString\x0a\x09self model search: aString",
  310. messageSends: ["search:", "model"],
  311. referencedClasses: []
  312. }),
  313. smalltalk.HLReferences);
  314. smalltalk.addMethod(
  315. smalltalk.method({
  316. selector: "sendersListWidget",
  317. protocol: 'accessing',
  318. fn: function (){
  319. var self=this;
  320. function $HLSendersListWidget(){return smalltalk.HLSendersListWidget||(typeof HLSendersListWidget=="undefined"?nil:HLSendersListWidget)}
  321. return smalltalk.withContext(function($ctx1) {
  322. var $2,$1;
  323. $2=self["@sendersListWidget"];
  324. if(($receiver = $2) == nil || $receiver == null){
  325. self["@sendersListWidget"]=_st($HLSendersListWidget())._on_(self._model());
  326. self["@sendersListWidget"];
  327. $1=_st(self["@sendersListWidget"])._next_(self._implementorsListWidget());
  328. } else {
  329. $1=$2;
  330. };
  331. return $1;
  332. }, function($ctx1) {$ctx1.fill(self,"sendersListWidget",{},smalltalk.HLReferences)})},
  333. args: [],
  334. source: "sendersListWidget\x0a\x09^ sendersListWidget ifNil: [\x0a \x09sendersListWidget := HLSendersListWidget on: self model.\x0a\x09\x09sendersListWidget next: self implementorsListWidget ]",
  335. messageSends: ["ifNil:", "on:", "model", "next:", "implementorsListWidget"],
  336. referencedClasses: ["HLSendersListWidget"]
  337. }),
  338. smalltalk.HLReferences);
  339. smalltalk.addMethod(
  340. smalltalk.method({
  341. selector: "sourceCodeWidget",
  342. protocol: 'accessing',
  343. fn: function (){
  344. var self=this;
  345. function $HLBrowserCodeWidget(){return smalltalk.HLBrowserCodeWidget||(typeof HLBrowserCodeWidget=="undefined"?nil:HLBrowserCodeWidget)}
  346. return smalltalk.withContext(function($ctx1) {
  347. var $2,$3,$4,$1;
  348. $2=self["@sourceCodeWidget"];
  349. if(($receiver = $2) == nil || $receiver == null){
  350. $3=_st($HLBrowserCodeWidget())._new();
  351. _st($3)._browserModel_(self._model());
  352. $4=_st($3)._yourself();
  353. self["@sourceCodeWidget"]=$4;
  354. $1=self["@sourceCodeWidget"];
  355. } else {
  356. $1=$2;
  357. };
  358. return $1;
  359. }, function($ctx1) {$ctx1.fill(self,"sourceCodeWidget",{},smalltalk.HLReferences)})},
  360. args: [],
  361. source: "sourceCodeWidget\x0a\x09^ sourceCodeWidget ifNil: [\x0a \x09sourceCodeWidget := HLBrowserCodeWidget new\x0a\x09\x09\x09browserModel: self model;\x0a\x09\x09\x09yourself ]",
  362. messageSends: ["ifNil:", "browserModel:", "new", "model", "yourself"],
  363. referencedClasses: ["HLBrowserCodeWidget"]
  364. }),
  365. smalltalk.HLReferences);
  366. smalltalk.addMethod(
  367. smalltalk.method({
  368. selector: "canBeOpenAsTab",
  369. protocol: 'testing',
  370. fn: function (){
  371. var self=this;
  372. return false;
  373. },
  374. args: [],
  375. source: "canBeOpenAsTab\x0a\x09^ false",
  376. messageSends: [],
  377. referencedClasses: []
  378. }),
  379. smalltalk.HLReferences.klass);
  380. smalltalk.addMethod(
  381. smalltalk.method({
  382. selector: "tabClass",
  383. protocol: 'accessing',
  384. fn: function (){
  385. var self=this;
  386. return "references";
  387. },
  388. args: [],
  389. source: "tabClass\x0a\x09^ 'references'",
  390. messageSends: [],
  391. referencedClasses: []
  392. }),
  393. smalltalk.HLReferences.klass);
  394. smalltalk.addMethod(
  395. smalltalk.method({
  396. selector: "tabLabel",
  397. protocol: 'accessing',
  398. fn: function (){
  399. var self=this;
  400. return "References";
  401. },
  402. args: [],
  403. source: "tabLabel\x0a\x09^ 'References'",
  404. messageSends: [],
  405. referencedClasses: []
  406. }),
  407. smalltalk.HLReferences.klass);
  408. smalltalk.addMethod(
  409. smalltalk.method({
  410. selector: "tabPriority",
  411. protocol: 'accessing',
  412. fn: function (){
  413. var self=this;
  414. return (100);
  415. },
  416. args: [],
  417. source: "tabPriority\x0a\x09^ 100",
  418. messageSends: [],
  419. referencedClasses: []
  420. }),
  421. smalltalk.HLReferences.klass);
  422. smalltalk.addClass('HLReferencesListWidget', smalltalk.HLToolListWidget, [], 'Helios-References');
  423. smalltalk.addMethod(
  424. smalltalk.method({
  425. selector: "activateListItem:",
  426. protocol: 'actions',
  427. fn: function (anItem){
  428. var self=this;
  429. return smalltalk.withContext(function($ctx1) {
  430. _st(self._model())._withChangesDo_((function(){
  431. return smalltalk.withContext(function($ctx2) {
  432. return smalltalk.HLReferencesListWidget.superclass.fn.prototype._activateListItem_.apply(_st(self), [anItem]);
  433. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,1)})}));
  434. return self}, function($ctx1) {$ctx1.fill(self,"activateListItem:",{anItem:anItem},smalltalk.HLReferencesListWidget)})},
  435. args: ["anItem"],
  436. source: "activateListItem: anItem\x0a\x09self model withChangesDo: [ super activateListItem: anItem ]",
  437. messageSends: ["withChangesDo:", "model", "activateListItem:"],
  438. referencedClasses: []
  439. }),
  440. smalltalk.HLReferencesListWidget);
  441. smalltalk.addMethod(
  442. smalltalk.method({
  443. selector: "commandCategory",
  444. protocol: 'accessing',
  445. fn: function (){
  446. var self=this;
  447. return "Methods";
  448. },
  449. args: [],
  450. source: "commandCategory\x0a\x09^ 'Methods'",
  451. messageSends: [],
  452. referencedClasses: []
  453. }),
  454. smalltalk.HLReferencesListWidget);
  455. smalltalk.addMethod(
  456. smalltalk.method({
  457. selector: "label",
  458. protocol: 'accessing',
  459. fn: function (){
  460. var self=this;
  461. return "List";
  462. },
  463. args: [],
  464. source: "label\x0a\x09^ 'List'",
  465. messageSends: [],
  466. referencedClasses: []
  467. }),
  468. smalltalk.HLReferencesListWidget);
  469. smalltalk.addMethod(
  470. smalltalk.method({
  471. selector: "observeModel",
  472. protocol: 'actions',
  473. fn: function (){
  474. var self=this;
  475. function $HLSearchReferences(){return smalltalk.HLSearchReferences||(typeof HLSearchReferences=="undefined"?nil:HLSearchReferences)}
  476. function $HLMethodSelected(){return smalltalk.HLMethodSelected||(typeof HLMethodSelected=="undefined"?nil:HLMethodSelected)}
  477. return smalltalk.withContext(function($ctx1) {
  478. var $1,$2;
  479. $1=_st(self._model())._announcer();
  480. _st($1)._on_do_($HLSearchReferences(),(function(ann){
  481. return smalltalk.withContext(function($ctx2) {
  482. return self._onSearchReferences_(_st(ann)._searchString());
  483. }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1,1)})}));
  484. $ctx1.sendIdx["on:do:"]=1;
  485. $2=_st($1)._on_do_($HLMethodSelected(),(function(ann){
  486. return smalltalk.withContext(function($ctx2) {
  487. return self._onMethodSelected_(_st(ann)._item());
  488. }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1,2)})}));
  489. return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},smalltalk.HLReferencesListWidget)})},
  490. args: [],
  491. 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 ]",
  492. messageSends: ["on:do:", "announcer", "model", "onSearchReferences:", "searchString", "onMethodSelected:", "item"],
  493. referencedClasses: ["HLSearchReferences", "HLMethodSelected"]
  494. }),
  495. smalltalk.HLReferencesListWidget);
  496. smalltalk.addMethod(
  497. smalltalk.method({
  498. selector: "onMethodSelected:",
  499. protocol: 'reactions',
  500. fn: function (aMethod){
  501. var self=this;
  502. return smalltalk.withContext(function($ctx1) {
  503. var $1,$2,$3;
  504. var $early={};
  505. try {
  506. if(($receiver = aMethod) == nil || $receiver == null){
  507. return self;
  508. } else {
  509. aMethod;
  510. };
  511. _st(self._items())._detect_ifNone_((function(each){
  512. return smalltalk.withContext(function($ctx2) {
  513. $1=_st(aMethod)._selector();
  514. $ctx2.sendIdx["selector"]=1;
  515. return _st(each).__eq($1);
  516. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)})}),(function(){
  517. return smalltalk.withContext(function($ctx2) {
  518. throw $early=[self];
  519. }, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)})}));
  520. $2=_st(aMethod)._selector();
  521. $ctx1.sendIdx["selector"]=2;
  522. self._selectedItem_($2);
  523. $3=self._activateItem_(_st(aMethod)._selector());
  524. return self}
  525. catch(e) {if(e===$early)return e[0]; throw e}
  526. }, function($ctx1) {$ctx1.fill(self,"onMethodSelected:",{aMethod:aMethod},smalltalk.HLReferencesListWidget)})},
  527. args: ["aMethod"],
  528. source: "onMethodSelected: aMethod\x0a\x09aMethod ifNil: [ ^ self ].\x0a\x09self items detect: [ :each | each = aMethod selector ] ifNone: [ ^ self ].\x0a\x09\x0a\x09self \x0a\x09\x09selectedItem: aMethod selector;\x0a\x09\x09activateItem: aMethod selector",
  529. messageSends: ["ifNil:", "detect:ifNone:", "items", "=", "selector", "selectedItem:", "activateItem:"],
  530. referencedClasses: []
  531. }),
  532. smalltalk.HLReferencesListWidget);
  533. smalltalk.addMethod(
  534. smalltalk.method({
  535. selector: "onSearchReferences:",
  536. protocol: 'reactions',
  537. fn: function (aString){
  538. var self=this;
  539. return smalltalk.withContext(function($ctx1) {
  540. self._subclassResponsibility();
  541. return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLReferencesListWidget)})},
  542. args: ["aString"],
  543. source: "onSearchReferences: aString\x0a\x09self subclassResponsibility",
  544. messageSends: ["subclassResponsibility"],
  545. referencedClasses: []
  546. }),
  547. smalltalk.HLReferencesListWidget);
  548. smalltalk.addMethod(
  549. smalltalk.method({
  550. selector: "renderItemLabel:on:",
  551. protocol: 'rendering',
  552. fn: function (aMethod,html){
  553. var self=this;
  554. return smalltalk.withContext(function($ctx1) {
  555. var $1;
  556. $1=_st(_st(_st(_st(aMethod)._methodClass())._name()).__comma(" >> #")).__comma(_st(aMethod)._selector());
  557. $ctx1.sendIdx[","]=1;
  558. _st(html)._with_($1);
  559. return self}, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{aMethod:aMethod,html:html},smalltalk.HLReferencesListWidget)})},
  560. args: ["aMethod", "html"],
  561. source: "renderItemLabel: aMethod on: html\x0a\x09html with: aMethod methodClass name, ' >> #', aMethod selector",
  562. messageSends: ["with:", ",", "name", "methodClass", "selector"],
  563. referencedClasses: []
  564. }),
  565. smalltalk.HLReferencesListWidget);
  566. smalltalk.addMethod(
  567. smalltalk.method({
  568. selector: "selectItem:",
  569. protocol: 'actions',
  570. fn: function (aMethod){
  571. var self=this;
  572. return smalltalk.withContext(function($ctx1) {
  573. _st(self._model())._selectedMethod_(aMethod);
  574. return self}, function($ctx1) {$ctx1.fill(self,"selectItem:",{aMethod:aMethod},smalltalk.HLReferencesListWidget)})},
  575. args: ["aMethod"],
  576. source: "selectItem: aMethod\x0a\x09self model selectedMethod: aMethod",
  577. messageSends: ["selectedMethod:", "model"],
  578. referencedClasses: []
  579. }),
  580. smalltalk.HLReferencesListWidget);
  581. smalltalk.addMethod(
  582. smalltalk.method({
  583. selector: "on:",
  584. protocol: 'instance creation',
  585. fn: function (aModel){
  586. var self=this;
  587. return smalltalk.withContext(function($ctx1) {
  588. var $2,$3,$1;
  589. $2=self._new();
  590. _st($2)._model_(aModel);
  591. $3=_st($2)._yourself();
  592. $1=$3;
  593. return $1;
  594. }, function($ctx1) {$ctx1.fill(self,"on:",{aModel:aModel},smalltalk.HLReferencesListWidget.klass)})},
  595. args: ["aModel"],
  596. source: "on: aModel\x0a\x09^ self new \x0a\x09\x09model: aModel; \x0a\x09\x09yourself",
  597. messageSends: ["model:", "new", "yourself"],
  598. referencedClasses: []
  599. }),
  600. smalltalk.HLReferencesListWidget.klass);
  601. smalltalk.addClass('HLClassReferencesListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References');
  602. smalltalk.addMethod(
  603. smalltalk.method({
  604. selector: "label",
  605. protocol: 'accessing',
  606. fn: function (){
  607. var self=this;
  608. return "Class references";
  609. },
  610. args: [],
  611. source: "label\x0a\x09^ 'Class references'",
  612. messageSends: [],
  613. referencedClasses: []
  614. }),
  615. smalltalk.HLClassReferencesListWidget);
  616. smalltalk.addMethod(
  617. smalltalk.method({
  618. selector: "onSearchReferences:",
  619. protocol: 'reactions',
  620. fn: function (aString){
  621. var self=this;
  622. return smalltalk.withContext(function($ctx1) {
  623. self._selectItem_(nil);
  624. self._items_(_st(self._model())._classReferencesOf_(aString));
  625. self._refresh();
  626. return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLClassReferencesListWidget)})},
  627. args: ["aString"],
  628. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model classReferencesOf: aString).\x0a\x09self refresh",
  629. messageSends: ["selectItem:", "items:", "classReferencesOf:", "model", "refresh"],
  630. referencedClasses: []
  631. }),
  632. smalltalk.HLClassReferencesListWidget);
  633. smalltalk.addClass('HLImplementorsListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References');
  634. smalltalk.addMethod(
  635. smalltalk.method({
  636. selector: "label",
  637. protocol: 'accessing',
  638. fn: function (){
  639. var self=this;
  640. return "Implementors";
  641. },
  642. args: [],
  643. source: "label\x0a\x09^ 'Implementors'",
  644. messageSends: [],
  645. referencedClasses: []
  646. }),
  647. smalltalk.HLImplementorsListWidget);
  648. smalltalk.addMethod(
  649. smalltalk.method({
  650. selector: "onSearchReferences:",
  651. protocol: 'reactions',
  652. fn: function (aString){
  653. var self=this;
  654. return smalltalk.withContext(function($ctx1) {
  655. self._selectItem_(nil);
  656. self._items_(_st(self._model())._implementorsOf_(aString));
  657. self._refresh();
  658. return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLImplementorsListWidget)})},
  659. args: ["aString"],
  660. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model implementorsOf: aString).\x0a\x09self refresh",
  661. messageSends: ["selectItem:", "items:", "implementorsOf:", "model", "refresh"],
  662. referencedClasses: []
  663. }),
  664. smalltalk.HLImplementorsListWidget);
  665. smalltalk.addClass('HLRegexpListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References');
  666. smalltalk.addMethod(
  667. smalltalk.method({
  668. selector: "label",
  669. protocol: 'accessing',
  670. fn: function (){
  671. var self=this;
  672. return "Source search";
  673. },
  674. args: [],
  675. source: "label\x0a\x09^ 'Source search'",
  676. messageSends: [],
  677. referencedClasses: []
  678. }),
  679. smalltalk.HLRegexpListWidget);
  680. smalltalk.addMethod(
  681. smalltalk.method({
  682. selector: "onSearchReferences:",
  683. protocol: 'reactions',
  684. fn: function (aString){
  685. var self=this;
  686. return smalltalk.withContext(function($ctx1) {
  687. self._selectItem_(nil);
  688. self._items_(_st(self._model())._regexpReferencesOf_(aString));
  689. self._refresh();
  690. return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLRegexpListWidget)})},
  691. args: ["aString"],
  692. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model regexpReferencesOf: aString).\x0a\x09self refresh",
  693. messageSends: ["selectItem:", "items:", "regexpReferencesOf:", "model", "refresh"],
  694. referencedClasses: []
  695. }),
  696. smalltalk.HLRegexpListWidget);
  697. smalltalk.addClass('HLSendersListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References');
  698. smalltalk.addMethod(
  699. smalltalk.method({
  700. selector: "label",
  701. protocol: 'accessing',
  702. fn: function (){
  703. var self=this;
  704. return "Senders";
  705. },
  706. args: [],
  707. source: "label\x0a\x09^ 'Senders'",
  708. messageSends: [],
  709. referencedClasses: []
  710. }),
  711. smalltalk.HLSendersListWidget);
  712. smalltalk.addMethod(
  713. smalltalk.method({
  714. selector: "onSearchReferences:",
  715. protocol: 'reactions',
  716. fn: function (aString){
  717. var self=this;
  718. return smalltalk.withContext(function($ctx1) {
  719. self._selectItem_(nil);
  720. self._items_(_st(self._model())._sendersOf_(aString));
  721. self._refresh();
  722. return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLSendersListWidget)})},
  723. args: ["aString"],
  724. source: "onSearchReferences: aString\x0a\x09self selectItem: nil.\x0a\x09self items: (self model sendersOf: aString).\x0a\x09self refresh",
  725. messageSends: ["selectItem:", "items:", "sendersOf:", "model", "refresh"],
  726. referencedClasses: []
  727. }),
  728. smalltalk.HLSendersListWidget);
  729. smalltalk.addClass('HLReferencesModel', smalltalk.HLToolModel, ['methodsCache', 'classesAndMetaclassesCache'], 'Helios-References');
  730. smalltalk.addMethod(
  731. smalltalk.method({
  732. selector: "allMethods",
  733. protocol: 'accessing',
  734. fn: function (){
  735. var self=this;
  736. return smalltalk.withContext(function($ctx1) {
  737. var $1;
  738. $1=self._methodsCache();
  739. return $1;
  740. }, function($ctx1) {$ctx1.fill(self,"allMethods",{},smalltalk.HLReferencesModel)})},
  741. args: [],
  742. source: "allMethods\x0a\x09^ self methodsCache",
  743. messageSends: ["methodsCache"],
  744. referencedClasses: []
  745. }),
  746. smalltalk.HLReferencesModel);
  747. smalltalk.addMethod(
  748. smalltalk.method({
  749. selector: "classReferencesOf:",
  750. protocol: 'accessing',
  751. fn: function (aString){
  752. var self=this;
  753. return smalltalk.withContext(function($ctx1) {
  754. var $1;
  755. $1=_st(self._allMethods())._select_((function(each){
  756. return smalltalk.withContext(function($ctx2) {
  757. return _st(_st(each)._referencedClasses())._includes_(aString);
  758. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
  759. return $1;
  760. }, function($ctx1) {$ctx1.fill(self,"classReferencesOf:",{aString:aString},smalltalk.HLReferencesModel)})},
  761. args: ["aString"],
  762. 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) ].",
  763. messageSends: ["select:", "allMethods", "includes:", "referencedClasses"],
  764. referencedClasses: []
  765. }),
  766. smalltalk.HLReferencesModel);
  767. smalltalk.addMethod(
  768. smalltalk.method({
  769. selector: "classesAndMetaclasses",
  770. protocol: 'accessing',
  771. fn: function (){
  772. var self=this;
  773. return smalltalk.withContext(function($ctx1) {
  774. var $1;
  775. $1=self._classesAndMetaclassesCache();
  776. return $1;
  777. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{},smalltalk.HLReferencesModel)})},
  778. args: [],
  779. source: "classesAndMetaclasses\x0a\x09^ self classesAndMetaclassesCache",
  780. messageSends: ["classesAndMetaclassesCache"],
  781. referencedClasses: []
  782. }),
  783. smalltalk.HLReferencesModel);
  784. smalltalk.addMethod(
  785. smalltalk.method({
  786. selector: "classesAndMetaclassesCache",
  787. protocol: 'cache',
  788. fn: function (){
  789. var self=this;
  790. return smalltalk.withContext(function($ctx1) {
  791. var $1,$2;
  792. $1=self["@classesAndMetaclassesCache"];
  793. if(($receiver = $1) == nil || $receiver == null){
  794. self._updateClassesAndMetaclassesCache();
  795. } else {
  796. $1;
  797. };
  798. $2=self["@classesAndMetaclassesCache"];
  799. return $2;
  800. }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclassesCache",{},smalltalk.HLReferencesModel)})},
  801. args: [],
  802. source: "classesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache ifNil: [ self updateClassesAndMetaclassesCache ].\x0a\x09^ classesAndMetaclassesCache",
  803. messageSends: ["ifNil:", "updateClassesAndMetaclassesCache"],
  804. referencedClasses: []
  805. }),
  806. smalltalk.HLReferencesModel);
  807. smalltalk.addMethod(
  808. smalltalk.method({
  809. selector: "implementorsOf:",
  810. protocol: 'accessing',
  811. fn: function (aString){
  812. var self=this;
  813. return smalltalk.withContext(function($ctx1) {
  814. var $1;
  815. $1=_st(_st(self._allMethods())._select_((function(each){
  816. return smalltalk.withContext(function($ctx2) {
  817. return _st(_st(each)._selector()).__eq(aString);
  818. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})})))._collect_((function(each){
  819. return smalltalk.withContext(function($ctx2) {
  820. return self._methodReferenceOn_(each);
  821. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)})}));
  822. return $1;
  823. }, function($ctx1) {$ctx1.fill(self,"implementorsOf:",{aString:aString},smalltalk.HLReferencesModel)})},
  824. args: ["aString"],
  825. source: "implementorsOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each selector = aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
  826. messageSends: ["collect:", "select:", "allMethods", "=", "selector", "methodReferenceOn:"],
  827. referencedClasses: []
  828. }),
  829. smalltalk.HLReferencesModel);
  830. smalltalk.addMethod(
  831. smalltalk.method({
  832. selector: "isReferencesModel",
  833. protocol: 'testing',
  834. fn: function (){
  835. var self=this;
  836. return true;
  837. },
  838. args: [],
  839. source: "isReferencesModel\x0a\x09^ true",
  840. messageSends: [],
  841. referencedClasses: []
  842. }),
  843. smalltalk.HLReferencesModel);
  844. smalltalk.addMethod(
  845. smalltalk.method({
  846. selector: "methodReferenceOn:",
  847. protocol: 'accessing',
  848. fn: function (aCompiledMethod){
  849. var self=this;
  850. function $HLMethodReference(){return smalltalk.HLMethodReference||(typeof HLMethodReference=="undefined"?nil:HLMethodReference)}
  851. return smalltalk.withContext(function($ctx1) {
  852. var $1;
  853. $1=_st($HLMethodReference())._on_(aCompiledMethod);
  854. return $1;
  855. }, function($ctx1) {$ctx1.fill(self,"methodReferenceOn:",{aCompiledMethod:aCompiledMethod},smalltalk.HLReferencesModel)})},
  856. args: ["aCompiledMethod"],
  857. source: "methodReferenceOn: aCompiledMethod\x0a\x09^ HLMethodReference on: aCompiledMethod",
  858. messageSends: ["on:"],
  859. referencedClasses: ["HLMethodReference"]
  860. }),
  861. smalltalk.HLReferencesModel);
  862. smalltalk.addMethod(
  863. smalltalk.method({
  864. selector: "methodsCache",
  865. protocol: 'cache',
  866. fn: function (){
  867. var self=this;
  868. return smalltalk.withContext(function($ctx1) {
  869. var $1,$2;
  870. $1=self["@methodsCache"];
  871. if(($receiver = $1) == nil || $receiver == null){
  872. self._updateMethodsCache();
  873. } else {
  874. $1;
  875. };
  876. $2=self["@methodsCache"];
  877. return $2;
  878. }, function($ctx1) {$ctx1.fill(self,"methodsCache",{},smalltalk.HLReferencesModel)})},
  879. args: [],
  880. source: "methodsCache\x0a\x09methodsCache ifNil: [ self updateMethodsCache ].\x0a\x09^ methodsCache",
  881. messageSends: ["ifNil:", "updateMethodsCache"],
  882. referencedClasses: []
  883. }),
  884. smalltalk.HLReferencesModel);
  885. smalltalk.addMethod(
  886. smalltalk.method({
  887. selector: "regexpReferencesOf:",
  888. protocol: 'accessing',
  889. fn: function (aString){
  890. var self=this;
  891. return smalltalk.withContext(function($ctx1) {
  892. var $1;
  893. $1=_st(_st(self._allMethods())._select_((function(each){
  894. return smalltalk.withContext(function($ctx2) {
  895. return _st(_st(each)._source())._match_(aString);
  896. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})})))._collect_((function(each){
  897. return smalltalk.withContext(function($ctx2) {
  898. return self._methodReferenceOn_(each);
  899. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)})}));
  900. return $1;
  901. }, function($ctx1) {$ctx1.fill(self,"regexpReferencesOf:",{aString:aString},smalltalk.HLReferencesModel)})},
  902. args: ["aString"],
  903. source: "regexpReferencesOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each source match: aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
  904. messageSends: ["collect:", "select:", "allMethods", "match:", "source", "methodReferenceOn:"],
  905. referencedClasses: []
  906. }),
  907. smalltalk.HLReferencesModel);
  908. smalltalk.addMethod(
  909. smalltalk.method({
  910. selector: "search:",
  911. protocol: 'actions',
  912. fn: function (aString){
  913. var self=this;
  914. function $HLSearchReferences(){return smalltalk.HLSearchReferences||(typeof HLSearchReferences=="undefined"?nil:HLSearchReferences)}
  915. return smalltalk.withContext(function($ctx1) {
  916. var $1,$2;
  917. self._updateCaches();
  918. $1=_st($HLSearchReferences())._new();
  919. _st($1)._searchString_(aString);
  920. $2=_st($1)._yourself();
  921. _st(self._announcer())._announce_($2);
  922. return self}, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString},smalltalk.HLReferencesModel)})},
  923. args: ["aString"],
  924. source: "search: aString\x0a\x09self updateCaches.\x0a\x09\x0a\x09self announcer announce: (HLSearchReferences new\x0a\x09\x09searchString: aString;\x0a\x09\x09yourself)",
  925. messageSends: ["updateCaches", "announce:", "announcer", "searchString:", "new", "yourself"],
  926. referencedClasses: ["HLSearchReferences"]
  927. }),
  928. smalltalk.HLReferencesModel);
  929. smalltalk.addMethod(
  930. smalltalk.method({
  931. selector: "sendersOf:",
  932. protocol: 'accessing',
  933. fn: function (aString){
  934. var self=this;
  935. return smalltalk.withContext(function($ctx1) {
  936. var $1;
  937. $1=_st(_st(self._allMethods())._select_((function(each){
  938. return smalltalk.withContext(function($ctx2) {
  939. return _st(_st(each)._messageSends())._includes_(aString);
  940. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})})))._collect_((function(each){
  941. return smalltalk.withContext(function($ctx2) {
  942. return self._methodReferenceOn_(each);
  943. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,2)})}));
  944. return $1;
  945. }, function($ctx1) {$ctx1.fill(self,"sendersOf:",{aString:aString},smalltalk.HLReferencesModel)})},
  946. args: ["aString"],
  947. source: "sendersOf: aString\x0a\x09^ (self allMethods select: [ :each |\x0a\x09\x09each messageSends includes: aString ])\x0a\x09\x09\x09collect: [ :each | self methodReferenceOn: each ]",
  948. messageSends: ["collect:", "select:", "allMethods", "includes:", "messageSends", "methodReferenceOn:"],
  949. referencedClasses: []
  950. }),
  951. smalltalk.HLReferencesModel);
  952. smalltalk.addMethod(
  953. smalltalk.method({
  954. selector: "updateCaches",
  955. protocol: 'cache',
  956. fn: function (){
  957. var self=this;
  958. return smalltalk.withContext(function($ctx1) {
  959. var $1;
  960. self._updateClassesAndMetaclassesCache();
  961. $1=self._updateMethodsCache();
  962. return self}, function($ctx1) {$ctx1.fill(self,"updateCaches",{},smalltalk.HLReferencesModel)})},
  963. args: [],
  964. source: "updateCaches\x0a\x09self \x0a\x09\x09updateClassesAndMetaclassesCache;\x0a\x09\x09updateMethodsCache",
  965. messageSends: ["updateClassesAndMetaclassesCache", "updateMethodsCache"],
  966. referencedClasses: []
  967. }),
  968. smalltalk.HLReferencesModel);
  969. smalltalk.addMethod(
  970. smalltalk.method({
  971. selector: "updateClassesAndMetaclassesCache",
  972. protocol: 'cache',
  973. fn: function (){
  974. var self=this;
  975. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  976. return smalltalk.withContext(function($ctx1) {
  977. var $1,$2;
  978. self["@classesAndMetaclassesCache"]=_st($OrderedCollection())._new();
  979. _st(_st(self._environment())._classes())._do_((function(each){
  980. return smalltalk.withContext(function($ctx2) {
  981. $1=self["@classesAndMetaclassesCache"];
  982. _st($1)._add_(each);
  983. $ctx2.sendIdx["add:"]=1;
  984. $2=_st($1)._add_(_st(each)._class());
  985. return $2;
  986. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
  987. return self}, function($ctx1) {$ctx1.fill(self,"updateClassesAndMetaclassesCache",{},smalltalk.HLReferencesModel)})},
  988. args: [],
  989. source: "updateClassesAndMetaclassesCache\x0a\x09classesAndMetaclassesCache := OrderedCollection new.\x0a\x09\x0a\x09self environment classes do: [ :each |\x0a\x09\x09classesAndMetaclassesCache\x0a\x09\x09\x09\x09add: each; \x0a\x09\x09\x09\x09add: each class ]",
  990. messageSends: ["new", "do:", "classes", "environment", "add:", "class"],
  991. referencedClasses: ["OrderedCollection"]
  992. }),
  993. smalltalk.HLReferencesModel);
  994. smalltalk.addMethod(
  995. smalltalk.method({
  996. selector: "updateMethodsCache",
  997. protocol: 'cache',
  998. fn: function (){
  999. var self=this;
  1000. function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)}
  1001. return smalltalk.withContext(function($ctx1) {
  1002. self["@methodsCache"]=_st($OrderedCollection())._new();
  1003. _st(self._classesAndMetaclasses())._do_((function(each){
  1004. return smalltalk.withContext(function($ctx2) {
  1005. return _st(self["@methodsCache"])._addAll_(_st(each)._methods());
  1006. }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)})}));
  1007. return self}, function($ctx1) {$ctx1.fill(self,"updateMethodsCache",{},smalltalk.HLReferencesModel)})},
  1008. args: [],
  1009. source: "updateMethodsCache\x0a\x09methodsCache := OrderedCollection new.\x0a\x09\x0a\x09self classesAndMetaclasses\x0a\x09\x09do: [ :each | methodsCache addAll: each methods ]",
  1010. messageSends: ["new", "do:", "classesAndMetaclasses", "addAll:", "methods"],
  1011. referencedClasses: ["OrderedCollection"]
  1012. }),
  1013. smalltalk.HLReferencesModel);
  1014. });