From 64089dca388f5a9a8235a94b4372763875132219 Mon Sep 17 00:00:00 2001 From: lecoanet Date: Wed, 2 Feb 2000 14:01:15 +0000 Subject: Passage en Zinc --- sandbox/testarc.tcl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'sandbox/testarc.tcl') diff --git a/sandbox/testarc.tcl b/sandbox/testarc.tcl index 6c3f777..deaf98b 100644 --- a/sandbox/testarc.tcl +++ b/sandbox/testarc.tcl @@ -1,6 +1,6 @@ #!/usr/bin/wish -f -load tkradar3.1.so +load tkzinc3.1.so package require Img set top 1 @@ -9,7 +9,7 @@ image create photo logo -file /usr/share/toccata/images/logo.gif #image create photo papier -file /usr/share/toccata/images/dgtexture-dragstrip.xpm image create photo penguin -file /usr/X11R6/include/X11/pixmaps/xpenguin_color.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 800 -height 500 #.r configure -drawbboxes t -- cgit v1.1