equal
deleted
inserted
replaced
51 as of 1.9.2010 |
51 as of 1.9.2010 |
52 |
52 |
53 " |
53 " |
54 ! ! |
54 ! ! |
55 |
55 |
56 |
|
57 !JavaFieldDescriptor class methodsFor:'instance creation'! |
56 !JavaFieldDescriptor class methodsFor:'instance creation'! |
58 |
57 |
59 javaClass: cls |
58 javaClass: cls |
60 |
59 |
61 ^self new javaClass: cls |
60 ^self new javaClass: cls |
67 |
66 |
68 ^self new javaClassName: clsName |
67 ^self new javaClassName: clsName |
69 |
68 |
70 "Created: / 25-11-2010 / 18:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
69 "Created: / 25-11-2010 / 18:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
71 ! ! |
70 ! ! |
72 |
|
73 |
71 |
74 !JavaFieldDescriptor methodsFor:'accessing'! |
72 !JavaFieldDescriptor methodsFor:'accessing'! |
75 |
73 |
76 dimensions |
74 dimensions |
77 ^ dimensions ? 0 |
75 ^ dimensions ? 0 |
126 ^javaClass |
124 ^javaClass |
127 |
125 |
128 "Created: / 16-08-2012 / 12:48:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
126 "Created: / 16-08-2012 / 12:48:03 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
129 ! ! |
127 ! ! |
130 |
128 |
131 |
|
132 !JavaFieldDescriptor methodsFor:'comparing'! |
129 !JavaFieldDescriptor methodsFor:'comparing'! |
133 |
130 |
134 = another |
131 = another |
135 |
132 |
136 ^ self class == another class |
133 ^ self class == another class |
156 "Created: / 06-12-2011 / 22:56:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
153 "Created: / 06-12-2011 / 22:56:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
157 "Modified: / 12-12-2011 / 17:58:07 / kursjan <kursjan@fit.cvut.cz>" |
154 "Modified: / 12-12-2011 / 17:58:07 / kursjan <kursjan@fit.cvut.cz>" |
158 "Modified: / 14-12-2011 / 21:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
155 "Modified: / 14-12-2011 / 21:55:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
159 ! ! |
156 ! ! |
160 |
157 |
161 |
|
162 !JavaFieldDescriptor methodsFor:'initialization'! |
158 !JavaFieldDescriptor methodsFor:'initialization'! |
163 |
159 |
164 javaClass:aJavaClass |
160 javaClass:aJavaClass |
165 javaClass := aJavaClass. |
161 javaClass := aJavaClass. |
166 ! |
162 ! |
168 javaClassName:aString |
164 javaClassName:aString |
169 javaClassName := aString upTo: $<. |
165 javaClassName := aString upTo: $<. |
170 |
166 |
171 "Modified: / 06-12-2011 / 21:41:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
167 "Modified: / 06-12-2011 / 21:41:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
172 ! ! |
168 ! ! |
173 |
|
174 |
169 |
175 !JavaFieldDescriptor methodsFor:'queries'! |
170 !JavaFieldDescriptor methodsFor:'queries'! |
176 |
171 |
177 slots |
172 slots |
178 "Return a number of slots that this type occupied in |
173 "Return a number of slots that this type occupied in |
185 ] |
180 ] |
186 |
181 |
187 "Created: / 16-12-2011 / 00:22:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
182 "Created: / 16-12-2011 / 00:22:19 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
188 ! ! |
183 ! ! |
189 |
184 |
190 |
|
191 !JavaFieldDescriptor class methodsFor:'documentation'! |
185 !JavaFieldDescriptor class methodsFor:'documentation'! |
192 |
186 |
193 version_CVS |
187 version_CVS |
194 ^ '$Header: /cvs/stx/stx/libjava/JavaFieldDescriptor.st,v 1.5 2013-02-25 11:15:31 vrany Exp $' |
188 ^ '$Header$' |
195 ! |
189 ! |
196 |
190 |
197 version_HG |
191 version_HG |
198 |
192 |
199 ^ '$Changeset: <not expanded> $' |
193 ^ '$Changeset: <not expanded> $' |