diff options
author | lecoanet | 2001-10-12 14:30:36 +0000 |
---|---|---|
committer | lecoanet | 2001-10-12 14:30:36 +0000 |
commit | 7aa211a9febb24a260408082576cd25e820e8872 (patch) | |
tree | 0e74a4116635bdcb8850404ef1b30221d91ff9d9 /sandbox | |
parent | e56df0a5f5c1c6a36576827dddfe16b4a0c67001 (diff) | |
download | tkzinc-7aa211a9febb24a260408082576cd25e820e8872.zip tkzinc-7aa211a9febb24a260408082576cd25e820e8872.tar.gz tkzinc-7aa211a9febb24a260408082576cd25e820e8872.tar.bz2 tkzinc-7aa211a9febb24a260408082576cd25e820e8872.tar.xz |
Adaptation pour perl-tk 800.023
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(); |