• see also:
• styles//area//scrolling [2/2]
• · styles//slider//redrag [2/2]
• · vid//scrolling [2/2]
• · vid//styles//area  [3/4]
• · vid//styles//slider [2/2]
• · view//scrolling  [7/8]
• || [help]

[REBOL] Re: [vid] Re: Text Area scroll.

From: g:santilli:tiscalinet:it at: 11-Dec-2003 11:10

Hi Phil,

On Thursday, December 11, 2003, 4:41:52 AM, you wrote:

puc> Does anyone know why I had to insert the ugly line
puc> 	if all [sl/data = 1 tmp = 1] [tmp: 0.999]
puc> in this code.

IIRC this is a workaround for a bug in slider/redrag.

I use this patch that fixes the bug:

        Slider: Slider with [
            use [c] [
                c: second :redrag
                either 15470763 = checksum mold c [
                    insert c [state: none]
                ] [print "CANNOT APPLY SLIDER PATCH!"]
            ]
        ]
        Scroller: Scroller with [
            use [c] [
                c: second :redrag
                either 15470763 = checksum mold c [
                    insert c [state: none]
                ] [print "CANNOT APPLY SCROLLER PATCH!"]
            ]
        ]

Regards,
   Gabriele.
--
Gabriele Santilli <[g--santilli--tiscalinet--it]>  --  REBOL Programmer
Amiga Group Italia sez. L'Aquila  ---   SOON: http://www.rebol.it/

1 · [2] · 3 · 4 · See whole thread