R2 VID edge facet

I never have used the 'edge' facet until now, so I am trying it out. I don't know what the various options are supposed to look like, but when I make an example, they all look the same. Am I doing something wrong, or is this what it is supposed to look like? Thank you. R E B O L [ Title: 'VID test harness' ] ;; Paste code below to test view layout [ button 100x60 'bevel' edge [size: 10x10 color: red effect: [bevel]] button 100x60 'ibevel' edge [size: 10x10 color: red effect: [ibevel]] button 100x60 'bezel' edge [size: 10x10 color: red effect: [bezel]] button 100x60 'ibezel' edge [size: 10x10 color: red effect: [ibezel]] button 100x60 'nubs' edge [size: 10x10 color: red effect: [nubs]] return button 100x60 'bevel' edge [size: 10x10 color: green effect: 'bevel] button 100x60 'ibevel' edge [size: 10x10 color: green effect: 'ibevel] button 100x60 'bezel' edge [size: 10x10 color: green effect: 'bezel] button 100x60 'ibezel' edge [size: 10x10 color: green effect: 'ibezel] button 100x60 'nubs' edge [size: 10x10 color: green effect: 'nubs] ]

I think the EDGE/EFFECT should not be a block, so you can dispense with those. To help diagnose the problem, I substitute the BOX style for the BUTTON style, as it's a simpler style. view layout [box 100x60 edge [size: 10x10 color: red effect: 'ibezel]] To see what BUTTON does with its EDGE facet, take a look at the code here: print mold system/view/vid/vid-styles/button Look near the beginning, you see the EDGE object: edge: make object! [ color: 110.120.130 image: none effect: 'bevel size: 2x2 ] Look at the INIT block, you see this line: edge: make edge [] Look at the FEEL object, in REDRAW function, you see face/edge/effect is being set dependent on face/state only; it does not take into account any custom EDGE/EFFECT. So BUTTON is not so easily customized, in some ways. It can be done, though. You can customize the FEEL/REDRAW function; either modify the one that you're supplied, or replace it; For example, here I replace the FEEL/REDRAW function with a quick hack: view layout [b: button 100x60 edge [size: 10x10 color: red] feel [redraw: func [face action event][face/edge/effect: pick [ibezel bezel] face/state]]] If you look at the original BUTTON FEEL, you will see I left out most of the code to keep the example short; you can add it back in if you need it.