From 00ad8c9b3bb2a1fee9a6decfc48b5b30bc0a2a41 Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Sun, 28 Sep 2025 11:06:22 +0200
Subject: [PATCH] move a pending_fullzoom=1 before a set_geom to avoid missing
 drawing

---
 src/xinit.c    | 2 +-
 src/xschem.tcl | 7 ++++---
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/src/xinit.c b/src/xinit.c
index 0fdf801c..5d29c30b 100644
--- a/src/xinit.c
+++ b/src/xinit.c
@@ -3150,8 +3150,8 @@ int Tcl_AppInit(Tcl_Interp *inter)
    if(!file_loaded) tcleval("exit 1");
    if(cli_opt_do_netlist) set_modify(-1); /* set tab/window title */
  }
- if(has_x) tclvareval("set_geom . [xschem get schname]", NULL);
  xctx->pending_fullzoom=1;
+ if(has_x) tclvareval("set_geom . [xschem get schname]", NULL);
 
  if(cli_opt_do_netlist) {
    if(!cli_opt_filename[0]) {
diff --git a/src/xschem.tcl b/src/xschem.tcl
index 0da76aaa..5fdaa79f 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -8527,10 +8527,11 @@ proc store_geom {win filename} {
     foreach i [array names geom_array] {
       append geom_data $i { } $geom_array($i) \n
     }
-    puts $geom_data
-    puts ---
+    # puts $geom_data
+    # puts ---
     # set geom_data [lsort -stride 3 -index 2 -integer $geom_data]
-    puts $geom_data
+    # puts $geom_data
+    # puts ===
     write_data $geom_data $geom_file
   }
 }