Tools__ChangeSetDiffList.st
branchjv
changeset 13289 cc75e3cd0362
parent 12431 9f0c59c742d5
parent 13264 4a0cdaf356ec
child 13673 0e02e5ca25cd
--- a/Tools__ChangeSetDiffList.st	Sun Jul 28 11:38:21 2013 +0100
+++ b/Tools__ChangeSetDiffList.st	Thu Aug 01 10:27:56 2013 +0100
@@ -500,32 +500,25 @@
 updateList
     "Superclass Tools::BrowserList says that I am responsible to implement this method"
     
-    | newDiffs oldList newList anyNew |
-    oldList := self listHolder value ? #().
-    oldList do: [:entry|entry model removeDependent: self].
+    | newDiffs newList |
+    self listHolder value ? #() do: [:entry|entry model removeDependent: self].
 
     newDiffs := self inGeneratorHolder value ? #().
     (newDiffs isKindOf: ChangeSetDiffComponent) ifTrue:
         [newDiffs := newDiffs diffs].
-
     newDiffs := self filterList: newDiffs.
-    newList := OrderedCollection new:16.    
-    anyNew := false.
-    newDiffs do:[:item|
-        (self shouldDisplayDiff: item) ifTrue:[
-            | entry |
+    newList := OrderedCollection new.    
+    newDiffs do:
+        [:item|
+        newList add:(ListEntry model: item application: self).
+        item addDependent: self].
 
-            entry := oldList detect:[:e|e model == entry] ifNone:[anyNew := true. (ListEntry model: item application: self)].
-            newList add:entry.
-        ].
-    ].
     newList sort:[:a :b|a label < b label].
-    (anyNew or:[oldList size ~~ newList size]) ifTrue:[
-        self listHolder value:newList
-    ].
+    self listHolder value:newList
 
     "Modified: / 07-07-2011 / 14:17:26 / jv"
-    "Modified: / 17-01-2013 / 16:40:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-11-2011 / 16:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 30-07-2013 / 19:30:18 / cg"
 ! !
 
 !ChangeSetDiffList::ListEntry class methodsFor:'instance creation'!
@@ -600,7 +593,7 @@
 !ChangeSetDiffList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.6 2011/11/30 11:14:53 vrany Exp §'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.7 2013-07-30 17:35:29 cg Exp $'
 !
 
 version_HG
@@ -609,6 +602,6 @@
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetDiffList.st 8089 2013-01-17 17:16:17Z vranyj1 $'
+    ^ '$Id: Tools__ChangeSetDiffList.st,v 1.7 2013-07-30 17:35:29 cg Exp $'
 ! !