proc insert_symbol: select active listbox cell so symbol placement can start right away

2025-03-13 00:48:38 +01:00 · 2025-03-13 00:48:38 +01:00 · 0c4c8f4d9f
parent 2a4ebe4b77
commit 0c4c8f4d9f
1 changed files with 4 additions and 4 deletions
--- 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 {}} {