--- a/JavaClass.st Thu May 02 16:54:10 1996 +0000
+++ b/JavaClass.st Thu May 02 17:08:58 1996 +0000
@@ -89,7 +89,8 @@
!JavaClass methodsFor:'printing & storing'!
displayString
- ^ 'JavaClass(' , name , ')'
+ ^ 'JAVA-' , name .
+ ^ name , '(Java)' "/ 'JavaClass(' , name , ')'
"Created: 15.4.1996 / 16:02:48 / cg"
! !
@@ -234,5 +235,5 @@
!JavaClass class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.11 1996/05/01 16:22:51 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.12 1996/05/02 17:08:54 cg Exp $'
! !
--- a/JavaObject.st Thu May 02 16:54:10 1996 +0000
+++ b/JavaObject.st Thu May 02 17:08:58 1996 +0000
@@ -96,7 +96,7 @@
!JavaObject methodsFor:'printing & storing'!
displayString
- ^ 'a JavaObject(' , self class name , ')'
+ ^ super displayString. "/ ^ 'a JavaObject(' , self class name , ')'
! !
@@ -116,6 +116,16 @@
].
^ val
].
+ retValSignature = 'char[]' ifTrue:[
+ "/ these are ST-strings
+ ^ val
+ ].
+
+ retValSignature = 'char' ifTrue:[
+ "/ these are ST-characters
+ ^ val
+ ].
+
retValSignature = 'Object' ifTrue:[
^ val
].
@@ -219,5 +229,5 @@
!JavaObject class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.3 1996/05/02 16:54:10 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.4 1996/05/02 17:08:58 cg Exp $'
! !