The Trunk: Tools-mt.569.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.569.mcz

==================== Summary ====================

Name: Tools-mt.569
Author: mt
Time: 1 April 2015, 9:16:07.657 am
UUID: 571e1638-a483-0548-90e1-92a3cc15406a
Ancestors: Tools-mt.568

Fixed selection in FileList tool.

=============== Diff against Tools-mt.568 ===============

Item was changed:
  ----- Method: FileList>>buildDirectoryTreeWith: (in category 'toolbuilder') -----
  buildDirectoryTreeWith: builder
  | treeSpec |
  treeSpec := builder pluggableTreeSpec new.
  treeSpec
  model: self ;
  roots: #rootDirectoryList ;
  hasChildren: #hasMoreDirectories: ;
  getChildren: #subDirectoriesOf: ;
  getSelectedPath: #selectedPath ;
  setSelected: #setDirectoryTo: ;
+ getSelected: #directory;
  label: #directoryNameOf: ;
  menu: #volumeMenu: ;
  autoDeselect: false.
  SystemBrowser browseWithDragNDrop ifTrue:
  [ treeSpec
  dragItem: #dragFromDirectoryList: ;
  dropItem: #drop:ontoDirectory:shouldCopy: ].
  ^ treeSpec!

Item was changed:
  ----- Method: FileList>>directory: (in category 'initialization') -----
  directory: aFileDirectory
  "Set the path of the volume to be displayed."
  self okToChange ifFalse: [ ^ self ].
  self modelSleep.
  directory := aFileDirectory.
  self modelWakeUp.
  sortMode == nil ifTrue: [ sortMode := #date ].
  volList := (Array with: '[]') , directory pathParts withIndexCollect:
  [ : each : i | (String
  new: i - 1
  withAll: Character space) , each ].
  volListIndex := volList size.
  self changed: #relabel.
  self changed: #volumeList.
+ self changed: #directory.
  self pattern: pattern!