Mercurial > pidgin.yaz
comparison libpurple/plugins/tcl/signal-test.tcl @ 15687: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
| 15686:7639029f1bf4 | 15687: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." \ |