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!
squeak-dev@lists.squeakfoundation.org