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

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

Name: Morphic-mt.1018
Author: mt
Time: 22 October 2015, 10:51:51.981 am
UUID: e2faf21f-a955-4d6f-849c-0d844a7eaf2b
Ancestors: Morphic-cmm.1017

Adds support for dropping directories into the image.

=============== Diff against Morphic-cmm.1017 ===============

Item was changed:
  ----- Method: PasteUpMorph>>dropFiles: (in category 'event handling') -----
  dropFiles: anEvent
  	"Handle a number of dropped files from the OS.
  	TODO:
  		- use a more general mechanism for figuring out what to do with the file (perhaps even offering a choice from a menu)
  		- remember the resource location or (when in browser) even the actual file handle
  	"
+ 	| numFiles |
- 	| numFiles stream handler |
  	numFiles := anEvent contents.
  	1 to: numFiles do: [ :i |
+ 		(FileStream requestDropStream: i)
+ 			ifNotNil: [:stream |
+ 				[ (ExternalDropHandler lookupExternalDropHandler: stream) ifNotNil: [:handler |
+ 					handler handle: stream in: self dropEvent: anEvent ] ]
+ 						ensure: [ stream close ] ]
+ 			ifNil: [(FileDirectory requestDropDirectory: i) ifNotNil: [:directory |
+ 				(ExternalDropHandler lookupExternalDropHandler: directory) ifNotNil: [:handler |
+ 					handler handle: directory in: self dropEvent: anEvent]]]].!
- 		(stream := FileStream requestDropStream: i) ifNotNil: [
- 			handler := ExternalDropHandler lookupExternalDropHandler: stream.
- 			[ handler ifNotNil: [handler handle: stream in: self dropEvent: anEvent ] ]
- 				ensure: [ stream close ] ] ].!