ProjectBrowser.st
changeset 1241 3bbc7d113387
parent 1240 18fa01008a4f
child 1242 243b06d0e230
--- a/ProjectBrowser.st	Sat Sep 25 03:34:03 1999 +0200
+++ b/ProjectBrowser.st	Sun Sep 26 15:29:21 1999 +0200
@@ -4231,7 +4231,17 @@
 !
 
 classNameFromClassInfo:cInfo
-    ^ cInfo className
+    |cls nm|
+
+    nm := cInfo className.
+
+    cls := cInfo theClass.
+    (cls isNil or:[cls isLoaded not]) ifTrue:[
+        ^ nm asText allItalic
+    ].
+    ^ nm
+
+    "Modified: / 26.9.1999 / 13:49:51 / cg"
 !
 
 classNameFromMethodInfo:pInfo