Browse Source

SmalltalkImage >> classes without inlineJS:

Herbert Vojčík 6 years ago
parent
commit
9fb67059da
2 changed files with 4 additions and 5 deletions
  1. 3 4
      src/Kernel-Infrastructure.js
  2. 1 1
      src/Kernel-Infrastructure.st

+ 3 - 4
src/Kernel-Infrastructure.js

@@ -3081,18 +3081,17 @@ var self=this,$self=this;
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx1) {
 //>>excludeEnd("ctx");
-return $core.classes();
-return self;
+return $recv($recv($self._core())._classes())._copy();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx1) {$ctx1.fill(self,"classes",{},$globals.SmalltalkImage)});
 //>>excludeEnd("ctx");
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "classes\x0a\x09<inlineJS: 'return $core.classes()'>",
+source: "classes\x0a\x09^ self core classes copy",
 referencedClasses: [],
 //>>excludeEnd("ide");
-messageSends: []
+messageSends: ["copy", "classes", "core"]
 }),
 $globals.SmalltalkImage);
 

+ 1 - 1
src/Kernel-Infrastructure.st

@@ -905,7 +905,7 @@ defaultAmdNamespace: aString
 !SmalltalkImage methodsFor: 'classes'!
 
 classes
-	<inlineJS: 'return $core.classes()'>
+	^ self core classes copy
 !
 
 removeClass: aClass