From: Michael Gernoth Date: Tue, 15 Jan 2008 21:18:18 +0000 (+0100) Subject: shrink game window to fit on screen if necessary X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/da740e099480cf76f6be22259dc599878d92f50b?ds=sidebyside 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 {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