|
1
|
1 |
Object subclass:#JavaRef
|
|
|
2 |
instanceVariableNames:'class nameandType'
|
|
|
3 |
classVariableNames:''
|
|
|
4 |
poolDictionaries:''
|
|
4
|
5 |
category:'Java-Reader-Support'
|
|
1
|
6 |
!
|
|
|
7 |
|
|
|
8 |
|
|
135
|
9 |
!JavaRef class methodsFor:'instance creation'!
|
|
1
|
10 |
|
|
|
11 |
class:aJavaClass nameandType:nameAndType
|
|
|
12 |
^ self new class:aJavaClass nameandType:nameAndType
|
|
|
13 |
|
|
|
14 |
"Created: 15.4.1996 / 16:10:49 / cg"
|
|
|
15 |
! !
|
|
|
16 |
|
|
151
|
17 |
!JavaRef class methodsFor:'validation'!
|
|
|
18 |
|
|
|
19 |
validateAll
|
|
|
20 |
self allSubInstancesDo:[:ref |
|
|
|
21 |
ref validateClass
|
|
|
22 |
]
|
|
|
23 |
|
|
|
24 |
"
|
|
|
25 |
self validateAll
|
|
|
26 |
"
|
|
|
27 |
|
|
|
28 |
"Created: 20.3.1997 / 00:13:55 / cg"
|
|
|
29 |
"Modified: 20.3.1997 / 00:14:24 / cg"
|
|
|
30 |
! !
|
|
|
31 |
|
|
1
|
32 |
!JavaRef methodsFor:'accessing'!
|
|
|
33 |
|
|
|
34 |
class:aJavaClass nameandType:aJavanameAndType
|
|
|
35 |
class := aJavaClass.
|
|
87
|
36 |
nameandType := aJavanameAndType.
|
|
|
37 |
class isNil ifTrue:[self halt].
|
|
|
38 |
|
|
1
|
39 |
|
|
|
40 |
"Modified: 15.4.1996 / 16:08:39 / cg"
|
|
|
41 |
"Created: 15.4.1996 / 16:10:37 / cg"
|
|
43
|
42 |
!
|
|
|
43 |
|
|
|
44 |
javaClass
|
|
|
45 |
^ class
|
|
1
|
46 |
! !
|
|
|
47 |
|
|
|
48 |
!JavaRef methodsFor:'printing & storing'!
|
|
|
49 |
|
|
|
50 |
displayString
|
|
21
|
51 |
^ self class name , '(class:' , class fullName , ' ; name&type: ' , nameandType displayString , ')'
|
|
1
|
52 |
|
|
|
53 |
"Created: 15.4.1996 / 16:18:54 / cg"
|
|
|
54 |
! !
|
|
|
55 |
|
|
90
|
56 |
!JavaRef methodsFor:'queries'!
|
|
|
57 |
|
|
|
58 |
isUnresolved
|
|
|
59 |
^ false
|
|
|
60 |
|
|
|
61 |
|
|
|
62 |
! !
|
|
|
63 |
|
|
151
|
64 |
!JavaRef methodsFor:'validation'!
|
|
|
65 |
|
|
|
66 |
validateClass
|
|
|
67 |
|actualClass|
|
|
|
68 |
|
|
|
69 |
class notNil ifTrue:[
|
|
|
70 |
class isJavaClass ifTrue:[
|
|
|
71 |
class ~~ (actualClass := Java at:(class fullName)) ifTrue:[
|
|
|
72 |
Transcript showCR:'updated ref to: ' , class fullName.
|
|
|
73 |
class := actualClass
|
|
|
74 |
]
|
|
|
75 |
]
|
|
|
76 |
].
|
|
|
77 |
|
|
|
78 |
"Created: 20.3.1997 / 00:13:27 / cg"
|
|
|
79 |
"Modified: 20.3.1997 / 00:16:54 / cg"
|
|
|
80 |
! !
|
|
|
81 |
|
|
135
|
82 |
!JavaRef class methodsFor:'documentation'!
|
|
1
|
83 |
|
|
|
84 |
version
|
|
151
|
85 |
^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaRef.st,v 1.9 1997/03/19 23:18:11 cg Exp $'
|
|
1
|
86 |
! !
|