'From etoys2.1 of 8 August 2007 [latest update: #1601] on 8 September 2007 at 9:10:31 am'!
"Change Set:		BroomSave-yo
Date:			8 September 2007
Author:			Yoshiki Ohshima

BroomMorphs can be saved in a project now.

filter instVar used to hold onto a block and it prevented the saving."!


!BroomMorph methodsFor: 'initialization' stamp: 'yo 9/8/2007 09:05'!
initialize
	super initialize.
	width _ 5.
	span _ 100.
	hotspot _ self center.
	self reset.
	self color: Color blue muchDarker.
	self setBalloonText: 'Drag me to align other Morphs. Drag with the Shift key to move me without affecting other Morphs. Drag me with the second mouse button to align centers.' translated.
	drawBroomIcon _ true.
	transient _ false.
	centered _ false.
! !

!BroomMorph methodsFor: 'initialization' stamp: 'yo 9/8/2007 09:06'!
reset
	moved _ IdentityDictionary new.		"morph -> original bounds"
	unmoved _ IdentitySet new.
	self resetExtent.
	filter _ nil.
! !

!BroomMorph methodsFor: 'initialization' stamp: 'yo 9/8/2007 09:05'!
resetFilter

	self filter: [ :m | true ].
! !

!BroomMorph methodsFor: 'event handling' stamp: 'yo 9/8/2007 09:06'!
mouseDown: evt
	self reset.
	self resetFilter.
	self hotspot: (start _ evt position).
	evt hand mouseFocus: self.
	evt hand keyboardFocus: self.
	"Cursor blank show."! !


!NCBroomMorph methodsFor: 'initialization' stamp: 'yo 9/8/2007 09:06'!
resetFilter

	self filter: [ :m | m isConnector not and: [ m isConstraint not ] ].! !

NCBroomMorph removeSelector: #initialize!