[Tkabber-dev] r1735 - in trunk/tkabber-plugins: . openurl

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Mar 15 11:02:29 MSK 2009


Author: sergei
Date: 2009-03-15 11:02:28 +0300 (Sun, 15 Mar 2009)
New Revision: 1735

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/openurl/openurl.tcl
Log:
	* openurl/openurl.tcl: Fixed popup menu in chat windows if it openes
	  not over a URL.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-03-15 07:14:28 UTC (rev 1734)
+++ trunk/tkabber-plugins/ChangeLog	2009-03-15 08:02:28 UTC (rev 1735)
@@ -6,6 +6,9 @@
 	* whiteboard/msgs/de.msg: Updated German translation (thanks to Roger
 	  Sondermann).
 
+	* openurl/openurl.tcl: Fixed popup menu in chat windows if it openes
+	  not over a URL.
+
 2009-03-13  Sergei Golovan <sgolovan at nes.ru>
 
 	* whiteboard/svgrender.tcl, whiteboard/whiteboard.tcl: Fixed cid: URI

Modified: trunk/tkabber-plugins/openurl/openurl.tcl
===================================================================
--- trunk/tkabber-plugins/openurl/openurl.tcl	2009-03-15 07:14:28 UTC (rev 1734)
+++ trunk/tkabber-plugins/openurl/openurl.tcl	2009-03-15 08:02:28 UTC (rev 1735)
@@ -101,6 +101,9 @@
 proc openurl::add_chat_win_popup_menu {m chatwin X Y x y} {
     variable options
 
+    set tags [$chatwin tag names "@$x,$y"]
+    if {[lsearch -glob $tags href_*] < 0} return
+
     set url [::plugins::urls::encode_url [::plugins::urls::get_url $chatwin $x $y]]
 
     if {$options(submenu)} {



More information about the Tkabber-dev mailing list