Mercurial > pidgin.yaz

diff libpurple/plugins/tcl/signal-test.tcl @ 15687:d79c9952f6bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gaim::plugin Tcl command, thanks to Dossy Shiobara
author Ethan Blanton <elb@pidgin.im>
date Fri, 23 Feb 2007 16:49:32 +0000
parents 5fe8042783c1
children 31a6bfedf7be
line wrap: on
line diff
--- 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" \