X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/blobdiff_plain/6a5fa4e03967ab980cdc7ef96a42400bc29b4414..2b8964762fece215b12e606abfb75c325f93e27e:/res/whead.tcl

diff --git a/res/whead.tcl b/res/whead.tcl
index d437925..f9b689e 100644
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -78,10 +78,10 @@ global NoticePanelHeight
 
 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 screenwidth [winfo screenwidth $win]
+set screenheight [winfo screenheight $win]
+#set screenwidth 1200
+#set screenheight 900
 
 if {!(("$visual" == "pseudocolor") ||
       ("$visual" == "truecolor") ||
@@ -119,8 +119,8 @@ wm iconname $win {Micropolis Controls}
 wm geometry $win 1200x900+0+0
 #wm positionfrom $win user
 wm withdraw $win
-#wm maxsize $win $screenwidth $screenheight
-#wm minsize $win 100 100
+wm maxsize $win $screenwidth $screenheight
+wm minsize $win 100 100
 wm protocol $win delete "DeleteHeadWindow $win ;"
 wm fullscreen $win on
 
@@ -684,8 +684,8 @@ pack append $win.col1\
 place configure $win.col2\
   -x [expr "$HeadPanelWidth + 5"]\
   -y 0\
-  -width [expr "($screenwidth - $HeadPanelWidth) - 5"]\
-  -height $screenheight
+  -relheight 1.0\
+  -relwidth 1.0
 
 #pack append $win.col2\
 #    $win.col2.x1		{top frame nw fillx} \