diff options
| -rw-r--r-- | lib/console.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/console.tcl b/lib/console.tcl index 1f3248ffd1..bb6b9c889e 100644 --- a/lib/console.tcl +++ b/lib/console.tcl @@ -203,6 +203,8 @@ method done {ok} { focus $w.ok } } + + bind $w <Key-Escape> "destroy $w;break" } method _sb_set {sb orient first last} { |