Mercurial > pidgin.yaz
diff libpurple/plugins/tcl/signal-test.tcl @ 15697:31a6bfedf7be
Tcl savedstatus command, again from Dossy Shiobara. Dossy is on fire.
| author | Ethan Blanton <elb@pidgin.im> |
|---|---|
| date | Sun, 25 Feb 2007 02:48:52 +0000 |
| parents | d79c9952f6bb |
| children | f4c72a722741 |
line wrap: on
line diff
--- a/libpurple/plugins/tcl/signal-test.tcl Sun Feb 25 01:09:40 2007 +0000 +++ b/libpurple/plugins/tcl/signal-test.tcl Sun Feb 25 02:48:52 2007 +0000 @@ -108,6 +108,11 @@ gaim::debug -info "tcl signal" "plugin-unload [list $args]" } +gaim::signal connect [gaim::savedstatuses handle] savedstatus-changed args { + gaim::debug -info "tcl signal" "savedstatus-changed [list $args]" + gaim::debug -info "tcl signal" "gaim::savedstatus current = [gaim::savedstatus current]" +} + proc plugin_init { } { list "Tcl Signal Test" \ "$gaim::version" \