From 8b58ed30b849f84781a3b344b2ed0c7ee62c1ada Mon Sep 17 00:00:00 2001
From: Miller Puckette <msp@ucsd.edu>
Date: Wed, 9 Jan 2008 13:24:30 -0800
Subject: [PATCH] limited window size on Mac so you can reach the resize
control
---
src/u_main.tk | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/src/u_main.tk b/src/u_main.tk
index 08d429a1f..5b9d4e74b 100644
--- a/src/u_main.tk
+++ b/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 +]
--
GitLab