From add555b0016151d7f605c5053a2c68e821c3ff99 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Tue, 7 Oct 2025 00:43:10 +0200
Subject: [PATCH] fix paned window sp0 and sp1 sizes save/load in file_chooser

---
 src/xschem.tcl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/xschem.tcl b/src/xschem.tcl
index 44a2ecbd..ecff7e5a 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -5615,9 +5615,9 @@ proc file_chooser {} {
   } else {
     # wm geometry .ins 800x300
   }
-  update
   .ins.center paneconfigure .ins.center.leftdir -minsize [winfo reqwidth .ins.center.leftdir]
   .ins.center paneconfigure .ins.center.left -minsize [winfo reqwidth .ins.center.left]
+  update
   if { [info exists file_chooser(sp0)]} {
     .ins.center sash place 0 $file_chooser(sp0) 1
   }
@@ -5625,6 +5625,8 @@ proc file_chooser {} {
     .ins.center sash place 1 $file_chooser(sp1) 1
   }
   bind .ins <Configure> {
+    # puts "sash0: [.ins.center sash coord 0]"
+    # puts "sash1: [.ins.center sash coord 1]"
     set file_chooser(geometry) [wm geometry .ins]
     set file_chooser(sp0) [lindex [.ins.center sash coord 0] 0]
     set file_chooser(sp1) [lindex [.ins.center sash coord 1] 0]