[Tkabber-dev] r999 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Mar 4 09:51:51 MSK 2007


Author: sergei
Date: 2007-03-04 09:51:50 +0300 (Sun, 04 Mar 2007)
New Revision: 999

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/abbrev.tcl
Log:
	* plugins/chat/abbrev.tcl: Made translated messages extractable by
	  the extraction script.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-04 06:44:56 UTC (rev 998)
+++ trunk/tkabber/ChangeLog	2007-03-04 06:51:50 UTC (rev 999)
@@ -6,6 +6,9 @@
 	* msgs/ru.msg: Updated Russian translation (thanks to Konstantin
 	  Khomoutov).
 
+	* plugins/chat/abbrev.tcl: Made translated messages extractable by
+	  the extraction script.
+
 2007-03-03  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/headlines.tcl: Bugfix. Removed trailing linefeed

Modified: trunk/tkabber/plugins/chat/abbrev.tcl
===================================================================
--- trunk/tkabber/plugins/chat/abbrev.tcl	2007-03-04 06:44:56 UTC (rev 998)
+++ trunk/tkabber/plugins/chat/abbrev.tcl	2007-03-04 06:51:50 UTC (rev 999)
@@ -36,34 +36,34 @@
 
     if {[string match "/abbrev*" $body]} {
 	if {![regexp {^/abbrev\s+(\S+)\s+(.*)$} $body - what for]} {
-	    show error $chatid [msgcat::mc "Usage: /abbrev WHAT FOR"]
+	    show error $chatid [::msgcat::mc "Usage: /abbrev WHAT FOR"]
 	    return stop
 	}
 
 	set abbrevs($what) $for		
-	show info $chatid [msgcat::mc "Added abbreviation:\n%s: %s" \
+	show info $chatid [::msgcat::mc "Added abbreviation:\n%s: %s" \
 				  $what $for]
     } elseif {[string match "/unabbrev*" $body]} {
 	if {![regexp {^/unabbrev\s+(\S+)} $body - what]} {
-	    show error $chatid [msgcat::mc "Usage: /unabbrev WHAT"]
+	    show error $chatid [::msgcat::mc "Usage: /unabbrev WHAT"]
 	    return stop
 	}
 
 	# Handle special case: * stands for "all abbreviations":
 	if {[string equal $what *]} {
 	    array unset abbrevs *
-	    show info $chatid [msgcat::mc "Purged all abbreviations" $what]
+	    show info $chatid [::msgcat::mc "Purged all abbreviations" $what]
 	    return stop
 	}
 		
 	if {[catch {unset abbrevs($what)}]} {
-	    show error $chatid [msgcat::mc "No such abbreviation: %s" $what]
+	    show error $chatid [::msgcat::mc "No such abbreviation: %s" $what]
 	    return stop
 	} else {
-	    show info $chatid [msgcat::mc "Deleted abbreviation: %s" $what]
+	    show info $chatid [::msgcat::mc "Deleted abbreviation: %s" $what]
 	}
     } elseif {[string match "/listabbrevs*" $body]} {
-	set out [msgcat::mc "Abbreviations:"]
+	set out [::msgcat::mc "Abbreviations:"]
 	foreach ab [array names abbrevs] {
 	    append out "\n$ab: $abbrevs($ab)"
 	}



More information about the Tkabber-dev mailing list