[REBOL] Style facet + How to add a check to a layout
From: arolls:idatam:au at: 20-Nov-2001 19:47
Interesting, I noticed this:
>> c: make get-style 'check []
>> c/style
== BUTTON
>> layout [c: check]
>> c/style
== check
Obviously check is derived from a button,
which you can also see in the vid source
somewhere.
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.