gitk: Fix restoring of pane sizes

From: Sergey Vlasov <vsu@altlinux.ru>
Date: Feb 11, 2007, 16:58 UTC
Message-ID: <117121311393-git-send-email-vsu@altlinux.ru>
In-Reply-To: <20070211195643.b1f548f2.vsu@altlinux.ru>

At least on Linux with Tk 8.4.13 gitk always came up with default pane sizes, even though they were previously saved in ~/.gitk. Apparently setting width and height of frames in these panes when creating them is not enough, and an explicit paneconfigure call is needed.

Signed-off-by: Sergey Vlasov <vsu@altlinux.ru>
---
 gitk |    2 ++
 1 files changed, 2 insertions(+), 0 deletions(-)

diff --git a/gitk b/gitk
index df1ce8c..7e6ee56 100755
--- a/gitk
+++ b/gitk
@@ -577,6 +577,7 @@ proc makewindow {} {
     pack .tf.bar -in .tf -side bottom -fill x
     pack .tf.histframe -fill both -side top -expand 1
     .ctop add .tf
+    .ctop paneconfigure .tf -height $geometry(topheight)
 
     # now build up the bottom
     panedwindow .pwbottom -orient horizontal
@@ -638,6 +639,7 @@ proc makewindow {} {
     $ctext tag conf found -back yellow
 
     .pwbottom add .bleft
+    .pwbottom paneconfigure .bleft -width $geometry(botwidth)
 
     # lower right
     frame .bright

-- 
1.5.0.rc4.50.g403de