Use vroot size in stead of screen size for clipping window coordinates in ::tk::PlaceWindow.

Use ::tk::PlaceWindow in dialog.tcl, in stead of dumplicating the code there.

1 files changed, 9 insertions, 8 deletions

diff --git a/library/tk.tcl b/library/tk.tcl
index 5e6f4a6..b259240 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -116,15 +116,15 @@ proc ::tk::PlaceWindow {w {place ""} {anchor ""}} {
         set checkBounds 0
     }
     if {$checkBounds} {
-	if {$x < 0} {
-	    set x 0
-	} elseif {$x > ([winfo screenwidth $w]-[winfo reqwidth $w])} {
-	    set x [expr {[winfo screenwidth $w]-[winfo reqwidth $w]}]
+	if {$x < [winfo vrootx $w]} {
+	    set x [winfo vrootx $w]
+	} elseif {$x > ([winfo vrootx $w]+[winfo vrootwidth $w]-[winfo reqwidth $w])} {
+	    set x [expr {[winfo vrootx $w]+[winfo vrootwidth $w]-[winfo reqwidth $w]}]
 	}
-	if {$y < 0} {
-	    set y 0
-	} elseif {$y > ([winfo screenheight $w]-[winfo reqheight $w])} {
-	    set y [expr {[winfo screenheight $w]-[winfo reqheight $w]}]
+	if {$y < [winfo vrooty $w]} {
+	    set y [winfo vrooty $w]
+	} elseif {$y > ([winfo vrooty $w]+[winfo vrootheight $w]-[winfo reqheight $w])} {
+	    set y [expr {[winfo vrooty $w]+[winfo vrootheight $w]-[winfo reqheight $w]}]
 	}
 	if {[tk windowingsystem] eq "aqua"} {
 	    # Avoid the native menu bar which sits on top of everything.
@@ -133,6 +133,7 @@ proc ::tk::PlaceWindow {w {place ""} {anchor ""}} {
 	    }
 	}
     }
+    wm maxsize $w [winfo vrootwidth $w] [winfo vrootheight $w]
     wm geometry $w +$x+$y
     wm deiconify $w
 }