|
@@ -3731,32 +3731,32 @@ var klass;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
|
//>>excludeEnd("ctx");
|
|
|
-var $1,$2,$receiver;
|
|
|
+var $1,$2,$3,$receiver;
|
|
|
var $early={};
|
|
|
try {
|
|
|
$1=self["@selectedClass"];
|
|
|
if(($receiver = $1) == null || $receiver.isNil){
|
|
|
-$1;
|
|
|
+return [];
|
|
|
} else {
|
|
|
+$1;
|
|
|
+}
|
|
|
$2=$recv(self["@selectedTab"]).__eq("comment");
|
|
|
if($core.assert($2)){
|
|
|
return [];
|
|
|
}
|
|
|
klass=self._selectedClassOrMetaClass();
|
|
|
-klass;
|
|
|
+$3=klass;
|
|
|
+if(($receiver = $3) == null || $receiver.isNil){
|
|
|
+return [];
|
|
|
+} else {
|
|
|
+$3;
|
|
|
+}
|
|
|
$recv($recv(klass)._methodDictionary())._ifEmpty_((function(){
|
|
|
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
-return $core.withContext(function($ctx2) {
|
|
|
-//>>excludeEnd("ctx");
|
|
|
-throw $early=[$recv($globals.Array)._with_("not yet classified")];
|
|
|
-//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
-}, function($ctx2) {$ctx2.fillBlock({},$ctx1,3)});
|
|
|
-//>>excludeEnd("ctx");
|
|
|
+throw $early=[["not yet classified"]];
|
|
|
+
|
|
|
}));
|
|
|
return $recv(klass)._protocols();
|
|
|
}
|
|
|
-return $recv($globals.Array)._new();
|
|
|
-}
|
|
|
catch(e) {if(e===$early)return e[0]; throw e}
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"protocols",{klass:klass},$globals.Browser)});
|
|
@@ -3764,10 +3764,10 @@ catch(e) {if(e===$early)return e[0]; throw e}
|
|
|
},
|
|
|
//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
args: [],
|
|
|
-source: "protocols\x0a\x09| klass |\x0a\x09selectedClass ifNotNil: [\x0a\x09selectedTab = #comment ifTrue: [ ^ #() ].\x0a\x09klass := self selectedClassOrMetaClass.\x0a\x09klass methodDictionary ifEmpty: [\x0a\x09\x09^ Array with: 'not yet classified' ].\x0a\x09^ klass protocols ].\x0a\x09^ Array new",
|
|
|
-referencedClasses: ["Array"],
|
|
|
+source: "protocols\x0a\x09| klass |\x0a\x09selectedClass ifNil: [ ^ #() ].\x0a\x09selectedTab = #comment ifTrue: [ ^ #() ].\x0a\x09klass := self selectedClassOrMetaClass.\x0a\x09klass ifNil: [ ^ #() ].\x0a\x09klass methodDictionary ifEmpty: [ ^ {'not yet classified'} ].\x0a\x09^ klass protocols",
|
|
|
+referencedClasses: [],
|
|
|
//>>excludeEnd("ide");
|
|
|
-messageSends: ["ifNotNil:", "ifTrue:", "=", "selectedClassOrMetaClass", "ifEmpty:", "methodDictionary", "with:", "protocols", "new"]
|
|
|
+messageSends: ["ifNil:", "ifTrue:", "=", "selectedClassOrMetaClass", "ifEmpty:", "methodDictionary", "protocols"]
|
|
|
}),
|
|
|
$globals.Browser);
|
|
|
|
|
@@ -7926,12 +7926,12 @@ var self=this;
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx1) {
|
|
|
//>>excludeEnd("ctx");
|
|
|
-var $1;
|
|
|
-$1=$recv($globals.Smalltalk)._classes();
|
|
|
+var $2,$1;
|
|
|
+$2=$recv($globals.Smalltalk)._classes();
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
$ctx1.sendIdx["classes"]=1;
|
|
|
//>>excludeEnd("ctx");
|
|
|
-return $recv($1).__comma($recv($recv($globals.Smalltalk)._classes())._collect_((function(each){
|
|
|
+$1=$recv($2).__comma($recv($recv($globals.Smalltalk)._classes())._collect_((function(each){
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
return $core.withContext(function($ctx2) {
|
|
|
//>>excludeEnd("ctx");
|
|
@@ -7940,16 +7940,17 @@ return $recv(each)._theMetaClass();
|
|
|
}, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
|
|
|
//>>excludeEnd("ctx");
|
|
|
})));
|
|
|
+return $recv($1)._copyWithout_(nil);
|
|
|
//>>excludeStart("ctx", pragmas.excludeDebugContexts);
|
|
|
}, function($ctx1) {$ctx1.fill(self,"classesAndMetaclasses",{},$globals.ReferencesBrowser)});
|
|
|
//>>excludeEnd("ctx");
|
|
|
},
|
|
|
//>>excludeStart("ide", pragmas.excludeIdeData);
|
|
|
args: [],
|
|
|
-source: "classesAndMetaclasses\x0a\x09^ Smalltalk classes, (Smalltalk classes collect: [ :each | each theMetaClass ])",
|
|
|
+source: "classesAndMetaclasses\x0a\x09^ Smalltalk classes, (Smalltalk classes collect: [ :each | each theMetaClass ]) copyWithout: nil",
|
|
|
referencedClasses: ["Smalltalk"],
|
|
|
//>>excludeEnd("ide");
|
|
|
-messageSends: [",", "classes", "collect:", "theMetaClass"]
|
|
|
+messageSends: ["copyWithout:", ",", "classes", "collect:", "theMetaClass"]
|
|
|
}),
|
|
|
$globals.ReferencesBrowser);
|
|
|
|