From: Michael Gernoth <michael@gernoth.net>
Date: Mon, 14 Jan 2008 14:18:53 +0000 (+0100)
Subject: correctly resize editor window to be in sync with the mini map
X-Git-Url: https://git.zerfleddert.de/cgi-bin/gitweb.cgi/micropolis/commitdiff_plain/cac78bdea6589c809f22efe666bd367121c15aa3?hp=2b8964762fece215b12e606abfb75c325f93e27e

correctly resize editor window to be in sync with the mini map
---

diff --git a/res/whead.tcl b/res/whead.tcl
index f9b689e..8de2802 100644
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -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} \