[ALLY] "new" experimental version of /View for Amiga ? Re:(2)
From: peoyli:algonet:se at: 12-Aug-2000 2:45
This is a MIME encoded multipart message. The fact that you are reading
this means you don't have a MIME capable mail program. You might still
be able to read part of the mail's content, but some of it may require
a MIME capable mail reader to decode. Following are some URLs where
you can find MIME-capable mail programs for common platforms:
Amiga............: MicroDot-II http://www.vapor.com/
Unix.............: Metamail ftp://ftp.bellcore.com/nsb/
Windows/Macintosh: Eudora http://www.qualcomm.com/
General info about MIME can be found at:
http://www.cis.ohio-state.edu/hypertext/faq/usenet/mail/mime-faq/top.html
--=_=8<==MD2399536B1-55F574AB==8<=_Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Hi,
I would appreciate if you would like to write that work around. It's
the horizontal scrolling I need, so I can see what I'm typing in the
fields, I have a solution for the vertical one (and also a better
working slider knob than those that are used everywhere).
I also need (in preferred order):
· some way to reactivate the input field
· to have the slider knob moving downwards as the text box fills
· (really not important, but nice) - change the scroller knob's size
to be relative to the visible/total lines
Wouldn't it be possible to use the code from a newer version of View
instead of writing new code ?
/PeO
> Hi,
>
> If you can't wait for the text scrolling, let me know I will write a work
> around for you (or tell you how to do it), but it won't be pretty (depends
> whether or not arrow key events are intercepted or not on the Amiga)
>
> It will be a waste of time really, if you can wait.
>
> Cheers,
>
> Allen K
>
> ----- Original Message -----
> From: <[peoyli--algonet--se]>
> To: <[ally--rebol--com]>
> Sent: Saturday, August 12, 2000 11:05 AM
> Subject: [ALLY] "new" experimental version of /View for Amiga ?
>
> >
> > Hi,
> >
> > I have noticed that just about every other platform except the Amiga
> > have had updates to View on the experimental releases page..
> >
> > When will there be _any_ newer version than 0.10.18 available for the
> > Amiga platform ?
> >
> > I need the text scrolling in fields and areas promised by version
> > 0.10.19..
> >
> > /PeO
> >
> >
> >
> > --
> > /* P-O Yliniemi, Bizlink Systems & Development AB
> *\
> > \* [peo--bizlink--se] | Solaris (SunOS 5.6-5.8), Perl, REBOL |
> [peoyli--algonet--se] */
> > /* +46-70-4663336 | CGI, (S)HTML, PHP, sql |
> +46-70-5685919 *\
> > \* | Apache, qmail, squid, BIND, IPFilter |
> +46-911-205474 */
> >
> >
>
--
/* P-O Yliniemi, Bizlink Systems & Development AB *\
\* [peo--bizlink--se] | Solaris (SunOS 5.6-5.8), Perl, REBOL | [peoyli--algonet--se] */
/* +46-70-4663336 | CGI, (S)HTML, PHP, sql | +46-70-5685919 *\
\* | Apache, qmail, squid, BIND, IPFilter | +46-911-205474 */
--=_=8<==MD2399536B1-55F574AB==8<=_Content-Type: text/plain; charset=us-ascii; name="viewtest.r"
Content-Transfer-Encoding: plain (7/8 bit)
Content-Disposition: attachment; filename="viewtest.r"
X-MD2-FilePath: Work:Programming/REBOL/viewtest.r
REBOL []
appname: "ViewTest 0.0.1"
fsize: 11
tboxlines: 10
tboxwidth: 250
tboxsize: to-pair rejoin [tboxwidth "x" tboxlines * fsize]
iboxsize: to-pair rejoin [tboxsize/x "x" fsize + 9]
fontspec: [
color: 0.255.0
shadow: none
name:"helvetica"
size: fsize
]
main: layout [
backdrop 200.0.200 with [effect: [gradient 1x1]]
origin 10x15
at 10x10 title appname
across ;space 2
at 10x50
text-face: text tboxsize with [para/origin/y: 0 text: rejoin ["Welcome to " appname]
color: 0.0.0 font: fontspec]
text-scroller: slider with [size/y: tboxsize/y size/x: 14] [
tsize: size-text text-face
if tsize/y > text-face/size/y
[
newy: negate ( (text-scroller/data - 1) / (text-scroller/size/y - 5) * (tsize/y - text-face/size/y)
)
text-face/para/origin/y: newy
]
; print rejoin [
; " text face height: " text-face/size/y
; " textsize: " tsize/y
; " scroller data: " text-scroller/data
; " newy: " newy
; ]
show text-face
]
below ;space 1
input-field: field iboxsize [handle-input input-field text-face]
]
handle-input: func [
"Get text from input-face, append it to dest-face and clear the text in the input-face."
input-face [object!]
dest-face [object!]
][
dest-face/text: rejoin [dest-face/text #"^/" input-face/text]
input-face/text: none
tsize: size-text dest-face
if tsize/y > dest-face/size/y [
dest-face/para/origin/y: text-face/size/y - tsize/y
text-scroller/data: text-scroller/size/y - 4
]
show dest-face
system/view/vid/vid-feel/focus input-face
show input-face
]
view/title/offset main appname 500x500
--=_=8<==MD2399536B1-55F574AB==8<=_=--
(end of MIME multipart message)
