diff options
| author | lecoanet | 2000-02-02 14:01:15 +0000 |
|---|---|---|
| committer | lecoanet | 2000-02-02 14:01:15 +0000 |
| commit | 64089dca388f5a9a8235a94b4372763875132219 (patch) | |
| tree | 0455fa06d471a568cbece8fc27cde0216d4def23 /sandbox/testarc.tcl | |
| parent | 2b91521b4c124546e59638f2e990dcbc75903d85 (diff) | |
| download | tkzinc-64089dca388f5a9a8235a94b4372763875132219.zip tkzinc-64089dca388f5a9a8235a94b4372763875132219.tar.gz tkzinc-64089dca388f5a9a8235a94b4372763875132219.tar.bz2 tkzinc-64089dca388f5a9a8235a94b4372763875132219.tar.xz | |
Passage en Zinc
Diffstat (limited to 'sandbox/testarc.tcl')
| -rw-r--r-- | sandbox/testarc.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
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 |