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 copy reverse. |
182 classes := top withAllSuperclasses reversed. |
181 "/ Must check whether environment contains the class and filter it out, |
183 "/ Must check whether environment contains the class and filter it out, |
182 "/ if not. Think of limited environment to Java classes which should not |
184 "/ 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 |
185 "/ show Object & JavaObject even if they are real superclasses of any Java |
184 "/ class. |
186 "/ class. |
185 "/ Q: Should we rather ignore all superclasses after first class which is not |
187 "/ Q: Should we rather ignore all superclasses after first class which is not |
193 ! ! |
195 ! ! |
194 |
196 |
195 !InheritanceClassList class methodsFor:'documentation'! |
197 !InheritanceClassList class methodsFor:'documentation'! |
196 |
198 |
197 version |
199 version |
198 ^ '$Header: /cvs/stx/stx/libtool/Tools__InheritanceClassList.st,v 1.7 2014-04-27 19:51:12 vrany Exp $' |
200 ^ '$Header: /cvs/stx/stx/libtool/Tools__InheritanceClassList.st,v 1.8 2015-03-25 14:14:11 cg Exp $' |
199 ! ! |
201 ! ! |
200 |
202 |