equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2004 by eXept Software AG |
4 COPYRIGHT (c) 2004 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
175 |
177 |
176 (top := self topClassHolder value) isNil ifTrue:[ |
178 (top := self topClassHolder value) isNil ifTrue:[ |
177 ^ super listOfClasses |
179 ^ super listOfClasses |
178 ]. |
180 ]. |
179 |
181 |
180 classes := top withAllSuperclasses reversed. |
|
181 "/ Must check whether environment contains the class and filter it out, |
182 "/ Must check whether environment contains the class and filter it out, |
182 "/ if not. Think of limited environment to Java classes which should not |
183 "/ if not. Think of limited environment to Java classes which should not |
183 "/ show Object & JavaObject even if they are real superclasses of any Java |
184 "/ show Object & JavaObject even if they are real superclasses of any Java |
184 "/ class. |
185 "/ class. |
185 "/ Q: Should we rather ignore all superclasses after first class which is not |
186 "/ Q: Should we rather ignore all superclasses after first class which is not |
186 "/ in environment? |
187 "/ in environment? |
187 classes := classes select:[:class | (environment at: class name ifAbsent:[nil]) notNil ]. |
188 classes := top withAllSuperclasses select:[:class | (environment at: class name ifAbsent:[nil]) notNil ]. |
188 "/ classes addFirst:InheritedEntry. |
189 "/ classes add:InheritedEntry. |
189 ^ classes |
190 ^ classes reversed |
190 |
191 |
191 "Modified: / 26-02-2000 / 00:38:48 / cg" |
192 "Modified: / 26-02-2000 / 00:38:48 / cg" |
192 "Modified: / 27-04-2014 / 20:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
193 "Modified: / 27-04-2014 / 20:48:16 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
194 "Modified: / 25-07-2017 / 17:56:04 / stefan" |
193 ! ! |
195 ! ! |
194 |
196 |
195 !InheritanceClassList class methodsFor:'documentation'! |
197 !InheritanceClassList class methodsFor:'documentation'! |
196 |
198 |
197 version |
199 version |