--- a/ChangeSetBrowser.st	Mon Nov 11 10:38:19 2002 +0100
+++ b/ChangeSetBrowser.st	Mon Nov 11 10:39:47 2002 +0100
@@ -57,6 +57,13 @@
     "create a changes browser on a change set"
 
     ^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open
+!
+
+openOnFile:aFileName
+    |changeSet|
+
+    changeSet := ChangeSet fromFile:aFileName.
+    ^ self openOn:changeSet
 ! !
 
 !ChangeSetBrowser class methodsFor:'defaults'!
@@ -860,5 +867,5 @@
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.27 2002-09-26 20:10:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.28 2002-11-11 09:39:47 cg Exp $'
 ! !