JavaClass.st
changeset 79 9604109538d8
parent 77 16cef4d703ed
child 83 2d61ef3579e4
--- a/JavaClass.st	Wed Jun 26 12:00:30 1996 +0000
+++ b/JavaClass.st	Wed Jun 26 12:13:04 1996 +0000
@@ -321,6 +321,26 @@
 
 !
 
+invokeJavaMethod:aJavaMethod sender:aContext
+    "invoke a static java method, without arguments"
+
+    |i val|
+
+    aJavaMethod numArgs ~~ 0 ifTrue:[
+        self halt:'need arguments'
+    ].
+    aJavaMethod isStatic ifFalse:[
+        self halt:'non-static function'
+    ].
+
+    i := JavaInterpreter new.
+    val := i interpret:aJavaMethod sender:aContext.
+
+    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)
+
+
+!
+
 invokeJavaMethod:aJavaMethod with:arg
     "invoke a static java method, with one argument"
 
@@ -343,6 +363,28 @@
 
 !
 
+invokeJavaMethod:aJavaMethod with:arg sender:aContext
+    "invoke a static java method, with one argument"
+
+    |i val|
+
+    aJavaMethod numArgs ~~ 1 ifTrue:[
+        self halt:'argument count'
+    ].
+    aJavaMethod isStatic ifFalse:[
+        self halt:'non-static function'
+    ].
+
+    i := JavaInterpreter new.
+    i push:arg.
+
+    val := i interpret:aJavaMethod sender:aContext.
+
+    ^ JavaObject convertJavaObject:val signature:(aJavaMethod retValSignature)
+
+
+!
+
 lookupMethodFor:selector
     |method cls sel|
 
@@ -625,6 +667,6 @@
 !JavaClass  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.29 1996/06/26 12:00:08 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaClass.st,v 1.30 1996/06/26 12:13:04 cg Exp $'
 ! !
 JavaClass initialize!