[Tkabber-dev] r1814 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Jul 25 14:52:18 MSD 2009


Author: sergei
Date: 2009-07-25 14:52:17 +0400 (Sat, 25 Jul 2009)
New Revision: 1814

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/xcommands.tcl
Log:
	* plugins/general/xcommands.tcl: Made ad-hoc command window
	  non-transitive which is more suitable for long-lived dialogs.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-07-17 11:30:16 UTC (rev 1813)
+++ trunk/tkabber/ChangeLog	2009-07-25 10:52:17 UTC (rev 1814)
@@ -1,3 +1,8 @@
+2009-07-25  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/xcommands.tcl: Made ad-hoc command window
+	  non-transitive which is more suitable for long-lived dialogs.
+
 2009-07-17  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/iq/time2.tcl: Fixed timezone definition (and made it fail to

Modified: trunk/tkabber/plugins/general/xcommands.tcl
===================================================================
--- trunk/tkabber/plugins/general/xcommands.tcl	2009-07-17 11:30:16 UTC (rev 1813)
+++ trunk/tkabber/plugins/general/xcommands.tcl	2009-07-25 10:52:17 UTC (rev 1814)
@@ -89,8 +89,13 @@
 	destroy $w
     }
 
-    Dialog $w -modal none -separator 1 -anchor e -class XData \
-	      -default 0 -cancel 1
+    Dialog $w -transient 0 \
+	      -modal none  \
+	      -separator 1 \
+	      -anchor e    \
+	      -class XData \
+	      -default 0   \
+	      -cancel 1
     set geometry [option get $w geometry XData]
     if {$geometry != ""} {
 	wm geometry $w $geometry



More information about the Tkabber-dev mailing list