--- a/ChangeSetBrowser.st	Tue Jun 03 12:38:21 2003 +0200
+++ b/ChangeSetBrowser.st	Tue Jun 03 18:23:37 2003 +0200
@@ -590,6 +590,10 @@
 
     "Created: 3.12.1995 / 18:06:35 / cg"
     "Modified: 3.12.1995 / 18:13:06 / cg"
+!
+
+showingDiffsDefault
+    ^ "false" super showingDiffsDefault 
 ! !
 
 !ChangeSetBrowser methodsFor:'menu aspects'!
@@ -910,10 +914,33 @@
     super doUpdate
 
     "Created: 3.12.1995 / 13:54:14 / cg"
+!
+
+updateDiffViewFor:changeNr
+    |change class selector oldMethod newSource oldSource|
+
+    change := changeSet at:changeNr.
+    change isMethodChange ifTrue:[
+        newSource := change source.
+        class := change changeClass.
+        class notNil ifTrue:[
+            selector := change changeSelector.
+            selector notNil ifTrue:[
+                oldMethod := class compiledMethodAt:selector.
+                oldMethod notNil ifTrue:[
+                    oldSource := oldMethod source.
+                    diffView text1:(oldSource ? '') text2:(newSource ? '').
+                    ^ self.
+                ]
+            ].
+        ]
+    ].
+
+    super updateDiffViewFor:changeNr.
 ! !
 
 !ChangeSetBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.33 2003-04-09 10:54:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.34 2003-06-03 16:23:37 cg Exp $'
 ! !