> Hi David,
>
>
>
> Having “been there, done that” (with help from Steve, et al) hopefully
> the code below will save you A LOT of time. This area is complex!
>
>
>
> Hopefully you can sift through and adapt to your own requirements.
>
>
>
> Cheers,
>
>
>
> Stewart
>
>
>
>
> This code is for VW7.6.
>
>
>
> First some documentation…
>
>
>
> _lookDocumentation
>
>
>
> "From UILookPolicy class:
>
>
>
> systemAttributes
> <TextAttributes | nil> the system text style. If nil use
> TextAttributes default.
>
> systemMenuAttributes <TextAttributes | nil> the
> system menu label text style. If nil use systemAttributes instead.
>
> systemWidgetAttributes <TextAttributes | nil>
>
> the text style used in SimpleDialogs and on
> widgets if useSystemFontOnWidgets is true.
>
> nil means use systemAttributes instead.
>
> useSystemFontOnWidgets <Boolean> whether
> system font should be used on widgets.
>
>
>
> The actual concrete font used is found by sending
> currentFont to the TextAttributes.
>
> This matches the preferred FontDescription to the
> available fonts via
>
> FontPolicy>>findFont: aFontDescription
>
> which measures the fit via
>
> FontPolicy>>measureDistancesFrom: requestedFont to:
> concreteFont stopAt: limit.
>
>
>
> updatedQueryFor: takes the defaultQuery and adjusts the
> default values depending on a
>
> number of factors. See the internals of updateQueryFor:
>
>
>
>
> This method installs a new LookPolicy and calls the methods below.
>
>
>
> installLookPolicyClass: aClass
>
>
>
> "Note: MSWindowsFont>>defaultFontDescriptionIn: fontPolicy
> has been overriden to change the
>
> fonts that get used."
>
>
>
> aClass
>
> ifNil: [^self]
>
> ifNotNil: [self lookPolicyClass: aClass].
>
>
>
> self
>
> logLookSeparatorLine;
>
> log: 'Installing look policy <1p>...' with:
> self lookPolicyClass;
>
> logLook: ''.
>
>
>
> UIBuilder defaultPolicyClass == aClass "Don't reinstall,
> if already installed."
>
> ifFalse:
>
> [UIBuilder defaultPolicyClass:
> aClass.
>
> "Through the change/update
> mechanisim the following gets executed...
>
> ... aClass
> installLookPreferences.
>
> GraphicsDevice
> allOpenDevices do: [:each | each updateWidgetPolicy].
>
> Screen default
> updateWidgetPolicy"].
>
>
>
> UIBuilder defaultPolicyClass initialize. "Clears
> class variables..."
>
> "Needs to be true, so that systemWidgetAttributes gets
> used, rather than systemAttributes"
>
> UIBuilder defaultPolicyClass useSystemFontsOnWidgets:
> true.
>
> SymbolicPaint reinitializeAllSymbolicInformation.
> "Initialises WidgetPolicy defaultWigetColors class variable (need for
> new Vista look)."
>
>
>
> "Install any non default styles (if any)."
>
> ((self installTextStyle: self textStyle)
>
> | (self installWidgetStyle: self widgetStyle)
>
> | (self installMenuStyle: self widgetStyle deepCopy))
> "self menuStyle - uses same font as widgets for menus"
>
> ifTrue: [TextAttributes resetViews].
>
>
>
> "Restore the ui, as it intermittently collapses when
> changing looks."
>
> self ui ifNotNil: [: value | value restore]
>
>
>
>
>
>
>
>
> installTextStyle: aTextAttributes
>
>
>
> "Install aTextAttributes as:
>
>
>
> a) the value for #default, #systemDefault, and #'crunch
> style' within Graphics.TextAttributes.TextStyles
>
> b) the font that is used by VisualWorks to display textual
> information.
>
> This is stored in Graphics.TextConstants.DefaultTextStyle
> and set by sending
>
> TextAttributes setDefaultTo: aStyleName (which must have
> been previously defined within TextStyles),
>
> and is obtained via TextAttributes class>>default.
>
> c) the value of the systemAttributes class variable within
> the current UILookPolicy class
>
> See _lookDocumentation in this class."
>
>
>
> | styleName |
>
>
>
> aTextAttributes
>
> ifNil: [^false]
>
> ifNotNil: [self textStyle: aTextAttributes].
>
>
>
> self
>
> logLookSeparatorLine;
>
> logLook: 'Installing text style...'.
>
>
>
> TextAttributes
>
> styleNamed: (styleName := ('<1s> style' with:
> self baseName) asSymbol) put: aTextAttributes;
>
> setDefaultTo: styleName;
>
> styleNamed: #systemDefault put:
> aTextAttributes;
>
> styleNamed: #default put: aTextAttributes.
>
>
>
> "flushFonts, set FontPolicy?"
>
> aTextAttributes characterAttributes
>
> invalidateQueryCache;
>
> updatedQueryFor: Screen default
> defaultFontPolicy.
>
> "Causes flushGridding, to be invoked."
>
> Locale changed: #localeFonts with: true.
>
> InputManager setDefault.
>
>
>
> self logLook: 'Text style installed...'.
>
>
>
> ^true
>
>
> installWidgetStyle: aTextAttributes
>
>
>
> "Note: the initial
> widget font is set within the deployed system during packaging via
> configureData.
>
> Currently this is
> for XP and Vista only. The others are the system defaults."
>
>
>
> aTextAttributes
>
> ifNil:
> [^false]
>
> ifNotNil:
> [self widgetStyle: aTextAttributes].
>
>
>
> self
>
>
> logLookSeparatorLine;
>
> logLook:
> 'Installing widget style...'.
>
>
>
> "Tried this when
> having problem as a result of subtle scaling bug... leave incase need.
>
> aTextAttributes
> scalingFactor: 1.
>
> aTextAttributes
> characterAttributes enableScaling. noScaling; scalingFactor: 1."
>
> LookPreferences
> widgetPolicy lookPolicyClass
>
>
> systemWidgetTextStyle: aTextAttributes.
>
>
>
> aTextAttributes
> characterAttributes
>
>
> invalidateQueryCache;
>
>
> updatedQueryFor: Screen default defaultFontPolicy.
>
> "Causes
> flushGridding, to be invoked."
>
> Locale changed:
> #localeFonts with: true.
>
> InputManager
> setDefault.
>
>
>
> self logLook:
> 'Widget style installed...'.
>
>
>
> ^true
>
>
> installMenuStyle: aTextAttributes
>
>
>
> "Note: the initial
> widget font is set during packaging via
> CrunchConfiguration>>configureData.
>
> Works when just
> changing the widget style. Changing the look seems to behave
> differently.
>
> See below for
> previous version previously embedded within installTextStyle:
>
> Investigation notes:
>
> Screen default
> defaultFontPolicy. FontPolicy
>
> textStyle:
>
>
> PlatformCharacterAttributes"
>
>
>
> aTextAttributes
>
> ifNil:
> [^false]
>
> ifNotNil:
> [self menuStyle: aTextAttributes].
>
>
>
> self
>
>
> logLookSeparatorLine;
>
> logLook:
> 'Installing menu style...'.
>
>
>
> "Tried this when
> having problem as a result of subtle scaling bug... leave incase need.
>
> aTextAttributes
> scalingFactor: 1.
>
> aTextAttributes
> characterAttributes enableScaling. noScaling; scalingFactor: 1."
>
> LookPreferences
> widgetPolicy lookPolicyClass
>
>
> systemMenuAttributes: aTextAttributes.
>
>
>
> aTextAttributes
> characterAttributes
>
>
> invalidateQueryCache;
>
>
> updatedQueryFor: Screen default defaultFontPolicy.
>
> "Causes
> flushGridding, to be invoked."
>
> Locale changed:
> #localeFonts with: true.
>
> InputManager
> setDefault.
>
>
>
> self logLook:
> 'Widget style installed...'.
>
>
>
> "Previous version
> embedded within installTextStyle:...
>
> Keep the System Menu
> Text style in synch."
>
> "LookPreferences
> widgetPolicy lookPolicyClass
>
>
> systemMenuAttributes: nil; ""Need to set this to nil for menu
> fonts to change, FKW?""
>
>
> setSystemTextStyle: TextAttributes default."
>
>
>
> ^true
>
>
>
>
> Good luck!
>
>
>
> -----Original Message-----
> From:
[hidden email] [mailto:
[hidden email]] On
> Behalf Of David Long
> Sent: 30 June 2009 11:09 p.m.
> To: 'VWNC'
> Subject: [vwnc] Font changing - programmatically
>
>
>
> Hi everyone,
>
> I am working on changing the font for all the widgets in my
> application. I tried setting the default font in TextAttributes but it
> is only effecting a few things.
>
> How do you change the font for a SubCanvas and all the components it
> contains? Is there an relatively easy way to do this?
>
> thanks,
>
> David
>
>
> --
>
> CEO
> SageTea Group
> 613 722 2091 x 5
>
http://sageteagroup.com>
>
>
>
> _______________________________________________
> vwnc mailing list
>
[hidden email]
>
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
Locked
The Environment: