--- a/FileBrowserV2.st Mon Dec 04 13:17:30 2006 +0100
+++ b/FileBrowserV2.st Mon Dec 04 13:17:40 2006 +0100
@@ -1415,7 +1415,7 @@
currentFileNameHolderChanged
|newEntryValue nSelected files volume|
- files := self currentFileNameHolder value.
+ files := self currentSelectedObjects.
nSelected := files size.
nSelected == 0 ifTrue:[
@@ -1436,6 +1436,8 @@
self selectedDeviceDrive value:volume.
].
self updatePreview.
+
+ "Modified: / 04-12-2006 / 13:15:48 / cg"
!
fileEntryFieldHolderChanged
@@ -1494,7 +1496,7 @@
| newDrive curSel newFile|
newDrive := self selectedDeviceDrive value.
- curSel := self currentFileNameHolder value.
+ curSel := self currentSelectedObjects.
curSel notEmpty ifTrue:[
curSel first volume = newDrive ifTrue:[ ^self].
].
@@ -1512,6 +1514,8 @@
] ifFalse:[
self selectedDeviceDrive value:'C:'.
].
+
+ "Modified: / 04-12-2006 / 13:15:55 / cg"
!
selectedImage
@@ -1852,7 +1856,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.159 2006-10-23 21:15:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.160 2006-12-04 12:17:40 cg Exp $'
! !
FileBrowserV2 initialize!