fix inutile template procedure call

This commit is contained in:
stefan schippers 2023-01-12 16:33:59 +01:00
parent 115f0fdf0c
commit 2fa0155ca6
1 changed files with 1 additions and 1 deletions

View File

@ -168,7 +168,7 @@ proc inutile { {filename {}}} {
inutile_read_data .inutile.text \"$filename\"" inutile_read_data .inutile.text \"$filename\""
button .inutile.buttons.send -text "Template" -command " button .inutile.buttons.send -text "Template" -command "
if { !\[string compare \[.inutile.text get 0.0 {end - 1 chars}\] {}\]} { if { !\[string compare \[.inutile.text get 0.0 {end - 1 chars}\] {}\]} {
template .inutile.text $utile_path/template.stimuli}" inutile_template .inutile.text $utile_path/template.stimuli}"
label .inutile.buttons.timelab -text "time:" label .inutile.buttons.timelab -text "time:"
entry .inutile.buttons.time -width 11 entry .inutile.buttons.time -width 11
pack .inutile.buttons.dismiss .inutile.buttons.code \ pack .inutile.buttons.dismiss .inutile.buttons.code \