'From etoys2.2 of 1 October 2007 [latest update: #1796] on 1 December 2007 at 9:13:06 pm'!
"Change Set:		ScriptActivationButtonLabel
Date:			1 December 2007
Author:			Karl Ramberg

Set the right font for the new label"!


!ScriptActivationButton methodsFor: 'miscellaneous' stamp: 'kfr 12/1/2007 21:11'!
setLabel
	"Allow the user to enter a new label for this button"

	| newLabel existing |
	existing _ self label.
	newLabel _ FillInTheBlank
		request: 'Please enter a new label for this button'
		initialAnswer: existing.
	(newLabel isEmptyOrNil not and: [newLabel ~= existing]) ifTrue:
		[self setProperty: #labelManuallyEdited toValue: true.
		self label: newLabel font: Preferences standardEToysButtonFont].
! !