[REBOL] Text-box resize
From: mattsmac::hotmail::com at: 19-Sep-2003 8:09
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
_________________________________________________________________
Get 10MB of e-mail storage! Sign up for Hotmail Extra Storage.