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

From: brett:codeconscious at: 15-Feb-2004 17:40

Hi Ashley,

> I've now got it working by this simple addition to the 'init block:
>
> feel/redraw: func [face act pos][
> face/text: either face/state [face/texts/2] [face/texts/1]
> ]

There is only one small problem with your change - you are modifying the
shared feel object. Instead of using init, you can create a new feel object
inside the With block:

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]

        ; Create a new object using old as template.
        feel: make svvf/toggle [
            redraw: func [face act pos] [
                face/text: either face/state [face/texts/2] [
                    face/texts/1]
            ]
        ]

        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]

> It never ceases to amaze me just how elegant VID is! ;)
Me 2!

Regards,
Brett.

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