Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1024.mcz
==================== Summary ====================
Name: Morphic-topa.1024 Author: topa Time: 2 November 2015, 10:09:39.152 am UUID: 4751f1ce-2b2c-465c-9a03-b10e2260993c Ancestors: Morphic-kfr.1023
Try directories before files when handling dropped items.
(Because on Unix, we'll get a file for a directory but obviously not vice versa)
=============== Diff against Morphic-kfr.1023 ===============
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 := anEvent contents. 1 to: numFiles do: [ :i | + (FileDirectory requestDropDirectory: i) + ifNotNil: [:directory | self handleDroppedItem: directory event: anEvent] + ifNil: [(FileStream requestDropStream: i) ifNotNil: [:stream | + [self handleDroppedItem: stream event: anEvent] ensure: [stream close]]]]. + ! - (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]]]].!
Item was added: + ----- Method: PasteUpMorph>>handleDroppedItem:event: (in category 'event handling') ----- + handleDroppedItem: anItem event: anEvent + + (ExternalDropHandler lookupExternalDropHandler: anItem) + ifNotNil: [:handler | handler handle: anItem in: self dropEvent: anEvent].!
squeak-dev@lists.squeakfoundation.org