[REBOL] Re: Text-list heartache

From: gjones05:mail:orion at: 15-Jun-2001 7:59

From: "Colin"
> Could someone put me out of my misery here?
>
> I'm trying to reset a VID text-list: i.e.
> --no items picked;
> --the list rescrolled to the top;
> --the slider reset to the top.
>
> I can achieve the first two (with the help of /picked and /sn) but the third
> eludes me.
>
> Example:
>
> MyList: copy []
> loop 50 [append MyList length? Mylist]
> unview/all

> view layout [MyBox: text-list data Mylist
>              button "Reset" [clear myBox/picked
>                              MyBox/sn: 0
>                              Show MyBox
>                             ] ; button action
>             ] ;layout

Hi, Colin,

I believe the silver bullet that you need for the script (not yourself) is to
set the slider data to 0.  Try:

MyList: copy []
loop 50 [append MyList length? Mylist]
unview/all
view layout [
    MyBox: text-list data Mylist
    button "Reset" [
        clear myBox/picked
        MyBox/sn: 0
        MyBox/sld/data: 0
        Show MyBox
    ] ; button action
] ;layout

--Scott Jones

1 · [2] · 3 · See whole thread