From 0c4c8f4d9f3f6ae225e6e76665bc24eebd0e18fa Mon Sep 17 00:00:00 2001
From: stefan schippers <stefan.schippers@gmail.com>
Date: Thu, 13 Mar 2025 00:48:38 +0100
Subject: [PATCH] proc insert_symbol: select active listbox cell so symbol
 placement can start right away

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

diff --git a/src/xschem.tcl b/src/xschem.tcl
index f7107593..97db9639 100644
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@@ -4810,10 +4810,10 @@ proc insert_symbol_preview {{paths {}}} {
   bind .ins.center.right <Expose> {}
   bind .ins.center.right <Configure> {}
   set sel [.ins.center.left.l curselection]
-  # if {$sel eq {}} {
-  #   set sel [.ins.center.left.l index active]
-  #   .ins.center.left.l selection set active
-  # }
+  if {$sel eq {}} {
+    set sel [.ins.center.left.l index active]
+    .ins.center.left.l selection set active
+  }
   if {$sel ne {}} {
     set f [lindex $insert_symbol(fullpathlist) $sel 0]
     if {$f ne {}} {