--- a/FilenameEnterBox.st	Tue Nov 11 21:45:56 2008 +0100
+++ b/FilenameEnterBox.st	Wed Nov 12 13:38:26 2008 +0100
@@ -9,8 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:25:44 pm'                  !
+"{ Package: 'stx:libwidg2' }"
 
 EnterBox subclass:#FilenameEnterBox
 	instanceVariableNames:''
@@ -37,15 +36,23 @@
 
 documentation
 "
-    like a normal enterBox, but does filename-completion when TAB is
-    pressed.
+    like a normal enterBox, but does filename-completion when TAB is pressed.
+
+    [warning:]
+    This is too-simple a dialog, and has been obsoleted by a much better Dialog 
+    with tree-like file selection.
+    Please use 
+        Dialog requestFileName:'...'
+    or:
+        Dialog requestDirectoryName:'...'
+    instead.
 
     [author:]
         Claus Gittinger
 
     [see also:]
         EnterBox FileSelectionBox FileSaveBox
-        DialogBox
+        DialogBox Dialog
 "
 !
 
@@ -68,9 +75,16 @@
 directoriesOnly
     "set to expand names for directories only"
 
+    self obsoleteMethodWarning.
     enterField directoriesOnly
 !
 
+directoriesOnly:aBoolean
+    "set/clear for directories only"
+
+    enterField directoriesOnly:aBoolean
+!
+
 directory:aFilename
     "set the directory"
 
@@ -82,7 +96,14 @@
 filesOnly
     "set to expand names for files only"
 
+    self obsoleteMethodWarning.
     enterField filesOnly
+!
+
+filesOnly:aBoolean
+    "set/clear for files only"
+
+    enterField filesOnly:aBoolean
 ! !
 
 !FilenameEnterBox methodsFor:'initialization'!
@@ -102,5 +123,5 @@
 !FilenameEnterBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.13 1997-10-21 18:33:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/FilenameEnterBox.st,v 1.14 2008-11-12 12:38:26 cg Exp $'
 ! !