fix height of windows in column 1

[micropolis] / res / whead.tcl

diff --git a/res/whead.tcl b/res/whead.tcl
index f9b689e242ef93ac2052ec99af188521f76a7d2b..a46bb925d5f704f3e25bb4c4648090637c44bae2 100644 (file)
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -656,7 +656,7 @@ place configure $win.col1\
   -x 0\
   -y 0\
   -width $HeadPanelWidth\
-  -height $screenheight
+  -relheight 1.0
 
 pack append $win.col1\
     $win.col1.w1               {top frame nw fillx} \
@@ -685,7 +685,16 @@ place configure $win.col2\
   -x [expr "$HeadPanelWidth + 5"]\
   -y 0\
   -relheight 1.0\
-  -relwidth 1.0
+  -width [expr "($screenwidth - $HeadPanelWidth) - 5"]
+
+proc resizeeditor {win width} {
+  global HeadPanelWidth
+
+  place configure $win.col2\
+    -width [expr "($width - $HeadPanelWidth) - 5"]
+}
+
+bind $win <Configure> "resizeeditor $win %w"
 
 #pack append $win.col2\
 #    $win.col2.x1              {top frame nw fillx} \