--- 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 $'
! !