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

[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