[Tkabber-dev] r2006 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Aug 19 12:02:47 MSK 2012


Author: sergei
Date: 2012-08-19 12:02:47 +0400 (Sun, 19 Aug 2012)
New Revision: 2006

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/balloon.tcl
Log:
	* balloon.tcl: Apply override redirect just before deiconifying the
	  balloon window. This helps geometry propagation for some window
	  managers (e.g. Mutter).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2012-08-02 13:20:13 UTC (rev 2005)
+++ trunk/tkabber/ChangeLog	2012-08-19 08:02:47 UTC (rev 2006)
@@ -1,3 +1,9 @@
+2012-08-19  Sergei Golovan  <sgolovan at nes.ru>
+
+	* balloon.tcl: Apply override redirect just before deiconifying the
+	  balloon window. This helps geometry propagation for some window
+	  managers (e.g. Mutter).
+
 2012-08-02  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/general/headlines.tcl: Fixed calling namespaced procedure

Modified: trunk/tkabber/balloon.tcl
===================================================================
--- trunk/tkabber/balloon.tcl	2012-08-02 13:20:13 UTC (rev 2005)
+++ trunk/tkabber/balloon.tcl	2012-08-19 08:02:47 UTC (rev 2006)
@@ -25,7 +25,6 @@
     ::tk::unsupported::MacWindowStyle style .balloon help none    
 } else {
     wm transient .balloon .
-    wm overrideredirect .balloon 1
 }
 
 wm withdraw .balloon
@@ -101,6 +100,7 @@
 	}
     }
 
+    wm overrideredirect .balloon 1
     wm geometry .balloon +$b_x+$b_y
     wm deiconify .balloon
 
@@ -122,6 +122,7 @@
 	set _id [after $_delay "balloon::show $mx $my"]
 	set _cur $w
 	wm withdraw .balloon
+	wm overrideredirect .balloon 0
 	set balloon_showed 0
 	set balloon_remove 0
     } else {
@@ -158,6 +159,7 @@
     after 100 {
 	if {$balloon::balloon_remove} {
 	    wm withdraw .balloon
+	    wm overrideredirect .balloon 0
 	    set balloon::balloon_showed 0
 	    set balloon::balloon_remove 0
 	}



More information about the Tkabber-dev mailing list