Mercurial > pidgin.yaz
comparison libpurple/plugins/tcl/signal-test.tcl @ 15697:31a6bfedf7be
Tcl savedstatus command, again from Dossy Shiobara. Dossy is on fire.
| author | Ethan Blanton <elb@pidgin.im> |
|---|---|
| date | Sun, 25 Feb 2007 02:48:52 +0000 |
| parents | d79c9952f6bb |
| children | f4c72a722741 |
comparison
equal
deleted
inserted
replaced
| 15696:79808b1a237f | 15697:31a6bfedf7be |
|---|---|
| 106 | 106 |
| 107 gaim::signal connect [gaim::plugins handle] plugin-unload args { | 107 gaim::signal connect [gaim::plugins handle] plugin-unload args { |
| 108 gaim::debug -info "tcl signal" "plugin-unload [list $args]" | 108 gaim::debug -info "tcl signal" "plugin-unload [list $args]" |
| 109 } | 109 } |
| 110 | 110 |
| 111 gaim::signal connect [gaim::savedstatuses handle] savedstatus-changed args { | |
| 112 gaim::debug -info "tcl signal" "savedstatus-changed [list $args]" | |
| 113 gaim::debug -info "tcl signal" "gaim::savedstatus current = [gaim::savedstatus current]" | |
| 114 } | |
| 115 | |
| 111 proc plugin_init { } { | 116 proc plugin_init { } { |
| 112 list "Tcl Signal Test" \ | 117 list "Tcl Signal Test" \ |
| 113 "$gaim::version" \ | 118 "$gaim::version" \ |
| 114 "Tests Tcl signal handlers" \ | 119 "Tests Tcl signal handlers" \ |
| 115 "Debugs a ridiculous amount of signal information." \ | 120 "Debugs a ridiculous amount of signal information." \ |