3656 |
3656 |
3657 "/ aChange isClassDefinitionChange ifTrue: |
3657 "/ aChange isClassDefinitionChange ifTrue: |
3658 "/ [(Smalltalk at: aChange superClassName asSymbol) |
3658 "/ [(Smalltalk at: aChange superClassName asSymbol) |
3659 "/ ifNil:[^self error: 'Nil superclass']]. |
3659 "/ ifNil:[^self error: 'Nil superclass']]. |
3660 |
3660 |
3661 | nsQueries packageQueries hasMC apply targetNameSpace | |
3661 | nsQueries packageQueries hasMC apply innerApply innerApply2 targetNameSpace | |
3662 |
3662 |
3663 aChange removed ifTrue:[ ^ self ]. |
3663 aChange removed ifTrue:[ ^ self ]. |
3664 |
|
3665 |
3664 |
3666 nsQueries := Class nameSpaceQuerySignal. |
3665 nsQueries := Class nameSpaceQuerySignal. |
3667 packageQueries := Class packageQuerySignal. |
3666 packageQueries := Class packageQuerySignal. |
3668 hasMC := ConfigurableFeatures includesFeature:#MonticelloSupport. |
3667 hasMC := ConfigurableFeatures includesFeature:#MonticelloSupport. |
3669 hasMC ifTrue:[ |
3668 hasMC ifTrue:[ |
3670 nsQueries := nsQueries , MCStXNamespaceQuery. |
3669 nsQueries := nsQueries , MCStXNamespaceQuery. |
3671 packageQueries := packageQueries , MCStXPackageQuery. |
3670 packageQueries := packageQueries , MCStXPackageQuery. |
3672 ]. |
3671 ]. |
3673 apply := [ |
3672 |
3674 targetNameSpaceName notNil ifTrue:[ |
3673 apply := |
3675 aChange applyWithNameSpaceOverride: targetNameSpaceName |
3674 [ |
3676 ] ifFalse:[ |
3675 targetNameSpaceName notNil ifTrue:[ |
3677 aChange apply |
3676 aChange applyWithNameSpaceOverride: targetNameSpaceName |
|
3677 ] ifFalse:[ |
|
3678 aChange apply |
|
3679 ]. |
3678 ]. |
3680 ]. |
3679 ]. |
|
3680 |
3681 |
3681 targetNameSpaceName notNil ifTrue:[ |
3682 targetNameSpaceName notNil ifTrue:[ |
3682 targetNameSpace := NameSpace name: targetNameSpaceName. |
3683 targetNameSpace := NameSpace name: targetNameSpaceName. |
|
3684 innerApply := apply. |
3683 apply := [ |
3685 apply := [ |
3684 nsQueries answer: targetNameSpace do:apply. |
3686 nsQueries answer: targetNameSpace do:innerApply. |
3685 ] |
3687 ] |
3686 ]. |
3688 ]. |
3687 |
3689 |
3688 hasMC ifTrue:[ |
3690 hasMC ifTrue:[ |
3689 apply := [ |
3691 innerApply2 := apply. |
3690 MCInteractiveLoadingQuery answer: true do: apply |
3692 apply := |
3691 ]. |
3693 [ |
|
3694 MCInteractiveLoadingQuery answer: true do: innerApply2 |
|
3695 ]. |
3692 ]. |
3696 ]. |
3693 |
3697 |
3694 self withWaitCursorDo:[ |
3698 self withWaitCursorDo:[ |
3695 updateChangeFileHolder value ifTrue:[ |
3699 updateChangeFileHolder value ifTrue:[ |
3696 packageQueries answer: self targetPackage do: apply |
3700 packageQueries answer: self targetPackage do: apply |
4206 ! ! |
4210 ! ! |
4207 |
4211 |
4208 !ChangeSetBrowser2 class methodsFor:'documentation'! |
4212 !ChangeSetBrowser2 class methodsFor:'documentation'! |
4209 |
4213 |
4210 version |
4214 version |
4211 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.60 2014-11-01 00:05:04 vrany Exp $' |
4215 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.61 2014-12-19 14:57:06 cg Exp $' |
4212 ! |
4216 ! |
4213 |
4217 |
4214 version_CVS |
4218 version_CVS |
4215 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.60 2014-11-01 00:05:04 vrany Exp $' |
4219 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.61 2014-12-19 14:57:06 cg Exp $' |
4216 ! |
4220 ! |
4217 |
4221 |
4218 version_HG |
4222 version_HG |
4219 |
4223 |
4220 ^ '$Changeset: <not expanded> $' |
4224 ^ '$Changeset: <not expanded> $' |
4221 ! |
4225 ! |
4222 |
4226 |
4223 version_SVN |
4227 version_SVN |
4224 ^ '$Id: Tools__ChangeSetBrowser2.st,v 1.60 2014-11-01 00:05:04 vrany Exp $' |
4228 ^ '$Id: Tools__ChangeSetBrowser2.st,v 1.61 2014-12-19 14:57:06 cg Exp $' |
4225 ! ! |
4229 ! ! |
4226 |
4230 |