Hi Anton,

There's an easier and cleaner way to do it :

>> lay: layout [button "pane/1"]
>> append lay/pane make-face 'check     
>> view lay

Make-face will take care of all VID specific stuff for you.

-DocKimbel


Anton Rolls wrote:
[...]
> How to add a check to a layout:
> 
> >> lay: layout [button "pane/1"]
> >> view lay
> 
> Ok fine. Close the window.
> 
> >> append lay/pane make get-style 'check []
> == [
>     make object! [
>         type: 'face
>         offset: 20x20
>         size: 100x24
>         span: none
>         pane: none
>       ...
> >> view lay
> ** Script Error: find expected series argument of type: series port bitset
> ** Where: view
> ** Near: all [pos: find face/effect 'cross remove pos]
> if face/data [insert face/effect 'cross]
> 
> Oh no! Find is expecting the effect facet to be a block (which is a series).
> Ok, we just add an effect block to it, then.
> 
> >> unview
> >> lay/pane/2: make get-style 'check [effect: []]
> == [
>     make object! [
>         type: 'face
>         offset: 20x20
>         size: 100x24
>         span: none
>         pane: none
>       ...
> >> view lay
> 
> Anton.
-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to