[Tkabber-dev] r792 - in trunk/tkabber: . plugins/richtext

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Nov 12 17:49:39 MSK 2006


Author: sergei
Date: 2006-11-12 17:49:36 +0300 (Sun, 12 Nov 2006)
New Revision: 792

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/chats.tcl
   trunk/tkabber/plugins/richtext/urls.tcl
Log:
	* chats.tcl, plugins/richtext/urls.tcl: Moved adding 'Copy URL'
	  menu item to the appropriate plugin.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-11-12 12:17:34 UTC (rev 791)
+++ trunk/tkabber/ChangeLog	2006-11-12 14:49:36 UTC (rev 792)
@@ -16,12 +16,15 @@
 	  plugins/richtext/highlight.tcl, plugins/richtext/stylecodes.tcl,
 	  plugins/richtext/urls.tcl, richtext.tcl: Code cleanup.
 
+	* chats.tcl, plugins/richtext/urls.tcl: Moved adding 'Copy URL'
+	  menu item to the appropriate plugin.
+
 2006-11-10  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iroster.tcl: Bugfix (thanks to Irek Chmielowiec).
 
 	* ifacetk/iface.tcl: Added two hooks: got_focus_hook and
-	  lost_focus_hook (thanks to thanks to Pavel Borzenkov).
+	  lost_focus_hook (thanks to Pavel Borzenkov).
 
 	* plugins/richtext/emoticons.tcl: Added 'sweep' command, which
 	  removes all unused emoticons from the memory. Fixed loading

Modified: trunk/tkabber/chats.tcl
===================================================================
--- trunk/tkabber/chats.tcl	2006-11-12 12:17:34 UTC (rev 791)
+++ trunk/tkabber/chats.tcl	2006-11-12 14:49:36 UTC (rev 792)
@@ -763,18 +763,6 @@
 hook::add chat_create_conference_menu_hook chat::add_separator 42
 hook::add chat_create_conference_menu_hook chat::add_separator 50
 
-proc chat::add_chat_win_popup_menu {m chatwin X Y x y} {
-    set tags [$chatwin tag names "@$x,$y"]
-    set idx [lsearch $tags url]
-    if {$idx >= 0} {
-	$m add command -label [::msgcat::mc "Copy URL to clipboard"] \
-	    -command [list ::plugins::urls::copy_url $chatwin $x $y]
-    }
-}
-
-hook::add chat_win_popup_menu_hook \
-    [namespace current]::chat::add_chat_win_popup_menu 10
-
 proc chat::send_message {cw chatid type} {
     set iw $cw.input
 

Modified: trunk/tkabber/plugins/richtext/urls.tcl
===================================================================
--- trunk/tkabber/plugins/richtext/urls.tcl	2006-11-12 12:17:34 UTC (rev 791)
+++ trunk/tkabber/plugins/richtext/urls.tcl	2006-11-12 14:49:36 UTC (rev 792)
@@ -202,7 +202,19 @@
 }
 
 
+proc urls::add_chat_win_popup_menu {m chatwin X Y x y} {
+    set tags [$chatwin tag names "@$x,$y"]
+    set idx [lsearch $tags url]
+    if {$idx >= 0} {
+	$m add command -label [::msgcat::mc "Copy URL to clipboard"] \
+	    -command [list [namespace current]::copy_url $chatwin $x $y]
+    }
+}
 
+hook::add chat_win_popup_menu_hook \
+    [namespace current]::urls::add_chat_win_popup_menu 10
+
+
 proc urls::configure_richtext_widget {w} {
     variable options
 



More information about the Tkabber-dev mailing list