[Tkabber-dev] r724 - in trunk/tkabber-plugins: . checkers chess mute reversi

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Sep 19 11:43:31 MSD 2006


Author: sergei
Date: 2006-09-19 11:43:26 +0400 (Tue, 19 Sep 2006)
New Revision: 724

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/checkers/checkers.tcl
   trunk/tkabber-plugins/chess/chess.tcl
   trunk/tkabber-plugins/mute/mute.tcl
   trunk/tkabber-plugins/reversi/reversi.tcl
Log:
	* checkers/checkers.tcl, chess/chess.tcl, mute/mute.tcl,
	  reversi/reversi.tcl: Added lang parameter to procedures
	  registered via iq:register.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2006-09-19 06:27:47 UTC (rev 723)
+++ trunk/tkabber-plugins/ChangeLog	2006-09-19 07:43:26 UTC (rev 724)
@@ -1,7 +1,11 @@
-2006-09-16  Sergei Golovan  <sgolovan at nes.ru>
+2006-09-19  Sergei Golovan  <sgolovan at nes.ru>
 
 	* traffic/traffic.tcl: Code cleanup.
 
+	* checkers/checkers.tcl, chess/chess.tcl, mute/mute.tcl,
+	  reversi/reversi.tcl: Added lang parameter to procedures
+	  registered via iq:register.
+
 2006-09-16  Sergei Golovan  <sgolovan at nes.ru>
 
 	* chess/chess.tcl, checkers/checkers.tcl, reversi/reversi.tcl:

Modified: trunk/tkabber-plugins/checkers/checkers.tcl
===================================================================
--- trunk/tkabber-plugins/checkers/checkers.tcl	2006-09-19 06:27:47 UTC (rev 723)
+++ trunk/tkabber-plugins/checkers/checkers.tcl	2006-09-19 07:43:26 UTC (rev 724)
@@ -1765,7 +1765,7 @@
 
 
 # Common games:board part
-proc iq_games_board_create {connid from child} {
+proc iq_games_board_create {connid from lang child} {
     set res [list error cancel feature-not-implemented]
     hook::run games_board_create_hook res $connid $from $child
     return $res
@@ -1774,7 +1774,7 @@
 iq::register_handler set create games:board \
     [namespace current]::iq_games_board_create
 
-proc iq_games_board_turn {connid from child} {
+proc iq_games_board_turn {connid from lang child} {
     set res [list error cancel feature-not-implemented]
     hook::run games_board_turn_hook res $connid $from $child
     return $res

Modified: trunk/tkabber-plugins/chess/chess.tcl
===================================================================
--- trunk/tkabber-plugins/chess/chess.tcl	2006-09-19 06:27:47 UTC (rev 723)
+++ trunk/tkabber-plugins/chess/chess.tcl	2006-09-19 07:43:26 UTC (rev 724)
@@ -1730,7 +1730,7 @@
 
 
 # Common games:board part
-proc iq_games_board_create {connid from child} {
+proc iq_games_board_create {connid from lang child} {
     set res [list error cancel feature-not-implemented]
     hook::run games_board_create_hook res $connid $from $child
     return $res
@@ -1739,7 +1739,7 @@
 iq::register_handler set create games:board \
     [namespace current]::iq_games_board_create
 
-proc iq_games_board_turn {connid from child} {
+proc iq_games_board_turn {connid from lang child} {
     set res [list error cancel feature-not-implemented]
     hook::run games_board_turn_hook res $connid $from $child
     return $res

Modified: trunk/tkabber-plugins/mute/mute.tcl
===================================================================
--- trunk/tkabber-plugins/mute/mute.tcl	2006-09-19 06:27:47 UTC (rev 723)
+++ trunk/tkabber-plugins/mute/mute.tcl	2006-09-19 07:43:26 UTC (rev 724)
@@ -294,7 +294,7 @@
     return [list result ""]
 }
 
-proc mute::editor::recv_set_iq {connid from child} {
+proc mute::editor::recv_set_iq {connid from lang child} {
     jlib::wrapper:splitxml $child tag vars isempty chdata children
 
     switch -- $tag {
@@ -416,7 +416,7 @@
     }
 }
 
-proc mute::ancestor::recv_get_iq {connid from child} {
+proc mute::ancestor::recv_get_iq {connid from lang child} {
     jlib::wrapper:splitxml $child tag vars isempty chdata children
 
     switch -- $tag {
@@ -442,7 +442,7 @@
     [namespace current]::mute::ancestor::recv_get_iq
 
 
-proc mute::ancestor::recv_set_iq {connid from child} {
+proc mute::ancestor::recv_set_iq {connid from lang child} {
     jlib::wrapper:splitxml $child tag vars isempty chdata children
 
     switch -- $tag {

Modified: trunk/tkabber-plugins/reversi/reversi.tcl
===================================================================
--- trunk/tkabber-plugins/reversi/reversi.tcl	2006-09-19 06:27:47 UTC (rev 723)
+++ trunk/tkabber-plugins/reversi/reversi.tcl	2006-09-19 07:43:26 UTC (rev 724)
@@ -1176,7 +1176,7 @@
 
 
 # Common games:board part
-proc iq_games_board_create {connid from child} {
+proc iq_games_board_create {connid from lang child} {
     set res [list error cancel feature-not-implemented]
     hook::run games_board_create_hook res $connid $from $child
     return $res
@@ -1185,7 +1185,7 @@
 iq::register_handler set create games:board \
     [namespace current]::iq_games_board_create
 
-proc iq_games_board_turn {connid from child} {
+proc iq_games_board_turn {connid from lang child} {
     set res [list error cancel feature-not-implemented]
     hook::run games_board_turn_hook res $connid $from $child
     return $res



More information about the Tkabber-dev mailing list