diff options
| author | lecoanet | 2002-03-15 13:02:42 +0000 |
|---|---|---|
| committer | lecoanet | 2002-03-15 13:02:42 +0000 |
| commit | d358343ba27af95e70968872c7fe869809c2daff (patch) | |
| tree | c0e537361d4987e3e0c37bd02e8edb2aa9c20cc5 /sandbox/testpoly.tcl | |
| parent | dd9a2afecc0d7323c6ad73278c82e61b7b643928 (diff) | |
| download | tkzinc-d358343ba27af95e70968872c7fe869809c2daff.zip tkzinc-d358343ba27af95e70968872c7fe869809c2daff.tar.gz tkzinc-d358343ba27af95e70968872c7fe869809c2daff.tar.bz2 tkzinc-d358343ba27af95e70968872c7fe869809c2daff.tar.xz | |
*** empty log message ***
Diffstat (limited to 'sandbox/testpoly.tcl')
| -rw-r--r-- | sandbox/testpoly.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sandbox/testpoly.tcl b/sandbox/testpoly.tcl index b8330e5..09209e8 100644 --- a/sandbox/testpoly.tcl +++ b/sandbox/testpoly.tcl @@ -65,7 +65,8 @@ foreach current $show { .r translate $grp [expr $col * 240] [expr $row * (-290 - (2 * $lw))] .r itemconfigure [.r find withtag "poly" $grp] \ -capstyle $cap -joinstyle $join -filled $filled \ - -linewidth [expr $border ? $lw : 0] -relief $relief + -linewidth [expr $border ? $lw : 0] -relief $relief \ + -linecolor [expr $relief == flat ? yellow : tan] .r itemconfigure [.r find withtag "title" $grp] -text $title incr col if {$col >= 4} { |