Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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