[REBOL] Re: Text-box resize
From: mattsmac:hotm:ail at: 19-Sep-2003 8:40
Whoops, I meant the /sld path
>From: "Matt MacDonald" <[mattsmac--hotmail--com]>
>Reply-To: [rebol-list--rebol--com]
>To: [rebol-list--rebol--com]
>Subject: [REBOL] Text-box resize
>Date: Fri, 19 Sep 2003 08:09:31 -0400
>
>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.
>http://join.msn.com/?PAGE=features/es
>
>--
>To unsubscribe from this list, just send an email to
>[rebol-request--rebol--com] with unsubscribe as the subject.
>
_________________________________________________________________
Compare Cable, DSL or Satellite plans: As low as $29.95.
