Tools__ChangeSetDiffList.st
branchjv
changeset 13673 0e02e5ca25cd
parent 13289 cc75e3cd0362
child 15566 184cea584be5
--- a/Tools__ChangeSetDiffList.st	Fri Nov 08 17:22:16 2013 +0000
+++ b/Tools__ChangeSetDiffList.st	Mon Nov 11 13:38:07 2013 +0000
@@ -508,17 +508,19 @@
         [newDiffs := newDiffs diffs].
     newDiffs := self filterList: newDiffs.
     newList := OrderedCollection new.    
-    newDiffs do:
-        [:item|
-        newList add:(ListEntry model: item application: self).
-        item addDependent: self].
+    newDiffs do: [:item|
+        (self shouldDisplayDiff: item) ifTrue:[
+            newList add:(ListEntry model: item application: self).
+            item addDependent: self
+        ].
+    ].
 
     newList sort:[:a :b|a label < b label].
     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: / 30-07-2013 / 19:30:18 / cg"
+    "Modified: / 11-11-2013 / 11:00:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffList::ListEntry class methodsFor:'instance creation'!