Artifact
c98fded4affa2e418a13fb1c32feb5de4a074cf435f6d31eaac285910f113c19:
Attachment "test_zero_chordlength.tcl" to
ticket [6ce6e746]
added by
sgeard
2019-04-07 08:25:39.
(unpublished)
# Test for chord length resrictions.
#
# If the chord length is too small (< DBLE_EPSILON) return an error,
# otherwise no error.
package require Tk
wm withdraw .
puts -nonewline "Checking chord-length restrictions ... "
if {$tcl_version < 8.7} {
puts "FAILED: -height option for canvas arcs not supported in version $tcl_version"
exit 1
}
# Create the canvas and its duplicate
set c [canvas .c -width 700 -height 700 -bg grey]
# An arc that's too small is invisibly ignored
$c create arc 300 200 300 200 -height 50 -outline red -style arc
# An ordinary arc
$c create arc 400 200 300 200 -height 50 -outline red -style arc
# Everything is okay
puts "passed"
exit 0
