--- a/FileSelectionBrowser.st Wed Dec 03 22:13:22 2008 +0100
+++ b/FileSelectionBrowser.st Wed Dec 03 22:13:24 2008 +0100
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libtool2' }"
SelectionBrowser subclass:#FileSelectionBrowser
@@ -535,10 +532,7 @@
!
readDirectory
-
- self directoryTreeView selection notNil
- ifTrue:
- [
+ self directoryTreeView selection notNil ifTrue: [
directoryView directory: self selectionOfDirectory value.
directoryView readDirectory.
self class lastSelection notNil ifTrue: [self class lastSelection: self selectionOfDirectory value]
@@ -558,26 +552,27 @@
f := inputField contents.
dir := f asFilename directoryName.
- (completedDirectory := Filename
+ completedDirectory := Filename
filenameCompletionFor:f
directory:dir
directoriesOnly:true
filesOnly:false
ifMultiple:
- [:dir |
- treeView selection notNil ifTrue:[
- treeView selectedNodeExpand: true
- ]
- ]) asFilename exists
- ifTrue:
- [
+ [:dir |
+ treeView selection notNil ifTrue:[
+ treeView selectedNodeExpand: true
+ ]
+ ].
+
+ completedDirectory asFilename exists ifTrue:[
"/ volume changed ... (win32 or VMS)
- completedDirectory asFilename volume ~= directory asFilename volume ifTrue:[
- self setRootForFile:completedDirectory asFilename.
+"/ completedDirectory asFilename volume ~= directory asFilename volume ifTrue:[
+"/ ].
+ completedDirectory asFilename volume ~= treeView scrolledView directory asFilename volume ifTrue:[
+ treeView scrolledView directory:completedDirectory asFilename volume
].
treeView selectPathname: completedDirectory.
inputField contents: completedDirectory.
-"/ self directoryTreeView selectPathname: completedDirectory.
self readDirectory
] ifFalse: [
inputField flash