DirectoryContentsBrowser.st
changeset 19014 6401bc2cfa4b
parent 18999 245fff17698d
child 19337 5a6b6ab5c1fa
equal deleted inserted replaced
19013:b2d7615aebc4 19014:6401bc2cfa4b
  1748     |destinationPath|
  1748     |destinationPath|
  1749 
  1749 
  1750     draggedItem isNil ifTrue:[
  1750     draggedItem isNil ifTrue:[
  1751         destinationPath := self directory.
  1751         destinationPath := self directory.
  1752     ] ifFalse:[
  1752     ] ifFalse:[
  1753         destinationPath := self getDirWithoutFileName:(draggedItem fileName).
  1753         destinationPath := self class getDirectoryOf:(draggedItem fileName).
  1754         destinationPath baseName = '..' ifTrue:[
  1754         destinationPath baseName = '..' ifTrue:[
  1755             destinationPath := self directory directory.
  1755             destinationPath := self directory directory.
  1756         ]
  1756         ]
  1757     ].
  1757     ].
  1758 
  1758