<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p><font face="Georgia">You might want to look at something like:</font></p>
<p><font face="Georgia">setSystemFontTo: aFont<br>
"Establish the default text font and style"<br>
<br>
| aStyle newDefaultStyle |<br>
aFont ifNil: [^ self].<br>
aStyle := aFont textStyle ifNil: [^ self].<br>
newDefaultStyle := aStyle copy.<br>
newDefaultStyle defaultFontIndex: (aStyle fontIndexOf:
aFont).<br>
<br>
UserInterfaceTheme current<br>
set: #standardSystemFont to: aFont;<br>
apply.<br>
<br>
TextStyle setDefault: newDefaultStyle.<br>
Flaps replaceToolsFlap.<br>
ScriptingSystem resetStandardPartsBin.</font></p>
<p><font face="Georgia">which when you change the system font does
an #apply of the current theme. I found that changing the font
from 12 point serif to 12 point sans serif made radical changes
in the size of open windows.</font><br>
</p>
<br>
<div class="moz-cite-prefix">On 4/23/17 12:26 AM, tim Rowledge
wrote:<br>
</div>
<blockquote type="cite"
cite="mid:69325398-B992-458F-8E7B-23F396A16EAB@rowledge.org">
<pre wrap="">
</pre>
<blockquote type="cite">
<pre wrap="">On 22-04-2017, at 10:51 AM, tim Rowledge <a class="moz-txt-link-rfc2396E" href="mailto:tim@rowledge.org"><tim@rowledge.org></a> wrote:
A side-weirdness just to make life interesting was that the first time I changed the default find using the font chooser the screen background suddenly reverted to the dark gray linen pattern. I haven’t been able to spot a code path that could explain that and it doesn’t seem to happen now so… haunted image?
</pre>
</blockquote>
<pre wrap="">
I’ve tried this again in a recent image - I tried a 16963 update- and 'World menu’->’appearance’->’system fonts’-> ‘default text font’, then choose a font and apply. Whoosh, desktop pattern changes.
Funny thing is this won’t repeat. And it doesn’t happen in a completely plain image, only one where I had loaded my.prefs some time previously; and yet not in a plain 16549 image where I loaded my.prefs and tried the font change. Curiouser and curiouserer. I can offer a sample image if anyone (like say, Marcel or TimF) is interested.
tim
--
tim Rowledge; <a class="moz-txt-link-abbreviated" href="mailto:tim@rowledge.org">tim@rowledge.org</a>; <a class="moz-txt-link-freetext" href="http://www.rowledge.org/tim">http://www.rowledge.org/tim</a>
Useful Latin Phrases:- Quantum materiae materietur marmota monax si marmota monax materiam possit materiari? = How much wood would a woodchuck chuck if a woodchuck could chuck wood?
</pre>
</blockquote>
<br>
</body>
</html>