class: Tools::ClassList
authorClaus Gittinger <cg@exept.de>
Sat, 22 Feb 2014 13:42:48 +0100
changeset 13981 c8782df367df
parent 13980 90e63c4b49d8
child 13982 25d8cef3bc77
class: Tools::ClassList changed: #listOfClasses
Tools_ClassList.st
--- a/Tools_ClassList.st	Sat Feb 22 13:42:00 2014 +0100
+++ b/Tools_ClassList.st	Sat Feb 22 13:42:48 2014 +0100
@@ -1213,7 +1213,7 @@
 
     inGeneratorHolder isNil ifTrue:[
         "/ for standAlone testing
-        generator := environment allClasses.
+        generator := (environment?Smalltalk) allClasses.
         (self hideUnloadedClasses value) ifTrue:[
             generator := generator select:[:cls | cls isLoaded]
         ].
@@ -2086,10 +2086,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.79 2014-02-05 18:58:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.80 2014-02-22 12:42:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.79 2014-02-05 18:58:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.80 2014-02-22 12:42:48 cg Exp $'
 ! !