Ugly font in VW7.0 on Windows 98
Quote:
> I finally downloaded VisualWorks 7.0 NC on my Windows 98 and I found out
> that significant amount of text (including all menus) is in very narrow,
> very hard to read font. Look at http://www.fuxoft.cz/tmp/uglyfont.gif
> too see screen capture from my desktop. Where can I change this??? My VW
> 5i.4 NC always displayed and still displays "normal" font.
I don't know if the following is the easiest way but it should work.
Redefine the font name selectors in the various
VariableSizeTextAttributes class>>#initializeXXX methods. There is one
for each "font scheme" we support, which can be selected between using
the Launcher->Syetem->Settings->Text slice. e.g. here is
VariableSizeTextAttributes class>>#initializeDefault for the Default
scheme.
initializeDefault
| style cStyle |
cStyle := VariableCharacterAttributes newWithDefaultAttributes.
cStyle setDefaultQuery: (FontDescription new
family: #('helv' 'helvetica' 'arial' '*');
manufacturer: #('adobe' '*');
fixedWidth: false;
serif: false;
italic: false;
boldness: 0.5;
pixelSize: 12 "The actual value will be set later").
style := self new.
style setCharacterAttributes: cStyle.
style scalingFactor: 1.0.
style install.
self styleNamed: #systemDefault put: style.
self styleNamed: #default put: style
Change #('helv' 'helvetica' 'arial' '*') to something you prefer, e.g.
#('arial' '*')
save the image (e.g. to something new like testfonts.im) but don't quit,
and start-up testfonts.im. If you like it save the image. If you
don't, change it again, save as testfonts.im and startup testfonts.im.
Keep on going until you find a set you like...
We have better font selection facilities on the "to do" list.
HTH
--
_______________,,,^..^,,,____________________________
Eliot Miranda Smalltalk - Scene not herd
