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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Feb 14 01:36:02 MSK 2009


Author: sergei
Date: 2009-02-14 01:36:01 +0300 (Sat, 14 Feb 2009)
New Revision: 1651

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/chats.tcl
   trunk/tkabber/ifacetk/iroster.tcl
Log:
	* chats.tcl, ifacetk/iroster.tcl: Adapted to a new syntax of roster
	  click procedures.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-02-13 17:25:34 UTC (rev 1650)
+++ trunk/tkabber/ChangeLog	2009-02-13 22:36:01 UTC (rev 1651)
@@ -1,3 +1,8 @@
+2009-02-14  Sergei Golovan  <sgolovan at nes.ru>
+
+	* chats.tcl, ifacetk/iroster.tcl: Adapted to a new syntax of roster
+	  click procedures.
+
 2009-02-13  Sergei Golovan  <sgolovan at nes.ru>
 
 	* muc.tcl: Move focus and scroll down to 'add new JID' field in MUC

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2009-02-13 17:25:34 UTC (rev 1650)
+++ trunk/tkabber/chats.tcl	2009-02-13 22:36:01 UTC (rev 1651)
@@ -640,7 +640,7 @@
 
 ###############################################################################
 
-proc chat::user_singleclick {chatid cjid} {
+proc chat::user_singleclick {chatid tags cjid jids} {
     lassign $cjid xlib jid
     set nick [get_nick $xlib $jid groupchat]
     hook::run groupchat_roster_user_singleclick_hook $chatid $nick

Modified: trunk/tkabber/ifacetk/iroster.tcl
===================================================================
--- trunk/tkabber/ifacetk/iroster.tcl	2009-02-13 17:25:34 UTC (rev 1650)
+++ trunk/tkabber/ifacetk/iroster.tcl	2009-02-13 22:36:01 UTC (rev 1651)
@@ -1686,7 +1686,7 @@
 
 ###############################################################################
 
-proc roster::groupchat_popup_menu {id} {
+proc roster::groupchat_popup_menu {id jids} {
     lassign $id xlib jid
     tk_popup [create_groupchat_user_menu $xlib $jid] \
 	[winfo pointerx .] [winfo pointery .]



More information about the Tkabber-dev mailing list