--- a/Tools__HierarchicalChangeList.st	Sun Jan 29 12:56:58 2012 +0000
+++ b/Tools__HierarchicalChangeList.st	Sun Jan 29 15:33:37 2012 +0000
@@ -70,6 +70,7 @@
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
 
+
     "Do not manually edit this!! If it is corrupted,
      the UIPainter may not be able to read the specification."
 
@@ -107,36 +108,30 @@
               highlightMode: line
               showLines: false
               useDefaultIcons: false
-              postBuildCallback: postBuildList:
+              postBuildCallback: postBuildListView:
+            )
+            (InputFieldSpec
+            name: 'Filter'
+            layout: (LayoutFrame 0 0 0 0 0 1 26 0)
+            initiallyInvisible: true
+            model: filterPatternHolder
+            immediateAccept: true
+            acceptOnLeave: false
+            acceptOnReturn: false
+            acceptOnTab: false
+            acceptOnPointerLeave: false
+            emptyFieldReplacementText: 'Search Filter...'
+            usePreferredHeight: true
+            useDynamicPreferredHeight: true
+            postBuildCallback: postBuildFilterView:
             )
            )
          
         )
       )
-! !
 
-!HierarchicalChangeList class methodsFor:'plugIn spec'!
-
-aspectSelectors
-    "This resource specification was automatically generated
-     by the UIPainter of ST/X."
-
-    "Do not manually edit this. If it is corrupted,
-     the UIPainter may not be able to read the specification."
-
-    "Return a description of exported aspects;
-     these can be connected to aspects of an embedding application
-     (if this app is embedded in a subCanvas)."
-
-    ^ #(
-        #acceptEnabledHolder
-        #inGeneratorHolder
-        #menuHolder
-        #outGeneratorHolder
-        #selectionHolder
-        #showRemovedHolder
-      ).
-
+    "Modified: / 20-12-2011 / 10:31:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 20-12-2011 / 16:20:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HierarchicalChangeList methodsFor:'aspects'!
@@ -162,22 +157,20 @@
 
     inGenerator := self inGeneratorHolder value.
     changeset := inGenerator ifNil:[ #() ] ifNotNil:[ inGenerator ].
-    root := (Tools::ChangeList::ListEntry 
-                    change:(CompositeChange name:'Change set' changes:changeset))
-                    parent: self listHolder;
-                    expand;
-                    yourself.
+    root := self listEntryFor: (CompositeChange name:'Change set' changes:changeset).
     root children do:[:e|e expand].
 
     self listHolder root:root
+
+    "Modified: / 04-12-2011 / 15:13:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HierarchicalChangeList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangeList.st,v 1.3 2011/08/04 18:02:49 vrany Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__HierarchicalChangeList.st,v 1.7 2012/01/24 22:18:49 vrany Exp §'
 !
 
 version_SVN
     ^ '$Id: Tools__HierarchicalChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 $'
-! !
\ No newline at end of file
+! !