# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1170690019 -3600
# Node ID 44ba935b47bac78b3c9ca54d41566ac5a724a1fa
# Parent  7d23f24d059863fe3633ac3d68d140bfdd24ee5b
#loadedClassNamed

diff -r 7d23f24d0598 -r 44ba935b47ba NameSpace.st
--- a/NameSpace.st	Mon Feb 05 15:57:38 2007 +0100
+++ b/NameSpace.st	Mon Feb 05 16:40:19 2007 +0100
@@ -356,6 +356,16 @@
 
 !
 
+loadedClassNamed:aString
+    "return the class with name aString, or nil if absent.
+     To get to the metaClass, append ' class' to the string.
+     Do not autoload the owning class of a private class."
+
+    ^ Smalltalk loadedClassNamed:(self name , '::' , aString)
+
+    "Created: 9.9.1997 / 03:33:56 / cg"
+!
+
 package
     self isNameSpace ifTrue:[    
         ^ nil       "all nameSpaces are outside of any package"
@@ -581,5 +591,5 @@
 !NameSpace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.64 2006-11-10 16:24:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/NameSpace.st,v 1.65 2007-02-05 15:40:19 stefan Exp $'
 ! !