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

some fixes in file_chooser about item selections

This commit is contained in:
stefan schippers 2025-10-06 11:28:49 +02:00
parent e63b8bab6c
commit 8b3f058bfe
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/xschem.tcl
View File

@ -5139,7 +5139,9 @@ proc file_chooser_filelist {} {
# puts "set fileindex=$sel"
}
if {$sel eq {}} { set sel 0}
.ins.center.left.l selection clear 0 end
.ins.center.left.l activate $sel
.ins.center.left.l selection set $sel
foreach i $f {
set err [catch {regexp $file_chooser(ext) $i} type]
if {!$err && $type} {
@ -5243,6 +5245,8 @@ proc file_chooser_search {} {
if {$dirindex != -1} {
# puts "dirindex=$dirindex"
.ins.center.leftdir.l activate $dirindex
.ins.center.leftdir.l selection clear 0 end
.ins.center.leftdir.l selection set $dirindex
.ins.center.leftdir.l see $dirindex
file_chooser_filelist
set fileindex [lsearch -exact $file_chooser(files) $file]
@ -5598,11 +5602,6 @@ proc file_chooser { {maxdepth -1} {ext {.*}} } {
set file_chooser(sp1) [lindex [.ins.center sash coord 1] 0]
}
file_chooser_dirlist
if {[info exists file_chooser(dirindex)]} {.ins.center.leftdir.l activate $file_chooser(dirindex)}
if {[info exists file_chooser(fileindex)]} {
.ins.center.left.l activate $file_chooser(fileindex)
.ins.center.left.l see $file_chooser(fileindex)
}
file_chooser_filelist
return {}
}