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/testrect.pl | |
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/testrect.pl')
-rw-r--r-- | sandbox/testrect.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/sandbox/testrect.pl b/sandbox/testrect.pl index aac1959..8a4d399 100644 --- a/sandbox/testrect.pl +++ b/sandbox/testrect.pl @@ -82,12 +82,12 @@ sub adjustcontrol { # #set rect2 [.r add rectangle $view "202 -320 302 -350" -filled t -fillcolor darkgray -linewidth 2] -#set rect3 [.r add rectangle $view "250 -100 350 -300" -filled t -relief raised -linewidth 4 -fillcolor "white|cadetblue3"] +#set rect3 [.r add rectangle $view "250 -100 350 -300" -filled t -relief raised -linewidth 4 -fillcolor "white|cadetblue3" -linecolor white] #set rect4 [.r add rectangle $view2 "0 0 101 -81" -linewidth 2 -linecolor darkgray -filled t] #.r itemconfigure $rect4 -fillcolor "white|darkslateblue" -#set rect5 [.r add rectangle $view2 "0 0 101 -81" -linewidth 2 -linecolor darkgray -filled t -fillcolor blue -relief sunken] +#set rect5 [.r add rectangle $view2 "0 0 101 -81" -linewidth 2 -linecolor blue -filled t -fillcolor blue -relief sunken] #.r translate $rect5 0 -90 |