diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-01-15 16:06:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-01-15 16:06:18 (GMT) |
| commit | 82a83e55c5f93ae3e6545f829f98c828fefa3c5b (patch) | |
| tree | aff9b47194677ca3fe501b1d9d1f88f5a9236455 /tests/canvPsGrph.tcl | |
| parent | 03734119e407f4bcced1a69bb30f1032fb83b222 (diff) | |
| download | tk-82a83e55c5f93ae3e6545f829f98c828fefa3c5b.zip tk-82a83e55c5f93ae3e6545f829f98c828fefa3c5b.tar.gz tk-82a83e55c5f93ae3e6545f829f98c828fefa3c5b.tar.bz2 | |
remove some unnecessary eol-spacing
Diffstat (limited to 'tests/canvPsGrph.tcl')
| -rw-r--r-- | tests/canvPsGrph.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/canvPsGrph.tcl b/tests/canvPsGrph.tcl index 343979f..08ccd74 100644 --- a/tests/canvPsGrph.tcl +++ b/tests/canvPsGrph.tcl @@ -50,13 +50,13 @@ proc mkObjs c { $c create rect 380 200 420 240 -fill black $c create rect 200 330 240 370 -fill black } - + if {$what == "oval"} { $c create oval 50 10 150 80 -fill black -stipple gray25 -outline {} $c create oval 100 100 200 150 -outline {} -fill black -stipple gray50 $c create oval 250 100 400 300 -width .5c } - + if {$what == "poly"} { $c create poly 100 200 200 50 300 200 -smooth yes -stipple gray25 \ -outline black -width 4 @@ -68,7 +68,7 @@ proc mkObjs c { $c create poly 20 200 100 220 90 100 40 250 \ -fill {} -outline brown -width 3 } - + if {$what == "line"} { $c create line 20 20 120 20 -arrow both -width 5 $c create line 20 80 150 80 20 200 150 200 -smooth yes |