From: Michael Gernoth <michael@gernoth.net>
Date: Tue, 15 Jan 2008 21:18:18 +0000 (+0100)
Subject: shrink game window to fit on screen if necessary
X-Git-Url: http://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/da740e099480cf76f6be22259dc599878d92f50b?hp=276e43bad96799ae902957a247aae6c7d44ff975

shrink game window to fit on screen if necessary
---

diff --git a/res/whead.tcl b/res/whead.tcl
index a46bb92..1255d5b 100644
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -80,8 +80,17 @@ set visual [winfo screenvisual $win]
 set depth [winfo screendepth $win]
 set screenwidth [winfo screenwidth $win]
 set screenheight [winfo screenheight $win]
-#set screenwidth 1200
-#set screenheight 900
+set initialwidth 1200
+set initialheight 900
+
+if {$screenwidth < $initialwidth} {
+	set initialwidth $screenwidth
+}
+
+if {$screenheight < $initialheight} {
+	set initialheight $screenheight
+}
+
 
 if {!(("$visual" == "pseudocolor") ||
       ("$visual" == "truecolor") ||
@@ -116,7 +125,7 @@ bind $win <Mod2-Key> {tk_traverseToMenu %W %A}
 
 wm title $win "Micropolis Controls"
 wm iconname $win {Micropolis Controls}
-wm geometry $win 1200x900+0+0
+wm geometry $win ${initialwidth}x${initialheight}+0+0
 #wm positionfrom $win user
 wm withdraw $win
 wm maxsize $win $screenwidth $screenheight