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

"Edit Attr" combobox in edit symbol attributes and edit global attributes was adding unnecessary quotes around the attribute

This commit is contained in:
Stefan Frederik 2020-12-07 21:08:13 +01:00
parent 89da7d9ffd
commit 0ca9464f8f
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/xschem.tcl
View File

@ -2377,7 +2377,7 @@ proc edit_prop {txtlabel} {
if {$selected_tok eq {<ALL>} } {
set retval $retval_orig
} else {
set retval [xschem get_tok $retval_orig $selected_tok 2]
set retval [xschem get_tok $retval_orig $selected_tok 0]
# regsub -all {\\?"} $retval {"} retval
}
.dialog.e1 delete 1.0 end
@ -2400,7 +2400,7 @@ proc edit_prop {txtlabel} {
if {$selected_tok eq {<ALL>} } {
set retval $retval_orig
} else {
set retval [xschem get_tok $retval_orig $selected_tok 2]
set retval [xschem get_tok $retval_orig $selected_tok 0]
# regsub -all {\\?"} $retval {"} retval
}
.dialog.e1 delete 1.0 end
@ -2448,7 +2448,7 @@ proc write_data {data f} {
proc text_line {txtlabel clear {preserve_disabled disabled} } {
global text_line_default_geometry preserve_unchanged_attrs
global retval rcode tcl_debug tok_list selected_tok retval_orig old_selected_tok
global retval rcode tcl_debug selected_tok retval_orig old_selected_tok
set retval_orig $retval
if $clear==1 then {set retval ""}
if {$tcl_debug <= -1} {puts " text_line{}: clear=$clear"}
@ -2517,7 +2517,7 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
}
label .dialog.f1.r4 -text { Edit Attr:}
if { [ info tclversion] > 8.4} {
ttk::combobox .dialog.f1.r5 -values [list $tok_list] -textvariable selected_tok -width 14
ttk::combobox .dialog.f1.r5 -values $tok_list -textvariable selected_tok -width 14
}
checkbutton .dialog.f0.l2 -text "preserve unchanged props" -variable preserve_unchanged_attrs \
-state $preserve_disabled
@ -2557,7 +2557,7 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
if {$selected_tok eq {<ALL>} } {
set retval $retval_orig
} else {
set retval [xschem get_tok $retval_orig $selected_tok 2]
set retval [xschem get_tok $retval_orig $selected_tok 0]
# regsub -all {\\?"} $retval {"} retval
}
.dialog.e1 delete 1.0 end
@ -2580,7 +2580,7 @@ proc text_line {txtlabel clear {preserve_disabled disabled} } {
if {$selected_tok eq {<ALL>} } {
set retval $retval_orig
} else {
set retval [xschem get_tok $retval_orig $selected_tok 2]
set retval [xschem get_tok $retval_orig $selected_tok 0]
# regsub -all {\\?"} $retval {"} retval
}
.dialog.e1 delete 1.0 end