[REBOL] Re: Help with text scroll in /View
From: carlos:lorenz:bol at: 11-Sep-2003 8:54
Thank you very much Anton,
That what I was in need
Carlos
Em Qui 11 Set 2003 08:43, Anton Rolls escreveu:
> Just quick initial investigations...
> Look into here:
>
> print mold get in ctx-text 'edit-text
>
> area/feel uses edit-text when keys are pressed,
> so look how it handles down key, for example.
>
> Also try this example, but you can see some
> hardcoded stuff.
>
> view layout [
> a: area 200x40
> button "add" [
> append a/text rejoin [now/time/precise newline]
> a/para/scroll: (size-text a) * 0x1 / 1x-1 + 12x46
> show a
> ]
> ]
>
> Better to try to see how edit-text works.
>
> Anton.
>
> > Hello list
> >
> > I need a help to make the msg/text scroll up
> > when area is full of text.
> > Thank you
> > Carlos
> >
> > ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
> >
> > REBOL[
> > ]
> >
> >
> > loop: func[time][
> > msg/text: rejoin [msg/text time newline]
> > show msg
> > ]
> >
> > view layout [
> > title {Scrool ?}
> > msg: area 160x120
> > button "click me" [
> > loop now
> > ]
> > ]
--
Carlos Lorenz
--
Kurumin é 10
www.kurumin.org