JavaVM.st
changeset 430 f8467bdf1db2
parent 429 99990a8a3509
child 432 68e66ba7fe49
--- 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!