--- a/Tools__ChangeSetDiffList.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/Tools__ChangeSetDiffList.st	Sun Jan 29 15:33:37 2012 +0000
@@ -27,7 +27,7 @@
 
 "{ NameSpace: Tools }"
 
-BrowserList subclass:#ChangeSetDiffList
+BrowserListWithFilter subclass:#ChangeSetDiffList
 	instanceVariableNames:'listHolder listEntryLabelGenerator listEntryIconGenerator'
 	classVariableNames:''
 	poolDictionaries:''
@@ -82,9 +82,9 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:SVN::DiffList andSelector:#windowSpec
-     SVN::DiffList new openInterface:#windowSpec
-     SVN::DiffList open
+     UIPainter new openOnClass:Tools::ChangeSetDiffList andSelector:#windowSpec
+     Tools::ChangeSetDiffList new openInterface:#windowSpec
+     Tools::ChangeSetDiffList open
     "
 
     <resource: #canvas>
@@ -102,11 +102,26 @@
         component: 
        (SpecCollection
           collection: (
+           (InputFieldSpec
+              name: 'Filter'
+              layout: (LayoutFrame 0 0 0 0 0 1 25 0)
+              initiallyInvisible: true
+              model: filterPatternHolder
+              immediateAccept: true
+              acceptOnLeave: false
+              acceptOnReturn: false
+              acceptOnTab: false
+              acceptOnPointerLeave: false
+              emptyFieldReplacementText: 'Search Filter...'
+              usePreferredHeight: true
+              useDynamicPreferredHeight: true
+              postBuildCallback: postBuildFilterView:
+            )
            (SelectionInListModelViewSpec
               name: 'List'
               layout: (LayoutFrame 0 0 0 0 0 1 0 1)
               model: selectionHolder
-              menu: menuHolder
+              menu: menuHolderWithShowFilter
               hasHorizontalScrollBar: true
               hasVerticalScrollBar: true
               listModel: listHolder
@@ -135,13 +150,12 @@
 
     ^ #(
         #inGeneratorHolder
-        #outGeneratorHolder
+        #listEntryIconGenerator
+        #listEntryLabelGenerator
         #menuHolder
-        #listEntryLabelGenerator
-        #listEntryIconGenerator
+        #outGeneratorHolder
       ).
 
-    "Modified: / 24-11-2009 / 09:59:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffList methodsFor:'accessing'!
@@ -261,7 +275,8 @@
     newDiffs := self inGeneratorHolder value ? #().
     (newDiffs isKindOf: ChangeSetDiffComponent) ifTrue:
         [newDiffs := newDiffs diffs].
-    newList := OrderedCollection new:16.        
+    newDiffs := self filterList: newDiffs.
+    newList := OrderedCollection new:16.    
     newDiffs do:
         [:item|
         newList add:(ListEntry model: item application: self).
@@ -270,8 +285,8 @@
     newList sort:[:a :b|a label < b label].
     self listHolder value:newList
 
-    "Modified: / 06-07-2011 / 12:58:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-07-2011 / 14:17:26 / jv"
+    "Modified: / 29-11-2011 / 16:08:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !ChangeSetDiffList::ListEntry class methodsFor:'instance creation'!
@@ -336,9 +351,9 @@
 !ChangeSetDiffList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.4 2011/07/07 14:12:15 vrany Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__ChangeSetDiffList.st,v 1.6 2011/11/30 11:14:53 vrany Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__ChangeSetDiffList.st 7810 2011-08-12 14:54:02Z vranyj1 $'
-! !
\ No newline at end of file
+    ^ '$Id: Tools__ChangeSetDiffList.st 7851 2012-01-29 15:33:37Z vranyj1 $'
+! !