--- a/Tools__ChangeSetBrowser2.st Tue Mar 20 13:27:06 2012 +0100
+++ b/Tools__ChangeSetBrowser2.st Tue Mar 20 19:18:17 2012 +0100
@@ -1915,6 +1915,14 @@
targetNamespace := nsName.
"/ self targetNamespaceNameHolder value:('Target-Namespace: ',targetNamespace).
+ list1 list do:[:each |
+ each change nameSpaceOverride:nsName
+ ].
+ list2 list do:[:each |
+ each change nameSpaceOverride:nsName
+ ].
+ self changeset do:[:chg | chg nameSpaceOverride:nsName].
+
"Created: / 07-09-2011 / 12:49:42 / cg"
!
@@ -2384,21 +2392,22 @@
selectionDo: aBlock
-"/ | applyBlock |
-"/ applyBlock := [:e|aBlock value: e change].
-"/
+ | applyBlock |
+
+ applyBlock := [:e|aBlock value: e change].
+
"/ selectionHolder value isEmptyOrNil ifTrue:[
"/ (self navigatorChangesetHolder value ? #()) do: aBlock
"/ ] ifFalse:[
-"/ selection1Holder value isEmptyOrNil not
-"/ ifTrue:[selection1Holder value do: applyBlock]
-"/ ifFalse:[selectionHolder value do: applyBlock].
+ selection2Holder value isEmptyOrNil not
+ ifTrue:[selection2Holder value do: applyBlock]
+ ifFalse:[selection1Holder value do: applyBlock].
"/ ].
-"/ self redrawChangeListViews
+ self redrawChangeListViews
"Created: / 29-10-2010 / 13:47:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 08-04-2011 / 10:15:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-08-2011 / 19:06:31 / cg"
+ "Modified: / 20-03-2012 / 17:16:40 / cg"
!
showSource: aBoolean
@@ -2744,11 +2753,11 @@
!ChangeSetBrowser2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.31 2012-01-25 17:49:51 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.32 2012-03-20 18:18:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.31 2012-01-25 17:49:51 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.32 2012-03-20 18:18:17 cg Exp $'
!
version_SVN