diff options
| author | joye <joye> | 2014-03-17 22:19:42 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-03-17 22:19:42 (GMT) |
| commit | ab93911357f921ec15187f510cda811f276d6192 (patch) | |
| tree | 7671bab5cda57dc9e99c73f5fe100b3c2f8fda8c /tests | |
| parent | 616e63f07f6fb11f568c68cb84df210dac876753 (diff) | |
| download | blt-ab93911357f921ec15187f510cda811f276d6192.zip blt-ab93911357f921ec15187f510cda811f276d6192.tar.gz blt-ab93911357f921ec15187f510cda811f276d6192.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/base.tcl | 1 | ||||
| -rw-r--r-- | tests/linemarker.tcl | 65 |
2 files changed, 32 insertions, 34 deletions
diff --git a/tests/base.tcl b/tests/base.tcl index 84f21d2..518f8c6 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -36,7 +36,6 @@ proc bltTest2 {graph which option value} { set org [$graph $which cget $option] $graph $which configure $option $value update -# read stdin after $sleep $graph $which configure $option $org update diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index e3df272..70c69d4 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -2,44 +2,43 @@ source base.tcl set w .line set graph [bltLineGraph $w] -return -set marker [$graph marker create line tt \ - -element data1 \ - -coords "1 50 1.5 100 1 150" \ - -linewidth 10] -#bltTest2 $graph $marker -bindtags -bltTest2 $graph $marker -cap round -#bltTest2 $graph $marker -coords -bltTest2 $graph $marker -dashes dashdot -bltTest2 $graph $marker -dashes dashdot dashoffset 10 -bltTest2 $graph $marker -element data2 -#bltTest2 $graph $marker -fill -bltTest2 $graph $marker -join round -bltTest2 $graph $marker -linewidth 1 -bltTest2 $graph $marker -hide yes -#bltTest2 $graph $marker -mapx -#bltTest2 $graph $marker -mapy -bltTest2 $graph $marker -outline green -#bltTest2 $graph $marker -state -#bltTest2 $graph $marker -under -#bltTest2 $graph $marker -xoffset -#bltTest2 $graph $marker -xor -#bltTest2 $graph $marker -yoffset +set mm [$graph marker create line tt -element data1 \ + -coords "1 50 1.5 100 1 150" -linewidth 10] +return +#bltTest3 $graph marker $mm -bindtags +bltTest3 $graph marker $mm -cap round +#bltTest3 $graph marker $mm -coords +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 $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 -outline green +#bltTest3 $graph marker $mm -state +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 axis #bltCmd $graph marker bind marker ?sequence command? -#bltCmd $graph marker cget marker ?option? -#bltCmd $graph marker configure marker ?option value?... -#bltCmd $graph marker create type marker ?option value?... -bltCmd $graph marker exists $marker +#bltCmd $graph marker cget +#bltCmd $graph marker configure +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 lower "marker ?afterMarker?" -#bltCmd $graph marker names "?pattern?..." -#bltCmd $graph marker raise "marker ?beforeMarker?" -bltCmd $graph marker type $marker -bltCmd $graph marker delete $marker +bltCmd $graph marker lower $mm +bltCmd $graph marker names +bltCmd $graph marker raise $mm +bltCmd $graph marker type $mm echo "done" #bltPlotDestroy $w |