*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 04 Dec 2006 13:17:40 +0100
changeset 7561 3a6b61ba1679
parent 7560 7fc383050360
child 7562 8657c393c928
*** empty log message ***
FileBrowserV2.st
--- 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!