libpurple/plugins/tcl/signal-test.tcl

changeset 15750
c238e0966eb1
parent 15435
4b933b06d75e
child 15758
d31f3317c849
--- a/libpurple/plugins/tcl/signal-test.tcl	Fri Feb 23 16:45:42 2007 +0000
+++ b/libpurple/plugins/tcl/signal-test.tcl	Fri Feb 23 16:49:32 2007 +0000
@@ -100,6 +100,14 @@
 }
 }
 
+gaim::signal connect [gaim::plugins handle] plugin-load args {
+	gaim::debug -info "tcl signal" "plugin-load [list $args]"
+}
+
+gaim::signal connect [gaim::plugins handle] plugin-unload args {
+	gaim::debug -info "tcl signal" "plugin-unload [list $args]"
+}
+
 proc plugin_init { } {
 	list "Tcl Signal Test" \
              "$gaim::version" \

mercurial