Smalltalk 如何更改Pharo中文本字段的字体？

在Pharo中，我在更改特定字段的字体时遇到问题。我正在对OpenModel文件使用UITheme。以下是我的代码参考：

openModal
|builder dialog content login|

builder := UITheme builder.
content := (builder newLabelGroup: {
        'Login' -> (login := (builder
                                        newTextEntryFor: contact 
                                        getText: #login
                                        setText: #login:
                                        help: 'Enter the login of the user')
                                    acceptOnCR: false;
                                    minWidth: 200).
        'Full name' -> ((builder
                        newTextEntryFor: contact 
                        getText: #fullName 
                        setText: #fullName: 
                        help: 'Enter the full name of the user.')
                    acceptOnCR: false;
                    minWidth: 200).
        'Password' -> ((builder
                        newTextEntryFor: contact 
                        getText: #password 
                        setText: #password: 
                        help: 'Enter the password of the user.')
                    acceptOnCR: false;
                    minWidth: 200)
}).

dialog := builder newPluggableDialogWindow:'Edit contact' for: content.
dialog rememberKeyboardFocus: login.
builder openModal: dialog.

我在这里查找了TextMorph这样的包，但是我找不到一种方法来实现它，即修改对话框某个字段的字体，特别是密码（将其更改为密码字体）。我该怎么做呢

---

还欢迎使用现有软件包的解决方案。

您可以在生成器返回的小部件上设置字体， 类似于调用acceptOnCr或minWidth。 例如：

    login := (builder
    newTextEntryFor: 'contact'
    getText: #login
    setText: #login:
    help: 'Enter the login of the user')
    font: StandardFonts codeFont;
    acceptOnCR: false;
    minWidth: 200;
    font: StandardFont codeFont

或者对于密码输入字段，只需调用

beEncrypted