--- a/FileBrowserV2.st	Mon Oct 21 17:07:31 2002 +0200
+++ b/FileBrowserV2.st	Mon Oct 21 17:11:21 2002 +0200
@@ -602,12 +602,12 @@
                         )
                        #(#SubCanvasSpec
                           #name: 'FileApplicationNoteBook'
+                          #tabable: false
                           #hasHorizontalScrollBar: false
                           #hasVerticalScrollBar: false
                           #majorKey: #FileApplicationNoteBook
                           #createNewApplication: true
                           #createNewBuilder: true
-                          #tabable: false
                         )
                        )
                      
@@ -628,12 +628,22 @@
                  #(#LabelSpec
                     #label: 'NotifyLabel'
                     #name: 'NotifyLabel'
-                    #layout: #(#LayoutFrame 1 0.0 1 0.0 1 1.0 1 1.0)
+                    #layout: #(#LayoutFrame 1 0.0 1 0.0 -50 1 1 1.0)
                     #level: -1
                     #translateLabel: true
                     #labelChannel: #notifyChannel
                     #adjust: #left
                   )
+                 #(#LabelSpec
+                    #label: 'Shown Files'
+                    #name: 'Label1'
+                    #layout: #(#LayoutFrame -50 1 1 0.0 1 1 1 1.0)
+                    #level: -1
+                    #translateLabel: true
+                    #labelChannel: #shownFiles
+                    #adjust: #left
+                    #postBuildCallback: #postBuildFilterBox:
+                  )
                  )
                
               )
@@ -1320,7 +1330,6 @@
             self fileEntryFieldHolder value:self getCommonForCurrentFiles withoutNotifying:self.
         ].
     ].
-    self updateFilterBoxColor.
 !
 
 fileEntryFieldHolderChanged
@@ -1350,20 +1359,6 @@
     ^ super update:something with:aParameter from:changedObject.
 !
 
-updateFilterBoxColor
-    |filterBox clr|
-
-    filterBox := (builder componentAt:#FilterSelectionBox).
-
-    self directoryContentsBrowser hasFilesFiltered ifTrue:[
-        clr := Color red lightened lightened lightened.
-        filterBox flash.                 
-    ] ifFalse:[
-        clr := Color white
-    ].
-    filterBox backgroundColor:clr.
-!
-
 updateToolVisibility
     |builder toolBar filenameEntryField vPanel topOffset visible d|
 
@@ -1458,6 +1453,12 @@
     self toolBarVisibleHolder addDependent:self.
 !
 
+postBuildFilterBox:aWidget
+
+    self filterValueBox value:aWidget.
+    self filterBackgroundColor value:aWidget backgroundColor.
+!
+
 postBuildPathField:aWidget
     "
         set the pramters that not can be changed in the window spec
@@ -1504,7 +1505,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.20 2002-10-21 08:13:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.21 2002-10-21 15:10:09 penk Exp $'
 ! !
 
 FileBrowserV2 initialize!