descend instance in case of vectored instances. Pressing Cancel when asked which instance to descend into aborts instead of descending into first instance

This commit is contained in:
stefan schippers 2025-09-22 10:21:50 +02:00
parent 8e21a7aa68
commit ba259b751d
1 changed files with 1 additions and 1 deletions

View File

@ -7562,7 +7562,7 @@ proc input_line {txt {cmd {}} {preset {}} {w 12}} {
set tctx::retval \[.dialog.f1.e get\]
destroy .dialog
"
button .dialog.f2.cancel -text Cancel -command { destroy .dialog }
button .dialog.f2.cancel -text Cancel -command { set tctx::retval {}; destroy .dialog }
pack .dialog.f2.ok -anchor w -side left
pack .dialog.f2.cancel -anchor e
pack .dialog.f1