--- a/ChangeSetBrowser.st Mon Feb 14 20:10:20 2011 +0100
+++ b/ChangeSetBrowser.st Thu Feb 17 10:30:10 2011 +0100
@@ -50,22 +50,28 @@
!ChangeSetBrowser class methodsFor:'instance creation'!
open
- "create a changes browser on the current change set"
+ "open a changes browser on the current change set"
^ self openOn:(ChangeSet current)
"
ChangeSetBrowser open
"
+
+ "Modified: / 17-02-2011 / 10:29:26 / cg"
!
openOn:aChangeSet
- "create a changes browser on a change set"
+ "open a changes browser on a given change set"
^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open
+
+ "Modified: / 17-02-2011 / 10:29:35 / cg"
!
openOnFile:aFileName
+ "open a changes browser on a file"
+
|changeSet|
changeSet := ChangeSet fromFile:aFileName.
@@ -73,9 +79,10 @@
"
self openOnFile:'c:\Users\cg\work\stx\goodies\soap\spray5.2\Steve Waring\Spray WebServices\Spray\Auth\SWT Spray Auth Tests.pac'
-
ChangeSet fromFile:'c:\Users\cg\work\stx\goodies\soap\spray5.2\Steve Waring\Spray WebServices\Spray\Auth\SWT Spray Auth Tests.pac'
"
+
+ "Modified: / 17-02-2011 / 10:29:50 / cg"
! !
!ChangeSetBrowser class methodsFor:'defaults'!
@@ -1028,9 +1035,9 @@
!ChangeSetBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.55 2011-01-29 11:59:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.56 2011-02-17 09:30:10 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.55 2011-01-29 11:59:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.56 2011-02-17 09:30:10 cg Exp $'
! !