--- 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" \