Can you send a simple example script, complete, so we can see exactly what you mean?
I have a list + scroller demo here: http://www.lexicon.net/anton/rebol/gui/demo-vid-list-scroller.r Here is an excerpt that might fix you up quickly: refresh: func [ /local visible non-visible-part ][ l-block: copy [] ; ensure current position can show all its data visible: n-rows / length? list-data scroll/data: max min scroll/data (1.0 - visible) 0.0 ;scroll/data: 0 ; current position first row ;prepare-list-block 1 ; show from first row prepare-list-block 1 + to-integer ((length? list-data) - 1 * scroll/data) ; overall size of the scroller, height same as list scroll/size: to-pair reduce [16 max list-size/y 16] non-visible-part: (length? list-data) - n-rows ; arrow buttons cause the slider to move by the value of step scroll/step: either zero? non-visible-part [0][1 / non-visible-part] ; size of the slider (the drag bar) scroll/redrag (n-rows / length? list-data) show [my-list scroll] ] Anton. > Any Help you can lend would be appreciated... > > Does anyone happen to know what path in a text-list object I need > to modify > to make the scroll bar move to the appropriate place after i > change the size > of the text-list? If I just change the offset of the /scrl path, i cannot > move it any farther to the right than it started. Something about the > viewable area of the text list perhaps? Here is my code as of now. > > resize-areas: does > [ > content/size/1: main-form/size/1 - 50 <-----area > files/size/1: main-form/size/1 - 50 <--------text-list > scroller/offset/1: content/offset/1 + content/size/1 <----- slider > > show content > show scroller > show files > ] > > evt-close: func [face event] > [ > switch event/type > [ > close > [ > if connected = 1 > [ > close remote > ;clean up created files > if exists? %preview.html > [delete %preview.html] > if exists? %print.html > [delete %print.html] > if exists? %temp.html > [delete %temp.html] > if exists? %header.gif > [delete %header.gif] > ] > quit > ] > resize > [ > resize-areas > focus main-form > ] > ] > event > ] > > This works fine for resizing the area automatically, and the > text-list does > resize as well, but the scroll bar for it still hangs out in the middle of > the now larger list. > > Let me know what you think, > > Matt -- To unsubscribe from this list, just send an email to [EMAIL PROTECTED] with unsubscribe as the subject.
