checkin from browser
authorcg
Tue, 18 Mar 1997 11:33:39 +0000
changeset 144 b0074284978d
parent 143 43a48853d86f
child 145 204affe03d47
checkin from browser
JavaObject.st
--- a/JavaObject.st	Tue Mar 18 11:33:25 1997 +0000
+++ b/JavaObject.st	Tue Mar 18 11:33:39 1997 +0000
@@ -112,23 +112,26 @@
 !JavaObject methodsFor:'message sending'!
 
 doesNotUnderstand:aMessage
-    |args numArgs javaMethod|
+    |args numArgs javaMethod sel arg1 arg2|
 
     args := aMessage arguments.
     numArgs := args size.
+    sel := aMessage selector.
 
     numArgs == 0 ifTrue:[
-        ^ self invoke:(aMessage selector).
+        ^ self invoke:sel.
     ].
+    arg1 := args at:1.
     numArgs == 1 ifTrue:[
-        ^ self invoke:(aMessage selector) with:(args at:1).
+        ^ self invoke:sel with:arg1.
     ].
+    arg2 := args at:2.
     numArgs == 2 ifTrue:[
-        ^ self invoke:(aMessage selector) with:(args at:1) with:(args at:2).
+        ^ self invoke:sel with:arg1 with:arg2.
     ].
     ^ super doesNotUnderstand:aMessage
 
-    "Modified: 1.2.1997 / 22:00:49 / cg"
+    "Modified: 18.3.1997 / 11:47:16 / cg"
 !
 
 invokeJava:selector
@@ -153,11 +156,16 @@
 
     method := self class lookupMethodFor:selector.
     method notNil ifTrue:[
-        ^ self invokeJavaMethod:method interpreter:i sender:s with:arg1 with:arg2
+        ^ self 
+            invokeJavaMethod:method 
+            interpreter:i 
+            sender:s 
+            with:arg1 
+            with:arg2
     ].
     ^ super doesNotUnderstand:(Message selector:selector)
 
-    "Modified: 1.2.1997 / 21:47:46 / cg"
+    "Modified: 18.3.1997 / 11:47:37 / cg"
 !
 
 invokeJava:selector with:arg
@@ -167,17 +175,24 @@
 
     method := self class lookupMethodFor:selector.
     method notNil ifTrue:[
-        ^ self invokeJavaMethod:method with:arg
+        ^ self 
+            invokeJavaMethod:method 
+            with:arg
     ].
     ^ super doesNotUnderstand:(Message selector:selector)
 
-    "Modified: 1.2.1997 / 21:47:48 / cg"
+    "Modified: 18.3.1997 / 11:47:46 / cg"
 !
 
 invokeJavaMethod:aJavaMethod
     "invoke java method, without arguments"
 
-    ^ self invokeJavaMethod:aJavaMethod interpreter:JavaInterpreter new sender:thisContext sender.
+    ^ self 
+        invokeJavaMethod:aJavaMethod 
+        interpreter:JavaInterpreter new 
+        sender:thisContext sender.
+
+    "Modified: 18.3.1997 / 11:46:07 / cg"
 !
 
 invokeJavaMethod:aJavaMethod interpreter:i sender:aContext
@@ -711,5 +726,5 @@
 !JavaObject class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.23 1997/02/08 13:05:22 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.24 1997/03/18 11:33:39 cg Exp $'
 ! !