[REBOL] Re: Changing VID Styles
From: rebol:optushome:au at: 12-Dec-2001 19:02
Just swap set the feel for the behaviour you want. (You can do the same for
appearance too if you want)
REBOL []
info-feel: get in get-style 'info 'feel
field-feel: get in get-style 'field 'feel
swap-feel: func [face][
if find [info field] face/style [
face/feel: either (face/feel = field-feel) [
info-feel
][
field-feel
]
]
]
lay: layout [
field field field field
info field info
button "Swap Feel" [foreach f lay/pane [swap-feel f] show lay]
]
view lay
Cheers,
Allen K