JavaLookup.st
changeset 3602 e35b48285df7
parent 3555 47da2d42a016
child 3860 e87f2f1439e9
--- a/JavaLookup.st	Tue Jul 26 10:21:31 2016 +0100
+++ b/JavaLookup.st	Tue Jul 26 18:01:16 2016 +0100
@@ -550,8 +550,11 @@
         | field |
         field := initialSearchClass theNonMetaclass 
                 lookupFieldFor: name
-                static: initialSearchClass isMetaclass
-                onlyPublic: true.
+                static: initialSearchClass isMetaclass.
+        "/ Disallow interop access to non-public fields.
+        (field notNil and:[field isPublic not]) ifTrue:[
+            field := nil
+        ].
         field notNil ifTrue: [
             method := self 
                     compileProxyWithSelector: selector
@@ -577,7 +580,7 @@
     "Modified (comment): / 02-01-2012 / 10:35:25 / kursjan <kursjan@fit.cvut.cz>"
     "Modified: / 18-11-2012 / 18:17:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
     "Modified: / 16-12-2012 / 13:59:55 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
-    "Modified: / 27-03-2016 / 23:57:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 26-07-2016 / 20:48:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 lookupMethodsForSelector: selector in: initialSearchClass static: static