diff -r f7912c671a04 -r 4d9b62c111fc Tools__ChangeSetDiffList.st
--- a/Tools__ChangeSetDiffList.st	Wed Apr 18 08:18:46 2012 +0100
+++ b/Tools__ChangeSetDiffList.st	Wed Apr 18 21:29:40 2012 +0100
@@ -28,7 +28,8 @@
 "{ NameSpace: Tools }"
 
 BrowserListWithFilter subclass:#ChangeSetDiffList
-	instanceVariableNames:'listHolder listEntryLabelGenerator listEntryIconGenerator'
+	instanceVariableNames:'listHolder listEntryLabelGenerator listEntryIconGenerator
+		showVersionMethodDiffsHolder'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Diff'
@@ -154,8 +155,10 @@
         #listEntryLabelGenerator
         #menuHolder
         #outGeneratorHolder
+        #showVersionMethodDiffsHolder
       ).
 
+    "Modified: / 18-04-2012 / 19:01:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffList methodsFor:'accessing'!
@@ -185,6 +188,35 @@
         listHolder := ValueHolder new.
     ].
     ^ listHolder
+!
+
+showVersionMethodDiffsHolder
+    "return/create the 'showVersionMethodDiffsHolder' value holder (automatically generated)"
+
+    showVersionMethodDiffsHolder isNil ifTrue:[
+        showVersionMethodDiffsHolder := ValueHolder new.
+        showVersionMethodDiffsHolder addDependent:self.
+    ].
+    ^ showVersionMethodDiffsHolder
+!
+
+showVersionMethodDiffsHolder:something
+    "set the 'showVersionMethodDiffsHolder' value holder (automatically generated)"
+
+    |oldValue newValue|
+
+    showVersionMethodDiffsHolder notNil ifTrue:[
+        oldValue := showVersionMethodDiffsHolder value.
+        showVersionMethodDiffsHolder removeDependent:self.
+    ].
+    showVersionMethodDiffsHolder := something.
+    showVersionMethodDiffsHolder notNil ifTrue:[
+        showVersionMethodDiffsHolder addDependent:self.
+    ].
+    newValue := showVersionMethodDiffsHolder value.
+    oldValue ~~ newValue ifTrue:[
+        self update:#value with:newValue from:showVersionMethodDiffsHolder.
+    ].
 ! !
 
 !ChangeSetDiffList methodsFor:'change & update'!
@@ -193,10 +225,18 @@
 
     aspect == #resolution ifTrue:[^(self componentAt: #List) invalidateRepairNow: true].
         
-    sender == selectionHolder ifTrue:[^self selectionChanged].
+    sender == selectionHolder ifTrue:[
+        self selectionChanged.
+        ^self.
+    ].
+    sender == showVersionMethodDiffsHolder ifTrue:[
+        ^self updateList.
+        self.
+
+    ].
     super update: aspect with: param from: sender.
 
-    "Modified: / 24-11-2009 / 18:34:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-04-2012 / 18:57:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffList methodsFor:'generators'!
@@ -275,6 +315,10 @@
     newDiffs := self inGeneratorHolder value ? #().
     (newDiffs isKindOf: ChangeSetDiffComponent) ifTrue:
         [newDiffs := newDiffs diffs].
+    showVersionMethodDiffsHolder value ifFalse:[
+        newDiffs := newDiffs reject:[:diff|diff isForVersionMethod]
+    ].
+
     newDiffs := self filterList: newDiffs.
     newList := OrderedCollection new:16.    
     newDiffs do:
@@ -286,7 +330,7 @@
     self listHolder value:newList
 
     "Modified: / 07-07-2011 / 14:17:26 / jv"
-    "Modified: / 29-11-2011 / 16:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-04-2012 / 19:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffList::ListEntry class methodsFor:'instance creation'!
@@ -363,5 +407,5 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetDiffList.st 7948 2012-03-21 01:52:35Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetDiffList.st 7981 2012-04-18 20:29:40Z vranyj1 $'
 ! !