Changer les polices de Squeak

Squeak est un environnement Smalltalk fascinant qui mérite d’être plus connu qu’il n’est aujourd’hui.

Comme pour tout avec Squeak, les polices (qui, il faut bien l’avouer, sont assez laides) peuvent être changées facilement : ouvrez le menu World>>appearence>>System fonts…

Si comme moi vous n’êtes pas satisfait du jeu de polices fourni par défaut, vous pouvez en ajouter. J’ai choisi par exemple les polices Freetype, disponibles en archive Squeak ici. Pour l’installer ouvrez le menu world>>open…>>file list, séléctionnez l’archive, puis cliquez sur install.
L’archive semble contenir un bug, que vous pouvez corriger en ajoutant ce bout de code :

FT2Font>>displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY
"Draw the given string from startIndex to stopIndex
at aPoint on the (already prepared) BitBlt."

aBitBlt displayFT2String: aString
from: startIndex
to: stopIndex
at: aPoint
strikeFont: self
kern: kernDelta.

Le tour est joué, vous n’avez plus qu’à séléctionner les polices Freetype dans le menu System fonts.

Le résultat en images, la première avec les polices par défaut et la deuxième avec la police Freetype :

EDIT :  Si vous utilisez une version 3.9 ou 3.10 de l’image, vous pouvez installer le package Freetype Plus disponible dans Universe.