Hi!
What is external drop handler? ¿an object in charge of handling the drag n
drop in the paste up morph?
Should these two methods depending on Form and World be packaged with
Morphic?
Guille
ExternalDropHandler class>>defaultImageHandler
^ExternalDropHandler
type: 'image/'
extension: nil
action: [:stream :pasteUp :event | | image sketch |
stream binary.
image := Form fromBinaryStream: ((RWBinaryOrTextStream with:
stream contents) reset).
sketch := World drawingClass withForm: image.
pasteUp addMorph: sketch centeredNear: event position.
image := sketch := nil]
ExternalDropHandler class>>registerStandardExternalDropHandlers
"ExternalDropHandler registerStandardExternalDropHandlers"
self registeredHandlers add: (
ExternalDropHandler
type: 'image/'
extension: nil
action: [:stream :pasteUp :event |
pasteUp addMorph: (World drawingClass withForm: (Form
fromBinaryStream: stream binary)) centeredNear: event position])
