class: MCRepositoryBrowser
changed: #versionBrowser
define a convenient name of the browsed changeset
(will be shown in the changeSet browser's title)
--- a/MCRepositoryBrowser.st Wed Feb 12 21:47:40 2014 +0100
+++ b/MCRepositoryBrowser.st Wed Feb 19 14:20:34 2014 +0100
@@ -1127,7 +1127,7 @@
version ifNil:[^self].
snapshot := version snapshot.
(Tools::ChangeSetBrowser2
- on: snapshot asChangeSet
+ on: (snapshot asChangeSet name:('ChangeSet for: ',version fileName))
label: version info name)
beTwoColumn;
targetNamespace:targetNamespace;
@@ -1252,15 +1252,15 @@
!MCRepositoryBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.31 2014-02-12 15:37:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.32 2014-02-19 13:20:34 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.31 2014-02-12 15:37:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepositoryBrowser.st,v 1.32 2014-02-19 13:20:34 cg Exp $'
!
version_SVN
- ^ '$Id: MCRepositoryBrowser.st,v 1.31 2014-02-12 15:37:57 cg Exp $'
+ ^ '$Id: MCRepositoryBrowser.st,v 1.32 2014-02-19 13:20:34 cg Exp $'
! !