equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2004 by eXept Software AG |
2 COPYRIGHT (c) 2004 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
103 |
101 |
104 selectedClasses := self selectedClasses value. |
102 selectedClasses := self selectedClasses value. |
105 selectedClasses size == 0 ifTrue:[^ #() ]. |
103 selectedClasses size == 0 ifTrue:[^ #() ]. |
106 |
104 |
107 classes := self classList value. |
105 classes := self classList value. |
108 selectedIndices := selectedClasses |
106 selectedIndices := |
109 collect:[:aSelectedClass | |
107 selectedClasses |
110 classes identityIndexOf:aSelectedClass. |
108 collect:[:aSelectedClass | |
111 ]. |
109 classes identityIndexOf:aSelectedClass] |
112 selectedIndices := selectedIndices select:[:idx | idx ~~ 0]. |
110 thenSelect:[:idx | idx ~~ 0]. |
113 selectedIndices size == 0 ifTrue:[ |
111 selectedIndices size == 0 ifTrue:[ |
114 "/ meta value == true ifTrue:[ |
112 "/ meta value == true ifTrue:[ |
115 "/self halt. |
113 "/self halt. |
116 "/ ] ifFalse:[ |
114 "/ ] ifFalse:[ |
117 "/self halt. |
115 "/self halt. |
195 ! ! |
193 ! ! |
196 |
194 |
197 !InheritanceClassList class methodsFor:'documentation'! |
195 !InheritanceClassList class methodsFor:'documentation'! |
198 |
196 |
199 version |
197 version |
200 ^ '$Header: /cvs/stx/stx/libtool/Tools__InheritanceClassList.st,v 1.8 2015-03-25 14:14:11 cg Exp $' |
198 ^ '$Header$' |
201 ! ! |
199 ! ! |
202 |
200 |