From d358343ba27af95e70968872c7fe869809c2daff Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 15 Mar 2002 13:02:42 +0000
Subject: *** empty log message ***

---
 sandbox/testpoly.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'sandbox/testpoly.tcl')

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} {
-- 
cgit v1.1