[Tkabber-dev] r1583 - in trunk/tkabber-plugins: . checkers chess debug/msgs floatingcontact/msgs floatinglog/msgs openurl/msgs renju reversi

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Oct 25 15:24:07 MSD 2008


Author: sergei
Date: 2008-10-25 15:24:07 +0400 (Sat, 25 Oct 2008)
New Revision: 1583

Added:
   trunk/tkabber-plugins/floatingcontact/msgs/de.msg
Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/checkers/checkers.tcl
   trunk/tkabber-plugins/chess/chess.tcl
   trunk/tkabber-plugins/debug/msgs/de.msg
   trunk/tkabber-plugins/floatinglog/msgs/de.msg
   trunk/tkabber-plugins/openurl/msgs/de.msg
   trunk/tkabber-plugins/renju/renju.tcl
   trunk/tkabber-plugins/reversi/reversi.tcl
Log:
	* floatingcontact/msgs/de.msg, floatinglog/msgs/de.msg,
	  debug/msgs/de.msg, openurl/msgs/de.msg: Updated German translation
	  (thanks to Roger Sondermann).

	* checkers/checkers.tcl, chess/chess.tcl, renju/renju.tcl,
	  reversi/reversi.tcl: Rewrote invitation dialog to remove unnecessary
	  vwait.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/ChangeLog	2008-10-25 11:24:07 UTC (rev 1583)
@@ -1,3 +1,13 @@
+2008-10-25  Sergei Golovan <sgolovan at nes.ru>
+
+	* floatingcontact/msgs/de.msg, floatinglog/msgs/de.msg,
+	  debug/msgs/de.msg, openurl/msgs/de.msg: Updated German translation
+	  (thanks to Roger Sondermann).
+
+	* checkers/checkers.tcl, chess/chess.tcl, renju/renju.tcl,
+	  reversi/reversi.tcl: Rewrote invitation dialog to remove unnecessary
+	  vwait.
+
 2008-10-24  Sergei Golovan <sgolovan at nes.ru>
 
 	* tkabber-khim/tkabber-khim.tcl: Fixed settind option type.

Modified: trunk/tkabber-plugins/checkers/checkers.tcl
===================================================================
--- trunk/tkabber-plugins/checkers/checkers.tcl	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/checkers/checkers.tcl	2008-10-25 11:24:07 UTC (rev 1583)
@@ -164,8 +164,7 @@
     start_play $game $xlib $jid $id $color
 }
 
