[Tkabber-dev] r1496 - trunk/tkabber/ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Sep 8 01:36:10 MSD 2008


Author: sergei
Date: 2008-09-08 01:36:10 +0400 (Mon, 08 Sep 2008)
New Revision: 1496

Modified:
   trunk/tkabber/ifacetk/buttonbar.tcl
Log:
	* ifacetk/buttonbar.tcl: Simplified code for the previous change.


Modified: trunk/tkabber/ifacetk/buttonbar.tcl
===================================================================
--- trunk/tkabber/ifacetk/buttonbar.tcl	2008-09-07 21:28:17 UTC (rev 1495)
+++ trunk/tkabber/ifacetk/buttonbar.tcl	2008-09-07 21:36:10 UTC (rev 1496)
@@ -355,15 +355,8 @@
     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
+	::raise [_but $path $name]
     }
 
     set min [Widget::getoption $path -minwidth]



More information about the Tkabber-dev mailing list