Mercurial > pidgin3 / file 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" \