From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Fri, 17 Apr 2009 21:33:29 GMT
Subject: [PATCH] gitk: restore pane sizes when using ttk widgets
Message-ID: <87vdp39d92.fsf_-_@users.sourceforge.net>
In-Reply-To: <18920.32172.162401.593355@cargo.ozlabs.ibm.com>


  This patch applies the saved pane sizes for the ttk widgets. The
  ttk paned window does not have a paneconfigure subcommand but we
  can set the sash position once the widget gets mapped.

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---
 gitk |   11 +++++++++++
 1 files changed, 11 insertions(+), 0 deletions(-)

diff --git a/gitk b/gitk
index 053b1a0..8c6a239 100755
--- a/gitk
+++ b/gitk
@@ -2326,6 +2326,17 @@ proc makewindow {} {
         set ::BM "2"
     }
 
+    if {$use_ttk} {
+        bind .ctop <Map> {
+            bind %W <Map> {}
+            %W sashpos 0 $::geometry(topheight)
+        }
+        bind .pwbottom <Map> {
+            bind %W <Map> {}
+            %W sashpos 0 $::geometry(botwidth)
+        }
+    }
+
     bind .pwbottom <Configure> {resizecdetpanes %W %w}
     pack .ctop -fill both -expand 1
     bindall <1> {selcanvline %W %x %y}
-- 
1.6.2.2.1669.g7eaf8