--- a/src/experiments/extensions.st Sat May 12 20:12:17 2012 +0000
+++ b/src/experiments/extensions.st Sat May 12 20:19:06 2012 +0000
@@ -10,58 +10,6 @@
!Class methodsFor:'method lookup'!
-perform:aMessage onReceiver:receiver from:sender ifNotFound:aBlock
-
- | lo method selector class args|
- selector := aMessage selector.
- args := aMessage arguments.
-
- (selector includes: $() ifTrue:[
- "Java selector, search static methods"
- method := methodDictionary at:selector.
- method notNil ifTrue:[
- method isStatic ifTrue:[
- ^ method
- valueWithReceiver:self
- arguments:args
- ].
- ].
- ].
-
- class := receiver class.
-
- JavaLookup isNil ifTrue:[
- (Smalltalk loadPackage: 'stx:libjava/experiments') ifFalse:[
- self error: 'You should load package stx:libjava/experiments if you want some interop - still experimental' mayProceed: true.
- ^nil
- ]
- ].
-
-
- lo := class getLookupObject ifNil: [ JavaLookup instance ] ifNotNil: [ class lookupObject ].
-
- method := lo lookupMethodForSelector: selector
- directedTo: class
- for: receiver
- withArguments: args
- from: thisContext sender
- ilc: nil.
-
- method isNil ifTrue:[
- ^aBlock value.
- ] ifFalse:[
- ^ method valueWithReceiver: receiver arguments: args
- ].
-
- "Modified: / 16-11-1998 / 16:50:56 / cg"
- "Modified: / 19-09-2011 / 23:43:56 / Jan Kurs <kursjan@fit.cvut.cz>"
- "Modified: / 15-12-2011 / 23:04:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Created: / 01-01-2012 / 19:18:04 / kursjan <kursjan@fit.cvut.cz>"
- "Modified: / 10-04-2012 / 19:34:41 / kursjan"
-! !
-
-!Class methodsFor:'method lookup'!
-
unbox: javaArgumentsCollection to: typesCollection
" box smalltalk arguments collection to Java arguments "
"/ ^ stArgumentsCollection with: typesCollection collect: [ :stObject :javaType |