Rebol Programming/svv
SVV is an object of value:
verbose logic! false warn logic! false word-limits block! length: 2 image-stock block! length: 75 vid-feel object! [sensor hot hot-area reset-related-faces check check-radio led button btn icon subicon toggle tog rotary choice choice-iterator drag-off drag slide move-drag scroll scroll-button progress dropdown] icon-image image! size: 48x48 radio.bmp image! size: 13x13 radio-on.bmp image! size: 13x13 vid-colors object! [font body button bevel title field field-select field-font] vid-face object! [type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action state access style alt-action facets related words colors texts images file var keycode reset styles init multi blinker pane-size dirty? help user-data flags doc] state-flags block! length: 3 vid-words block! length: 17 vid-styles block! length: 120 track function! [blk] error function! [msg spot] warning function! [blk] facet-words block! length: 51 fw-with block! length: 38 fw-feel block! length: 47 spot none! none expand-specs function! [face specs /local here] grow-facets function! [new args /local pairs texts images colors files b... do-facets function! Build block of parameters (and attribute words) wh... next-tab function! [tabs way where] choice-face object! [type offset size span pane text color image effect data edge font para feel saved-area rate show? options parent-face old-offset old-size line-list changes face-flags action way mway iway iter-face item-size evt-func] set-edge function! [face type args]