[Tkabber-dev] r1173 - in trunk/tkabber: . ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Aug 6 10:46:44 MSD 2007


Author: sergei
Date: 2007-08-06 10:46:43 +0400 (Mon, 06 Aug 2007)
New Revision: 1173

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iroster.tcl
Log:
	* ifacetk/iroster.tcl: Fixed roster item menu commands in case
	  when multiple contact resources connected and the command contains
	  menu path (as in plugins/general/copy_jid.tcl).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-08-05 14:17:45 UTC (rev 1172)
+++ trunk/tkabber/ChangeLog	2007-08-06 06:46:43 UTC (rev 1173)
@@ -1,3 +1,9 @@
+2007-08-06  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iroster.tcl: Fixed roster item menu commands in case
+	  when multiple contact resources connected and the command contains
+	  menu path (as in plugins/general/copy_jid.tcl).
+
 2007-08-05  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iroster.tcl: Fixed cascaded roster item submenus in case of

Modified: trunk/tkabber/ifacetk/iroster.tcl
===================================================================
--- trunk/tkabber/ifacetk/iroster.tcl	2007-08-05 14:17:45 UTC (rev 1172)
+++ trunk/tkabber/ifacetk/iroster.tcl	2007-08-06 06:46:43 UTC (rev 1173)
@@ -1551,7 +1551,8 @@
 	    set idx [$m1 index $label]
 	    if {$idx != "none"} {
 		set command [$m1 entrycget $idx -command]
-		$m2 add command -label $jid -command $command
+		$m2 add command -label $jid \
+		    -command [string map [list $m1 $m2] $command]
 	    }
 	}
     } else {



More information about the Tkabber-dev mailing list