equal
deleted
inserted
replaced
547 |
547 |
548 treeView := self directoryTreeView. |
548 treeView := self directoryTreeView. |
549 inputField := self directoryInputField. |
549 inputField := self directoryInputField. |
550 |
550 |
551 f := inputField contents. |
551 f := inputField contents. |
552 dir := f asFilename directoryName. |
552 f asFilename isRootDirectory ifTrue:[ |
|
553 dir := f. |
|
554 ] ifFalse:[ |
|
555 dir := f asFilename directoryName. |
|
556 ]. |
553 |
557 |
554 completedDirectory := Filename |
558 completedDirectory := Filename |
555 filenameCompletionFor:f |
559 filenameCompletionFor:f |
556 directory:dir |
560 directory:dir |
557 directoriesOnly:true |
561 directoriesOnly:true |