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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Sep 8 01:28:18 MSD 2008


Author: sergei
Date: 2008-09-08 01:28:17 +0400 (Mon, 08 Sep 2008)
New Revision: 1495

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/buttonbar.tcl
Log:
	* ifacetk/buttonbar.tcl: Fixed keyboard traversing order for tabbar
	  after its buttons are moved or a new tab is inserted in the middle.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-08-26 19:01:28 UTC (rev 1494)
+++ trunk/tkabber/ChangeLog	2008-09-07 21:28:17 UTC (rev 1495)
@@ -1,3 +1,8 @@
+2008-09-07  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/buttonbar.tcl: Fixed keyboard traversing order for tabbar
+	  after its buttons are moved or a new tab is inserted in the middle.
+
 2008-08-26  Sergei Golovan  <sgolovan at nes.ru>
 
 	* msgs/ru.msg: Updated Russian translation.

Modified: trunk/tkabber/ifacetk/buttonbar.tcl
===================================================================
--- trunk/tkabber/ifacetk/buttonbar.tcl	2008-08-26 19:01:28 UTC (rev 1494)
+++ trunk/tkabber/ifacetk/buttonbar.tcl	2008-09-07 21:28:17 UTC (rev 1495)
@@ -354,6 +354,18 @@
 
     if {$num == 0} return
 
+    # Change buttons stacking order
+    set prev ""
+    foreach name $data(buttons) {
+	set but [_but $path $name]
+	if {[string equal $prev ""]} {
+	    ::lower $but
+	} else {
+	    ::raise $but $prev
+	}
+	set prev $but
+    }
+
     set min [Widget::getoption $path -minwidth]
     set max [Widget::getoption $path -maxwidth]
     if {$min > $max} {



More information about the Tkabber-dev mailing list