Mercurial > pidgin
comparison libpurple/plugins/tcl/signal-test.tcl @ 15686:d79c9952f6bb
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 |
comparison
equal
deleted
inserted
replaced
15685:7639029f1bf4 | 15686:d79c9952f6bb |
---|---|
98 gaim::signal connect update-idle { | 98 gaim::signal connect update-idle { |
99 gaim::debug -info "tcl signal" "update-idle" | 99 gaim::debug -info "tcl signal" "update-idle" |
100 } | 100 } |
101 } | 101 } |
102 | 102 |
103 gaim::signal connect [gaim::plugins handle] plugin-load args { | |
104 gaim::debug -info "tcl signal" "plugin-load [list $args]" | |
105 } | |
106 | |
107 gaim::signal connect [gaim::plugins handle] plugin-unload args { | |
108 gaim::debug -info "tcl signal" "plugin-unload [list $args]" | |
109 } | |
110 | |
103 proc plugin_init { } { | 111 proc plugin_init { } { |
104 list "Tcl Signal Test" \ | 112 list "Tcl Signal Test" \ |
105 "$gaim::version" \ | 113 "$gaim::version" \ |
106 "Tests Tcl signal handlers" \ | 114 "Tests Tcl signal handlers" \ |
107 "Debugs a ridiculous amount of signal information." \ | 115 "Debugs a ridiculous amount of signal information." \ |