-proc checkers::invited_dialog {game xlib jid id color} {
-    variable invited_result
+proc checkers::invited_dialog {game xlib jid iqid id color} {
     variable game_names
 
     set w .checkers_invited
@@ -178,9 +177,8 @@
 	-modal none -separator 1 -anchor e -default 0
 
     set wf [$w getframe]
+    bind $wf <Destroy> [namespace code [list invited_res $w $game $xlib $jid $iqid $id $color 0]]
 
-    bind $wf <Destroy> [list [namespace current]::set_invited_res ""]
-
     set nick [get_nick $xlib $jid chat]
     set message1 [::msgcat::mc "Checkers game invitation from %s (%s) is received." \
 			 $nick $jid]
@@ -204,19 +202,22 @@
     pack $wf.message3 -pady 1m
     
     $w add -text [::msgcat::mc "Agree to play"] \
-	   -command [list [namespace current]::set_invited_res 0]
+	   -command [namespace code [list invited_res $w $game $xlib $jid $iqid $id $color 1]]
     $w add -text [::msgcat::mc "Refuse to play"] \
-	   -command [list [namespace current]::set_invited_res 1]
+	   -command [namespace code [list invited_res $w $game $xlib $jid $iqid $id $color 0]]
 
     $w draw
-    vwait [namespace current]::invited_result
+    return
+}
 
+proc checkers::invited_res {w game xlib jid iqid id color res} {
     catch {
+	set wf [$w getframe]
 	bind $wf <Destroy> {}
 	destroy $w
     }
 
-    if {$invited_result == 0} {
+    if {$res} {
 	switch -- $color {
 	    white {
 		start_play $game $xlib $jid $id black
@@ -225,26 +226,30 @@
 		start_play $game $xlib $jid $id white
 	    }
 	    default {
-		return [list error modify bad-request]
+		::xmpp::sendIQ $xlib error \
+			       -error [::xmpp::stanzaerror::error \
+						modify bad-request] \
+			       -to $jid \
+			       -id $iqid
 	    }
 	}
 
-	return [list result\
-		     [::xmpp::xml::create create \
-			    -xmlns games:board \
-			    -attrs [list type checkers:$game \
-					 id $id]]]
+        ::xmpp::sendIQ $xlib result \
+                       -query [::xmpp::xml::create create \
+					-xmlns games:board \
+					-attrs [list type checkers:$game \
+						     id $id]] \
+                       -to $jid \
+                       -id $iqid
     } else {
-	return [list error modify not-acceptable]
+	::xmpp::sendIQ $xlib error \
+		       -error [::xmpp::stanzaerror::error \
+					modify not-acceptable] \
+		       -to $jid \
+		       -id $iqid
     }
 }
 
-proc checkers::set_invited_res {res} {
-    variable invited_result
-    set invited_result $res
-}
-
-
 proc checkers::start_play {game xlib jid id color} {
 
     set gid [make_gid $jid $id]
@@ -1716,7 +1721,7 @@
 hook::add roster_jid_popup_menu_hook \
     [namespace current]::checkers::add_groupchat_user_menu_item 49
 
-proc checkers::iq_create {varname xlib from xml} {
+proc checkers::iq_create {varname xlib from iqid xml} {
     upvar 2 $varname var
 
     ::xmpp::xml::split $xml tag xmlns attrs cdata subels
@@ -1747,7 +1752,7 @@
 		set color white
 	    }
 	    set var [[namespace current]::invited_dialog \
-			 $game $xlib $from \
+			 $game $xlib $from $iqid \
 			 [::xmpp::xml::getAttr $attrs id] \
 			 $color]
 	}
@@ -1792,7 +1797,8 @@
 # Common games:board part
 proc iq_games_board_create {xlib from xml args} {
     set res [list error cancel feature-not-implemented]
-    hook::run games_board_create_hook res $xlib $from $xml
+    set iqid [::xmpp::xml::getAttr $args -id]
+    hook::run games_board_create_hook res $xlib $from $iqid $xml
     return $res
 }
 

Modified: trunk/tkabber-plugins/chess/chess.tcl
===================================================================
--- trunk/tkabber-plugins/chess/chess.tcl	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/chess/chess.tcl	2008-10-25 11:24:07 UTC (rev 1583)
@@ -142,9 +142,7 @@
 }
 
 
-proc chess::invited_dialog {xlib jid id color} {
-    variable invited_result
-
+proc chess::invited_dialog {xlib jid iqid id color} {
     set w .chess_invited
 
     if {[winfo exists $w]} {
@@ -155,9 +153,8 @@
 	-modal none -separator 1 -anchor e -default 0
 
     set wf [$w getframe]
+    bind $wf <Destroy> [namespace code [list invited_res $w $xlib $jid $iqid $id $color 0]]
 
-    bind $wf <Destroy> [list [namespace current]::set_invited_res ""]
-
     set nick [get_nick $xlib $jid chat]
     set message1 [::msgcat::mc "Chess game invitation from %s (%s) is received." \
 			 $nick $jid]
@@ -178,19 +175,22 @@
     pack $wf.message2 -pady 1m
     
     $w add -text [::msgcat::mc "Agree to play"] \
-	   -command [list [namespace current]::set_invited_res 0]
+	   -command [namespace code [list invited_res $w $xlib $jid $iqid $id $color 1]]
     $w add -text [::msgcat::mc "Refuse to play"] \
-	   -command [list [namespace current]::set_invited_res 1]
+	   -command [namespace code [list invited_res $w $xlib $jid $iqid $id $color 0]]
 
     $w draw
-    vwait [namespace current]::invited_result
+    return
+}
 
+proc chess::invited_res {w xlib jid iqid id color res} {
     catch {
+	set wf [$w getframe]
 	bind $wf <Destroy> {}
 	destroy $w
     }
 
-    if {$invited_result == 0} {
+    if {$res} {
 	switch -- $color {
 	    white {
 		start_play $xlib $jid $id black
@@ -199,25 +199,31 @@
 		start_play $xlib $jid $id white
 	    }
 	    default {
-		return [list error modify bad-request]
+		::xmpp::sendIQ $xlib error \
+			       -error [::xmpp::stanzaerror::error \
+						modify bad-request] \
+			       -to $jid \
+			       -id $iqid
 	    }
 	}
 
-	return [list result\
-		     [::xmpp::xml::create create \
-			    -xmlns games:board \
-			    -attrs [list type chess \
-					 id $id]]]
+        ::xmpp::sendIQ $xlib result \
+                       -query [::xmpp::xml::create create \
+					-xmlns games:board \
+					-attrs [list type chess \
+						     id $id]] \
+                       -to $jid \
+                       -id $iqid
     } else {
-	return [list error modify not-acceptable]
+	::xmpp::sendIQ $xlib error \
+		       -error [::xmpp::stanzaerror::error \
+					modify not-acceptable] \
+		       -to $jid \
+		       -id $iqid
     }
+    return
 }
 
-proc chess::set_invited_res {res} {
-    variable invited_result
-    set invited_result $res
-}
-
 proc chess::start_play {xlib jid id color} {
 
     set gid [make_gid $jid $id]
@@ -1784,7 +1790,7 @@
 hook::add roster_jid_popup_menu_hook \
     [namespace current]::chess::add_groupchat_user_menu_item 48
 
-proc chess::iq_create {varname xlib from xml} {
+proc chess::iq_create {varname xlib from iqid xml} {
     upvar 2 $varname var
 
     ::xmpp::xml::split $xml tag xmlns attrs cdata subels
@@ -1803,7 +1809,7 @@
 	    set color white
 	}
 	set var [[namespace current]::invited_dialog \
-		     $xlib $from \
+		     $xlib $from $iqid \
 		     [::xmpp::xml::getAttr $attrs id] \
 		     $color]
     }
@@ -1834,7 +1840,8 @@
 # Common games:board part
 proc iq_games_board_create {xlib from xml args} {
     set res [list error cancel feature-not-implemented]
-    hook::run games_board_create_hook res $xlib $from $xml
+    set iqid [::xmpp::xml::getAttr $args -id]
+    hook::run games_board_create_hook res $xlib $from $iqid $xml
     return $res
 }
 

Modified: trunk/tkabber-plugins/debug/msgs/de.msg
===================================================================
--- trunk/tkabber-plugins/debug/msgs/de.msg	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/debug/msgs/de.msg	2008-10-25 11:24:07 UTC (rev 1583)
@@ -1,12 +1,12 @@
 
 # German messages file
-# Roger Sondermann 18.08.2007
+# Roger Sondermann 25.10.2008
 
-::msgcat::mcset de "Debug live plugin options."                        "Optionen für das Debug-Plugin."
+::msgcat::mcset de "Debug live plugin options."                        "Optionen für das 'Debug'-Plugin."
 ::msgcat::mcset de "Debug"                                             "Debuggen"
-::msgcat::mcset de "Log debug messages for module %s to a tab/window." "Debug-Nachrichten für Modul '%s' in Tab/Fenster schreiben."
-::msgcat::mcset de "Log debug messages to a separate tab/window."      "Debug-Nachrichten in separates Tab/Fenster schreiben."
-::msgcat::mcset de "Log debug messages to file %s."                    "Debug-Nachrichten in Datei %s schreiben."
+::msgcat::mcset de "Log debug messages for module %s to a tab/window." "'Debug'-Nachrichten für Modul '%s' in Tab/Fenster schreiben."
+::msgcat::mcset de "Log debug messages to a separate tab/window."      "'Debug'-Nachrichten in separates Tab/Fenster schreiben."
+::msgcat::mcset de "Log debug messages to file %s."                    "'Debug'-Nachrichten in Datei %s schreiben."
 ::msgcat::mcset de "Log to file"                                       "In Datei schreiben"
 ::msgcat::mcset de "Log to window"                                     "In Tab/Fenster schreiben"
 ::msgcat::mcset de "Plugins options."                                  "Optionen für Plugins."

Added: trunk/tkabber-plugins/floatingcontact/msgs/de.msg
===================================================================
--- trunk/tkabber-plugins/floatingcontact/msgs/de.msg	                        (rev 0)
+++ trunk/tkabber-plugins/floatingcontact/msgs/de.msg	2008-10-25 11:24:07 UTC (rev 1583)
@@ -0,0 +1,6 @@
+
+# German messages file
+# Roger Sondermann 25.10.2008
+
+::msgcat::mcset de "Floating contact"       "Schwebender Kontakt"
+::msgcat::mcset de "Stored floating JIDs."  "Schwebende Kontakte gespeichert."


Property changes on: trunk/tkabber-plugins/floatingcontact/msgs/de.msg
___________________________________________________________________
Added: svn:keywords
   + Author Date Id Revision
Added: svn:eol-style
   + native

Modified: trunk/tkabber-plugins/floatinglog/msgs/de.msg
===================================================================
--- trunk/tkabber-plugins/floatinglog/msgs/de.msg	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/floatinglog/msgs/de.msg	2008-10-25 11:24:07 UTC (rev 1583)
@@ -1,19 +1,20 @@
 
 # German messages file
-# Roger Sondermann 27.10.2007
+# Roger Sondermann 25.10.2008
 
 ::msgcat::mcset de "%s request from %s"                         "%s-Anfrage von %s"
-::msgcat::mcset de "Delay before message hide (in seconds)."    "Verzögerung bevor das FloatingLog-Fenster verborgen wird (in Sekunden)."
-::msgcat::mcset de "Floating Log plugin options."               "Optionen für das FloatingLog-Plugin."
-::msgcat::mcset de "Floating Log window properties."            "Eigenschaften des FloatingLog-Fensters."
+::msgcat::mcset de "Delay before message hide (in seconds)."    "Verzögerung bevor das 'Floating Log'-Fenster verborgen wird (in Sekunden)."
+::msgcat::mcset de "Floating Log plugin options."               "Optionen für das 'Floating Log'-Plugin."
+::msgcat::mcset de "Floating Log window properties."            "Eigenschaften des 'Floating Log'-Fensters."
 ::msgcat::mcset de "From: "                                     "Von: "
 ::msgcat::mcset de "Idle for %s"                                "Leerlauf seit %s"
 ::msgcat::mcset de "Incoming message"                           "Eingehende Nachricht"
+::msgcat::mcset de "Login retry for %s in %s"                   "Anmeldungs-Wiederholung für %s in %s"
 ::msgcat::mcset de "Maximum window height."                     "Maximale Höhe des Fensters."
 ::msgcat::mcset de "Message types to show."                     "Anzuzeigende Nachrichten-Typen."
 ::msgcat::mcset de "Plugins options."                           "Optionen für Plugins."
 ::msgcat::mcset de "Show chat messages."                        "Chat-Nachrichten anzeigen."
-::msgcat::mcset de "Show floating log."                         "FloatingLog-Fenster anzeigen."
+::msgcat::mcset de "Show floating log."                         "'Floating Log'-Fenster anzeigen."
 ::msgcat::mcset de "Show groupchat messages."                   "Konferenz-Nachrichten anzeigen."
 ::msgcat::mcset de "Show in \"Away\" status."                   "Bei Status 'Abwesend' anzeigen."
 ::msgcat::mcset de "Show in \"Do not disturb\" status."         "Bei Status 'Bitte nicht stören' anzeigen."

Modified: trunk/tkabber-plugins/openurl/msgs/de.msg
===================================================================
--- trunk/tkabber-plugins/openurl/msgs/de.msg	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/openurl/msgs/de.msg	2008-10-25 11:24:07 UTC (rev 1583)
@@ -1,5 +1,9 @@
 
 # German messages file
-# Roger Sondermann 06.10.2007
+# Roger Sondermann 25.10.2008
 
-::msgcat::mcset de "Open URL with"   "Öffne URL mit"
+::msgcat::mcset de "Open URL plugin options."       "Optionen für das 'Open URL'-Plugin."
+::msgcat::mcset de "Open URL with"                  "Öffne URL mit"
+::msgcat::mcset de "Open URL with %s"               "Öffne URL mit %s"
+::msgcat::mcset de "Plugins options."               "Optionen für Plugins."
+::msgcat::mcset de "Use submenu for browsers list." "Unter-Menü für Browser-Liste benutzen."

Modified: trunk/tkabber-plugins/renju/renju.tcl
===================================================================
--- trunk/tkabber-plugins/renju/renju.tcl	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/renju/renju.tcl	2008-10-25 11:24:07 UTC (rev 1583)
@@ -153,8 +153,7 @@
 }
 
 
-proc renju::invited_dialog {game xlib jid id color} {
-    variable invited_result
+proc renju::invited_dialog {game xlib jid iqid id color} {
     variable game_names
 
     set w .renju_invited
@@ -167,9 +166,8 @@
 	-modal none -separator 1 -anchor e -default 0
 
     set wf [$w getframe]
+    bind $wf <Destroy> [namespace code [list invited_res $w $game $xlib $jid $iqid $id $color 0]]
 
-    bind $wf <Destroy> [list [namespace current]::set_invited_res ""]
-
     set nick [get_nick $xlib $jid chat]
     set message1 [::msgcat::mc "Gomoku/Renju game invitation from %s (%s) is received." \
 			 $nick $jid]
@@ -193,19 +191,22 @@
     pack $wf.message3 -pady 1m
     
     $w add -text [::msgcat::mc "Agree to play"] \
-	   -command [list [namespace current]::set_invited_res 0]
+	   -command [namespace code [list invited_res $w $game $xlib $jid $iqid $id $color 1]]
     $w add -text [::msgcat::mc "Refuse to play"] \
-	   -command [list [namespace current]::set_invited_res 1]
+	   -command [namespace code [list invited_res $w $game $xlib $jid $iqid $id $color 0]]
 
     $w draw
-    vwait [namespace current]::invited_result
+    return
+}
 
+proc renju::invited_res {w game xlib jid iqid id color res} {
     catch {
+	set wf [$w getframe]
 	bind $wf <Destroy> {}
 	destroy $w
     }
 
-    if {$invited_result == 0} {
+    if {$res} {
 	switch -- $color {
 	    white {
 		start_play $game $xlib $jid $id black
@@ -214,25 +215,31 @@
 		start_play $game $xlib $jid $id white
 	    }
 	    default {
-		return [list error modify bad-request]
+		::xmpp::sendIQ $xlib error \
+			       -error [::xmpp::stanzaerror::error \
+						modify bad-request] \
+			       -to $jid \
+			       -id $iqid
 	    }
 	}
 
-	return [list result\
-		     [::xmpp::xml::create create \
-				-xmlns games:board \
-				-attrs [list type $game \
-					     id $id]]]
+        ::xmpp::sendIQ $xlib result \
+                       -query [::xmpp::xml::create create \
+					-xmlns games:board \
+					-attrs [list type $game \
+						     id $id]] \
+                       -to $jid \
+                       -id $iqid
     } else {
-	return [list error modify not-acceptable]
+	::xmpp::sendIQ $xlib error \
+		       -error [::xmpp::stanzaerror::error \
+					modify not-acceptable] \
+		       -to $jid \
+		       -id $iqid
     }
+    return
 }
 
-proc renju::set_invited_res {res} {
-    variable invited_result
-    set invited_result $res
-}
-
 proc renju::start_play {game xlib jid id color} {
 
     set gid [make_gid $jid $id]
@@ -1459,7 +1466,7 @@
 hook::add roster_jid_popup_menu_hook \
     [namespace current]::renju::add_groupchat_user_menu_item 51
 
-proc renju::iq_create {varname xlib from xml} {
+proc renju::iq_create {varname xlib from iqid xml} {
     upvar 2 $varname var
 
     ::xmpp::xml::split $xml tag xmlns attrs cdata subels
@@ -1489,7 +1496,7 @@
 	set color white
     }
     set var [[namespace current]::invited_dialog \
-		 $game $xlib $from \
+		 $game $xlib $from $iqid \
 		 [::xmpp::xml::getAttr $attrs id] \
 		 $color]
 }
@@ -1525,7 +1532,8 @@
 # Common games:board part
 proc iq_games_board_create {xlib from xml args} {
     set res [list error cancel feature-not-implemented]
-    hook::run games_board_create_hook res $xlib $from $xml
+    set iqid [::xmpp::xml::getAttr $args -id]
+    hook::run games_board_create_hook res $xlib $from $iqid $xml
     return $res
 }
 

Modified: trunk/tkabber-plugins/reversi/reversi.tcl
===================================================================
--- trunk/tkabber-plugins/reversi/reversi.tcl	2008-10-25 11:00:45 UTC (rev 1582)
+++ trunk/tkabber-plugins/reversi/reversi.tcl	2008-10-25 11:24:07 UTC (rev 1583)
@@ -124,9 +124,7 @@
 }
 
 
-proc reversi::invited_dialog {xlib jid id color} {
-    variable invited_result
-
+proc reversi::invited_dialog {xlib jid iqid id color} {
     set w .reversi_invited
 
     if {[winfo exists $w]} {
@@ -137,9 +135,8 @@
 	-modal none -separator 1 -anchor e -default 0
 
     set wf [$w getframe]
+    bind $wf <Destroy> [namespace code [list invited_res $w $xlib $jid $iqid $id $color 0]]
 
-    bind $wf <Destroy> [list [namespace current]::set_invited_res ""]
-
     set nick [get_nick $xlib $jid chat]
     set message1 [::msgcat::mc "Reversi game invitation from %s (%s) is received." \
 			 $nick $jid]
@@ -160,19 +157,22 @@
     pack $wf.message2 -pady 1m
     
     $w add -text [::msgcat::mc "Agree to play"] \
-	   -command [list [namespace current]::set_invited_res 0]
+	   -command [namespace code [list invited_res $w $xlib $jid $iqid $id $color 1]]
     $w add -text [::msgcat::mc "Refuse to play"] \
-	   -command [list [namespace current]::set_invited_res 1]
+	   -command [namespace code [list invited_res $w $xlib $jid $iqid $id $color 0]]
 
     $w draw
-    vwait [namespace current]::invited_result
+    return
+}
 
+proc reversi::invited_res {w xlib jid iqid id color res} {
     catch {
+	set wf [$w getframe]
 	bind $wf <Destroy> {}
 	destroy $w
     }
 
-    if {$invited_result == 0} {
+    if {$res} {
 	switch -- $color {
 	    white {
 		start_play $xlib $jid $id black
@@ -181,25 +181,30 @@
 		start_play $xlib $jid $id white
 	    }
 	    default {
-		return [list error modify bad-request]
+		::xmpp::sendIQ $xlib error \
+			       -error [::xmpp::stanzaerror::error \
+						modify bad-request] \
+			       -to $jid \
+			       -id $iqid
 	    }
 	}
 
-	return [list result\
-		     [::xmpp::xml::create create \
-			    -xmlns games:board \
-			    -attrs [list type reversi \
-					 id $id]]]
+        ::xmpp::sendIQ $xlib result \
+                       -query [::xmpp::xml::create create \
+					-xmlns games:board \
+					-attrs [list type reversi \
+						     id $id]] \
+                       -to $jid \
+                       -id $iqid
     } else {
-	return [list error modify not-acceptable]
+	::xmpp::sendIQ $xlib error \
+		       -error [::xmpp::stanzaerror::error \
+					modify not-acceptable] \
+		       -to $jid \
+		       -id $iqid
     }
 }
 
-proc reversi::set_invited_res {res} {
-    variable invited_result
-    set invited_result $res
-}
-
 proc reversi::start_play {xlib jid id color} {
 
     set gid [make_gid $jid $id]
@@ -1152,7 +1157,7 @@
 hook::add roster_jid_popup_menu_hook \
     [namespace current]::reversi::add_groupchat_user_menu_item 51
 
-proc reversi::iq_create {varname xlib from xml} {
+proc reversi::iq_create {varname xlib from iqid xml} {
     upvar 2 $varname var
 
     ::xmpp::xml::split $xml tag xmlns attrs cdata subels
@@ -1171,7 +1176,7 @@
 	    set color white
 	}
 	set var [[namespace current]::invited_dialog \
-		     $xlib $from \
+		     $xlib $from $iqid \
 		     [::xmpp::xml::getAttr $attrs id] \
 		     $color]
     }
@@ -1202,7 +1207,8 @@
 # Common games:board part
 proc iq_games_board_create {xlib from xml args} {
     set res [list error cancel feature-not-implemented]
-    hook::run games_board_create_hook res $xlib $from $xml
+    set iqid [::xmpp::xml::getAttr $args -id]
+    hook::run games_board_create_hook res $xlib $from $iqid $xml
     return $res
 }
 



More information about the Tkabber-dev mailing list