[REBOL] Re: AW: Rebol IRSee.r Discussing all things Rebol
From: depotcity:telus at: 3-May-2001 10:01
Hi.
I noticed the button aspect when scrolling... Alan Kamp suggested the
following..
Hi Terry,
{Perhaps a bit more information on series will help with understanding what
is happening here with the message/text string
http://www.rebol.com/docs/core23/rebolcore-6.html#78912
Cheers,
Allen K}
I went over the doc (very helpful) but I still don't understand why the text
on the buttons would scroll?
I'll double the size of the text to 2k, (a fresh version can be had at the
LFReD rebsite) but it would be nice to have the text scroll down with each
input, and then back to the top once the pane is refreshed.
Anybody?
TBrownell
----- Original Message -----
From: "Thorsten Moeller" <[moeller_thorsten--GMX--De]>
To: <[rebol-list--rebol--com]>
Sent: Thursday, May 03, 2001 12:14 AM
Subject: [REBOL] AW: Rebol IRSee.r Discussing all things Rebol
Hi Terry,
just tried out your little tool. Very nice, but some things should be fixed.
1. If you scroll down and then move your mouse over the buttons, their text
vanish.
2. The text input field should be a little bigger for longer messages.
Just some suggestions:-)
Thorsten
-----Ursprüngliche Nachricht-----
Von: [rebol-bounce--rebol--com] [mailto:[rebol-bounce--rebol--com]]Im Auftrag
von Terry Brownell
Gesendet: Mittwoch, 2. Mai 2001 21:15
An: Rebol List
Betreff: [REBOL] Rebol IRSee.r Discussing all things Rebol
Hello All
Here's a simple IRC script... (also on the LFReD rebsite)
Complete with profanity filter.
The text field will refresh itself after 1000 characters... (an autoscroll
feature would be nice)
Any ideas or suggestions?
Terry Brownell
REBOL [
Title: "LFReD IRSee"
Author: "Terry Brownell"
Email: [tbrownell--yahoo--com]
Date: 02-May-2001
File: %IRSee.r
History: [{
Ver 1.0
}]
]
read-it: http://216.232.249.87/view/irc.txt
write-it: http://216.232.249.87/cgi-bin/irc.LFReD?said
view layout [
backdrop 103.134.170 effect [ grid 10x10 93.124.160 ]
across
handle: field "Handle" 100 93.124.160
button "Start" 75x25 93.124.160 [forever [wait 2 m/text: read read-it show
m]]
button "Quit" 75x25 93.124.160 [quit]
return
m: text 400x200
s4: slider 14x200 93.124.160 [scroll-para m s4] return
message: field 93.124.160 return
button 93.124.160 75x25 "Submit" #"^M" [read rejoin [write-it rejoin
[handle/text ": " message/text]]]
]