'From Squeak3.7 of ''4 September 2004'' [latest update: #5989] on 20 August 2008 at 12:51:22 pm'!

!OldHandMorph methodsFor: 'focus handling' stamp: 'jmv 8/19/2008 10:35'!
navigationFocus: aMorph
	| sameAsOld |
	sameAsOld _ aMorph == navigationFocus.
	self newKeyboardFocus: aMorph.
	(sameAsOld not and: [navigationFocus notNil]) ifTrue: [
		navigationFocus lostNavigationFocus].
	navigationFocus _ (aMorph == World) ifTrue: [nil] ifFalse: [aMorph].
	(sameAsOld not and: [navigationFocus notNil]) ifTrue: [
		navigationFocus gotNavigationFocus].

! !

