Hi Jon,

<< I have a text-list - I want to add a slider (I don't care if it's fat,
ugly or pink; just as long as it works) to this text-list.  Can anyone
suggest a simple solution?  Something like the slider in edit would be VERY
useful. >>

text-list should already have the slider attached to it. If you're dealing
with a text area control, here's some code Ammon Johnson sent me a while
back that links sliders to a text area. It adds the area and sliders to a
layout block dynamically, as that fit my need.

    append main-layout [return h1: space 0 text-1: area 630x200 with [
        color: 240.240.240
        font: [name: font-fixed]
        feel: make feel [redraw: none]
    ] para [origin: 4x4]
    s1: slider 16x200 [
        size: size-text text-1
        text-1/para/origin/y: s1/data - 1 * (negate size/y) - size/y + 2
show text-1
    ]
    at (h1 + 0x200) s2: slider 630x16 [
        size: size-text text-1
        text-1/para/origin/x: s2/data - 1 * (negate size/x) - size/x + 2
        text-1/line-list: none show text-1
    ]]

HTH!

--Gregg

-- 
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the 
subject, without the quotes.

Reply via email to