[REBOL] Re: horizontal scroll?
From: hijim:pronet at: 2-Aug-2001 19:59
I changed the scroll-to function to
scroll-to: func [txt /local xy] [
xy: (caret-to-offset text-file txt) - text-file/para/scroll
text-file/para/scroll: min 0x0 text-file/size / 1.05 - xy
my-slider/data: (second xy) / max 1 second size-text text-file
]
1.05 instead of 2 eliminates the horizontal scrolling, but it puts the found
text on the bottom line of the display instead of in the center. If there's
a simple way of scrolling the text up 2 or 3 lines, I'd like to know it. I'm
still experimenting, so I may find the answer.
Jim
