--- a/FileSelectionBox.st	Tue Oct 21 20:28:05 1997 +0200
+++ b/FileSelectionBox.st	Tue Oct 21 20:32:56 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.10 on 21-sep-1997 at 12:09:36 am'                !
+'From Smalltalk/X, Version:3.2.1 on 19-oct-1997 at 2:50:05 pm'                  !
 
 ListSelectionBox subclass:#FileSelectionBox
 	instanceVariableNames:'patternField selectingDirectory'
@@ -347,6 +347,7 @@
     selectionList pattern:aPattern.
     aPattern isNil ifTrue:[
         patternField beInvisible.
+        self makeUntabable:patternField.
         focusSequence := (Array 
                              with:enterField 
                              with:selectionList 
@@ -354,6 +355,7 @@
                              with:abortButton)
     ] ifFalse:[
         patternField beVisible.
+        self makeTabable:patternField before:enterField.
         focusSequence := (Array 
                              with:patternField 
                              with:enterField 
@@ -366,7 +368,7 @@
         windowGroup focusSequence:focusSequence
     ].
 
-    "Modified: 24.7.1997 / 15:12:32 / cg"
+    "Modified: 18.10.1997 / 03:02:05 / cg"
 !
 
 selectingDirectory:aBoolean
@@ -447,7 +449,8 @@
     patternField leaveAction:[:reason | self patternChanged]. 
     patternField crAction:[self patternChanged].
     patternField hiddenOnRealize:true. "delay showing, until a pattern is defined"
-    self makeTabable:patternField before:enterField.
+"/ no, since its invisible
+"/    self makeTabable:patternField before:enterField.
 
     enterField addDependent:self.
 
@@ -456,7 +459,7 @@
      FileSelectionBox new show
     "
 
-    "Modified: 4.6.1996 / 20:30:46 / cg"
+    "Modified: 18.10.1997 / 02:47:49 / cg"
 !
 
 postRealize
@@ -547,7 +550,7 @@
 
     entry := selectionList selectionValue.
     entry notNil ifTrue:[
-        ((selectionList directory typeOf:entry) == #directory) ifFalse:[
+        ((selectionList directory asFilename construct:entry) isDirectory) ifFalse:[
             selectingDirectory ifFalse:[
                 enterField contents:entry.
                 self okPressed
@@ -555,7 +558,7 @@
         ]
     ].
 
-    "Modified: 18.4.1996 / 18:33:14 / cg"
+    "Modified: 19.10.1997 / 00:17:37 / cg"
 !
 
 okPressed
@@ -615,5 +618,5 @@
 !FileSelectionBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.45 1997-09-21 18:11:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.46 1997-10-21 18:32:14 cg Exp $'
 ! !