# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 938352561 -7200
# Node ID 3bbc7d113387ca9a4df29982d5c3f93fd972f8e4
# Parent  18fa01008a4fb3bac063bf6e4633aa52cbfb038e
checkin from browser

diff -r 18fa01008a4f -r 3bbc7d113387 ProjectBrowser.st
--- 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