|
|
@@ -1415,8 +1415,9 @@ var self=this;
|
|
|
var starCategoryName;
|
|
|
function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
|
|
|
return smalltalk.withContext(function($ctx1) {
|
|
|
-var $4,$3,$2,$5,$1;
|
|
|
+var $4,$3,$2,$6,$5,$7,$1;
|
|
|
starCategoryName="*".__comma(self._name());
|
|
|
+$ctx1.sendIdx[","]=1;
|
|
|
$4=self._classes();
|
|
|
$ctx1.sendIdx["classes"]=1;
|
|
|
$3=_st($4)._collect_((function(each){
|
|
|
@@ -1429,15 +1430,18 @@ return smalltalk.withContext(function($ctx2) {
|
|
|
}, function($ctx2) {$ctx2.fillBlock({},$ctx1,2)})}));
|
|
|
_st($2)._addAll_(_st(_st(_st($Smalltalk())._current())._classes())._select_((function(each){
|
|
|
return smalltalk.withContext(function($ctx2) {
|
|
|
-return _st(_st(each)._protocols())._includes_(starCategoryName);
|
|
|
+$6=_st(each)._protocols();
|
|
|
+$ctx2.sendIdx["protocols"]=1;
|
|
|
+$5=_st($6).__comma(_st(_st(each)._class())._protocols());
|
|
|
+return _st($5)._includes_(starCategoryName);
|
|
|
}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,3)})})));
|
|
|
-$5=_st($2)._yourself();
|
|
|
-$1=$5;
|
|
|
+$7=_st($2)._yourself();
|
|
|
+$1=$7;
|
|
|
return $1;
|
|
|
}, function($ctx1) {$ctx1.fill(self,"loadDependencyClasses",{starCategoryName:starCategoryName},smalltalk.Package)})},
|
|
|
args: [],
|
|
|
-source: "loadDependencyClasses\x0a\x09\x22Returns classes needed at the time of loading a package.\x0a\x09These are all that are used to subclass\x0a\x09and to define an extension method\x22\x0a\x09\x0a\x09| starCategoryName |\x0a\x09starCategoryName := '*', self name.\x0a\x09^ (self classes collect: [ :each | each superclass ]) asSet\x0a\x09\x09remove: nil ifAbsent: [];\x0a\x09\x09addAll: (Smalltalk current classes select: [ :each | each protocols includes: starCategoryName ]);\x0a\x09\x09yourself",
|
|
|
-messageSends: [",", "name", "remove:ifAbsent:", "asSet", "collect:", "classes", "superclass", "addAll:", "select:", "current", "includes:", "protocols", "yourself"],
|
|
|
+source: "loadDependencyClasses\x0a\x09\x22Returns classes needed at the time of loading a package.\x0a\x09These are all that are used to subclass\x0a\x09and to define an extension method\x22\x0a\x09\x0a\x09| starCategoryName |\x0a\x09starCategoryName := '*', self name.\x0a\x09^ (self classes collect: [ :each | each superclass ]) asSet\x0a\x09\x09remove: nil ifAbsent: [];\x0a\x09\x09addAll: (Smalltalk current classes select: [ :each | each protocols, each class protocols includes: starCategoryName ]);\x0a\x09\x09yourself",
|
|
|
+messageSends: [",", "name", "remove:ifAbsent:", "asSet", "collect:", "classes", "superclass", "addAll:", "select:", "current", "includes:", "protocols", "class", "yourself"],
|
|
|
referencedClasses: ["Smalltalk"]
|
|
|
}),
|
|
|
smalltalk.Package);
|
