如何用红色按钮？

Question

我在rebol中尝试了这段代码：

View [button "colored" 100.0.0]

但按钮仍为灰色。

Answer 1

使用本机按钮窗口小部件时尚不支持此功能。不过，您可以使用通用的base面孔类型轻松创建自定义按钮：

view [
    base red
        on-down [face/color: face/color / 2]
        on-up   [face/color: face/color * 2]
]

您还可以从中创建新的自定义样式（从2019年1月3日起至少需要从master分支进行Red autobuild）：

view [
    style but: base
        on-down [face/color: face/color / 2 do-actor face event 'click]
        on-up   [face/color: face/color * 2]

    but "Say hi!" red on-click [print "hi"]
]