[Tkabber-dev] r1074 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Mar 30 14:27:36 MSD 2007


Author: sergei
Date: 2007-03-30 14:27:35 +0400 (Fri, 30 Mar 2007)
New Revision: 1074

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/histool.tcl
Log:
	* plugins/chat/histool.tcl: Display chat log on <Return> in JID
	  list tab. Also, don't export listbox selection.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-30 09:47:04 UTC (rev 1073)
+++ trunk/tkabber/ChangeLog	2007-03-30 10:27:35 UTC (rev 1074)
@@ -4,6 +4,9 @@
 	  not used. Also, don't show the second error message if the previous
 	  one is shown.
 
+	* plugins/chat/histool.tcl: Display chat log on <Return> in JID
+	  list tab. Also, don't export listbox selection.
+
 2007-03-29  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/de.msg: Updated German translation (thanks to Roger

Modified: trunk/tkabber/plugins/chat/histool.tcl
===================================================================
--- trunk/tkabber/plugins/chat/histool.tcl	2007-03-30 09:47:04 UTC (rev 1073)
+++ trunk/tkabber/plugins/chat/histool.tcl	2007-03-30 10:27:35 UTC (rev 1074)
@@ -75,7 +75,7 @@
 proc histool::jidlist_create {w loghier} {
     set sw [ScrolledWindow $w.sw]
 
-    set lbox [listbox $w.lbox -takefocus 1]
+    set lbox [listbox $w.lbox -takefocus 1 -exportselection 0]
     $lbox selection clear 0 end
     $lbox selection set 0
     focus $lbox
@@ -87,6 +87,10 @@
 	::logger::show_log [%W get [%W nearest %y]]
     }
 
+    bind $lbox <Return> {
+	::logger::show_log [%W get [%W index active]]
+    }
+
     $sw setwidget $lbox
     pack $sw -fill both -expand yes
 



More information about the Tkabber-dev mailing list