'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 6 November 2008 at 11:02:31 pm'!

!LightWidget methodsFor: 'meta actions' stamp: 'jmv 11/6/2008 18:35'!
dismissMorph: evt
	| w |
	w _ self world ifNil:[^self].
	w deleteAllHalos; stopStepping: self.
	self delete! !


!OldMorph methodsFor: 'menus' stamp: 'jmv 11/6/2008 18:35'!
chooseNewGraphicFromHalo
	"Allow the user to select a changed graphic to replace the one in the receiver"

	self currentWorld deleteAllHalos.
	self chooseNewGraphicCoexisting: true
! !

!OldMorph methodsFor: 'meta-actions' stamp: 'jmv 11/6/2008 18:35'!
dismissMorph: evt
	| w |
	w _ self world ifNil:[^self].
	w deleteAllHalos; stopStepping: self.
	self delete
! !


!OldHandMorph methodsFor: 'focus handling' stamp: 'jmv 11/6/2008 22:59'!
newKeyboardFocus: aMorphOrNil
	"Make the given morph the new keyboard focus, canceling the previous keyboard focus if any. If the argument is nil, the current keyboard focus is cancelled."
	| oldFocus |
	oldFocus _ self keyboardFocus.
	keyboardFocus _ aMorphOrNil.
	oldFocus ifNotNil: [oldFocus == aMorphOrNil ifFalse: [oldFocus keyboardFocusChange: false]].
	aMorphOrNil ifNotNil: [aMorphOrNil keyboardFocusChange: true].
! !

!OldHandMorph methodsFor: 'focus handling' stamp: 'jmv 11/6/2008 23:00'!
newMouseFocus: aMorphOrNil
	"Make the given morph the new mouse focus, canceling the previous mouse focus if any. If the argument is nil, the current mouse focus is cancelled."
	mouseFocus _ aMorphOrNil.
! !


!OldSelectionMorph methodsFor: '*connectors-halo commands' stamp: 'jmv 11/6/2008 18:35'!
addOrRemoveItems: handOrEvent 
	"Make a new selection extending the current one."

	| oldOwner hand |
	hand := (handOrEvent isMorphicEvent) 
				ifFalse: [handOrEvent]
				ifTrue: [handOrEvent hand].
	hand 
		addMorphBack: ((self class 
				newBounds: (hand lastEvent cursorPoint extent: 16 @ 16)) 
					setOtherSelection: self).
	oldOwner := owner.
	self world deleteAllHalos.	"Will delete me"
	oldOwner addMorph: self! !

OldPasteUpMorph removeSelector: #abandonAllHalos!
OldHandMorph removeSelector: #keyboardFocus:!
OldHandMorph removeSelector: #mouseFocus:!
