Mailing List Archive: Re: Fwd: Colors and image in a text-list

[REBOL] Re: Fwd: Colors and image in a text-list

From: dockimbel:free at: 6-Jul-2001 12:27


Hi Etienne,


It's not an easy task and it won't work as you expected (it was not designed to work 
like this).


Firstly, you have to go deeper in the text-list structure to access the slider properties. 
You can access the

slider object through the 'sld facet and the drag bar object with 'sld/dragger. Also, 
reading text-list source
code can help you understand how it works :

save %text-list.r get-style 'text-list
save %slider.r get-style 'slider


Secondly, the facets you're setting in the 'with block can be modified, at run-time, 
by the execution of the
'init block. There's 2 solutions :


* Modify your facets after the view objects have been builded with the 'do keyword in 
your VID code.

* Use the 'init-last facet from my modified 'layout (in the Win95-skin package) to keep 
your code at
  the stylesheet level.

Here's a solution using 'do keyword :

view layout [
    styles tpl-base-skins
    tl: my-text-list 200x80 data ["one" "two" "three" "four" "five" "six" "seven"]
    do [
        tl/sld/color: 70.130.180
        tl/sld/dragger/color: 180.180.180
        tl/sld/dragger/effect: [grid 1200x4 230.230.230]
        tl/sld/dragger/image: img-slider
    ]
]

HTH,

DocKimbel.

Etienne ALAURENT wrote: