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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Oct 13 22:57:13 MSD 2006


Author: sergei
Date: 2006-10-13 22:57:10 +0400 (Fri, 13 Oct 2006)
New Revision: 760

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
Log:
	* ifacetk/iface.tcl: Bugfix.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2006-10-12 04:43:55 UTC (rev 759)
+++ trunk/tkabber/ChangeLog	2006-10-13 18:57:10 UTC (rev 760)
@@ -1,3 +1,7 @@
+2006-10-13  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iface.tcl: Bugfix.
+
 2006-10-12  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/chat/log_on_open.tcl: Changed default values for maximum

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2006-10-12 04:43:55 UTC (rev 759)
+++ trunk/tkabber/ifacetk/iface.tcl	2006-10-13 18:57:10 UTC (rev 760)
@@ -1389,13 +1389,14 @@
 # On Windows (and Tk >= 8.4.13) this means WM_QUERYENDSESSION (so we should quit),
 # on Unix, an X session manager may call this repeatedly.
 proc session_checkpoint {} {
-	::hook::run save_yourself_hook
-	if {$tcl_platform(platform) == "windows"} quit
+    global tcl_platform
+    ::hook::run save_yourself_hook
+    if {$tcl_platform(platform) == "windows"} quit
 }
 
 # Trap SIGTERM to quit gracefully on Unix when Tclx is available:
 if {$tcl_platform(platform) == "unix" 
-	&& ![catch {package require Tclx}]} {
-	signal trap SIGTERM quit
+    && ![catch {package require Tclx}]} {
+    signal trap SIGTERM quit
 }
 



More information about the Tkabber-dev mailing list