diff options
| author | William Joye <wjoye@cfa.harvard.edu> | 2019-12-20 21:04:09 (GMT) |
|---|---|---|
| committer | William Joye <wjoye@cfa.harvard.edu> | 2019-12-20 21:04:09 (GMT) |
| commit | 7f7c3ef3118503fac81f9a0c67f1a6d1373ed01a (patch) | |
| tree | 18ca83b8414122e9f3b609ebbb49b3c7954d0a07 /tkblt/tests/marker.tcl | |
| parent | f36c94c1a58be797b09fe9bea5e5f92e68c682c3 (diff) | |
| download | blt-7f7c3ef3118503fac81f9a0c67f1a6d1373ed01a.zip blt-7f7c3ef3118503fac81f9a0c67f1a6d1373ed01a.tar.gz blt-7f7c3ef3118503fac81f9a0c67f1a6d1373ed01a.tar.bz2 | |
update subtrees
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 - |