[Tkabber-dev] r1846 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Oct 28 09:08:45 MSK 2009


Author: sergei
Date: 2009-10-28 09:08:44 +0300 (Wed, 28 Oct 2009)
New Revision: 1846

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/userinfo.tcl
Log:
	* userinfo.tcl: Added two overrideredirect calls (just after creating
	  toplevel window and just before drawing it) to prevent window manager
	  of catching geometry too early.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-10-27 20:25:48 UTC (rev 1845)
+++ trunk/tkabber/ChangeLog	2009-10-28 06:08:44 UTC (rev 1846)
@@ -1,3 +1,9 @@
+2009-10-28  Sergei Golovan  <sgolovan at nes.ru>
+
+	* userinfo.tcl: Added two overrideredirect calls (just after creating
+	  toplevel window and just before drawing it) to prevent window manager
+	  of catching geometry too early.
+
 2009-10-27  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl, plugins/general/rawxml.tcl,

Modified: trunk/tkabber/userinfo.tcl
===================================================================
--- trunk/tkabber/userinfo.tcl	2009-10-27 20:25:48 UTC (rev 1845)
+++ trunk/tkabber/userinfo.tcl	2009-10-28 06:08:44 UTC (rev 1846)
@@ -193,8 +193,9 @@
     }
 
     toplevel $w -relief $::tk_relief -borderwidth $::tk_borderwidth
+    wm withdraw $w
+    wm overrideredirect $w 1
     wm group $w .
-    wm withdraw $w
     set title [::msgcat::mc "%s info" $jid]
     wm title $w $title
     wm iconname $w $title
@@ -425,6 +426,7 @@
 
     $tab raise $top_page
 
+    wm overrideredirect $w 0
     wm deiconify $w
 }
 



More information about the Tkabber-dev mailing list