--- a/AbstractFileBrowser.st	Tue Apr 01 16:46:26 2003 +0200
+++ b/AbstractFileBrowser.st	Tue Apr 01 16:58:28 2003 +0200
@@ -2836,15 +2836,20 @@
 !
 
 getFilter
-    | filter showHidden|
+    | filter showHidden yesOrNo|
 
     filter := self filterModel value.
     filter = '' ifTrue:[filter := '*'].
+    yesOrNo := true.
+    (filter startsWith:'~') ifTrue:[
+        yesOrNo := false.
+        filter := filter copyFrom:2.
+    ].
     showHidden := self showHiddenFiles value.
     showHidden ifTrue:[
-        ^ [: el | filter match:el].
+        ^ [: el | (filter match:el) == yesOrNo].
     ] ifFalse:[
-        ^ [: el | ((el asString startsWith:'.') not) and:[filter match:el]].
+        ^ [: el | ((el asString startsWith:'.') not) and:[(filter match:el) == yesOrNo]].
     ]
 !
 
@@ -6105,5 +6110,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.122 2003-03-31 09:55:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.123 2003-04-01 14:58:28 cg Exp $'
 ! !