diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2020-07-22 19:20:21 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2020-07-22 19:20:21 (GMT) |
commit | 26d4fea12c679692b39daf04be4cd8759f23ee35 (patch) | |
tree | 980bae934deb06da367360bd0adfb8d9337456c6 /tkblt/tests/marker.tcl | |
parent | d7abc84b1fd0ad42cef801f0d3c06e459184ede8 (diff) | |
download | blt-26d4fea12c679692b39daf04be4cd8759f23ee35.zip blt-26d4fea12c679692b39daf04be4cd8759f23ee35.tar.gz blt-26d4fea12c679692b39daf04be4cd8759f23ee35.tar.bz2 |
update tkblt
Diffstat (limited to 'tkblt/tests/marker.tcl')
-rw-r--r-- | tkblt/tests/marker.tcl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/tkblt/tests/marker.tcl b/tkblt/tests/marker.tcl deleted file mode 100644 index 8a09a43..0000000 --- a/tkblt/tests/marker.tcl +++ /dev/null @@ -1,33 +0,0 @@ -source base.tcl - -set w .line -set graph [bltLineGraph $w] - -set mm [$graph marker create line tt -element data1 \ - -coords {1 50 1.5 100 1 150} -linewidth 5 -bind {aa}] -set nn [$graph marker create line ss -element data1 \ - -coords {1 150 .5 100 1 50} -linewidth 1 \ - -outline green -dashes 4] - -puts stderr "Testing Marker..." - -#bltCmd $graph marker bind aa <Button-1> [list puts "%x %y"] -bltCmd $graph marker cget $mm -cap -bltCmd $graph marker configure $mm -bltCmd $graph marker configure $mm -cap -set foo [$graph marker create line] -bltCmd $graph marker delete $foo -set foo [$graph marker create line foo] -bltCmd $graph marker delete $foo -bltCmd $graph marker exists $mm -bltCmd $graph marker find enclosed 0 0 2 200 -bltCmd $graph marker lower $mm -bltCmd $graph marker lower $mm $nn -bltCmd $graph marker names -bltCmd $graph marker raise $mm -bltCmd $graph marker raise $mm $nn -bltCmd $graph marker type $mm - -puts stderr "done" -bltPlotDestroy $w - |