--- 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!