--- a/FilenameEditField.st	Wed Nov 12 13:43:45 2008 +0100
+++ b/FilenameEditField.st	Wed Nov 12 13:44:00 2008 +0100
@@ -123,9 +123,20 @@
 directoriesOnly
     "set to expand names for directories only"
 
+    self obsoleteMethodWarning.
     directoriesOnly := true.
 !
 
+directoriesOnly:aBoolean
+    "control if only directories can be choosen"
+
+    self obsoleteMethodWarning.
+    directoriesOnly := aBoolean.
+    directoriesOnly ifTrue:[
+        filesOnly := false.
+    ].
+!
+
 directory
     ^ directory
 
@@ -144,9 +155,19 @@
 filesOnly
     "set to expand names for files only"
 
+    self obsoleteMethodWarning.
     filesOnly := true.
 !
 
+filesOnly:aBoolean
+    "control if only files can be choosen"
+
+    filesOnly := aBoolean.
+    filesOnly ifTrue:[
+        directoriesOnly := false.
+    ].
+!
+
 initialText:aString selected:aBoolean
     "move the cursor to the end - thats the most interesting part of
      a filename
@@ -265,5 +286,5 @@
 !FilenameEditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.35 2008-11-11 20:29:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEditField.st,v 1.36 2008-11-12 12:44:00 cg Exp $'
 ! !