From: Michael Gernoth 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?ds=sidebyside 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 "resizeeditor $win %w" #pack append $win.col2\ # $win.col2.x1 {top frame nw fillx} \