'From Squeak3.8-Nihongo of 11 March 2005 [latest update: #25] on 13 March 2005 at 9:36:01 pm'!
"Change Set:		RemoveRefDropHandler
Date:			13 March 2005
Author:			Takashi Yamamiya

Remove object reference in Drop image handler.
If the reference was remaind, the memory of dropped image
is not thrown until next dropping."
!


!ExternalDropHandler class methodsFor: 'private' stamp: 'tak 3/13/2005 21:19'!
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! !


ExternalDropHandler initialize.
!