Tools__ChangeSetBrowser2.st
branchjv
changeset 12266 a1d70a191934
parent 12265 f1b3696cf042
child 12268 cb43ab66c093
--- 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 $'
 ! !