Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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.