diff options
Diffstat (limited to 'sandbox/testbezier.tcl')
| -rw-r--r-- | sandbox/testbezier.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sandbox/testbezier.tcl b/sandbox/testbezier.tcl index 528ddac..eddb2b9 100644 --- a/sandbox/testbezier.tcl +++ b/sandbox/testbezier.tcl @@ -61,7 +61,8 @@ foreach current $show { .r translate $grp [expr $col * 240] [expr $row * (-290 - (2 * $lw))] .r itemconfigure [.r find withtag "bezier" $grp] \ -capstyle $cap -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} { |