equal
deleted
inserted
replaced
4641 self packageFilter value:nil. |
4641 self packageFilter value:nil. |
4642 self nameSpaceFilter value:nil. |
4642 self nameSpaceFilter value:nil. |
4643 |
4643 |
4644 "/ must update the packageFilter |
4644 "/ must update the packageFilter |
4645 orgMode == OrganizerCanvas organizerModeProject ifTrue:[ |
4645 orgMode == OrganizerCanvas organizerModeProject ifTrue:[ |
4646 self selectedProjects value:(classes collect:[:each | each package]) asSet. |
4646 self selectedProjects value:(classes collect:[:each | each package] as:Set). |
4647 packageFilter setValue:(self selectedProjects value) |
4647 packageFilter setValue:(self selectedProjects value) |
4648 ] ifFalse:[ |
4648 ] ifFalse:[ |
4649 packageFilter value:nil |
4649 packageFilter value:nil |
4650 ]. |
4650 ]. |
4651 |
4651 |
4893 selectedClasses := self selectedClasses value ? #(). |
4893 selectedClasses := self selectedClasses value ? #(). |
4894 |
4894 |
4895 packages := self selectedProjects value ? #(). |
4895 packages := self selectedProjects value ? #(). |
4896 packages isEmpty ifTrue:[ |
4896 packages isEmpty ifTrue:[ |
4897 selectedClasses notEmptyOrNil ifTrue:[ |
4897 selectedClasses notEmptyOrNil ifTrue:[ |
4898 packages := (selectedClasses collect:[:cls | cls package]) asSet asOrderedCollection. |
4898 packages := (selectedClasses collect:[:cls | cls package] as:Set) asOrderedCollection. |
4899 ]. |
4899 ]. |
4900 ]. |
4900 ]. |
4901 |
4901 |
4902 self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self. |
4902 self selectedDiagramProject value:(packages firstIfEmpty:nil) withoutNotifying:self. |
4903 diagramApp notNil ifTrue:[ |
4903 diagramApp notNil ifTrue:[ |
4920 |allEntry classes selectedProjects oldSelectedProjects categories| |
4920 |allEntry classes selectedProjects oldSelectedProjects categories| |
4921 |
4921 |
4922 allEntry := self class nameListEntryForALL. |
4922 allEntry := self class nameListEntryForALL. |
4923 |
4923 |
4924 selectedProjects := self selectedProjects value. |
4924 selectedProjects := self selectedProjects value. |
4925 oldSelectedProjects := ((selectedProjects ? #()) collect:[:pkg | pkg string]) asSet. |
4925 oldSelectedProjects := ((selectedProjects ? #()) collect:[:pkg | pkg string] as:Set). |
4926 |
4926 |
4927 variableFilter value:nil. |
4927 variableFilter value:nil. |
4928 packageFilter value:nil. |
4928 packageFilter value:nil. |
4929 nameSpaceFilter value:nil. |
4929 nameSpaceFilter value:nil. |
4930 |
4930 |
5042 ! ! |
5042 ! ! |
5043 |
5043 |
5044 !OrganizerCanvas class methodsFor:'documentation'! |
5044 !OrganizerCanvas class methodsFor:'documentation'! |
5045 |
5045 |
5046 version |
5046 version |
5047 ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.52 2013-03-26 16:28:36 cg Exp $' |
5047 ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.53 2013-04-02 09:34:11 stefan Exp $' |
5048 ! |
5048 ! |
5049 |
5049 |
5050 version_CVS |
5050 version_CVS |
5051 ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.52 2013-03-26 16:28:36 cg Exp $' |
5051 ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.53 2013-04-02 09:34:11 stefan Exp $' |
5052 ! ! |
5052 ! ! |
5053 |
5053 |