Reputation: 38190
I tried this code snippet like in rebol:
View [button "colored" 100.0.0]
but the button is still in grey.
Upvotes: 1
Views: 117
Reputation: 3199
Such feature is not supported yet when using native button widget. Though, you can create a custom button easily using the versatile base
face type:
view [
base red
on-down [face/color: face/color / 2]
on-up [face/color: face/color * 2]
]
You can also create a new custom style out of that (requires at least Red autobuild from master branch from Jan 3rd, 2019):
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"]
]
Upvotes: 0