diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2019-08-04 17:04:24 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2019-08-04 17:04:24 (GMT) |
commit | ca3770496deb9ecf7e63bd684f4d82dbdd185d83 (patch) | |
tree | 7b1c49ccfbd142cc3a9acd67883cd6fc337c9cef /tkblt/tests/marker.tcl | |
parent | 59d7227509fd4c110bc78be98dc485c6ac939d05 (diff) | |
download | blt-ca3770496deb9ecf7e63bd684f4d82dbdd185d83.zip blt-ca3770496deb9ecf7e63bd684f4d82dbdd185d83.tar.gz blt-ca3770496deb9ecf7e63bd684f4d82dbdd185d83.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 - |