QotD    "To be or not to be" – Shakespeare

 defaultImageHandler
	| image sketch |
	^ExternalDropHandler
		type: 'image/'
		extension: nil
		action: [:stream :pasteUp :event |
			stream binary.
			image _ Form fromBinaryStream: stream.
 			Project current resourceManager
				 addResource: image 
				 url: (FileDirectory urlForFileNamed: stream name) asString.
			sketch _ SketchMorph withForm: image.
			pasteUp addMorph: sketch centeredNear: event position] fixTemps

 defaultImageHandler
	| image sketch |
	^ExternalDropHandler
		type: 'image/'
		extension: nil
		action: [:stream :pasteUp :event |
			stream binary.
			image _ Form fromBinaryStream: ((RWBinaryOrTextStream with: stream contents) reset).
			Project current resourceManager 
				addResource: image 
				url: (FileDirectory urlForFileNamed: stream name) asString.
			sketch _ World drawingClass withForm: image.
			pasteUp addMorph: sketch centeredNear: event position.
			image _ sketch _ nil] fixTemps

 defaultImageHandler
	^ExternalDropHandler
		type: 'image/'
		extension: nil
		action: [:stream :pasteUp :event |
			| image sketch |
			stream binary.
			image := Form fromBinaryStream: stream contents asByteArray readStream.
			Project current resourceManager
				addResource: image 
				url: (FileDirectory urlForFileNamed: stream name) asString.
			sketch := Project current world drawingClass withForm: image.
			pasteUp addMorph: sketch centeredNear: event position.
			image := sketch := nil]