# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 906634262 -7200
# Node ID ad33f262559831b3f8b60b78a5cc1f719fef1cd8
# Parent  2a8a32256d4ad9c1a38b5523d35131f0c046bc41
care for volume changes in directory field.
Fixed matching for caseless fileSystems (win32)

diff -r 2a8a32256d4a -r ad33f2625598 FileSelectionBrowser.st
--- a/FileSelectionBrowser.st	Fri Sep 18 16:03:10 1998 +0200
+++ b/FileSelectionBrowser.st	Thu Sep 24 12:51:02 1998 +0200
@@ -273,8 +273,11 @@
 !
 
 directoryView
+    "return the directory view on the right side (a subcanvas)"
 
     ^directoryView ? (directoryView := DirectoryView new)
+
+    "Modified: / 23.9.1998 / 16:46:50 / cg"
 !
 
 fileName: aFileName
@@ -310,10 +313,13 @@
 
     |holder|
     (holder := builder bindingAt:#rootOfDirectory) isNil ifTrue:[
-        builder aspectAt:#rootOfDirectory put: (holder :=  Filename rootDirectory name asValue).
+        builder 
+            aspectAt:#rootOfDirectory 
+            put: (holder :=  Filename rootDirectory name asValue).
     ].
     ^ holder
 
+    "Modified: / 23.9.1998 / 16:34:59 / cg"
 !
 
 selectionOfDirectory
@@ -326,6 +332,15 @@
 
 !
 
+setRootForFile:aFilename
+    self rootOfDirectory
+        value:(Filename 
+                    rootDirectoryOnVolume:
+                        aFilename asFilename volume) pathName
+
+    "Created: / 23.9.1998 / 16:36:28 / cg"
+!
+
 valueOfFileName
 
     |holder|
@@ -400,6 +415,7 @@
     self directoryInputField entryCompletionBlock: 
     [:f|
        |completedDirectory|
+
        (completedDirectory := Filename 
             filenameCompletionFor: self directoryInputField contents
             directory:(directory asFilename)
@@ -412,6 +428,11 @@
             ]) asFilename exists
         ifTrue:
         [
+            "/ volume changed ... (win32 or VMS)
+            completedDirectory asFilename volume ~= directory asFilename volume ifTrue:[
+                self setRootForFile:completedDirectory asFilename.
+            ].
+
             self directoryInputField contents: completedDirectory.
             self directoryTreeView selectPathname: completedDirectory.
             self readDirectory
@@ -424,7 +445,7 @@
 
     ^super postBuildWith:aBuilder
 
-    "Modified: / 12.9.1998 / 17:10:44 / cg"
+    "Modified: / 23.9.1998 / 16:40:38 / cg"
 ! !
 
 !FileSelectionBrowser class methodsFor:'documentation'!