Как я могу легко перейти на родные шрифты в Smalltalk Squeak / Pharo - PullRequest
Новая
       12

Как я могу легко перейти на родные шрифты в Smalltalk Squeak / Pharo

13 голосов
/ 22 февраля 2009

С каждым новым изображением Squeak / Pharo я немедленно заменяю шрифты на какую-то родную версию. Это много щелчков мышью, и я хочу написать сценарий процесса.

Ответы [ 4 ]

8 голосов
/ 10 мая 2009

Ответ выше может быть уже устаревшим, по крайней мере, он не работает с моим изображением 3.10. Итак, я использую это: 

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.
6 голосов
/ 19 сентября 2011

Это новый способ сделать это в 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.
6 голосов
/ 22 февраля 2009

Нашел ответ, искал setSystemFontTo. Полный скрипт теперь: 

"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.
4 голосов
/ 07 февраля 2013

В Linux с Pharo 2.0 я добавил следующее содержимое файла в специальный каталог, который автоматически читается при запуске образа: 

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].
}.

Этот специальный каталог можно открыть с помощью 

FileDirectory preferencesVersionFolder

Вы должны прочитать документацию по классу StartupLoader.

...