From 7aa211a9febb24a260408082576cd25e820e8872 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 12 Oct 2001 14:30:36 +0000
Subject: Adaptation pour perl-tk 800.023

---
 sandbox/local.pl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'sandbox')

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();
-- 
cgit v1.1