diff options
Diffstat (limited to 'sandbox/testpoly.tcl')
-rw-r--r-- | sandbox/testpoly.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sandbox/testpoly.tcl b/sandbox/testpoly.tcl index 0341bf9..1d64a5e 100644 --- a/sandbox/testpoly.tcl +++ b/sandbox/testpoly.tcl @@ -1,6 +1,6 @@ #!/usr/bin/wish -f -load tkradar3.1.so +load tkzinc3.1.so package require Img set top 1 @@ -33,7 +33,7 @@ set show {\ image create photo logo -file /usr/share/toccata/images/logo.gif #image create photo papier -file /usr/share/toccata/images/dgtexture-dragstrip.xpm -set r [radar .r -backcolor gray -relief sunken] +set r [zinc .r -backcolor gray -relief sunken] pack .r -expand t -fill both .r configure -width 1024 -height 800 .r scale $top 1 -1 |