Pharo4 Spec GUI: Как изменить размер шрифта

Question

Я думаю о программировании моего следующего проекта на Pharo. Для этого мне нужно будет создать монитор состояния, который будет виден издалека. Графический интерфейс очень прост. В основном только несколько ярлыков и кнопок. Вот проблема: мне нужно, чтобы шрифт был достаточно большим, чтобы его можно было увидеть издалека. Как мне этого добиться? Вот пример кода. Моим двум ярлыкам нужно изменить свой шрифт:

initializeWidgets
  last1 := self newLabel.
  last1 label: '88,88'.

  last2 := self newLabel.
  last2 label: '99,99'.

Большое спасибо!!!

Answer 1

Пока не очень хорошо поддерживается. Вы можете обойти эту проблему, сбросив шрифт при сборке виджета:

|lm|
lm:=LabelModel new.
lm label:'Hello'.
lm whenBuiltDo: [ :w | w widget font: (LogicalFont familyName: 'Source Code Pro' pointSize: 30)].
lm openWithSpec.

Answer 2

Когда используешь lm whenBuiltDo:в пределах initializeWidgetsМетод ComposableModel Мы получаем не LabelModel, как в предложении выше, но MorphicLabelAdapter. Тот снова понимает виджет и возвращает LabelModel. Итак, приведенный выше пример необходимо прочитать:

... lm whenBuiltDo: [ :w | w widget widget font: (LogicalFont familyName: 'Source Code Pro' pointSize: 30)]. lm openWithSpec.