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]]] ]

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]]] ]

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]]] ]

>>>>>>>>>>>>>>>>>> Ursprüngliche Nachricht <<<<<<<<<<<<<<<<<<

> 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

> 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

> on the buttons would scroll? > I'll double the size of the text to 2k, (a fresh version can be had at

> LFReD rebsite) but it would be nice to have the text scroll down with

> input, and then back to the top once the pane is refreshed. > Anybody?

Sorry Terry, I was a bit cryptic in this, especially since that was supposed to be the reply for your other post not this one :-) I had a bit of an explore of it. I changed a few things including using rate to replace the wait loop, the problem disapeared. When I narrow down the exact cause I'll let you know. Allen K