[Tkabber-dev] r1116 - in branches/tkabber-tabbar: . ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Apr 18 09:05:42 MSD 2007


Author: sergei
Date: 2007-04-18 09:05:41 +0400 (Wed, 18 Apr 2007)
New Revision: 1116

Modified:
   branches/tkabber-tabbar/ChangeLog
   branches/tkabber-tabbar/ifacetk/buttonbar.tcl
Log:
	* ifacetk/buttonbar.tcl: Configure tabbar container width to ensure
	  that vertical tabbar has correct width.


Modified: branches/tkabber-tabbar/ChangeLog
===================================================================
--- branches/tkabber-tabbar/ChangeLog	2007-04-17 19:02:57 UTC (rev 1115)
+++ branches/tkabber-tabbar/ChangeLog	2007-04-18 05:05:41 UTC (rev 1116)
@@ -1,3 +1,8 @@
+2007-04-18  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/buttonbar.tcl: Configure tabbar container width to ensure
+	  that vertical tabbar has correct width.
+
 2007-04-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/buttonbar.tcl: Restored reconfiguring button text on

Modified: branches/tkabber-tabbar/ifacetk/buttonbar.tcl
===================================================================
--- branches/tkabber-tabbar/ifacetk/buttonbar.tcl	2007-04-17 19:02:57 UTC (rev 1115)
+++ branches/tkabber-tabbar/ifacetk/buttonbar.tcl	2007-04-18 05:05:41 UTC (rev 1116)
@@ -348,6 +348,8 @@
 	set max $min
     }
 
+    $path:cmd configure -width $max
+
     if {[string equal [Widget::getoption $path -orient] "horizontal"]} {
 	set w [winfo width $path]
 
@@ -383,7 +385,7 @@
 	    }
 	}
     } else {
-	# TODO
+	# TODO: multiple columns
 	set rows $num
 	grid rowconfigure $path $num -weight 10000000 -minsize 0
 



More information about the Tkabber-dev mailing list