[REBOL] Re: Need a slider help with text-list!
From: greggirwin:mindspring at: 18-Nov-2001 20:29
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
