JavaNativeMethod.st
branchdevelopment
changeset 2591 17d9c39d3ab4
parent 2588 58b1e0fd20e7
parent 2585 14ab287e17ca
child 2711 a00302fe5083
--- a/JavaNativeMethod.st	Tue May 07 13:06:28 2013 +0100
+++ b/JavaNativeMethod.st	Tue May 07 13:31:03 2013 +0100
@@ -388,6 +388,7 @@
         | m a |
 
         m := JavaVM natives class lookupMethodFor: newStyleSel.
+        m isWrapped ifTrue:[ m := m originalMethod ].
         a := m annotationsAt: #javanative:name:.
         a do:[:each|
             each arguments second = selector ifTrue:[
@@ -405,7 +406,7 @@
     ^newStyleSel
 
     "Created: / 19-01-2013 / 22:11:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 12-02-2013 / 15:26:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 06-05-2013 / 22:03:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaNativeMethod methodsFor:'private-compiler interface'!