summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2003-07-28 21:14:11 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2003-07-28 21:14:11 (GMT)
commiteca7c389aea5751ad1e804c470a746df7990ca26 (patch)
tree3f52de6ff5080308b70d93c1f1037f177346fc8f
parent2fab9c5ce3ffe59d4a8a918fd02e4596f482fe6e (diff)
downloadtk-eca7c389aea5751ad1e804c470a746df7990ca26.zip
tk-eca7c389aea5751ad1e804c470a746df7990ca26.tar.gz
tk-eca7c389aea5751ad1e804c470a746df7990ca26.tar.bz2
* library/tk.tcl: Apply fix for bug #778840 for window placement
when using multiple desktops on windows.
-rw-r--r--ChangeLog5
-rw-r--r--library/tk.tcl6
2 files changed, 10 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index ff19578..0238623 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2003-07-28 Pat Thoyts <patthoyts@users.sourceforge.net>
+
+ * library/tk.tcl: Apply fix for bug #778840 for window placement
+ when using multiple desktops on windows.
+
2003-07-24 Pat Thoyts <patthoyts@users.sourceforge.net>
* win/tkWinCursor.c: Fix for bug #776646 for a native hand2 and
diff --git a/library/tk.tcl b/library/tk.tcl
index cb22ed6..5b75b2a 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -3,7 +3,7 @@
# Initialization script normally executed in the interpreter for each
# Tk-based application. Arranges class bindings for widgets.
#
-# RCS: @(#) $Id: tk.tcl,v 1.48 2003/05/19 14:44:03 dkf Exp $
+# RCS: @(#) $Id: tk.tcl,v 1.49 2003/07/28 21:14:12 patthoyts Exp $
#
# Copyright (c) 1992-1994 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
@@ -100,6 +100,10 @@ proc ::tk::PlaceWindow {w {place ""} {anchor ""}} {
set y [expr {([winfo screenheight $w]-[winfo reqheight $w])/2}]
set checkBounds 0
}
+ if {[tk windowingsystem eq "win32"]} {
+ # Bug 533519: win32 multiple desktops may produce negative geometry.
+ set checkBounds 0
+ }
if {$checkBounds} {
if {$x < 0} {
set x 0