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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Apr 24 10:09:44 MSD 2007


Author: sergei
Date: 2007-04-24 10:09:43 +0400 (Tue, 24 Apr 2007)
New Revision: 1124

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/buttonbar.tcl
Log:
	* ifacetk/buttonbar.tcl: Fixed raising tab page if this page is
	  already activated.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-04-22 06:46:44 UTC (rev 1123)
+++ trunk/tkabber/ChangeLog	2007-04-24 06:09:43 UTC (rev 1124)
@@ -1,3 +1,8 @@
+2007-04-24  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/buttonbar.tcl: Fixed raising tab page if this page is
+	  already activated.
+
 2007-04-22  Sergei Golovan  <sgolovan at nes.ru>
 
 	* configdir.tcl, splash.tcl, tkabber.tcl: Fixed bug when Tkabber

Modified: trunk/tkabber/ifacetk/buttonbar.tcl
===================================================================
--- trunk/tkabber/ifacetk/buttonbar.tcl	2007-04-22 06:46:44 UTC (rev 1123)
+++ trunk/tkabber/ifacetk/buttonbar.tcl	2007-04-24 06:09:43 UTC (rev 1124)
@@ -212,11 +212,11 @@
 	    Button::configure $but -relief raised -state normal
 	}
     }
+    if {![string equal [Widget::getoption $path -pages] ""]} {
+	[Widget::getoption $path -pages] raise $active
+    }
     if {$active != $data(active)} {
 	set data(active) $active
-	if {![string equal [Widget::getoption $path -pages] ""]} {
-	    [Widget::getoption $path -pages] raise $active
-	}
 	if {[info exists data(raisecmd,$name)]} {
 	    uplevel #0 $data(raisecmd,$name)
 	}



More information about the Tkabber-dev mailing list