[Tkabber-dev] r952 - in trunk/tkabber: . plugins/roster

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Feb 17 15:41:21 MSK 2007


Author: sergei
Date: 2007-02-17 15:41:19 +0300 (Sat, 17 Feb 2007)
New Revision: 952

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/roster/fetch_nicknames.tcl
Log:
	* plugins/roster/fetch_nicknames.tcl: Bugfix. Don't try to fetch
	  nickname if there aren't such item in the roster.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-02-17 12:28:48 UTC (rev 951)
+++ trunk/tkabber/ChangeLog	2007-02-17 12:41:19 UTC (rev 952)
@@ -1,3 +1,8 @@
+2007-02-17  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/roster/fetch_nicknames.tcl: Bugfix. Don't try to fetch
+	  nickname if there aren't such item in the roster.
+
 2007-02-16  Sergei Golovan  <sgolovan at nes.ru>
 
 	* utils.tcl: Recent changes trigger unknown bug in Tcl/Tk from

Modified: trunk/tkabber/plugins/roster/fetch_nicknames.tcl
===================================================================
--- trunk/tkabber/plugins/roster/fetch_nicknames.tcl	2007-02-17 12:28:48 UTC (rev 951)
+++ trunk/tkabber/plugins/roster/fetch_nicknames.tcl	2007-02-17 12:41:19 UTC (rev 952)
@@ -39,8 +39,10 @@
 
 proc fetch_nickname::add_user_menu {m connid jid} {
     set rjid [roster::find_jid $connid $jid]
-    $m add command -label [::msgcat::mc "Fetch nickname"] \
-	-command [list [namespace current]::user_request $connid $rjid]
+    if {$rjid != ""} {
+	$m add command -label [::msgcat::mc "Fetch nickname"] \
+	    -command [list [namespace current]::user_request $connid $rjid]
+    }
 }
 
 hook::add chat_create_user_menu_hook \



More information about the Tkabber-dev mailing list