diff options
| author | joye <joye> | 2014-03-18 18:57:52 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-03-18 18:57:52 (GMT) |
| commit | f03aeeae4cfa1671d83df080d6d079e43cce27c7 (patch) | |
| tree | 696f39c1a1a4c4312fbd19b0374d7d3e24cb07ef /tests/linemarker.tcl | |
| parent | 64d0636aa8defdba6b48d1406c6bdb52fac8f1bc (diff) | |
| download | blt-f03aeeae4cfa1671d83df080d6d079e43cce27c7.zip blt-f03aeeae4cfa1671d83df080d6d079e43cce27c7.tar.gz blt-f03aeeae4cfa1671d83df080d6d079e43cce27c7.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests/linemarker.tcl')
| -rw-r--r-- | tests/linemarker.tcl | 26 |
1 files changed, 15 insertions, 11 deletions
diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index 70c69d4..a5240b8 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -4,42 +4,46 @@ 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 10] -return + -coords {1 50 1.5 100 1 150} -linewidth 5] +set nn [$graph marker create line ss -element data1 \ + -coords {1 150 .5 100 1 50} -linewidth 1 \ + -outline green -dashes 4] + #bltTest3 $graph marker $mm -bindtags bltTest3 $graph marker $mm -cap round -#bltTest3 $graph marker $mm -coords +bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} bltTest3 $graph marker $mm -dashes dashdot bltTest3 $graph marker $mm -dashoffset 10 bltTest3 $graph marker $mm -element data2 -#bltTest3 $graph marker $mm -fill +bltTest3 $graph marker $nn -fill yellow bltTest3 $graph marker $mm -join round bltTest3 $graph marker $mm -linewidth 1 bltTest3 $graph marker $mm -hide yes bltTest3 $graph marker $mm -mapx x -bltTest3 $graph marker $mm -mapy y +bltTest3 $graph marker $mm -mapy y bltTest3 $graph marker $mm -outline green -#bltTest3 $graph marker $mm -state +bltTest3 $graph marker $mm -state disabled bltTest3 $graph marker $mm -under yes bltTest3 $graph marker $mm -xoffset 20 bltTest3 $graph marker $mm -xor yes bltTest3 $graph marker $mm -yoffset 20 #bltCmd $graph marker bind marker ?sequence command? -#bltCmd $graph marker cget -#bltCmd $graph marker configure +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|overlapping x1 y1 x2 y2" -#bltCmd $graph marker get name +bltCmd $graph marker find enclosed 0 0 2 200 +bltCmd $graph marker get name current bltCmd $graph marker lower $mm bltCmd $graph marker names bltCmd $graph marker raise $mm bltCmd $graph marker type $mm echo "done" -#bltPlotDestroy $w +bltPlotDestroy $w |