[squeak-dev] The Trunk: Tools-mt.664.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jan 21 14:21:09 UTC 2016


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

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

Name: Tools-mt.664
Author: mt
Time: 21 January 2016, 3:20:55.039876 pm
UUID: 7640e095-75e6-4add-add8-6bf4748f802e
Ancestors: Tools-ul.663

Fixes drop behavior in File List. Ignore things that are not files or folders. However, move/copy folders might still work on Unix-based systems only.

=============== Diff against Tools-ul.663 ===============

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: ;
+ 			dropAccept: #wantsDraggedObject: ].
- 			 dragItem: #dragFromDirectoryList: ;
- 			 dropItem: #drop:ontoDirectory:shouldCopy: ].
  	^ treeSpec!

Item was added:
+ ----- Method: FileList>>wantsDraggedObject: (in category 'drag''n''drop') -----
+ wantsDraggedObject: anObject
+ 
+ 	^ (anObject isKindOf: DirectoryEntry) or: [anObject isKindOf: FileDirectory]!



More information about the Squeak-dev mailing list