Browse Source

More use of `theMetaClass` instead of `class`.

Herbert Vojčík 7 years ago
parent
commit
3ecb21fbe5
2 changed files with 4 additions and 4 deletions
  1. 3 3
      src/IDE.js
  2. 1 1
      src/IDE.st

+ 3 - 3
src/IDE.js

@@ -7935,7 +7935,7 @@ return $recv($1).__comma($recv($recv($globals.Smalltalk)._classes())._collect_((
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 return $core.withContext(function($ctx2) {
 //>>excludeEnd("ctx");
-return $recv(each)._class();
+return $recv(each)._theMetaClass();
 //>>excludeStart("ctx", pragmas.excludeDebugContexts);
 }, function($ctx2) {$ctx2.fillBlock({each:each},$ctx1,1)});
 //>>excludeEnd("ctx");
@@ -7946,10 +7946,10 @@ return $recv(each)._class();
 },
 //>>excludeStart("ide", pragmas.excludeIdeData);
 args: [],
-source: "classesAndMetaclasses\x0a\x09^ Smalltalk classes, (Smalltalk classes collect: [ :each | each class ])",
+source: "classesAndMetaclasses\x0a\x09^ Smalltalk classes, (Smalltalk classes collect: [ :each | each theMetaClass ])",
 referencedClasses: ["Smalltalk"],
 //>>excludeEnd("ide");
-messageSends: [",", "classes", "collect:", "class"]
+messageSends: [",", "classes", "collect:", "theMetaClass"]
 }),
 $globals.ReferencesBrowser);
 

+ 1 - 1
src/IDE.st

@@ -1758,7 +1758,7 @@ TabWidget subclass: #ReferencesBrowser
 !ReferencesBrowser methodsFor: 'accessing'!
 
 classesAndMetaclasses
-	^ Smalltalk classes, (Smalltalk classes collect: [ :each | each class ])
+	^ Smalltalk classes, (Smalltalk classes collect: [ :each | each theMetaClass ])
 !
 
 implementors