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/contours.tcl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sandbox/contours.tcl')

diff --git a/sandbox/contours.tcl b/sandbox/contours.tcl
index cbddcb8..7bea39f 100644
--- a/sandbox/contours.tcl
+++ b/sandbox/contours.tcl
@@ -15,7 +15,7 @@ set view [.r add group $top -tags controls]
 #set poly [.r add curve $view "50 -150 300 -150 300 -300 50 -300 50 -150" \
 #	-closed t -fillcolor tan]
 set poly [.r add curve $view "50 -150 50 -300 300 -300 300 -150 50 -150" \
-	-closed t -fillcolor tan -linewidth 2 -relief raised]
+	-closed t -fillcolor tan -linecolor tan -linewidth 2 -relief raised]
 .r scale $poly 2.0 2.0
 .r translate $poly -60 150
 set rect [.r add rectangle $view "50 -200 100 -50"]
-- 
cgit v1.1