VersionDiffBrowser.st
changeset 13305 1debd2a0c5f8
parent 13151 d5d816a82c3a
child 13330 02d6c2d848a0
child 13547 2b11f03e2ccb
--- a/VersionDiffBrowser.st	Wed Aug 07 11:55:16 2013 +0200
+++ b/VersionDiffBrowser.st	Wed Aug 07 11:57:46 2013 +0200
@@ -2113,13 +2113,13 @@
 
     |theSourceCodeManager theSourceStream theChangeSet|
 
-    theSourceCodeManager := SourceCodeManagerUtilities default sourceCodeManagerFor:aClass.
+    theSourceCodeManager := SourceCodeManagerUtilities sourceCodeManagerFor:aClass.
     [
-	theSourceStream := theSourceCodeManager getSourceStreamFor:aClass revision:aVersion.
-	theSourceStream notNil
-	    ifTrue:[theChangeSet := ChangeSet fromStream:theSourceStream]
+        theSourceStream := theSourceCodeManager getSourceStreamFor:aClass revision:aVersion.
+        theSourceStream notNil
+            ifTrue:[theChangeSet := ChangeSet fromStream:theSourceStream]
     ] ensure:[
-	theSourceStream notNil ifTrue:[theSourceStream close]
+        theSourceStream notNil ifTrue:[theSourceStream close]
     ].
     self sortChangeSet:theChangeSet.
     ^ theChangeSet
@@ -2481,10 +2481,10 @@
 !VersionDiffBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.115 2013-07-09 21:53:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.116 2013-08-07 09:57:46 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.115 2013-07-09 21:53:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/VersionDiffBrowser.st,v 1.116 2013-08-07 09:57:46 stefan Exp $'
 ! !