'From etoys3.0 of 24 February 2008 [latest update: #2036] on 20 June 2008 at 10:58:19 am'!
"Change Set:		pangoRecompose-yo
Date:			20 June 2008
Author:			Yoshiki Ohshima

Call composeToBounds upon use pango flag change so that the editor knows what happened.
Also LanguageEnvironment startUp is less eager to change it on its own."!


!LanguageEnvironment class methodsFor: 'private' stamp: 'yo 6/20/2008 10:55'!
setUsePangoFlag

	| new old |
	old := Preferences usePangoRenderer.
	new := RomePluginCanvas pangoIsAvailable.
	new ~~ old ifTrue: [
		Preferences setPreference: #usePangoRenderer toValue: new.
		TextMorph usePango: new.
	].! !


!TextMorph methodsFor: '*pango' stamp: 'yo 6/20/2008 10:46'!
usePango: aBoolean

	usePango := aBoolean.
	self composeToBounds.
	text runs clearCache.
! !

"Postscript:"
Preferences disable: #usePangoRenderer.
Preferences enable: #usePangoRenderer.
!