Tools__ChangeSetBrowser2.st
branchjv
changeset 12214 4b7eedbab2a7
parent 12213 63694f12baba
child 12216 5698c277f043
--- a/Tools__ChangeSetBrowser2.st	Fri Mar 30 14:35:31 2012 +0100
+++ b/Tools__ChangeSetBrowser2.st	Sat Mar 31 01:16:30 2012 +0100
@@ -2590,10 +2590,13 @@
 !
 
 doOpenFile: aStringOrFilename
-    | cs |
-
-    self showProgress: 'Reading ' , aStringOrFilename asFilename baseName while:[
+    | cs fn |
+
+    self showProgress: 'Reading ' , (fn := aStringOrFilename asFilename) baseName while:[
         cs := ChangeSet fromFile: aStringOrFilename.
+        (fn suffix = 'chg') ifTrue:[
+            self list scrollToBottom: true.
+        ].
         self doOpen: cs.
     ].
 
@@ -2641,6 +2644,15 @@
     "Modified: / 20-03-2012 / 13:52:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+doScrollToBottom
+
+    | changeList |
+    changeList := self list.
+    changeList selection: { changeList list last }
+
+    "Created: / 30-03-2012 / 16:56:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 setTargetNamespace
     "specify an st/x namespace to be used as default"
 
@@ -3578,7 +3590,7 @@
 !ChangeSetBrowser2 class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Tools__ChangeSetBrowser2.st 7960 2012-03-30 13:35:31Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st 7961 2012-03-31 00:16:30Z vranyj1 $'
 !
 
 version_CVS
@@ -3586,5 +3598,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetBrowser2.st 7960 2012-03-30 13:35:31Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetBrowser2.st 7961 2012-03-31 00:16:30Z vranyj1 $'
 ! !