--- 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 $'
! !