smalltalk.addPackage('Helios-References'); smalltalk.addClass('HLReferences', smalltalk.HLWidget, ['model', 'sendersListWidget', 'implementorsListWidget', 'classReferencesListWidget', 'regexpListWidget', 'sourceCodeWidget'], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "classReferencesListWidget", fn: function (){ var self=this; function $HLClassReferencesListWidget(){return smalltalk.HLClassReferencesListWidget||(typeof HLClassReferencesListWidget=="undefined"?nil:HLClassReferencesListWidget)} return smalltalk.withContext(function($ctx1) { var $2,$1; $2=self["@classReferencesListWidget"]; if(($receiver = $2) == nil || $receiver == undefined){ self["@classReferencesListWidget"]=_st($HLClassReferencesListWidget())._on_(_st(self)._model()); self["@classReferencesListWidget"]; $1=_st(self["@classReferencesListWidget"])._next_(_st(self)._regexpListWidget()); } else { $1=$2; }; return $1; }, function($ctx1) {$ctx1.fill(self,"classReferencesListWidget",{},smalltalk.HLReferences)})}, messageSends: ["ifNil:", "on:", "model", "next:", "regexpListWidget"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "implementorsListWidget", fn: function (){ var self=this; function $HLImplementorsListWidget(){return smalltalk.HLImplementorsListWidget||(typeof HLImplementorsListWidget=="undefined"?nil:HLImplementorsListWidget)} return smalltalk.withContext(function($ctx1) { var $2,$1; $2=self["@implementorsListWidget"]; if(($receiver = $2) == nil || $receiver == undefined){ self["@implementorsListWidget"]=_st($HLImplementorsListWidget())._on_(_st(self)._model()); self["@implementorsListWidget"]; $1=_st(self["@implementorsListWidget"])._next_(_st(self)._classReferencesListWidget()); } else { $1=$2; }; return $1; }, function($ctx1) {$ctx1.fill(self,"implementorsListWidget",{},smalltalk.HLReferences)})}, messageSends: ["ifNil:", "on:", "model", "next:", "classReferencesListWidget"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "model", fn: function (){ var self=this; function $HLReferencesModel(){return smalltalk.HLReferencesModel||(typeof HLReferencesModel=="undefined"?nil:HLReferencesModel)} return smalltalk.withContext(function($ctx1) { var $2,$3,$4,$1; $2=self["@model"]; if(($receiver = $2) == nil || $receiver == undefined){ $3=_st($HLReferencesModel())._new(); _st($3)._environment_(_st(_st(self)._manager())._environment()); $4=_st($3)._yourself(); self["@model"]=$4; $1=self["@model"]; } else { $1=$2; }; return $1; }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLReferences)})}, messageSends: ["ifNil:", "environment:", "environment", "manager", "new", "yourself"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "model:", fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { self["@model"]=aModel; return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLReferences)})}, messageSends: []}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "open", fn: function (){ var self=this; function $HLTab(){return smalltalk.HLTab||(typeof HLTab=="undefined"?nil:HLTab)} function $HLManager(){return smalltalk.HLManager||(typeof HLManager=="undefined"?nil:HLManager)} return smalltalk.withContext(function($ctx1) { _st(_st($HLManager())._current())._addTab_(_st($HLTab())._on_labelled_(self,_st(_st(self)._class())._tabLabel())); return self}, function($ctx1) {$ctx1.fill(self,"open",{},smalltalk.HLReferences)})}, messageSends: ["addTab:", "on:labelled:", "tabLabel", "class", "current"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "regexpListWidget", fn: function (){ var self=this; function $HLRegexpListWidget(){return smalltalk.HLRegexpListWidget||(typeof HLRegexpListWidget=="undefined"?nil:HLRegexpListWidget)} return smalltalk.withContext(function($ctx1) { var $2,$1; $2=self["@regexpListWidget"]; if(($receiver = $2) == nil || $receiver == undefined){ self["@regexpListWidget"]=_st($HLRegexpListWidget())._on_(_st(self)._model()); self["@regexpListWidget"]; $1=_st(self["@regexpListWidget"])._next_(_st(self)._sourceCodeWidget()); } else { $1=$2; }; return $1; }, function($ctx1) {$ctx1.fill(self,"regexpListWidget",{},smalltalk.HLReferences)})}, messageSends: ["ifNil:", "on:", "model", "next:", "sourceCodeWidget"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "renderContentOn:", fn: function (html){ var self=this; function $HLVerticalSplitter(){return smalltalk.HLVerticalSplitter||(typeof HLVerticalSplitter=="undefined"?nil:HLVerticalSplitter)} function $HLHorizontalSplitter(){return smalltalk.HLHorizontalSplitter||(typeof HLHorizontalSplitter=="undefined"?nil:HLHorizontalSplitter)} function $HLContainer(){return smalltalk.HLContainer||(typeof HLContainer=="undefined"?nil:HLContainer)} return smalltalk.withContext(function($ctx1) { _st(html)._with_(_st($HLContainer())._with_(_st($HLHorizontalSplitter())._with_with_(_st($HLVerticalSplitter())._with_with_(_st($HLVerticalSplitter())._with_with_(_st(self)._sendersListWidget(),_st(self)._implementorsListWidget()),_st($HLVerticalSplitter())._with_with_(_st(self)._classReferencesListWidget(),_st(self)._regexpListWidget())),_st(self)._sourceCodeWidget()))); _st(_st(self)._sendersListWidget())._focus(); return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLReferences)})}, messageSends: ["with:", "with:with:", "sendersListWidget", "implementorsListWidget", "classReferencesListWidget", "regexpListWidget", "sourceCodeWidget", "focus"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "search:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { _st(_st(self)._model())._search_(aString); return self}, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString},smalltalk.HLReferences)})}, messageSends: ["search:", "model"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "sendersListWidget", fn: function (){ var self=this; function $HLSendersListWidget(){return smalltalk.HLSendersListWidget||(typeof HLSendersListWidget=="undefined"?nil:HLSendersListWidget)} return smalltalk.withContext(function($ctx1) { var $2,$1; $2=self["@sendersListWidget"]; if(($receiver = $2) == nil || $receiver == undefined){ self["@sendersListWidget"]=_st($HLSendersListWidget())._on_(_st(self)._model()); self["@sendersListWidget"]; $1=_st(self["@sendersListWidget"])._next_(_st(self)._implementorsListWidget()); } else { $1=$2; }; return $1; }, function($ctx1) {$ctx1.fill(self,"sendersListWidget",{},smalltalk.HLReferences)})}, messageSends: ["ifNil:", "on:", "model", "next:", "implementorsListWidget"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "sourceCodeWidget", fn: function (){ var self=this; function $HLNavigationCodeWidget(){return smalltalk.HLNavigationCodeWidget||(typeof HLNavigationCodeWidget=="undefined"?nil:HLNavigationCodeWidget)} return smalltalk.withContext(function($ctx1) { var $2,$1; $2=self["@sourceCodeWidget"]; if(($receiver = $2) == nil || $receiver == undefined){ self["@sourceCodeWidget"]=_st($HLNavigationCodeWidget())._new(); $1=self["@sourceCodeWidget"]; } else { $1=$2; }; return $1; }, function($ctx1) {$ctx1.fill(self,"sourceCodeWidget",{},smalltalk.HLReferences)})}, messageSends: ["ifNil:", "new"]}), smalltalk.HLReferences); smalltalk.addMethod( smalltalk.method({ selector: "canBeOpenAsTab", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return false; }, function($ctx1) {$ctx1.fill(self,"canBeOpenAsTab",{},smalltalk.HLReferences.klass)})}, messageSends: []}), smalltalk.HLReferences.klass); smalltalk.addMethod( smalltalk.method({ selector: "tabLabel", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "References"; }, function($ctx1) {$ctx1.fill(self,"tabLabel",{},smalltalk.HLReferences.klass)})}, messageSends: []}), smalltalk.HLReferences.klass); smalltalk.addMethod( smalltalk.method({ selector: "tabPriority", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=(100); return $1; }, function($ctx1) {$ctx1.fill(self,"tabPriority",{},smalltalk.HLReferences.klass)})}, messageSends: []}), smalltalk.HLReferences.klass); smalltalk.addClass('HLReferencesListWidget', smalltalk.HLNavigationListWidget, ['model'], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "label", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "List"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLReferencesListWidget)})}, messageSends: []}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "model", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=self["@model"]; return $1; }, function($ctx1) {$ctx1.fill(self,"model",{},smalltalk.HLReferencesListWidget)})}, messageSends: []}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "model:", fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { self["@model"]=aModel; _st(self)._observeModel(); return self}, function($ctx1) {$ctx1.fill(self,"model:",{aModel:aModel},smalltalk.HLReferencesListWidget)})}, messageSends: ["observeModel"]}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "observeModel", fn: function (){ var self=this; function $HLSearchReferences(){return smalltalk.HLSearchReferences||(typeof HLSearchReferences=="undefined"?nil:HLSearchReferences)} return smalltalk.withContext(function($ctx1) { _st(_st(_st(self)._model())._announcer())._on_do_($HLSearchReferences(),(function(ann){ return smalltalk.withContext(function($ctx2) { return _st(self)._onSearchReferences_(_st(ann)._searchString()); }, function($ctx2) {$ctx2.fillBlock({ann:ann},$ctx1)})})); return self}, function($ctx1) {$ctx1.fill(self,"observeModel",{},smalltalk.HLReferencesListWidget)})}, messageSends: ["on:do:", "onSearchReferences:", "searchString", "announcer", "model"]}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "onSearchReferences:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self)._subclassResponsibility(); return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLReferencesListWidget)})}, messageSends: ["subclassResponsibility"]}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "renderContentOn:", fn: function (html){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self)._renderHeadOn_(html); smalltalk.HLNavigationListWidget.fn.prototype._renderContentOn_.apply(_st(self), [html]); return self}, function($ctx1) {$ctx1.fill(self,"renderContentOn:",{html:html},smalltalk.HLReferencesListWidget)})}, messageSends: ["renderHeadOn:", "renderContentOn:"]}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "renderHeadOn:", fn: function (html){ var self=this; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=_st(html)._div(); _st($1)._class_("list-label"); $2=_st($1)._with_((function(){ return smalltalk.withContext(function($ctx2) { return _st(html)._with_(_st(self)._label()); }, function($ctx2) {$ctx2.fillBlock({},$ctx1)})})); return self}, function($ctx1) {$ctx1.fill(self,"renderHeadOn:",{html:html},smalltalk.HLReferencesListWidget)})}, messageSends: ["class:", "div", "with:", "label"]}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "renderItemLabel:on:", fn: function (aMethod,html){ var self=this; return smalltalk.withContext(function($ctx1) { _st(html)._with_(_st(_st(_st(_st(aMethod)._methodClass())._name()).__comma(" >> #")).__comma(_st(aMethod)._selector())); return self}, function($ctx1) {$ctx1.fill(self,"renderItemLabel:on:",{aMethod:aMethod,html:html},smalltalk.HLReferencesListWidget)})}, messageSends: ["with:", ",", "selector", "name", "methodClass"]}), smalltalk.HLReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "on:", fn: function (aModel){ var self=this; return smalltalk.withContext(function($ctx1) { var $2,$3,$1; $2=_st(self)._new(); _st($2)._model_(aModel); $3=_st($2)._yourself(); $1=$3; return $1; }, function($ctx1) {$ctx1.fill(self,"on:",{aModel:aModel},smalltalk.HLReferencesListWidget.klass)})}, messageSends: ["model:", "new", "yourself"]}), smalltalk.HLReferencesListWidget.klass); smalltalk.addClass('HLClassReferencesListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "label", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Class references"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLClassReferencesListWidget)})}, messageSends: []}), smalltalk.HLClassReferencesListWidget); smalltalk.addMethod( smalltalk.method({ selector: "onSearchReferences:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self)._selectItem_(nil); _st(self)._items_(_st(_st(self)._model())._classReferencesOf_(aString)); _st(self)._refresh(); return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLClassReferencesListWidget)})}, messageSends: ["selectItem:", "items:", "classReferencesOf:", "model", "refresh"]}), smalltalk.HLClassReferencesListWidget); smalltalk.addClass('HLImplementorsListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "label", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Implementors"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLImplementorsListWidget)})}, messageSends: []}), smalltalk.HLImplementorsListWidget); smalltalk.addMethod( smalltalk.method({ selector: "onSearchReferences:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self)._selectItem_(nil); _st(self)._items_(_st(_st(self)._model())._implementorsOf_(aString)); _st(self)._refresh(); return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLImplementorsListWidget)})}, messageSends: ["selectItem:", "items:", "implementorsOf:", "model", "refresh"]}), smalltalk.HLImplementorsListWidget); smalltalk.addClass('HLRegexpListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "label", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Source search"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLRegexpListWidget)})}, messageSends: []}), smalltalk.HLRegexpListWidget); smalltalk.addMethod( smalltalk.method({ selector: "onSearchReferences:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self)._selectItem_(nil); _st(self)._items_(_st(_st(self)._model())._regexpReferencesOf_(aString)); _st(self)._refresh(); return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLRegexpListWidget)})}, messageSends: ["selectItem:", "items:", "regexpReferencesOf:", "model", "refresh"]}), smalltalk.HLRegexpListWidget); smalltalk.addClass('HLSendersListWidget', smalltalk.HLReferencesListWidget, [], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "label", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { return "Senders"; }, function($ctx1) {$ctx1.fill(self,"label",{},smalltalk.HLSendersListWidget)})}, messageSends: []}), smalltalk.HLSendersListWidget); smalltalk.addMethod( smalltalk.method({ selector: "onSearchReferences:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { _st(self)._selectItem_(nil); _st(self)._items_(_st(_st(self)._model())._sendersOf_(aString)); _st(self)._refresh(); return self}, function($ctx1) {$ctx1.fill(self,"onSearchReferences:",{aString:aString},smalltalk.HLSendersListWidget)})}, messageSends: ["selectItem:", "items:", "sendersOf:", "model", "refresh"]}), smalltalk.HLSendersListWidget); smalltalk.addClass('HLReferencesModel', smalltalk.HLModel, ['methodsCache', 'classesAndMetaclassesCache'], 'Helios-References'); smalltalk.addMethod( smalltalk.method({ selector: "allMethods", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self)._methodsCache(); return $1; }, function($ctx1) {$ctx1.fill(self,"allMethods",{},smalltalk.HLReferencesModel)})}, messageSends: ["methodsCache"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "allSelectors", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(_st(self)._allMethods())._collect_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(each)._selector(); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})))._asSet(); return $1; }, function($ctx1) {$ctx1.fill(self,"allSelectors",{},smalltalk.HLReferencesModel)})}, messageSends: ["asSet", "collect:", "selector", "allMethods"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "classReferencesOf:", fn: function (aString){ var self=this; var references; function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)} return smalltalk.withContext(function($ctx1) { var $1,$2; references=_st($OrderedCollection())._new(); _st(_st(self)._classesAndMetaclasses())._do_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(_st(_st(each)._methodDictionary())._values())._do_((function(method){ return smalltalk.withContext(function($ctx3) { $1=_st(_st(method)._referencedClasses())._includes_(aString); if(smalltalk.assert($1)){ return _st(references)._add_(method); }; }, function($ctx3) {$ctx3.fillBlock({method:method},$ctx1)})})); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); $2=references; return $2; }, function($ctx1) {$ctx1.fill(self,"classReferencesOf:",{aString:aString,references:references},smalltalk.HLReferencesModel)})}, messageSends: ["new", "do:", "ifTrue:", "add:", "includes:", "referencedClasses", "values", "methodDictionary", "classesAndMetaclasses"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "classesAndMetaclasses", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(self)._classesAndMetaclassesCache(); return $1; }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{},smalltalk.HLReferencesModel)})}, messageSends: ["classesAndMetaclassesCache"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "classesAndMetaclassesCache", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=self["@classesAndMetaclassesCache"]; if(($receiver = $1) == nil || $receiver == undefined){ _st(self)._updateClassesAndMetaclassesCache(); } else { $1; }; $2=self["@classesAndMetaclassesCache"]; return $2; }, function($ctx1) {$ctx1.fill(self,"classesAndMetaclassesCache",{},smalltalk.HLReferencesModel)})}, messageSends: ["ifNil:", "updateClassesAndMetaclassesCache"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "implementorsOf:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self)._allMethods())._select_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(_st(each)._selector()).__eq(aString); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"implementorsOf:",{aString:aString},smalltalk.HLReferencesModel)})}, messageSends: ["select:", "=", "selector", "allMethods"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "methodsCache", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=self["@methodsCache"]; if(($receiver = $1) == nil || $receiver == undefined){ _st(self)._updateMethodsCache(); } else { $1; }; $2=self["@methodsCache"]; return $2; }, function($ctx1) {$ctx1.fill(self,"methodsCache",{},smalltalk.HLReferencesModel)})}, messageSends: ["ifNil:", "updateMethodsCache"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "regexpReferencesOf:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self)._allMethods())._select_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(_st(each)._source())._match_(aString); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"regexpReferencesOf:",{aString:aString},smalltalk.HLReferencesModel)})}, messageSends: ["select:", "match:", "source", "allMethods"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "search:", fn: function (aString){ var self=this; function $HLSearchReferences(){return smalltalk.HLSearchReferences||(typeof HLSearchReferences=="undefined"?nil:HLSearchReferences)} return smalltalk.withContext(function($ctx1) { var $1,$2; _st(self)._updateCaches(); $1=_st($HLSearchReferences())._new(); _st($1)._searchString_(aString); $2=_st($1)._yourself(); _st(_st(self)._announcer())._announce_($2); return self}, function($ctx1) {$ctx1.fill(self,"search:",{aString:aString},smalltalk.HLReferencesModel)})}, messageSends: ["updateCaches", "announce:", "searchString:", "new", "yourself", "announcer"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "sendersOf:", fn: function (aString){ var self=this; return smalltalk.withContext(function($ctx1) { var $1; $1=_st(_st(self)._allMethods())._select_((function(each){ return smalltalk.withContext(function($ctx2) { return _st(_st(each)._messageSends())._includes_(aString); }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1)})})); return $1; }, function($ctx1) {$ctx1.fill(self,"sendersOf:",{aString:aString},smalltalk.HLReferencesModel)})}, messageSends: ["select:", "includes:", "messageSends", "allMethods"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "updateCaches", fn: function (){ var self=this; return smalltalk.withContext(function($ctx1) { var $1,$2; $1=self; _st($1)._updateClassesAndMetaclassesCache(); $2=_st($1)._updateMethodsCache(); return self}, function($ctx1) {$ctx1.fill(self,"updateCaches",{},smalltalk.HLReferencesModel)})}, messageSends: ["updateClassesAndMetaclassesCache", "updateMethodsCache"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "updateClassesAndMetaclassesCache", fn: function (){ var self=this; function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)} return smalltalk.withContext(function($ctx1) { var $1,$2; self["@classesAndMetaclassesCache"]=_st(_st(_st(self)._environment())._classes())._inject_into_(_st($OrderedCollection())._new(),(function(acc,each){ return smalltalk.withContext(function($ctx2) { $1=acc; _st($1)._add_(each); _st($1)._add_(_st(each)._class()); $2=_st($1)._yourself(); return $2; }, function($ctx2) {$ctx2.fillBlock({acc:acc,each:each},$ctx1)})})); return self}, function($ctx1) {$ctx1.fill(self,"updateClassesAndMetaclassesCache",{},smalltalk.HLReferencesModel)})}, messageSends: ["inject:into:", "new", "add:", "class", "yourself", "classes", "environment"]}), smalltalk.HLReferencesModel); smalltalk.addMethod( smalltalk.method({ selector: "updateMethodsCache", fn: function (){ var self=this; function $OrderedCollection(){return smalltalk.OrderedCollection||(typeof OrderedCollection=="undefined"?nil:OrderedCollection)} return smalltalk.withContext(function($ctx1) { self["@methodsCache"]=_st(_st(self)._classesAndMetaclasses())._inject_into_(_st($OrderedCollection())._new(),(function(acc,each){ return smalltalk.withContext(function($ctx2) { return _st(acc).__comma(_st(each)._methods()); }, function($ctx2) {$ctx2.fillBlock({acc:acc,each:each},$ctx1)})})); return self}, function($ctx1) {$ctx1.fill(self,"updateMethodsCache",{},smalltalk.HLReferencesModel)})}, messageSends: ["inject:into:", "new", ",", "methods", "classesAndMetaclasses"]}), smalltalk.HLReferencesModel);