'From etoys3.0 of 24 February 2008 [latest update: #2104] on 27 August 2008 at 8:47:47 pm'!
"Change Set:		idSlotNameChange-yo
Date:			27 August 2008
Author:			Yoshiki Ohshima

Short cut the actual process when the name specified is the same."!


!Player methodsFor: 'slots-user' stamp: 'yo 8/27/2008 20:44'!
renameSlot: oldSlotName 
	| reply newSlotName |
	reply := FillInTheBlank request: 'New name for "' translated , oldSlotName , '":'
				initialAnswer: oldSlotName.
	reply isEmpty ifTrue: [^self].
	newSlotName := ScriptingSystem 
				acceptableSlotNameFrom: reply
				forSlotCurrentlyNamed: oldSlotName
				asSlotNameIn: self
				world: self costume currentWorld.
	oldSlotName = newSlotName ifTrue: [^ self].
	self renameSlot: oldSlotName newSlotName: newSlotName! !