aboutsummaryrefslogtreecommitdiff
path: root/demos/magicLens.tcl
diff options
context:
space:
mode:
authorlecoanet2004-02-23 09:16:48 +0000
committerlecoanet2004-02-23 09:16:48 +0000
commitef07ddc87875cc9b88715099434e2dcff4726322 (patch)
treeacd7f4fb3fbec0b056dcac6cf340803f67cc9244 /demos/magicLens.tcl
parent8b11edd43da0482b2d427c8789a03aacb0f5b3fa (diff)
downloadtkzinc-ef07ddc87875cc9b88715099434e2dcff4726322.zip
tkzinc-ef07ddc87875cc9b88715099434e2dcff4726322.tar.gz
tkzinc-ef07ddc87875cc9b88715099434e2dcff4726322.tar.bz2
tkzinc-ef07ddc87875cc9b88715099434e2dcff4726322.tar.xz
Started reworking Tcl demos
Diffstat (limited to 'demos/magicLens.tcl')
-rw-r--r--demos/magicLens.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/demos/magicLens.tcl b/demos/magicLens.tcl
index a095248..b44254b 100644
--- a/demos/magicLens.tcl
+++ b/demos/magicLens.tcl
@@ -169,7 +169,7 @@ proc LensTranslate {way} {
}
-set w .testGraphics
+set w .magicLens
catch {destroy $w}
toplevel $w
wm title $w "Color Magic Lens Demonstration"