[REBOL] Useful function click-face
From: arolls:idatam:au at: 11-Jan-2002 19:44
Here is a little function some people might
find handy. (I get the vague feeling I saw
someone else using a function like this already).
click-face: func [face][face/feel/engage face 'down none]
; simple example
view layout [
chk: check text "click me" [click-face chk]
]
; more complicated
view center-face layout [
across
chk: check pad 0x-3 label "click me" [click-face chk] return
rad1: radio pad 0x-2 label "option 1" [click-face rad1] return
rad2: radio pad 0x-2 label "option 2" [click-face rad2]
]
Notice the use of pad to line up the labels better with the
checks and radios.
You could probably use click-face in a variety of situations
on different types of gadgets.
Anton.