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

file_chooser_saveas: reset save button background after save

This commit is contained in:
stefan schippers 2025-10-10 18:57:04 +02:00
parent 31b9598219
commit 57ec990e6d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/xschem.tcl
View File

@ -5383,12 +5383,14 @@ proc file_chooser_saveas {} {
if {[xschem get modified]} { ;# modified
if {[xschem get schname] eq $f} { ;# file name not changed
xschem saveas $f
.ins.top2.save configure -bg [option get . background {}]
file_chooser_filelist
} else { ;# file name changed
set answer [tk_messageBox -message "Warning: file $f already exists. Overwrite?" \
-icon warning -parent .ins -type okcancel]
if {$answer ne {ok}} { return }
xschem saveas $f
.ins.top2.save configure -bg [option get . background {}]
file_chooser_filelist
}
} else { ;# not modified
@ -5399,11 +5401,13 @@ proc file_chooser_saveas {} {
-icon warning -parent .ins -type okcancel]
if {$answer ne {ok}} { return }
xschem saveas $f
.ins.top2.save configure -bg [option get . background {}]
file_chooser_filelist
}
}
} else { ;# file does not exist
xschem saveas $f
.ins.top2.save configure -bg [option get . background {}]
file_chooser_filelist
}
}