checkin from browser
authorcg
Thu, 02 May 1996 17:08:58 +0000
changeset 34 edb4800567d5
parent 33 bef781ce106e
child 35 040fd1fca7ec
checkin from browser
JavaClass.st
JavaObject.st
--- 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 $'
 ! !