--- a/JavaVM.st Tue Nov 10 14:33:35 1998 +0000
+++ b/JavaVM.st Tue Nov 10 17:17:24 1998 +0000
@@ -526,6 +526,8 @@
self
compile:'__clone
"this is smalltalk code with a java selector ...
+ (This source cannot be accepted in the browser,
+ since it has a funny selector.)
Has been added by JavaVM>>initializeAdditionalJavaProtocol"
^ self shallowCopy'
@@ -533,14 +535,37 @@
asJavaMethod:#'clone()Ljava/lang/Object;'
fakedSource:'#''clone()Ljava/lang/Object;''
"this is smalltalk code with a java selector ...
+ (This source cannot be accepted in the browser,
+ since it has a funny selector.)
Has been added by JavaVM>>initializeAdditionalJavaProtocol"
^ self shallowCopy'
in:Object.
self
+ compile:'__equals:arg
+ "this is smalltalk code with a java selector ...
+ (This source cannot be accepted in the browser,
+ since it has a funny selector.)
+ Has been added by JavaVM>>initializeAdditionalJavaProtocol"
+
+ ^ (arg = self) ifTrue:[1] ifFalse:[0]'
+ selector:#'__equals:'
+ asJavaMethod:#'equals(Ljava/lang/Object;)Z'
+ fakedSource:'#''equals(Ljava/lang/Object;)Z''
+ "this is smalltalk code with a java selector ...
+ (This source cannot be accepted in the browser,
+ since it has a funny selector.)
+ Has been added by JavaVM>>initializeAdditionalJavaProtocol"
+
+ ^ (arg = self) ifTrue:[1] ifFalse:[0]'
+ in:Object.
+
+ self
compile:'__toString
"this is smalltalk code with a java selector ...
+ (This source cannot be accepted in the browser,
+ since it has a funny selector.)
Has been added by JavaVM>>initializeAdditionalJavaProtocol"
^ Java as_String:(self displayString)'
@@ -548,6 +573,8 @@
asJavaMethod:#'toString()Ljava/lang/String;'
fakedSource:'#''toString()Ljava/lang/String;''
"this is smalltalk code with a java selector ...
+ (This source cannot be accepted in the browser,
+ since it has a funny selector.)
Has been added by JavaVM>>initializeAdditionalJavaProtocol"
^ Java as_String:(self displayString)'
@@ -560,7 +587,7 @@
"Modified: / 28.1.1997 / 19:38:58 / stefan"
"Modified: / 22.1.1998 / 21:23:40 / av"
"Created: / 4.2.1998 / 21:35:46 / cg"
- "Modified: / 5.11.1998 / 19:40:17 / cg"
+ "Modified: / 10.11.1998 / 16:54:51 / cg"
!
initializeBaseClasses
@@ -8272,6 +8299,6 @@
!JavaVM class methodsFor:'documentation'!
version
- ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.57 1998/11/10 14:32:21 cg Exp $'
+ ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaVM.st,v 1.58 1998/11/10 17:14:28 cg Exp $'
! !
JavaVM initialize!