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