|
26
|
1 |
Object subclass:#JavaObject
|
|
|
2 |
instanceVariableNames:''
|
|
|
3 |
classVariableNames:''
|
|
|
4 |
poolDictionaries:''
|
|
|
5 |
category:'Java-Classes'
|
|
|
6 |
!
|
|
|
7 |
|
|
|
8 |
|
|
|
9 |
!JavaObject methodsFor:'message sending'!
|
|
|
10 |
|
|
|
11 |
invoke:selector
|
|
|
12 |
"/ invoke selector, without arguments
|
|
|
13 |
|
|
|
14 |
|method cls i|
|
|
|
15 |
|
|
|
16 |
cls := self class.
|
|
|
17 |
[method isNil] whileTrue:[
|
|
|
18 |
method := cls compiledMethodAt:selector.
|
|
|
19 |
cls := cls superclass.
|
|
|
20 |
cls isNil ifTrue:[
|
|
|
21 |
self doesNotUnderstand:(Message selector:selector)
|
|
|
22 |
]
|
|
|
23 |
].
|
|
|
24 |
i := JavaInterpreter new.
|
|
|
25 |
i push:self.
|
|
|
26 |
^ i interpret:method
|
|
|
27 |
! !
|
|
|
28 |
|
|
|
29 |
!JavaObject class methodsFor:'documentation'!
|
|
|
30 |
|
|
|
31 |
version
|
|
|
32 |
^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaObject.st,v 1.1 1996/04/30 23:23:46 cg Exp $'
|
|
|
33 |
! !
|