diff options
Diffstat (limited to 'sandbox')
| -rw-r--r-- | sandbox/local.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/sandbox/local.pl b/sandbox/local.pl index a1e981e..b66f179 100644 --- a/sandbox/local.pl +++ b/sandbox/local.pl @@ -150,4 +150,6 @@ $zinc->translate($rect, -150, -150); $zinc->rotate($rect, 35); $zinc->translate($rect, 150, 150); +$mw->Tk::bind('<q>', sub { exit(0); }); + MainLoop(); |