equal
deleted
inserted
replaced
17 of one of the above copright owners. For exact set of such code, |
17 of one of the above copright owners. For exact set of such code, |
18 see the differences between this version and version stx:libjava |
18 see the differences between this version and version stx:libjava |
19 as of 1.9.2010 |
19 as of 1.9.2010 |
20 " |
20 " |
21 "{ Package: 'stx:libjava' }" |
21 "{ Package: 'stx:libjava' }" |
|
22 |
|
23 "{ NameSpace: Smalltalk }" |
22 |
24 |
23 Metaclass subclass:#JavaMetaclass |
25 Metaclass subclass:#JavaMetaclass |
24 instanceVariableNames:'' |
26 instanceVariableNames:'' |
25 classVariableNames:'' |
27 classVariableNames:'' |
26 poolDictionaries:'' |
28 poolDictionaries:'' |
137 source := aMethod source. |
139 source := aMethod source. |
138 source isNil ifTrue:[ |
140 source isNil ifTrue:[ |
139 FileOutErrorSignal |
141 FileOutErrorSignal |
140 raiseRequestWith:self |
142 raiseRequestWith:self |
141 errorString:(' - no source for method: ' , |
143 errorString:(' - no source for method: ' , |
142 self name , '>>' , |
144 self name , ' » ' , |
143 (self selectorAtMethod:aMethod)) |
145 (self selectorAtMethod:aMethod)) |
144 ] ifFalse:[ |
146 ] ifFalse:[ |
145 aStream nextChunkPut:source. |
147 aStream nextChunkPut:source. |
146 ]. |
148 ]. |
147 aStream space. |
149 aStream space. |
175 ! ! |
177 ! ! |
176 |
178 |
177 !JavaMetaclass class methodsFor:'documentation'! |
179 !JavaMetaclass class methodsFor:'documentation'! |
178 |
180 |
179 version_CVS |
181 version_CVS |
180 ^ '$Header: /cvs/stx/stx/libjava/JavaMetaclass.st,v 1.5 2015-03-20 12:08:00 vrany Exp $' |
182 ^ '$Header$' |
181 ! |
183 ! |
182 |
184 |
183 version_HG |
185 version_HG |
184 |
186 |
185 ^ '$Changeset: <not expanded> $' |
187 ^ '$Changeset: <not expanded> $' |
186 ! |
188 ! |
187 |
189 |
188 version_SVN |
190 version_SVN |
189 ^ 'Id:: ' |
191 ^ '$Id$' |
190 ! ! |
192 ! ! |
191 |
193 |