--- a/Tools__ChangeSetBrowser2.st Wed Jul 25 10:51:30 2012 +0100
+++ b/Tools__ChangeSetBrowser2.st Wed Jul 25 15:51:05 2012 +0100
@@ -1391,6 +1391,13 @@
)
(MenuItem
enabled: isWorkingNotHolder
+ label: 'Open on Selection'
+ itemValue: doOpenOnSelection
+ translateLabel: true
+ isVisible: allowOpenHolder
+ )
+ (MenuItem
+ enabled: isWorkingNotHolder
label: 'Save'
itemValue: doSave
translateLabel: true
@@ -2231,9 +2238,7 @@
"Created: / 07-09-2011 / 15:54:03 / cg"
"Created: / 11-02-2012 / 22:40:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
- !
+! !
!ChangeSetBrowser2 methodsFor:'aspects-queries'!
@@ -2436,6 +2441,17 @@
"Created: / 09-02-2012 / 19:11:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+doOpenOnSelection
+
+ | selection |
+
+ selection := ChangeSet new.
+ self selectionDo: [:each|selection add: each].
+ self class openOn: selection label: (self titleHolder value , ' ' , (resources string:'(Selected changes)'))
+
+ "Modified: / 25-07-2012 / 15:31:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
doSave
changesetFile
@@ -3472,7 +3488,7 @@
!ChangeSetBrowser2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.35 2012/07/23 11:15:10 cg Exp $'
+ ^ '$Id: Tools__ChangeSetBrowser2.st 8023 2012-07-25 14:51:05Z vranyj1 $'
!
version_CVS
@@ -3480,5 +3496,5 @@
!
version_SVN
- ^ '$Id: Tools__ChangeSetBrowser2.st 8022 2012-07-25 09:51:30Z vranyj1 $'
+ ^ '$Id: Tools__ChangeSetBrowser2.st 8023 2012-07-25 14:51:05Z vranyj1 $'
! !