From f4876885b53d6ed34fb1c3577e0c2d238a871953 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 16 Apr 2012 22:26:50 +0000
Subject: set [wm maxsize] as well

---
 library/tk.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/library/tk.tcl b/library/tk.tcl
index 1935bbc..57525f1 100644
--- a/library/tk.tcl
+++ b/library/tk.tcl
@@ -122,6 +122,7 @@ proc ::tk::PlaceWindow {w {place ""} {anchor ""}} {
 	    if {$y < 22} { set y 22 }
 	}
     }
+    wm maxsize $w [winfo vrootwidth $w] [winfo vrootheight $w]
     wm geometry $w +$x+$y
     wm deiconify $w
 }
-- 
cgit v0.12