635         nm := self class lastSelection.

   635         nm := self class lastSelection.

   636         nm isNil ifTrue:[

   636         nm isNil ifTrue:[

   637             nm := Filename currentDirectory asAbsoluteFilename name.

   637             nm := Filename currentDirectory asAbsoluteFilename name.

   638         ].

   638         ].

   639     ].

   639     ].

   641     self directoryTreeView selectPathname:nm.

   640     self directoryTreeView selectPathname:nm.

   642 

   641 

   643     self directoryInputField 

   642     self directoryInputField 

   644         entryCompletionBlock:[:f| self entryCompletion].

   643         entryCompletionBlock:[:f| self entryCompletion].

   645 

   644