diff --git a/texttools.tcl b/texttools.tcl
index 2c124e2..cf9e71f 100755
--- a/texttools.tcl
+++ b/texttools.tcl
@@ -67,6 +67,7 @@ proc update_output {} {
 }
 
 bind .content <KeyRelease> update_output
+bind . <Escape> exit
 
 proc select_transform {args} {
   global active_transform