FileBrowserV2.st
changeset 5411 198e8a5c3700
parent 5400 52d219981099
child 5424 9ebfc38eba72
--- 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!