'From Moshi of 3 March 2007 [latest update: #247] on 18 July 2007 at 10:14:29 am'!
"Change Set:		moribundWatcher-sw
Date:			18 July 2007
Author:			Scott Wallace

When a user removes an inst var from a player, get rid of problematical watchers of that variable that may be lingering.

Cross-published from Moshi update 0248moribundWatcher-sw"!


!Player methodsFor: 'slots-user' stamp: 'sw 7/17/2007 04:47'!
removeSlotNamed: aSlotName
	"The user has requested that an instance variable be removed..."

	self basicRemoveSlotNamed: aSlotName.
	self removeWatchersOfSlotNamed: aSlotName! !

!Player methodsFor: 'translation' stamp: 'sw 7/17/2007 23:22'!
removeWatchersOfSlotNamed: aName
	"A variable has been removed.  Deal with possible watchers."

	| aGetter |
	aGetter _ Utilities getterSelectorFor: aName.
	self allPossibleWatchersFromWorld do: [:aWatcher |
		(aWatcher getSelector = aGetter) ifTrue:
			[aWatcher stopStepping.
			(aWatcher ownerThatIsA: WatcherWrapper) ifNotNilDo:
				[:aWrapper | aWrapper delete]]]! !