'From etoys2.2 of 22 September 2007 [latest update: #1715] on 19 October 2007 at 1:52:11 am'!
"Change Set:		UpdBtnFontFix-KR
Date:			19 October 2007
Author:			Korakurider

FIX for TRAC 4150: when change language, font for ticking button in scriptor is lost
"!


!UpdatingSimpleButtonMorph methodsFor: 'as yet unclassified' stamp: 'KR 10/19/2007 01:44'!
label: aString font: aFont

	| oldLabel m fnt |
	(oldLabel _ self findA: StringMorph)
		ifNotNil: [oldLabel delete].
	fnt _ aFont ifNil: [Preferences standardButtonFont].
	self font: fnt.
	m _ StringMorph contents: aString font: fnt.
	self extent: (m width + 6) @ (m height + 2).  "it is really bad habit to put numbers these places."
	m position: self center - (m extent // 2).
	self addMorph: m.
	m lock
! !