6694
+ 鐃緒申 1 gaim::signal connect [gaim::account handle] account-away { account state message } {
+ 鐃緒申 2 gaim::debug -info "tcl signal" "account-away [gaim::account username $account] \"$state\" \"$message\""
+ 鐃緒申 3 }
+ 鐃緒申 4
+ 鐃緒申 5 gaim::signal connect [gaim::account handle] account-connecting { account } {
+ 鐃緒申 6 gaim::debug -info "tcl signal" "account-connecting [gaim::account username $account]"
+ 鐃緒申 7 }
+ 鐃緒申 8
+ 鐃緒申 9 gaim::signal connect [gaim::account handle] account-set-info { account info } {
+ 鐃緒申 10 gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info"
+ 鐃緒申 11 }
+ 鐃緒申 12
+ 鐃緒申 13 gaim::signal connect [gaim::account handle] account-setting-info { account info } {
+ 鐃緒申 14 gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info"
+ 鐃緒申 15 }
+ 鐃緒申 16
+ 鐃緒申 17 gaim::signal connect [gaim::buddy handle] buddy-away { buddy } {
+ 鐃緒申 18 gaim::debug -info "tcl signal" "buddy-away [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+ 鐃緒申 19 }
+ 鐃緒申 20
+ 鐃緒申 21 gaim::signal connect [gaim::buddy handle] buddy-back { buddy } {
+ 鐃緒申 22 gaim::debug -info "tcl signal" "buddy-back [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+ 鐃緒申 23 }
+ 鐃緒申 24
+ 鐃緒申 25 gaim::signal connect [gaim::buddy handle] buddy-idle { buddy } {
+ 鐃緒申 26 gaim::debug -info "tcl signal" "buddy-idle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+ 鐃緒申 27 }
+ 鐃緒申 28
+ 鐃緒申 29 gaim::signal connect [gaim::buddy handle] buddy-unidle { buddy } {
+ 鐃緒申 30 gaim::debug -info "tcl signal" "buddy-unidle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+ 鐃緒申 31 }
+ 鐃緒申 32
+ 鐃緒申 33 gaim::signal connect [gaim::buddy handle] buddy-signed-on { buddy } {
+ 鐃緒申 34 gaim::debug -info "tcl signal" "buddy-signed-on [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+ 鐃緒申 35 }
+ 鐃緒申 36
+ 鐃緒申 37 gaim::signal connect [gaim::buddy handle] buddy-signed-off { buddy } {
+ 鐃緒申 38 gaim::debug -info "tcl signal" "buddy-signed-off [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+ 鐃緒申 39 }
+ 鐃緒申 40
+ 鐃緒申 41 gaim::signal connect [gaim::core handle] quitting {} {
+ 鐃緒申 42 gaim::debug -info "tcl signal" "quitting"
+ 鐃緒申 43 }
+ 鐃緒申 44
10104
+ 鐃緒申 45 gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id flags } {
+ 鐃緒申 46 gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $flags $who \"$what\""
8999
+ 鐃緒申 47 return 0
+ 鐃緒申 48 }
+ 鐃緒申 49
10104
+ 鐃緒申 50 gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what id flags } {
+ 鐃緒申 51 gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $id $flags $who \"$what\""
8999
+ 鐃緒申 52 return 0
+ 鐃緒申 53 }
+ 鐃緒申 54
10104
+ 鐃緒申 55 gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id flags } {
+ 鐃緒申 56 gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $flags $who \"$what\""
6694
+ 鐃緒申 57 }
+ 鐃緒申 58
10104
+ 鐃緒申 59 gaim::signal connect [gaim::conversation handle] received-im-msg { account who what id flags } {
+ 鐃緒申 60 gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $id $flags $who \"$what\""
6694
+ 鐃緒申 61 }
+ 鐃緒申 62
+ 鐃緒申 63 gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } {
+ 鐃緒申 64 gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\""
+ 鐃緒申 65 return 0
+ 鐃緒申 66 }
+ 鐃緒申 67
+ 鐃緒申 68 gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } {
+ 鐃緒申 69 gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\""
+ 鐃緒申 70 return 0
+ 鐃緒申 71 }
+ 鐃緒申 72
+ 鐃緒申 73 gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } {
+ 鐃緒申 74 gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\""
+ 鐃緒申 75 }
+ 鐃緒申 76
+ 鐃緒申 77 gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } {
+ 鐃緒申 78 gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\""
+ 鐃緒申 79 }
+ 鐃緒申 80
+ 鐃緒申 81 gaim::signal connect [gaim::connection handle] signed-on { gc } {
6698
+ 鐃緒申 82 gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]"
6694
+ 鐃緒申 83 }
+ 鐃緒申 84
+ 鐃緒申 85 gaim::signal connect [gaim::connection handle] signed-off { gc } {
+ 鐃緒申 86 gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]"
+ 鐃緒申 87 }
+ 鐃緒申 88
+ 鐃緒申 89 gaim::signal connect [gaim::connection handle] signing-on { gc } {
+ 鐃緒申 90 gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]"
+ 鐃緒申 91 }
+ 鐃緒申 92
+ 鐃緒申 93 if { 0 } {
+ 鐃緒申 94 gaim::signal connect signing-off {
+ 鐃緒申 95 gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]"
+ 鐃緒申 96 }
+ 鐃緒申 97
+ 鐃緒申 98 gaim::signal connect update-idle {
+ 鐃緒申 99 gaim::debug -info "tcl signal" "update-idle"
+ 鐃緒申 100 }
+ 鐃緒申 101 }
+ 鐃緒申 102
+ 鐃緒申 103 proc plugin_init { } {
+ 鐃緒申 104 list "Tcl Signal Test" \
+ 鐃緒申 105 "$gaim::version" \
8117
+ 鐃緒申 106 "Tests Tcl signal handlers" \
6694
+ 鐃緒申 107 "Debugs a ridiculous amount of signal information." \
+ 鐃緒申 108 "Ethan Blanton <eblanton@cs.purdue.edu>" \
+ 鐃緒申 109 "http://gaim.sourceforge.net/"
+ 鐃緒申 110 }