class: MCRepositoryBrowser
authorClaus Gittinger <cg@exept.de>
Wed, 19 Feb 2014 14:20:34 +0100
changeset 916 2d95d9b3fbe9
parent 915 3a8b5ac5b142
child 917 e92da349ec56
class: MCRepositoryBrowser changed: #versionBrowser define a convenient name of the browsed changeset (will be shown in the changeSet browser's title)
MCRepositoryBrowser.st
--- 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 $'
 ! !