fonts - tamaño - ¿Cómo puedo cambiar fácilmente a fuentes nativas en Smalltalk Squeak/Pharo?

google fonts

Question

Con cada nueva imagen de Squeak / Pharo, cambio inmediatamente las fuentes a alguna versión nativa. Se trata de una gran cantidad de clics del mouse y quiero guiar el proceso.

Answer 1

Encontré la respuesta, estaba buscando setSystemFontTo. El guion completo ahora es:

"Set fonts on Mac OS X"
defaultFont := LogicalFont familyName: ''Lucida Grande'' pointSize: 10 
   stretchValue:  5 weightValue: 400 slantValue: 0.
codeFont := LogicalFont familyName: ''Monaco'' pointSize: 10 
   stretchValue:  5 weightValue: 400 slantValue: 0.
Preferences setCodeFontTo: codeFont.
Preferences setWindowTitleFontTo: defaultFont.
Preferences setButtonFontTo: defaultFont.
Preferences setListFontTo: defaultFont.
Preferences setMenuFontTo: defaultFont.
Preferences setSystemFontTo: defaultFont.

Answer 2

La respuesta anterior podría estar desactualizada por ahora, al menos no funciona con mi imagen 3.10. entonces, uso esto:

defaultFont := LogicalFont familyName: ''Geneva'' pointSize: 10 emphasis:0 .
codeFont := LogicalFont familyName: ''Monaco'' pointSize: 10 emphasis:0.
Preferences setCodeFontTo: codeFont.
Preferences setWindowTitleFontTo: defaultFont.
Preferences setButtonFontTo: defaultFont.
Preferences setListFontTo: defaultFont.
Preferences setMenuFontTo: defaultFont.
Preferences setSystemFontTo: defaultFont.

Answer 3

Esta es la nueva forma de hacerlo en Pharo:

|font codeFont|

font := LogicalFont familyName: ''Bitmap DejaVu Sans'' pointSize: 10.
codeFont := LogicalFont familyName: ''Bitmap DejaVu Sans'' pointSize: 9.
StandardFonts listFont: codeFont.
StandardFonts menuFont: font.
StandardFonts codeFont: codeFont.
StandardFonts buttonFont: codeFont.
StandardFonts defaultFont: font.
StandardFonts windowTitleFont: font.

FreeTypeFontProvider current updateFromSystem.  

Answer 4

En Linux con Pharo 2.0, agregué el siguiente contenido a un archivo en un directorio especial que se lee automáticamente al iniciar la Imagen:

StartupLoader default executeAtomicItems: {
  StartupAction
    name: ''Use Free type''
    code: ''(Smalltalk at: #FreeTypeSystemSettings)
    perform: #loadFt2Library: with: (true)''
    runOnce: true.
  StartupAction name: ''Setting up fonts'' code: [
    |font codeFont|

    FileStream stdout lf; nextPutAll: ''Setting up fonts''; lf.

    font := LogicalFont familyName: ''DejaVu Sans'' pointSize: 12.
    codeFont := LogicalFont familyName: ''DejaVu Sans Mono'' pointSize: 12.
    StandardFonts listFont: codeFont.
    StandardFonts menuFont: font.
    StandardFonts codeFont: codeFont.
    StandardFonts buttonFont: codeFont.
    StandardFonts defaultFont: font.
    StandardFonts windowTitleFont: font.
    StandardFonts balloonFont: font.
    StandardFonts haloFont: font.

    FileStream stdout lf; nextPutAll: ''Finished''; lf].
}.

Este directorio especial puede ser revelado con

FileDirectory preferencesVersionFolder

Debería leer la documentación de la clase StartupLoader.