Try:
l: layout [b: button "test" [print "action code"]]
b/feel: make b/feel [
old-engage: :engage
engage: func [face action event][
print action
old-engage face action event
]
]
view l
You can also make it a style (a new reusable object):
l: layout [
style new-button button feel [
old-engage: :engage
engage: func [face action event][
print action
old-engage face action event
]
]
new-button "test1" [print "action code 1"]
new-button "test2" [print "action code 2"]
]
view l
---
Ciao
Romano
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
