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

in <<ListboxSelect>> events use ...listpath... curselection instead of ..listpath... index active, as the latter is updated *after* the event.

This commit is contained in:
stefan schippers 2025-10-06 02:05:20 +02:00
parent fdd4c74f8a
commit dc07be9071
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/xschem.tcl
View File

@ -5042,7 +5042,7 @@ proc file_chooser_select_preview {} {
xschem preview_window close .ins.center.right {}
bind .ins.center.right <Expose> {}
bind .ins.center.right <Configure> {}
set sel [.ins.center.left.l index active]
set sel [lindex [.ins.center.left.l curselection] 0]
if {$sel ne {} && [info exists file_chooser(fullpathlist)]} {
set file_chooser(fileindex) $sel
# puts "set fileindex=$sel"
@ -5116,7 +5116,8 @@ proc file_chooser_filelist {} {
global file_chooser
if {![info exists file_chooser(dirs)]} {return}
set sel [.ins.center.leftdir.l index active]
set sel [lindex [.ins.center.leftdir.l curselection] 0]
if {$sel eq {}} { return }
set file_chooser(dirindex) $sel
set path [lindex $file_chooser(dirs) $sel]
.ins.top2.dir_e configure -state normal
@ -5132,7 +5133,7 @@ proc file_chooser_filelist {} {
}
set filelist {}
set file_chooser(fullpathlist) {}
set sel [.ins.center.left.l index active]
set sel [lindex [.ins.center.left.l curselection] 0]
if {$sel ne {}} {
set file_chooser(fileindex) $sel
# puts "set fileindex=$sel"