Helios-References.js 40 KB

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