--- 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