insert_symbol: keep selected listbox item when leaving/entering the widget

2025-03-13 01:45:40 +01:00 · 2025-03-13 01:45:40 +01:00 · 514b1f3789
parent 0c4c8f4d9f
commit 514b1f3789
1 changed files with 3 additions and 1 deletions
--- a/src/xschem.tcl
+++ b/src/xschem.tcl
@ -4853,7 +4853,9 @@ proc insert_symbol_filelist {paths {maxdepth -1}} {
  set f [match_file $insert_symbol(regex) $paths $maxdepth]
  set filelist {}
  set insert_symbol(fullpathlist) {}
-  .ins.center.left.l activate 0
+  set sel [.ins.center.left.l curselection]
+  if {$sel eq {}} { set sel 0}
+  .ins.center.left.l activate $sel
  foreach i $f {
    
    set err [catch {regexp $insert_symbol(ext) $i} type]