Rebol3 Saphir 中的自动标签大小调整

automatic label resizing in Rebol3 Saphir

我试图改进 the Tip Calculator example 一点,这样 "Total: " 就不会在您在提示字段中按回车键时消失:

REBOL [title: "Tip Calculator"]
view [
    f: field "49.99"
    hpanel [
        t: field "20" on-action [
            set-face x rejoin ["Total: " round/to to money! ((to-decimal get-face f) * ((to-decimal get-face t) * .01 + 1)) $.01 ]
        ]
        title "%"
    ]
    x: title "Total: " facets [ auto-size true ]
]

然而,auto-size 似乎无助于 x 经过计算仍然太瘦。这有效:

x: title "Total: " 150x20

...就像这样:

x: title "Total:                        "

...但是如何让它自动调整大小?

由于标题似乎来自 text,它被定义为 auto-size: false,这将是最用 auto-size 定义的样式替换标题的简单解决方案:true 例如 info

 x:  info "Total: " 

否则您将不得不重新定义您自己的标题样式,该样式源自自动调整大小样式。