equal
deleted
inserted
replaced
398 |
398 |
399 self valueOfFileName value: (aFileName ? '') asFilename baseName. |
399 self valueOfFileName value: (aFileName ? '') asFilename baseName. |
400 prevDir := directory. |
400 prevDir := directory. |
401 directory := directory ? ((aFileName ? '') asFilename asAbsoluteFilename directoryName). |
401 directory := directory ? ((aFileName ? '') asFilename asAbsoluteFilename directoryName). |
402 |
402 |
403 "/ on systems with volumes, we might have to update |
403 "/ on systems with volumes, we might have to update the root here. |
404 "/ the root here. |
|
405 (prevDir isNil |
404 (prevDir isNil |
406 or:[directory asFilename volume ~= prevDir asFilename volume]) ifTrue:[ |
405 or:[directory asFilename volume ~= prevDir asFilename volume]) ifTrue:[ |
407 self setRootForFile:directory asFilename. |
406 self setRootForFile:directory asFilename. |
408 ]. |
407 ]. |
409 |
408 |
630 nm := self class lastSelection. |
629 nm := self class lastSelection. |
631 nm isNil ifTrue:[ |
630 nm isNil ifTrue:[ |
632 nm := Filename currentDirectory asAbsoluteFilename name. |
631 nm := Filename currentDirectory asAbsoluteFilename name. |
633 ]. |
632 ]. |
634 ]. |
633 ]. |
|
634 |
635 self directoryTreeView selectPathname:nm. |
635 self directoryTreeView selectPathname:nm. |
636 |
636 |
637 self directoryInputField |
637 self directoryInputField |
638 entryCompletionBlock:[:f| self entryCompletion]. |
638 entryCompletionBlock:[:f| self entryCompletion]. |
639 |
639 |