--- 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