--- a/FileBrowserV2.st Wed Jan 07 13:22:32 2004 +0100
+++ b/FileBrowserV2.st Wed Jan 07 13:40:54 2004 +0100
@@ -1353,10 +1353,13 @@
curSel notEmpty ifTrue:[
curSel first volume = newDrive ifTrue:[ ^self].
].
- newFile := newDrive asFilename.
- newFile isReadable ifTrue:[
- self gotoFile:newFile.
- ^self.
+ newDrive notNil ifTrue:[
+ newFile := newDrive asFilename.
+
+ newFile isReadable ifTrue:[
+ self gotoFile:newFile.
+ ^self.
+ ].
].
curSel notEmpty ifTrue:[
self selectedDeviceDrive value:(curSel first volume).
@@ -1645,7 +1648,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.99 2003-12-05 11:07:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.100 2004-01-07 12:40:54 ca Exp $'
! !
FileBrowserV2 initialize!