This is a composite widget designed to simplify the construction
of chat applications. The widget contains display areas for chat
messages, user names and topic and an entry area. It automatically
handles colourization of messages per nick and manages nick
completion. A system of hooks permit the application author to
adjust display features. The main chat display area may be split
for use displaying history or for searching.
The widget is made up of a number of text widget and panedwindow
widgets so that the size of each part of the display may be
adjusted by the user. All the text widgets may be accessed via
widget passthrough commands if fine adjustment is required. The
topic and names sections can also be hidden if desired.
Returns a list of all the user names from the names view. If
?-full? is given then the list returned is
a list of lists where each sublist is made up of the nick followed
by any options that have been set on this nick entry. This may be
used to examine any application specific options that may be
applied to a nick when using the add
command.
Passthrough to the name display text widget. See the text widget manual for
all available commands. The chatwidget provides two additional
commands show and hide which
are used to control the display of this element in the widget.
chatwidget::chatwidget .chat
proc speak {w msg} {$w message $msg -nick user}
.chat hook add post [list speak .chat]
pack .chat -side top -fill both -expand 1
.chat topic show
.chat topic set "Chat widget demo"
.chat name add "admin" -group admin
.chat name add "user" -group users -color tomato
.chat message "Chatwidget ready" -type system
.chat message "Hello, user" -nick admin
.chat message "Hello, admin" -nick user
A more extensive example is available by examining the code for
the picoirc program in the tclapps repository which ties the tcllib
picoirc package to this chatwidget package to create a simple irc client.