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:
parent
8e21a7aa68
commit
ba259b751d
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Reference in New Issue