luke
/
xschem
mirror of https://github.com/StefanSchippers/xschem.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fixes in insert_symbol

This commit is contained in:
stefan schippers 2025-03-16 00:49:38 +01:00
parent 124d73ee64
commit c02b80c79d
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
src/xschem.tcl
View File

@ -4881,22 +4881,23 @@ proc insert_symbol_preview {} {
#### fill list of files matching pattern #### fill list of files matching pattern
proc insert_symbol_filelist {paths {maxdepth -1}} { proc insert_symbol_filelist {paths {maxdepth -1}} {
global insert_symbol new_symbol_browser_ext global insert_symbol new_symbol_browser_ext
set paths [.ins.center.leftdir.l curselection] set sel [.ins.center.leftdir.l curselection]
if {$paths eq {}} {return} if {![info exists insert_symbol(dirs)]} {return}
set insert_symbol(dirindex) $paths if {$sel eq {}} {
set sel [.ins.center.leftdir.l index active]
.ins.center.leftdir.l selection set active
}
set insert_symbol(dirindex) $sel
# puts "set dirindex=$paths" # puts "set dirindex=$paths"
set paths [lindex $insert_symbol(dirs) $paths] set paths [lindex $insert_symbol(dirs) $sel]
# puts "insert_symbol_filelist: paths=$paths" # puts "insert_symbol_filelist: paths=$paths"
.ins.top2.dir_e configure -state normal .ins.top2.dir_e configure -state normal
.ins.top2.dir_e delete 0 end .ins.top2.dir_e delete 0 end
.ins.top2.dir_e insert 0 $paths .ins.top2.dir_e insert 0 $paths
.ins.top2.dir_e configure -state readonly .ins.top2.dir_e configure -state readonly
#check if regex is valid #check if regex is valid
set err [catch {regexp $insert_symbol(regex) {12345}} res] set err [catch {regexp $insert_symbol(regex) {12345}} res]
if {$err} {return} if {$err} {return}
set f [match_file $insert_symbol(regex) $paths 0] set f [match_file $insert_symbol(regex) $paths 0]
set filelist {} set filelist {}
set insert_symbol(fullpathlist) {} set insert_symbol(fullpathlist) {}
@ -4908,7 +4909,6 @@ proc insert_symbol_filelist {paths {maxdepth -1}} {
if {$sel eq {}} { set sel 0} if {$sel eq {}} { set sel 0}
.ins.center.left.l activate $sel .ins.center.left.l activate $sel
foreach i $f { foreach i $f {
set err [catch {regexp $new_symbol_browser_ext $i} type] set err [catch {regexp $new_symbol_browser_ext $i} type]
if {!$err && $type} { if {!$err && $type} {
set fname [file tail $i] set fname [file tail $i]
@ -4924,13 +4924,11 @@ proc insert_symbol_filelist {paths {maxdepth -1}} {
set files [lsort -dictionary -index 0 $files] set files [lsort -dictionary -index 0 $files]
set filelist {} set filelist {}
set insert_symbol(fullpathlist) {} set insert_symbol(fullpathlist) {}
foreach f $files { foreach f $files {
lassign $f ff fff lassign $f ff fff
lappend filelist $ff lappend filelist $ff
lappend insert_symbol(fullpathlist) $fff lappend insert_symbol(fullpathlist) $fff
} }
set insert_symbol(nitems) [llength $filelist] set insert_symbol(nitems) [llength $filelist]
# assign listbox variable all at the end, it is faster... # assign listbox variable all at the end, it is faster...
set insert_symbol(list) $filelist set insert_symbol(list) $filelist