Mercurial > pidgin

changeset 16363:f4c72a722741

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
This looks like the last of the purplification for Tcl. Somebody done did them a good job fixing it up.
author Ethan Blanton <elb@pidgin.im>
date Wed, 25 Apr 2007 02:36:05 +0000
parents 7d0d3a746299
children a5a64fcad0ca 58a097859388
files libpurple/plugins/tcl/signal-test.tcl
diffstat 1 files changed, 58 insertions(+), 58 deletions(-) [+]
line wrap: on
line diff
--- a/libpurple/plugins/tcl/signal-test.tcl	Wed Apr 25 02:23:29 2007 +0000
+++ b/libpurple/plugins/tcl/signal-test.tcl	Wed Apr 25 02:36:05 2007 +0000
@@ -1,123 +1,123 @@
-gaim::signal connect [gaim::account handle] account-away { account state message } {
-	gaim::debug -info "tcl signal" "account-away [gaim::account username $account] \"$state\" \"$message\""
+purple::signal connect [purple::account handle] account-away { account state message } {
+	purple::debug -info "tcl signal" "account-away [purple::account username $account] \"$state\" \"$message\""
 }
 
-gaim::signal connect [gaim::account handle] account-connecting { account } {
-	gaim::debug -info "tcl signal" "account-connecting [gaim::account username $account]"
+purple::signal connect [purple::account handle] account-connecting { account } {
+	purple::debug -info "tcl signal" "account-connecting [purple::account username $account]"
 }
 
-gaim::signal connect [gaim::account handle] account-set-info { account info } {
-	gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info"
+purple::signal connect [purple::account handle] account-set-info { account info } {
+	purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"
 }
 
-gaim::signal connect [gaim::account handle] account-setting-info { account info } {
-	gaim::debug -info "tcl signal" "account-set-info [gaim::account username $account] $info"
+purple::signal connect [purple::account handle] account-setting-info { account info } {
+	purple::debug -info "tcl signal" "account-set-info [purple::account username $account] $info"
 }
 
-gaim::signal connect [gaim::buddy handle] buddy-away { buddy } {
-	gaim::debug -info "tcl signal" "buddy-away [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+purple::signal connect [purple::buddy handle] buddy-away { buddy } {
+	purple::debug -info "tcl signal" "buddy-away [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
 }
 
-gaim::signal connect [gaim::buddy handle] buddy-back { buddy } {
-	gaim::debug -info "tcl signal" "buddy-back [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+purple::signal connect [purple::buddy handle] buddy-back { buddy } {
+	purple::debug -info "tcl signal" "buddy-back [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
 }
 
-gaim::signal connect [gaim::buddy handle] buddy-idle { buddy } {
-	gaim::debug -info "tcl signal" "buddy-idle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+purple::signal connect [purple::buddy handle] buddy-idle { buddy } {
+	purple::debug -info "tcl signal" "buddy-idle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
 }
 
-gaim::signal connect [gaim::buddy handle] buddy-unidle { buddy } {
-	gaim::debug -info "tcl signal" "buddy-unidle [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+purple::signal connect [purple::buddy handle] buddy-unidle { buddy } {
+	purple::debug -info "tcl signal" "buddy-unidle [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
 }
 
-gaim::signal connect [gaim::buddy handle] buddy-signed-on { buddy } {
-	gaim::debug -info "tcl signal" "buddy-signed-on [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+purple::signal connect [purple::buddy handle] buddy-signed-on { buddy } {
+	purple::debug -info "tcl signal" "buddy-signed-on [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
 }
 
-gaim::signal connect [gaim::buddy handle] buddy-signed-off { buddy } {
-	gaim::debug -info "tcl signal" "buddy-signed-off [gaim::account username [lindex $buddy 2]] [lindex $buddy 1]"
+purple::signal connect [purple::buddy handle] buddy-signed-off { buddy } {
+	purple::debug -info "tcl signal" "buddy-signed-off [purple::account username [lindex $buddy 2]] [lindex $buddy 1]"
 }
 
-gaim::signal connect [gaim::core handle] quitting {} {
-	gaim::debug -info "tcl signal" "quitting"
+purple::signal connect [purple::core handle] quitting {} {
+	purple::debug -info "tcl signal" "quitting"
 }
 
-gaim::signal connect [gaim::conversation handle] receiving-chat-msg { account who what id flags } {
-	gaim::debug -info "tcl signal" "receiving-chat-msg [gaim::account username $account] $id $flags $who \"$what\""
+purple::signal connect [purple::conversation handle] receiving-chat-msg { account who what id flags } {
+	purple::debug -info "tcl signal" "receiving-chat-msg [purple::account username $account] $id $flags $who \"$what\""
 	return 0
 }
 
-gaim::signal connect [gaim::conversation handle] receiving-im-msg { account who what id flags } {
-	gaim::debug -info "tcl signal" "receiving-im-msg [gaim::account username $account] $id $flags $who \"$what\""
+purple::signal connect [purple::conversation handle] receiving-im-msg { account who what id flags } {
+	purple::debug -info "tcl signal" "receiving-im-msg [purple::account username $account] $id $flags $who \"$what\""
 	return 0
 }
 
-gaim::signal connect [gaim::conversation handle] received-chat-msg { account who what id flags } {
-	gaim::debug -info "tcl signal" "received-chat-msg [gaim::account username $account] $id $flags $who \"$what\""
+purple::signal connect [purple::conversation handle] received-chat-msg { account who what id flags } {
+	purple::debug -info "tcl signal" "received-chat-msg [purple::account username $account] $id $flags $who \"$what\""
 }
 
-gaim::signal connect [gaim::conversation handle] received-im-msg { account who what id flags } {
-	gaim::debug -info "tcl signal" "received-im-msg [gaim::account username $account] $id $flags $who \"$what\""
+purple::signal connect [purple::conversation handle] received-im-msg { account who what id flags } {
+	purple::debug -info "tcl signal" "received-im-msg [purple::account username $account] $id $flags $who \"$what\""
 }
 
-gaim::signal connect [gaim::conversation handle] sending-chat-msg { account what id } {
-	gaim::debug -info "tcl signal" "sending-chat-msg [gaim::account username $account] $id \"$what\""
+purple::signal connect [purple::conversation handle] sending-chat-msg { account what id } {
+	purple::debug -info "tcl signal" "sending-chat-msg [purple::account username $account] $id \"$what\""
 	return 0
 }
 
-gaim::signal connect [gaim::conversation handle] sending-im-msg { account who what } {
-	gaim::debug -info "tcl signal" "sending-im-msg [gaim::account username $account] $who \"$what\""
+purple::signal connect [purple::conversation handle] sending-im-msg { account who what } {
+	purple::debug -info "tcl signal" "sending-im-msg [purple::account username $account] $who \"$what\""
 	return 0
 }
 
-gaim::signal connect [gaim::conversation handle] sent-chat-msg { account id what } {
-	gaim::debug -info "tcl signal" "sent-chat-msg [gaim::account username $account] $id \"$what\""
+purple::signal connect [purple::conversation handle] sent-chat-msg { account id what } {
+	purple::debug -info "tcl signal" "sent-chat-msg [purple::account username $account] $id \"$what\""
 }
 
-gaim::signal connect [gaim::conversation handle] sent-im-msg { account who what } {
-	gaim::debug -info "tcl signal" "sent-im-msg [gaim::account username $account] $who \"$what\""
+purple::signal connect [purple::conversation handle] sent-im-msg { account who what } {
+	purple::debug -info "tcl signal" "sent-im-msg [purple::account username $account] $who \"$what\""
 }
 
-gaim::signal connect [gaim::connection handle] signed-on { gc } {
-	gaim::debug -info "tcl signal" "signed-on [gaim::account username [gaim::connection account $gc]]"
+purple::signal connect [purple::connection handle] signed-on { gc } {
+	purple::debug -info "tcl signal" "signed-on [purple::account username [purple::connection account $gc]]"
 }
 
-gaim::signal connect [gaim::connection handle] signed-off { gc } {
-	gaim::debug -info "tcl signal" "signed-off [gaim::account username [gaim::connection account $gc]]"
+purple::signal connect [purple::connection handle] signed-off { gc } {
+	purple::debug -info "tcl signal" "signed-off [purple::account username [purple::connection account $gc]]"
 }
 
-gaim::signal connect [gaim::connection handle] signing-on { gc } {
-	gaim::debug -info "tcl signal" "signing-on [gaim::account username [gaim::connection account $gc]]"
+purple::signal connect [purple::connection handle] signing-on { gc } {
+	purple::debug -info "tcl signal" "signing-on [purple::account username [purple::connection account $gc]]"
 }
 
 if { 0 } {
-gaim::signal connect signing-off {
-	gaim::debug -info "tcl signal" "signing-off [gaim::account username [gaim::connection account $event::gc]]"
+purple::signal connect signing-off {
+	purple::debug -info "tcl signal" "signing-off [purple::account username [purple::connection account $event::gc]]"
 }
 
-gaim::signal connect update-idle {
-	gaim::debug -info "tcl signal" "update-idle"
+purple::signal connect update-idle {
+	purple::debug -info "tcl signal" "update-idle"
 }
 }
 
-gaim::signal connect [gaim::plugins handle] plugin-load args {
-	gaim::debug -info "tcl signal" "plugin-load [list $args]"
+purple::signal connect [purple::plugins handle] plugin-load args {
+	purple::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]"
+purple::signal connect [purple::plugins handle] plugin-unload args {
+	purple::debug -info "tcl signal" "plugin-unload [list $args]"
 }
 
-gaim::signal connect [gaim::savedstatuses handle] savedstatus-changed args {
-	gaim::debug -info "tcl signal" "savedstatus-changed [list $args]"
-	gaim::debug -info "tcl signal" "gaim::savedstatus current = [gaim::savedstatus current]"
+purple::signal connect [purple::savedstatuses handle] savedstatus-changed args {
+	purple::debug -info "tcl signal" "savedstatus-changed [list $args]"
+	purple::debug -info "tcl signal" "purple::savedstatus current = [purple::savedstatus current]"
 }
 
 proc plugin_init { } {
 	list "Tcl Signal Test" \
-             "$gaim::version" \
+             "$purple::version" \
 	     "Tests Tcl signal handlers" \
              "Debugs a ridiculous amount of signal information." \
-             "Ethan Blanton <eblanton@cs.purdue.edu>" \
-             "http://gaim.sourceforge.net/"
+             "Ethan Blanton <elb@pidgin.im>" \
+             "http://www.pidgin.im/"
 }