[Tkabber-dev] r2008 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Aug 26 10:48:47 MSK 2012


Author: sergei
Date: 2012-08-26 10:48:46 +0400 (Sun, 26 Aug 2012)
New Revision: 2008

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/balloon.tcl
Log:
	* balloon.tcl: Fixed regression for MS Windows platform (switch balloon
	  windows overrideredirect parameter only for Unix platform).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2012-08-21 15:18:08 UTC (rev 2007)
+++ trunk/tkabber/ChangeLog	2012-08-26 06:48:46 UTC (rev 2008)
@@ -1,3 +1,8 @@
+2012-08-26  Sergei Golovan  <sgolovan at nes.ru>
+
+	* balloon.tcl: Fixed regression for MS Windows platform (switch balloon
+	  windows overrideredirect parameter only for Unix platform).
+
 2012-08-21  Sergei Golovan  <sgolovan at nes.ru>
 
 	* default.tcl: Fixed using semicolons in browserurl if the webbrowser

Modified: trunk/tkabber/balloon.tcl
===================================================================
--- trunk/tkabber/balloon.tcl	2012-08-21 15:18:08 UTC (rev 2007)
+++ trunk/tkabber/balloon.tcl	2012-08-26 06:48:46 UTC (rev 2008)
@@ -109,6 +109,7 @@
 }
 
 proc balloon::set_delay {w mx my} {
+    global tcl_platform
     variable balloon_showed
     variable balloon_remove
     variable _id
@@ -122,7 +123,9 @@
 	set _id [after $_delay "balloon::show $mx $my"]
 	set _cur $w
 	wm withdraw .balloon
-	wm overrideredirect .balloon 0
+	if {$tcl_platform(platform) == "unix"} {
+	    wm overrideredirect .balloon 0
+	}
 	set balloon_showed 0
 	set balloon_remove 0
     } else {
@@ -146,6 +149,7 @@
 }
 
 proc balloon::destroy {} {
+    global tcl_platform
     variable balloon_showed
     variable balloon_remove
     variable _id
@@ -159,7 +163,9 @@
     after 100 {
 	if {$balloon::balloon_remove} {
 	    wm withdraw .balloon
-	    wm overrideredirect .balloon 0
+	    if {$tcl_platform(platform) == "unix"} {
+		wm overrideredirect .balloon 0
+	    }
 	    set balloon::balloon_showed 0
 	    set balloon::balloon_remove 0
 	}



More information about the Tkabber-dev mailing list