MCRepositoryBrowser.st
changeset 558 6740bbea6eeb
parent 540 bacdf1aea4a3
child 559 d693deba961a
--- a/MCRepositoryBrowser.st	Fri Mar 16 10:03:12 2012 +0100
+++ b/MCRepositoryBrowser.st	Fri Mar 16 12:10:40 2012 +0100
@@ -29,6 +29,9 @@
 
     ^ super flyByHelpSpec addPairsFrom:#(
 
+#browseVersion
+'Open a changelist browser on the selected version'
+
 #loadVersion
 'Load the selected version'
 
@@ -235,13 +238,22 @@
                                 createNewBuilder: true
                               )
                              (ActionButtonSpec
+                                label: 'Browse'
+                                name: 'Button1'
+                                layout: (LayoutFrame 0 0 -30 1 0 0.5 0 1)
+                                activeHelpKey: browseVersion
+                                translateLabel: true
+                                model: versionBrowser
+                                enableChannel: hasVersionSelectedHolder
+                              )
+                             (ActionButtonSpec
                                 label: 'Load'
                                 name: 'LoadButton'
-                                layout: (LayoutFrame 0 0 -30 1 0 1 0 1)
+                                layout: (LayoutFrame 0 0.5 -30 1 0 1 0 1)
+                                activeHelpKey: loadVersion
                                 translateLabel: true
                                 model: versionLoad
                                 enableChannel: hasVersionSelectedHolder
-                                activeHelpKey: loadVersion
                               )
                              )
                            
@@ -266,7 +278,7 @@
         )
       )
 
-    "Modified: / 07-09-2011 / 15:14:55 / cg"
+    "Modified: / 16-03-2012 / 10:51:24 / cg"
 ! !
 
 !MCRepositoryBrowser class methodsFor:'menu specs'!
@@ -1070,11 +1082,11 @@
 !MCRepositoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.16 2011-12-04 14:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.17 2012-03-16 11:10:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.16 2011-12-04 14:44:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.17 2012-03-16 11:10:40 cg Exp $'
 !
 
 version_SVN