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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 25 01:29:40 MSK 2007


Author: sergei
Date: 2007-02-25 01:29:37 +0300 (Sun, 25 Feb 2007)
New Revision: 972

Modified:
   branches/tkabber-tabbar/ChangeLog
   branches/tkabber-tabbar/ifacetk/buttonbar.tcl
Log:
	* ifacetk/buttonbar.tcl: Fixed bug with infinite loop of <Configure>
	  events.


Modified: branches/tkabber-tabbar/ChangeLog
===================================================================
--- branches/tkabber-tabbar/ChangeLog	2007-02-24 20:29:49 UTC (rev 971)
+++ branches/tkabber-tabbar/ChangeLog	2007-02-24 22:29:37 UTC (rev 972)
@@ -6,6 +6,9 @@
 	* ifacetk/iface.tcl: Configure minimum and maximum tab width
 	  separately.
 
+	* ifacetk/buttonbar.tcl: Fixed bug with infinite loop of <Configure>
+	  events.
+
 2007-02-04  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/systray.tcl, ifacetk/buttonbar.tcl, ifacetk/iface.tcl:

Modified: branches/tkabber-tabbar/ifacetk/buttonbar.tcl
===================================================================
--- branches/tkabber-tabbar/ifacetk/buttonbar.tcl	2007-02-24 20:29:49 UTC (rev 971)
+++ branches/tkabber-tabbar/ifacetk/buttonbar.tcl	2007-02-24 22:29:37 UTC (rev 972)
@@ -123,7 +123,7 @@
 
     _calc_text $path $name
 
-    bind $but <Configure> [list [namespace current]::_itemconfigure $path $name]
+    #bind $but <Configure> [list [namespace current]::_itemconfigure $path $name]
 
     foreach {event script} $data(bindtabs) {
 	bind $but $event [linsert $script end $name]
@@ -397,6 +397,9 @@
 	    }
 	}
     }
+    foreach name $data(buttons) {
+	_itemconfigure $path $name
+    }
 }
 
 
@@ -491,7 +494,7 @@
     set w [winfo width $but]
 
     if {![info exists data(text,$name)] ||
-	    ![info exists data(width,$name)] || $data(width) != $w} {
+	    ![info exists data(width,$name)] || $data(width,$name) != $w} {
 	set data(width,$name) $w
 	_reconfigure_text $path $name
     }



More information about the Tkabber-dev mailing list