code cleanup
authorClaus Gittinger <cg@exept.de>
Thu, 03 Apr 2003 00:42:15 +0200
changeset 4775 674138a9faee
parent 4774 5119967dbd89
child 4776 9ac02615b13a
code cleanup
FileBrowserV2.st
--- a/FileBrowserV2.st	Thu Apr 03 00:40:24 2003 +0200
+++ b/FileBrowserV2.st	Thu Apr 03 00:42:15 2003 +0200
@@ -1398,7 +1398,7 @@
 
 currentFileNameHolderChanged
 
-    |newEntryValue nSelected files|
+    |newEntryValue nSelected files volume|
 
     files := self currentFileNameHolder value.
     nSelected := files size.
@@ -1407,14 +1407,16 @@
         newEntryValue := ''.
     ] ifFalse:[
         nSelected == 1 ifTrue:[
-            newEntryValue := files first.    
+            newEntryValue := files first.
         ] ifFalse:[
             newEntryValue := self commonPrefixOfSelectedFiles.
         ].
     ].
     self fileEntryFieldHolder value:(newEntryValue asString) withoutNotifying:self.
+
     OperatingSystem isMSWINDOWSlike ifTrue:[
-        self selectedDeviceDrive value:(files first volume).
+        volume := (nSelected >= 1) ifTrue:[files first volume] ifFalse:nil.    
+        self selectedDeviceDrive value:volume.
     ].
     self updatePreview.
 !
@@ -1739,7 +1741,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.79 2003-04-02 22:40:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.80 2003-04-02 22:42:15 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!