comparison plugins/tcl/TCL-HOWTO @ 8818:552dd5d5641e

[gaim-migrate @ 9580] The plugin registration here was bogus. Now if only I could find the rest of the HOWTO file... committer: Tailor Script <tailor@pidgin.im>
author Ethan Blanton <elb@pidgin.im>
date Mon, 26 Apr 2004 16:24:16 +0000
parents e280d73ed07f
children 8f838ae3e710
comparison
equal deleted inserted replaced
8817:48c6552be372 8818:552dd5d5641e
302 the IM. These arguments live in the variables event::account, 302 the IM. These arguments live in the variables event::account,
303 event::sender, and event::buffer, respectively. Therefore a callback 303 event::sender, and event::buffer, respectively. Therefore a callback
304 which notifies the user of an incoming IM containing the word 'shizzle' 304 which notifies the user of an incoming IM containing the word 'shizzle'
305 might look like this: 305 might look like this:
306 306
307 gaim::add_event_handler received-im-msg { 307 gaim::signal connect [gaim::conversation handle] received-im-msg {
308 if {[ string match "*shizzle*" $event::buffer ]} { 308 if {[ string match "*shizzle*" $event::buffer ]} {
309 gaim::notify -info "tcl plugin" "Fo' shizzle" \ 309 gaim::notify -info "tcl plugin" "Fo' shizzle" \
310 "$event::sender is down with the shizzle" 310 "$event::sender is down with the shizzle"
311 } 311 }
312 } 312 }