better displayString for java-class objects
authorcg
Thu, 05 Feb 1998 11:03:48 +0000
changeset 310 6faa783b80f2
parent 309 e1bfd26cadae
child 311 b23c5e132b8c
better displayString for java-class objects
JavaObject.st
--- a/JavaObject.st	Thu Feb 05 11:02:58 1998 +0000
+++ b/JavaObject.st	Thu Feb 05 11:03:48 1998 +0000
@@ -715,20 +715,24 @@
 
 displayString
     self class == Java java_lang_String ifTrue:[
-	^ '''' , (Java as_ST_String:self) , ''''
+        ^ '''' , (Java as_ST_String:self) , ''''
+    ].
+
+    self class == (Java at:'java.lang.Class') ifTrue:[
+        ^ super displayString , '(' , (JavaVM classForJavaClassObject:self) displayString , ')'
     ].
 
     ^ super displayString.
 
     Object errorSignal handle:[:ex |
-	^ super displayString.
+        ^ super displayString.
     ] do:[
-	^ Java as_ST_String:(self invoke:#toString).
+        ^ Java as_ST_String:(self invoke:#toString).
     ].
 
     ^ super displayString. "/ ^ 'a JavaObject(' , self class name , ')'
 
-    "Modified: 8.8.1997 / 12:07:36 / cg"
+    "Modified: / 4.2.1998 / 12:30:21 / cg"
 !
 
 javaDisplayString
@@ -990,5 +994,5 @@
 !JavaObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.36 1998/01/17 14:41:10 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.37 1998/02/05 11:03:48 cg Exp $'
 ! !