diff options
author | Miller Puckette <millerpuckette@users.sourceforge.net> | 2008-01-16 21:54:11 +0000 |
---|---|---|
committer | Miller Puckette <millerpuckette@users.sourceforge.net> | 2008-01-16 21:54:11 +0000 |
commit | cde1ee8fa147dfd15dc5c5b43093cd8c8a402b74 (patch) | |
tree | 8682f7eb796e19647afedd5e1c641425879d98b3 /pd/src/u_main.tk | |
parent | c50af0d647849d50a4fbbe44aa855455b92c80fd (diff) |
0.41-0 test 11
svn path=/trunk/; revision=9147
Diffstat (limited to 'pd/src/u_main.tk')
-rw-r--r-- | pd/src/u_main.tk | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/pd/src/u_main.tk b/pd/src/u_main.tk index 08d429a1..5b9d4e74 100644 --- a/pd/src/u_main.tk +++ b/pd/src/u_main.tk @@ -895,6 +895,17 @@ proc pdtk_canvas_new {name width height geometry editable} { global tcl_version toplevel $name -menu $name.m + # if we're a mac, refuse to make window so big you can't get to + # the resizing control + if {$pd_nt == 2} { + if {$width > [winfo screenwidth $name] - 80} { + set width [expr [winfo screenwidth $name] - 80] + } + if {$height > [winfo screenheight $name] - 80} { + set height [expr [winfo screenheight $name] - 80] + } + } + # slide offscreen windows into view if {$tcl_version >= 8.4} { set geometry [split $geometry +] |