IRSee.r Now with private chat rooms
[1/1] from: depotcity::telus::net at: 4-May-2001 16:07
Hello all.
Updated IRSee.r (IRSee... view..get it? Never mind.)
Improvements...
- IRSee now has private chat rooms... just pick a handle, room name and hit enter. (It's
private as long as no one can guess your room, encryption on the way) "General" room
for public discussions.. maybe a chat with Mr. Sassenrath and co. one day?
- Buttons names no longer scroll off the buttons
- Input field clears and re-focuses upon hitting the "Enter" key or submit button.
Great thing about View.. it's completely skinable... how about an IRSee.r skin contest
just for fun?
IRSee.r available at the LFReD rebsite (may need a reload) or below...
Again, any enhancement suggestions appreciated.
Terry Brownell
REBOL [
Title: "LFReD IRSee"
Author: "Terry Brownell"
Email: [tbrownell--yahoo--com]
Date: 04-May-2001
File: %IRSee.r
History: [{
Ver 1.2.4
}]
]
irc-in: http://216.232.249.87/cgi-bin/irc-in.LFReD?roomirc-out: http://216.232.249.87/cgi-bin/irc-out.LFReD?
view layout [
backdrop 103.134.170 effect [ grid 10x10 93.124.160 ]
across
h4 "Name/Handle:" handle: field "Handle" 100 93.124.160
h4 "Chat Room: " room: field "General" 100 93.124.160
button "Enter" 75x25 93.124.160 [the-room: rejoin [irc-in room/text] forever [ m/text:
copy read the-room show m wait 3]]
return
m: info 442x200 wrap
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 [irc-out "said=" rejoin [handle/text
": " message/text]"&room=" room/text]message/text: copy "" show message focus message]
button "Quit" 75x25 93.124.160 [quit]
]