[REBOL] [VID][edge] How do I remove 'bevel from edge?

From: atruter:labyrinth:au at: 13-Feb-2004 17:17

Here's one for the VID gurus. Given the following code (change "Wingdings
for non-Windows boxen):

<code>

stylize/master: [
	chk: FACE 24x24 with [
		color: white
		font: [
			name:
Wingdings"
			align: 'center
			valign: 'bottom
			style: 'bold
			shadow: none
			colors: reduce [leaf leaf]
		]
		image: effects: para: none
		edge: [size: 1x1 color: black]
		feel: svvf/toggle flags: [toggle]
		init: [
			size/y: size/x
			edge: make edge []
			edge/effect: none
			font: make font []
			font/size: to integer! size/y * .75
			font/color: first font/colors
			texts: copy ["" "=FC"]
		]
	]
]

view layout [chk 16 chk 24 a: chk 48]

</code>

The borders of the box flicker slightly as:

>> help a/edge
A/EDGE is an object of value:
    color           tuple!    0.0.0
    image           none!     none
    effect          word!     bevel
    size            pair!     1x1

even though "edge/effect" is set to 'none. So the question is, how can I
set edge/effect to 'none?

Regards,

	Ashley

[1] · 2 · 3 · 4 · See whole thread