--- 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 $'
! !