Mercurial > pidgin
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 } |
