[Pkg] The Trunk: Tools-mt.569.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 1 07:16:29 UTC 2015


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!



More information about the Packages mailing list