removed useless global tcl var token
This commit is contained in:
parent
264b602b8d
commit
159b362c9f
|
|
@ -2362,11 +2362,10 @@ proc property_search {} {
|
||||||
set search_value [.dialog.val.e get]
|
set search_value [.dialog.val.e get]
|
||||||
set custom_token [.dialog.custom.e get]
|
set custom_token [.dialog.custom.e get]
|
||||||
if {$debug_var<=-1} { puts stderr "|$custom_token|" }
|
if {$debug_var<=-1} { puts stderr "|$custom_token|" }
|
||||||
set token $custom_token
|
|
||||||
if { $search_exact==1 } {
|
if { $search_exact==1 } {
|
||||||
set search_found [xschem searchmenu exact $search_select $token $search_value]
|
set search_found [xschem searchmenu exact $search_select $custom_token $search_value]
|
||||||
} else {
|
} else {
|
||||||
set search_found [xschem searchmenu regex $search_select $token $search_value]
|
set search_found [xschem searchmenu regex $search_select $custom_token $search_value]
|
||||||
}
|
}
|
||||||
destroy .dialog
|
destroy .dialog
|
||||||
}
|
}
|
||||||
|
|
@ -2474,7 +2473,6 @@ proc attach_labels_to_inst {} {
|
||||||
frame .dialog.but
|
frame .dialog.but
|
||||||
button .dialog.but.ok -text OK -command {
|
button .dialog.but.ok -text OK -command {
|
||||||
set custom_label_prefix [.dialog.custom.e get]
|
set custom_label_prefix [.dialog.custom.e get]
|
||||||
set token $custom_token
|
|
||||||
#### put command here
|
#### put command here
|
||||||
set rcode yes
|
set rcode yes
|
||||||
destroy .dialog
|
destroy .dialog
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue