[Tkabber-dev] r1725 - in trunk/tkabber-plugins: . cyrillize

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Mar 13 22:12:07 MSK 2009


Author: sergei
Date: 2009-03-13 22:12:07 +0300 (Fri, 13 Mar 2009)
New Revision: 1725

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/cyrillize/cyrillize.tcl
Log:
	* cyrillize/cyrillize.tcl: Fixed reading recoding table on the package
	  loading.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-03-13 17:21:40 UTC (rev 1724)
+++ trunk/tkabber-plugins/ChangeLog	2009-03-13 19:12:07 UTC (rev 1725)
@@ -13,6 +13,9 @@
 
 	* georoster/georoster.tcl: Fixed reloading the plugin.
 
+	* cyrillize/cyrillize.tcl: Fixed reading recoding table on the package
+	  loading.
+
 2009-03-12  Sergei Golovan <sgolovan at nes.ru>
 
 	* whiteboard/svgrender.tcl, whiteboard/whiteboard.tcl: Switched to

Modified: trunk/tkabber-plugins/cyrillize/cyrillize.tcl
===================================================================
--- trunk/tkabber-plugins/cyrillize/cyrillize.tcl	2009-03-13 17:21:40 UTC (rev 1724)
+++ trunk/tkabber-plugins/cyrillize/cyrillize.tcl	2009-03-13 19:12:07 UTC (rev 1725)
@@ -10,14 +10,17 @@
 			    -namespace [namespace current] \
 			    -source [info script] \
 			    -description [::msgcat::mc "Whether the Cyrillize plugin is loaded."] \
-			    -loadcommand [namespace code load] \
+			    -loadcommand [namespace code \
+						    [list load [file join \
+								     [file dirname [info script]] \
+								     engrus.tbl]]] \
 			    -unloadcommand [namespace code unload]
 	return
     }
 }
 
-proc cyrillize::load {} {
-    load_table [file join [file dirname [info script]] engrus.tbl]
+proc cyrillize::load {filename} {
+    load_table $filename
 
     event add <<Cyrillize-Eng-Rus>> <Control-quoteright>
     event add <<Cyrillize-Eng-Rus>> <Control-yacute>



More information about the Tkabber-dev mailing list