Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Text-box resize

From: mattsmac::hotmail 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.