Adds Environment >> classes

js/Kernel-Objects.deploy.js

@@ -1599,6 +1599,20 @@ return $1;
 messageSends: ["ifNil:", "error:", "at:", "asSymbol", "current"]}),
 smalltalk.Environment);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "classes",
+fn: function (){
+var self=this;
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st($Smalltalk())._current())._classes();
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"classes",{},smalltalk.Environment)})},
+messageSends: ["classes", "current"]}),
+smalltalk.Environment);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "commitPackage:",

js/Kernel-Objects.js

@@ -2228,6 +2228,25 @@ referencedClasses: ["Smalltalk"]
 }),
 smalltalk.Environment);
 
+smalltalk.addMethod(
+smalltalk.method({
+selector: "classes",
+category: 'accessing',
+fn: function (){
+var self=this;
+function $Smalltalk(){return smalltalk.Smalltalk||(typeof Smalltalk=="undefined"?nil:Smalltalk)}
+return smalltalk.withContext(function($ctx1) { 
+var $1;
+$1=_st(_st($Smalltalk())._current())._classes();
+return $1;
+}, function($ctx1) {$ctx1.fill(self,"classes",{},smalltalk.Environment)})},
+args: [],
+source: "classes\x0a\x09^ Smalltalk current classes",
+messageSends: ["classes", "current"],
+referencedClasses: ["Smalltalk"]
+}),
+smalltalk.Environment);
+
 smalltalk.addMethod(
 smalltalk.method({
 selector: "commitPackage:",

st/Kernel-Objects.st

@@ -694,6 +694,10 @@ classNamed: aString
 		ifNil: [ self error: 'Invalid class name' ]
 !
 
+classes
+	^ Smalltalk current classes
+!
+
 packages
 	^ Smalltalk current packages
 !