diff options
author | joye <joye> | 2014-06-16 18:34:47 (GMT) |
---|---|---|
committer | joye <joye> | 2014-06-16 18:34:47 (GMT) |
commit | 271f5abb7cfcd54a8edfaeb16b61357ef9262ea0 (patch) | |
tree | 2ba3a32573254052bac7869909e557e55f5ee32b /tests | |
parent | 92531dc3020f4dfdca47d47085105840af77cfa3 (diff) | |
download | blt-271f5abb7cfcd54a8edfaeb16b61357ef9262ea0.zip blt-271f5abb7cfcd54a8edfaeb16b61357ef9262ea0.tar.gz blt-271f5abb7cfcd54a8edfaeb16b61357ef9262ea0.tar.bz2 |
*** empty log message ***
Diffstat (limited to 'tests')
-rw-r--r-- | tests/axis.tcl | 110 | ||||
-rw-r--r-- | tests/barelement.tcl | 90 | ||||
-rw-r--r-- | tests/bargraph.tcl | 92 | ||||
-rw-r--r-- | tests/barpen.tcl | 44 | ||||
-rw-r--r-- | tests/base.tcl | 21 | ||||
-rw-r--r-- | tests/bitmapmarker.tcl | 36 | ||||
-rw-r--r-- | tests/crosshairs.tcl | 12 | ||||
-rw-r--r-- | tests/legend.tcl | 86 | ||||
-rw-r--r-- | tests/lineelement.tcl | 118 | ||||
-rw-r--r-- | tests/linegraph.tcl | 84 | ||||
-rw-r--r-- | tests/linemarker.tcl | 36 | ||||
-rw-r--r-- | tests/linepen.tcl | 52 | ||||
-rw-r--r-- | tests/polygonmarker.tcl | 38 | ||||
-rw-r--r-- | tests/test.tcl | 2 | ||||
-rw-r--r-- | tests/textmarker.tcl | 42 |
15 files changed, 438 insertions, 425 deletions
diff --git a/tests/axis.tcl b/tests/axis.tcl index d6fd914..dfa4a11 100644 --- a/tests/axis.tcl +++ b/tests/axis.tcl @@ -10,61 +10,61 @@ bltCmd $graph axis activate y echo "Testing Axis..." bltCmd $graph axis configure x -bltTest3 $graph axis y -activeforeground red -bltTest3 $graph axis y -activerelief sunken -#bltTest3 $graph axis x -autorange 10 -bltTest3 $graph axis x -background yellow -bltTest3 $graph axis x -bg blue -#bltTest3 $graph axis x -bindtags -bltTest3 $graph axis y -bd 4 -bltTest3 $graph axis y -borderwidth 4 -#bltTest3 $graph axis x -checklimits -bltTest3 $graph axis x -color red -#bltTest3 $graph axis x -command -bltTest3 $graph axis x -descending yes -bltTest3 $graph axis x -exterior no -bltTest3 $graph axis x -fg magenta -bltTest3 $graph axis x -foreground yellow -bltTest3 $graph axis x -grid no -bltTest3 $graph axis x -gridcolor blue -bltTest3 $graph axis x -griddashes {8 3} -bltTest3 $graph axis x -gridlinewidth 2 -bltTest3 $graph axis x -gridminor no -bltTest3 $graph axis x -gridminorcolor blue -bltTest3 $graph axis x -gridminordashes {8 3} -bltTest3 $graph axis x -gridminorlinewidth 2 -bltTest3 $graph axis x -hide yes -bltTest3 $graph axis x -justify left -bltTest3 $graph axis x -labeloffset yes -bltTest3 $graph axis x -limitscolor red -bltTest3 $graph axis x -limitsfont "times 18 bold italic" -bltTest3 $graph axis x -limitsformat "%e" -bltTest3 $graph axis x -linewidth 2 -bltTest3 $graph axis x -logscale yes -#bltTest3 $graph axis x -loosemin -#bltTest3 $graph axis x -loosemax -#bltTest3 $graph axis x -majorticks -#bltTest3 $graph axis x -max -#bltTest3 $graph axis x -min -#bltTest3 $graph axis x -minorticks -bltTest3 $graph axis x -relief groove -bltTest3 $graph axis x -rotate 45 -#bltTest3 $graph axis x -scrollcommand -#bltTest3 $graph axis x -scrollincrement -#bltTest3 $graph axis x -scrollmax -#bltTest3 $graph axis x -scrollmin -##bltTest3 $graph axis x -shiftby 10 -bltTest3 $graph axis x -showticks no -bltTest3 $graph axis x -stepsize 10 -bltTest3 $graph axis x -subdivisions 4 -##bltTest3 $graph axis x -tickanchor n -bltTest3 $graph axis x -tickfont {times 12 bold italic} -bltTest3 $graph axis x -ticklength 20 -bltTest3 $graph axis x -tickdefault 10 -bltTest3 $graph axis x -title {This is a Title} -bltTest3 $graph axis x -titlealternate yes -bltTest3 $graph axis x -titlecolor yellow -bltTest3 $graph axis x -titlefont {times 24 bold italic} +bltTest3 $graph axis y -activeforeground red $dops +bltTest3 $graph axis y -activerelief sunken $dops +#bltTest3 $graph axis x -autorange 10 $dops +bltTest3 $graph axis x -background yellow $dops +bltTest3 $graph axis x -bg blue $dops +bltTest3 $graph axis x -bindtags {aa} 0 +bltTest3 $graph axis y -bd 4 $dops +bltTest3 $graph axis y -borderwidth 4 $dops +#bltTest3 $graph axis x -checklimits $dops +bltTest3 $graph axis x -color red $dops +#bltTest3 $graph axis x -command $dops +bltTest3 $graph axis x -descending yes $dops +bltTest3 $graph axis x -exterior no $dops +bltTest3 $graph axis x -fg magenta $dops +bltTest3 $graph axis x -foreground yellow $dops +bltTest3 $graph axis x -grid no $dops +bltTest3 $graph axis x -gridcolor blue $dops +bltTest3 $graph axis x -griddashes {8 3} $dops +bltTest3 $graph axis x -gridlinewidth 2 $dops +bltTest3 $graph axis x -gridminor no $dops +bltTest3 $graph axis x -gridminorcolor blue $dops +bltTest3 $graph axis x -gridminordashes {8 3} $dops +bltTest3 $graph axis x -gridminorlinewidth 2 $dops +bltTest3 $graph axis x -hide yes $dops +bltTest3 $graph axis x -justify left $dops +bltTest3 $graph axis x -labeloffset yes $dops +bltTest3 $graph axis x -limitscolor red $dops +bltTest3 $graph axis x -limitsfont {times 18 bold italic} $dops +bltTest3 $graph axis x -limitsformat "%e" $dops +bltTest3 $graph axis x -linewidth 2 $dops +bltTest3 $graph axis x -logscale yes $dops +#bltTest3 $graph axis x -loosemin $dops +#bltTest3 $graph axis x -loosemax $dops +#bltTest3 $graph axis x -majorticks $dops +#bltTest3 $graph axis x -max $dops +#bltTest3 $graph axis x -min $dops +#bltTest3 $graph axis x -minorticks $dops +bltTest3 $graph axis x -relief groove $dops +bltTest3 $graph axis x -rotate 45 $dops +#bltTest3 $graph axis x -scrollcommand $dops +#bltTest3 $graph axis x -scrollincrement $dops +#bltTest3 $graph axis x -scrollmax $dops +#bltTest3 $graph axis x -scrollmin $dops +##bltTest3 $graph axis x -shiftby 10 $dops +bltTest3 $graph axis x -showticks no $dops +bltTest3 $graph axis x -stepsize 10 $dops +bltTest3 $graph axis x -subdivisions 4 $dops +##bltTest3 $graph axis x -tickanchor n $dops +bltTest3 $graph axis x -tickfont {times 12 bold italic} $dops +bltTest3 $graph axis x -ticklength 20 $dops +bltTest3 $graph axis x -tickdefault 10 $dops +bltTest3 $graph axis x -title {This is a Title} $dops +bltTest3 $graph axis x -titlealternate yes $dops +bltTest3 $graph axis x -titlecolor yellow $dops +bltTest3 $graph axis x -titlefont {times 24 bold italic} $dops #bltCmd $graph axis activate foo #bltCmd $graph axis bind x diff --git a/tests/barelement.tcl b/tests/barelement.tcl index 5574432..414d14c 100644 --- a/tests/barelement.tcl +++ b/tests/barelement.tcl @@ -12,51 +12,51 @@ $graph element activate data3 echo "Testing Bar Element..." bltCmd $graph element data1 configure -bltTest3 $graph element data3 -activepen foo -bltTest3 $graph element data2 -background yellow -bltTest3 $graph element data2 -barwidth 1 -bltTest3 $graph element data2 -bd 4 -bltTest3 $graph element data2 -bg yellow -#bltTest3 $graph element data2 -bindtags -bltTest3 $graph element data2 -borderwidth 4 -bltTest3 $graph element data2 -color yellow -bltTest3 $graph element data1 -data {0.2 8 0.4 20 0.6 31 0.8 41 1.0 50 1.2 59 1.4 65 1.6 70 1.8 75 2.0 85} -bltTest3 $graph element data2 -errorbarcolor green -bltTest3 $graph element data2 -errorbarwidth 2 -bltTest3 $graph element data2 -errorbarcap 10 -bltTest3 $graph element data2 -fg yellow -bltTest3 $graph element data1 -fill cyan -bltTest3 $graph element data2 -foreground green -bltTest3 $graph element data2 -hide yes -bltTest3 $graph element data2 -label "This is a test" -bltTest3 $graph element data2 -legendrelief groove -bltTest3 $graph element data2 -mapx x2 -bltTest3 $graph element data2 -mapy y2 -bltTest3 $graph element data1 -outline red -bltTest3 $graph element data2 -pen foo -bltTest3 $graph element data2 -relief flat -bltTest3 $graph element data2 -showerrorbars no -bltTest3 $graph element data1 -showvalues none -bltTest3 $graph element data1 -showvalues x -bltTest3 $graph element data1 -showvalues both -#bltTest3 $graph element data2 -stack -#bltTest3 $graph element data2 -styles -bltTest3 $graph element data1 -valueanchor n -bltTest3 $graph element data1 -valuecolor cyan -bltTest3 $graph element data1 -valuefont "times 18 bold italic" -bltTest3 $graph element data1 -valueformat "%e" -bltTest3 $graph element data1 -valuerotate 45 -#bltTest3 $graph element data2 -weights -bltTest3 $graph element data1 -x {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} -bltTest3 $graph element data1 -xdata {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} -bltTest3 $graph element data2 -xerror {.1 .1 .1 .1 .1 .1 .1 .1 .1 .1 .1} -#bltTest3 $graph element data2 -xhigh -#bltTest3 $graph element data2 -xlow -bltTest3 $graph element data1 -y {8 20 31 41 50 59 65 70 75 85} -bltTest3 $graph element data1 -ydata {8 20 31 41 50 59 65 70 75 85} -bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5} -#bltTest3 $graph element data2 -yhigh -#bltTest3 $graph element data2 -ylow +bltTest3 $graph element data3 -activepen foo $dops +bltTest3 $graph element data2 -background yellow $dops +bltTest3 $graph element data2 -barwidth 1 $dops +bltTest3 $graph element data2 -bd 4 $dops +bltTest3 $graph element data2 -bg yellow $dops +bltTest3 $graph element data2 -bindtags {aa} 0 +bltTest3 $graph element data2 -borderwidth 4 $dops +bltTest3 $graph element data2 -color yellow $dops +bltTest3 $graph element data1 -data {0.2 8 0.4 20 0.6 31 0.8 41 1.0 50 1.2 59 1.4 65 1.6 70 1.8 75 2.0 85} $dops +bltTest3 $graph element data2 -errorbarcolor green $dops +bltTest3 $graph element data2 -errorbarwidth 2 $dops +bltTest3 $graph element data2 -errorbarcap 10 $dops +bltTest3 $graph element data2 -fg yellow $dops +bltTest3 $graph element data1 -fill cyan $dops +bltTest3 $graph element data2 -foreground green $dops +bltTest3 $graph element data2 -hide yes $dops +bltTest3 $graph element data2 -label "This is a test" $dops +bltTest3 $graph element data2 -legendrelief groove $dops +bltTest3 $graph element data2 -mapx x2 $dops +bltTest3 $graph element data2 -mapy y2 $dops +bltTest3 $graph element data1 -outline red $dops +bltTest3 $graph element data2 -pen foo $dops +bltTest3 $graph element data2 -relief flat $dops +bltTest3 $graph element data2 -showerrorbars no $dops +bltTest3 $graph element data1 -showvalues none $dops +bltTest3 $graph element data1 -showvalues x $dops +bltTest3 $graph element data1 -showvalues both $dops +#bltTest3 $graph element data2 -stack $dops +#bltTest3 $graph element data2 -styles $dops +bltTest3 $graph element data1 -valueanchor n $dops +bltTest3 $graph element data1 -valuecolor cyan $dops +bltTest3 $graph element data1 -valuefont {times 18 bold italic} $dops +bltTest3 $graph element data1 -valueformat "%e" $dops +bltTest3 $graph element data1 -valuerotate 45 $dops +#bltTest3 $graph element data2 -weights $dops +bltTest3 $graph element data1 -x {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} $dops +bltTest3 $graph element data1 -xdata {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} $dops +bltTest3 $graph element data2 -xerror {.1 .1 .1 .1 .1 .1 .1 .1 .1 .1 .1} $dops +#bltTest3 $graph element data2 -xhigh $dops +#bltTest3 $graph element data2 -xlow $dops +bltTest3 $graph element data1 -y {8 20 31 41 50 59 65 70 75 85} $dops +bltTest3 $graph element data1 -ydata {8 20 31 41 50 59 65 70 75 85} $dops +bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5} $dops +#bltTest3 $graph element data2 -yhigh $dops +#bltTest3 $graph element data2 -ylow $dops bltCmd $graph element activate data2 bltCmd $graph element deactivate data2 diff --git a/tests/bargraph.tcl b/tests/bargraph.tcl index a4d0097..c9a77aa 100644 --- a/tests/bargraph.tcl +++ b/tests/bargraph.tcl @@ -7,52 +7,52 @@ echo "Testing Bar Graph..." bltCmd $graph configure # Graph -bltTest $graph -aspect 2 -bltTest $graph -background red -bltTest $graph -barmode stacked -bltTest $graph -barmode aligned -bltTest $graph -barmode overlap -bltTest $graph -barwidth .15 -#bltTest $graph -baseline -bltTest $graph -bd 50 -bltTest $graph -bg green -bltTest $graph -bm 50 -bltTest $graph -borderwidth 50 -bltTest $graph -bottommargin 50 -#bltTest $graph -bufferelements -#bltTest $graph -buffergraph -bltTest $graph -cursor cross -bltTest $graph -fg blue -bltTest $graph -font {times 36 bold italic} -bltTest $graph -foreground cyan -#bltTest $graph -halo -bltTest $graph -height 300 -#bltTest $graph -highlightbackground -#bltTest $graph -highlightcolor -#bltTest $graph -highlightthickness -bltTest $graph -invertxy yes -bltTest $graph -justify left -bltTest $graph -leftmargin 50 -bltTest $graph -lm 50 -bltTest $graph -plotbackground cyan -bltTest $graph -plotborderwidth 50 -bltTest $graph -plotpadx 50 -bltTest $graph -plotpady 50 -bltTest $graph -plotrelief groove -bltTest $graph -relief groove -bltTest $graph -rightmargin 50 -bltTest $graph -rm 50 -#bltTest $graph -searchhalo -#bltTest $graph -searchmode -#bltTest $graph -searchalong -#bltTest $graph -stackaxes -#bltTest $graph -takefocus -bltTest $graph -title "This is a Title" -bltTest $graph -tm 50 -bltTest $graph -topmargin 50 -bltTest $graph -width 300 -bltTest $graph -plotwidth 300 -bltTest $graph -plotheight 300 +bltTest $graph -aspect 2 $dops +bltTest $graph -background red $dops +bltTest $graph -barmode stacked $dops +bltTest $graph -barmode aligned $dops +bltTest $graph -barmode overlap $dops +bltTest $graph -barwidth .15 $dops +#bltTest $graph -baseline $dops +bltTest $graph -bd 50 $dops +bltTest $graph -bg green $dops +bltTest $graph -bm 50 $dops +bltTest $graph -borderwidth 50 $dops +bltTest $graph -bottommargin 50 $dops +#bltTest $graph -bufferelements $dops +#bltTest $graph -buffergraph $dops +bltTest $graph -cursor cross $dops +bltTest $graph -fg blue $dops +bltTest $graph -font {times 36 bold italic} $dops +bltTest $graph -foreground cyan $dops +#bltTest $graph -halo $dops +bltTest $graph -height 300 $dops +#bltTest $graph -highlightbackground $dops +#bltTest $graph -highlightcolor $dops +#bltTest $graph -highlightthickness $dops +bltTest $graph -invertxy yes $dops +bltTest $graph -justify left $dops +bltTest $graph -leftmargin 50 $dops +bltTest $graph -lm 50 $dops +bltTest $graph -plotbackground cyan $dops +bltTest $graph -plotborderwidth 50 $dops +bltTest $graph -plotpadx 50 $dops +bltTest $graph -plotpady 50 $dops +bltTest $graph -plotrelief groove $dops +bltTest $graph -relief groove $dops +bltTest $graph -rightmargin 50 $dops +bltTest $graph -rm 50 $dops +#bltTest $graph -searchhalo $dops +#bltTest $graph -searchmode $dops +#bltTest $graph -searchalong $dops +#bltTest $graph -stackaxes $dops +#bltTest $graph -takefocus $dops +bltTest $graph -title "This is a Title" $dops +bltTest $graph -tm 50 $dops +bltTest $graph -topmargin 50 $dops +bltTest $graph -width 300 $dops +bltTest $graph -plotwidth 300 $dops +bltTest $graph -plotheight 300 $dops ##bltCmd $graph axis bltCmd $graph cget -background diff --git a/tests/barpen.tcl b/tests/barpen.tcl index 6189b2a..2a02e50 100644 --- a/tests/barpen.tcl +++ b/tests/barpen.tcl @@ -8,28 +8,28 @@ $graph element configure data2 -pen foo echo "Testing Bar Pen..." -bltTest3 $graph pen foo -background yellow -bltTest3 $graph pen foo -bd 4 -bltTest3 $graph pen foo -bg yellow -bltTest3 $graph pen foo -borderwidth 4 -bltTest3 $graph pen foo -color yellow -bltTest3 $graph pen foo -errorbarcolor green -bltTest3 $graph pen foo -errorbarwidth 2 -bltTest3 $graph pen foo -errorbarcap 10 -bltTest3 $graph pen foo -fg yellow -bltTest3 $graph pen foo -fill cyan -bltTest3 $graph pen foo -foreground green -bltTest3 $graph pen foo -outline red -bltTest3 $graph pen foo -relief flat -bltTest3 $graph pen foo -showerrorbars no -bltTest3 $graph pen foo -showvalues none -bltTest3 $graph pen foo -showvalues x -bltTest3 $graph pen foo -showvalues both -bltTest3 $graph pen foo -valueanchor n -bltTest3 $graph pen foo -valuecolor cyan -bltTest3 $graph pen foo -valuefont "times 18 bold italic" -bltTest3 $graph pen foo -valueformat "%e" -bltTest3 $graph pen foo -valuerotate 45 +bltTest3 $graph pen foo -background yellow $dops +bltTest3 $graph pen foo -bd 4 $dops +bltTest3 $graph pen foo -bg yellow $dops +bltTest3 $graph pen foo -borderwidth 4 $dops +bltTest3 $graph pen foo -color yellow $dops +bltTest3 $graph pen foo -errorbarcolor green $dops +bltTest3 $graph pen foo -errorbarwidth 2 $dops +bltTest3 $graph pen foo -errorbarcap 10 $dops +bltTest3 $graph pen foo -fg yellow $dops +bltTest3 $graph pen foo -fill cyan $dops +bltTest3 $graph pen foo -foreground green $dops +bltTest3 $graph pen foo -outline red $dops +bltTest3 $graph pen foo -relief flat $dops +bltTest3 $graph pen foo -showerrorbars no $dops +bltTest3 $graph pen foo -showvalues none $dops +bltTest3 $graph pen foo -showvalues x $dops +bltTest3 $graph pen foo -showvalues both $dops +bltTest3 $graph pen foo -valueanchor n $dops +bltTest3 $graph pen foo -valuecolor cyan $dops +bltTest3 $graph pen foo -valuefont {times 18 bold italic} $dops +bltTest3 $graph pen foo -valueformat "%e" $dops +bltTest3 $graph pen foo -valuerotate 45 $dops bltCmd $graph pen cget foo -color bltCmd $graph pen configure foo diff --git a/tests/base.tcl b/tests/base.tcl index 6cc63c3..710fbd8 100644 --- a/tests/base.tcl +++ b/tests/base.tcl @@ -1,5 +1,8 @@ #set sleep 1000 set sleep 500 +if {![info exists dops]} { + set dops 0 +} proc bltPlot {w title} { toplevel $w @@ -16,13 +19,17 @@ proc bltPlotDestroy {w} { destroy $w } -proc bltTest {graph option value} { +proc bltTest {graph option value {dops 0}} { global sleep echo " $option $value" set org [$graph cget $option] $graph configure $option $value update + if {$dops} { + $graph postscript output foo.ps + exec open /Applications/Preview.app/ foo.ps + } # after $sleep read stdin 1 $graph configure $option $org @@ -30,13 +37,17 @@ proc bltTest {graph option value} { after $sleep } -proc bltTest2 {graph which option value} { +proc bltTest2 {graph which option value {dops 0}} { global sleep echo " $option $value" set org [$graph $which cget $option] $graph $which configure $option $value update + if {$dops} { + $graph postscript output foo.ps + exec open /Applications/Preview.app/ foo.ps + } # after $sleep read stdin 1 $graph $which configure $option $org @@ -44,13 +55,17 @@ proc bltTest2 {graph which option value} { after $sleep } -proc bltTest3 {graph which item option value} { +proc bltTest3 {graph which item option value {dops 0}} { global sleep echo " $item $option $value" set org [$graph $which cget $item $option] $graph $which configure $item $option $value update + if {$dops} { + $graph postscript output foo.ps + exec open /Applications/Preview.app/ foo.ps + } # after $sleep read stdin 1 $graph $which configure $item $option $org diff --git a/tests/bitmapmarker.tcl b/tests/bitmapmarker.tcl index fffada0..655929c 100644 --- a/tests/bitmapmarker.tcl +++ b/tests/bitmapmarker.tcl @@ -10,24 +10,24 @@ $graph element configure data1 -hide yes echo "Testing Bitmap Marker..." bltCmd $graph marker configure $mm -bltTest3 $graph marker $mm -anchor nw -bltTest3 $graph marker $mm -background yellow -bltTest3 $graph marker $mm -bg red -#bltTest3 $graph marker $mm -bindtags {aa} -bltTest3 $graph marker $mm -bitmap hourglass -bltTest3 $graph marker $mm -coords {1 50} -bltTest3 $graph marker $mm -element data1 -bltTest3 $graph marker $mm -fg cyan -bltTest3 $graph marker $mm -fill yellow -bltTest3 $graph marker $mm -foreground blue -bltTest3 $graph marker $mm -hide yes -bltTest3 $graph marker $mm -mapx x2 -bltTest3 $graph marker $mm -mapy y2 -bltTest3 $graph marker $mm -outline green -bltTest3 $graph marker $mm -state disabled -bltTest3 $graph marker $mm -under yes -bltTest3 $graph marker $mm -xoffset 20 -bltTest3 $graph marker $mm -yoffset 20 +bltTest3 $graph marker $mm -anchor nw $dops +bltTest3 $graph marker $mm -background yellow $dops +bltTest3 $graph marker $mm -bg red $dops +bltTest3 $graph marker $mm -bindtags {aa} 0 +bltTest3 $graph marker $mm -bitmap hourglass $dops +bltTest3 $graph marker $mm -coords {1 50} $dops +bltTest3 $graph marker $mm -element data1 $dops +bltTest3 $graph marker $mm -fg cyan $dops +bltTest3 $graph marker $mm -fill yellow $dops +bltTest3 $graph marker $mm -foreground blue $dops +bltTest3 $graph marker $mm -hide yes $dops +bltTest3 $graph marker $mm -mapx x2 $dops +bltTest3 $graph marker $mm -mapy y2 $dops +bltTest3 $graph marker $mm -outline green $dops +bltTest3 $graph marker $mm -state disabled $dops +bltTest3 $graph marker $mm -under yes $dops +bltTest3 $graph marker $mm -xoffset 20 $dops +bltTest3 $graph marker $mm -yoffset 20 $dops echo "done" bltPlotDestroy $w diff --git a/tests/crosshairs.tcl b/tests/crosshairs.tcl index 86efb8c..dd1f41b 100644 --- a/tests/crosshairs.tcl +++ b/tests/crosshairs.tcl @@ -9,12 +9,12 @@ $graph crosshairs configure -x 200 -y 200 echo "Testing Crosshairs..." $graph crosshairs configure -bltTest2 $graph crosshairs -color green -bltTest2 $graph crosshairs -dashes "8 3" -bltTest2 $graph crosshairs -hide yes -bltTest2 $graph crosshairs -linewidth 3 -bltTest2 $graph crosshairs -x 100 -bltTest2 $graph crosshairs -y 100 +bltTest2 $graph crosshairs -color green $dops +bltTest2 $graph crosshairs -dashes "8 3" $dops +bltTest2 $graph crosshairs -hide yes $dops +bltTest2 $graph crosshairs -linewidth 3 $dops +bltTest2 $graph crosshairs -x 100 $dops +bltTest2 $graph crosshairs -y 100 $dops bltCmd $graph crosshairs cget -color bltCmd $graph crosshairs configure diff --git a/tests/legend.tcl b/tests/legend.tcl index 5c775eb..ea59f2c 100644 --- a/tests/legend.tcl +++ b/tests/legend.tcl @@ -10,49 +10,49 @@ $graph legend configure -selectrelief groove echo "Testing Legend..." $graph legend configure -#bltTest2 $graph legend -activebackground -#bltTest2 $graph legend -activeborderwidth -#bltTest2 $graph legend -activeforeground -#bltTest2 $graph legend -activerelief -bltTest2 $graph legend -anchor s -bltTest2 $graph legend -bg pink -bltTest2 $graph legend -background cyan -bltTest2 $graph legend -borderwidth 20 -bltTest2 $graph legend -bd 20 -bltTest2 $graph legend -columns 2 -#bltTest2 $graph legend -exportselection -bltTest2 $graph legend -focusdashes "8 3" -bltTest2 $graph legend -focusforeground red -bltTest2 $graph legend -font "times 18 bold italic" -bltTest2 $graph legend -fg yellow -bltTest2 $graph legend -foreground purple -bltTest2 $graph legend -hide yes -bltTest2 $graph legend -ipadx 20 -bltTest2 $graph legend -ipady 20 -#bltTest2 $graph legend -nofocusselectbackground -#bltTest2 $graph legend -nofocusselectforeground -bltTest2 $graph legend -padx 20 -bltTest2 $graph legend -pady 20 -bltTest2 $graph legend -position rightmargin -bltTest2 $graph legend -position leftmargin -bltTest2 $graph legend -position topmargin -bltTest2 $graph legend -position bottommargin -bltTest2 $graph legend -position plotarea -bltTest2 $graph legend -position xy -bltTest2 $graph legend -x 250 -bltTest2 $graph legend -y 100 -bltTest2 $graph legend -raised yes -bltTest2 $graph legend -relief groove -bltTest2 $graph legend -rows 1 -#bltTest2 $graph legend -selectbackground -bltTest2 $graph legend -selectborderwidth 3 -#bltTest2 $graph legend -selectcommand -#bltTest2 $graph legend -selectforeground -#bltTest2 $graph legend -selectmode -bltTest2 $graph legend -selectrelief flat -bltTest2 $graph legend -title "Hello World" -bltTest2 $graph legend -titlecolor red -bltTest2 $graph legend -titlefont "times 24 bold italic" +#bltTest2 $graph legend -activebackground $dops +#bltTest2 $graph legend -activeborderwidth $dops +#bltTest2 $graph legend -activeforeground $dops +#bltTest2 $graph legend -activerelief $dops +bltTest2 $graph legend -anchor s $dops +bltTest2 $graph legend -bg pink $dops +bltTest2 $graph legend -background cyan $dops +bltTest2 $graph legend -borderwidth 20 $dops +bltTest2 $graph legend -bd 20 $dops +bltTest2 $graph legend -columns 2 $dops +#bltTest2 $graph legend -exportselection $dops +bltTest2 $graph legend -focusdashes "8 3" $dops +bltTest2 $graph legend -focusforeground red $dops +bltTest2 $graph legend -font {times 18 bold italic} $dops +bltTest2 $graph legend -fg yellow $dops +bltTest2 $graph legend -foreground purple $dops +bltTest2 $graph legend -hide yes $dops +bltTest2 $graph legend -ipadx 20 $dops +bltTest2 $graph legend -ipady 20 $dops +#bltTest2 $graph legend -nofocusselectbackground $dops +#bltTest2 $graph legend -nofocusselectforeground $dops +bltTest2 $graph legend -padx 20 $dops +bltTest2 $graph legend -pady 20 $dops +bltTest2 $graph legend -position rightmargin $dops +bltTest2 $graph legend -position leftmargin $dops +bltTest2 $graph legend -position topmargin $dops +bltTest2 $graph legend -position bottommargin $dops +bltTest2 $graph legend -position plotarea $dops +bltTest2 $graph legend -position xy $dops +bltTest2 $graph legend -x 250 $dops +bltTest2 $graph legend -y 100 $dops +bltTest2 $graph legend -raised yes $dops +bltTest2 $graph legend -relief groove $dops +bltTest2 $graph legend -rows 1 $dops +#bltTest2 $graph legend -selectbackground $dops +bltTest2 $graph legend -selectborderwidth 3 $dops +#bltTest2 $graph legend -selectcommand $dops +#bltTest2 $graph legend -selectforeground $dops +#bltTest2 $graph legend -selectmode $dops +bltTest2 $graph legend -selectrelief flat $dops +bltTest2 $graph legend -title "Hello World" $dops +bltTest2 $graph legend -titlecolor red $dops +bltTest2 $graph legend -titlefont {times 24 bold italic} $dops #bltCmd $graph legend activate #bltCmd $graph legend bind diff --git a/tests/lineelement.tcl b/tests/lineelement.tcl index b4200f4..4a402c6 100644 --- a/tests/lineelement.tcl +++ b/tests/lineelement.tcl @@ -11,65 +11,65 @@ $graph element activate data3 echo "Testing Line Element.." bltTest3 $graph element configure data1 -bltTest3 $graph element data3 -activepen foo -bltTest3 $graph element data2 -areabackground yellow -#bltTest3 $graph element data2 -bindtags -bltTest3 $graph element data2 -color yellow -bltTest3 $graph element data2 -dashes {8 3} -bltTest3 $graph element data1 -data {0.2 8 0.4 20 0.6 31 0.8 41 1.0 50 1.2 59 1.4 65 1.6 70 1.8 75 2.0 85} -bltTest3 $graph element data2 -errorbarcolor green -bltTest3 $graph element data2 -errorbarwidth 2 -bltTest3 $graph element data2 -errorbarcap 10 -bltTest3 $graph element data1 -fill cyan -bltTest3 $graph element data2 -hide yes -bltTest3 $graph element data2 -label "This is a test" -bltTest3 $graph element data2 -legendrelief groove -bltTest3 $graph element data2 -linewidth 3 -bltTest3 $graph element data2 -mapx x2 -bltTest3 $graph element data2 -mapy y2 -bltTest3 $graph element data1 -maxsymbols 4 -bltTest3 $graph element data1 -offdash black -bltTest3 $graph element data1 -outline green -bltTest3 $graph element data1 -outlinewidth 5 -bltTest3 $graph element data2 -pen foo -bltTest3 $graph element data1 -pixels 20 -#bltTest3 $graph element data2 -reduce -bltTest3 $graph element data1 -scalesymbols no -bltTest3 $graph element data2 -showerrorbars no -bltTest3 $graph element data1 -showvalues none -bltTest3 $graph element data1 -showvalues x -bltTest3 $graph element data1 -showvalues both -bltTest3 $graph element data1 -smooth linear -bltTest3 $graph element data1 -smooth cubic -bltTest3 $graph element data1 -smooth quadratic -bltTest3 $graph element data1 -smooth catrom -#bltTest3 $graph element data2 -styles -bltTest3 $graph element data1 -symbol arrow -bltTest3 $graph element data1 -symbol cross -bltTest3 $graph element data1 -symbol diamond -bltTest3 $graph element data1 -symbol none -bltTest3 $graph element data1 -symbol plus -bltTest3 $graph element data1 -symbol scross -bltTest3 $graph element data1 -symbol splus -bltTest3 $graph element data1 -symbol square -bltTest3 $graph element data1 -symbol triangle -bltTest3 $graph element data2 -trace both -bltTest3 $graph element data1 -valueanchor n -bltTest3 $graph element data1 -valuecolor cyan -bltTest3 $graph element data1 -valuefont "times 18 bold italic" -bltTest3 $graph element data1 -valueformat "%e" -bltTest3 $graph element data1 -valuerotate 45 -#bltTest3 $graph element data2 -weights -bltTest3 $graph element data1 -x {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} -bltTest3 $graph element data1 -xdata {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} -bltTest3 $graph element data2 -xerror {.1 .1 .1 .1 .1 .1 .1 .1 .1 .1 .1} -#bltTest3 $graph element data2 -xhigh -#bltTest3 $graph element data2 -xlow -bltTest3 $graph element data1 -y {8 20 31 41 50 59 65 70 75 85} -bltTest3 $graph element data1 -ydata {8 20 31 41 50 59 65 70 75 85} -bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5} -#bltTest3 $graph element data2 -yhigh -#bltTest3 $graph element data2 -ylow +bltTest3 $graph element data3 -activepen foo $dops +bltTest3 $graph element data2 -areabackground yellow $dops +bltTest3 $graph element data2 -bindtags {aa} +bltTest3 $graph element data2 -color yellow $dops +bltTest3 $graph element data2 -dashes {8 3} $dops +bltTest3 $graph element data1 -data {0.2 8 0.4 20 0.6 31 0.8 41 1.0 50 1.2 59 1.4 65 1.6 70 1.8 75 2.0 85} $dops +bltTest3 $graph element data2 -errorbarcolor green $dops +bltTest3 $graph element data2 -errorbarwidth 2 $dops +bltTest3 $graph element data2 -errorbarcap 10 $dops +bltTest3 $graph element data1 -fill cyan $dops +bltTest3 $graph element data2 -hide yes $dops +bltTest3 $graph element data2 -label "This is a test" $dops +bltTest3 $graph element data2 -legendrelief groove $dops +bltTest3 $graph element data2 -linewidth 3 $dops +bltTest3 $graph element data2 -mapx x2 $dops +bltTest3 $graph element data2 -mapy y2 $dops +bltTest3 $graph element data1 -maxsymbols 4 $dops +bltTest3 $graph element data1 -offdash black $dops +bltTest3 $graph element data1 -outline green $dops +bltTest3 $graph element data1 -outlinewidth 5 $dops +bltTest3 $graph element data2 -pen foo $dops +bltTest3 $graph element data1 -pixels 20 $dops +#bltTest3 $graph element data2 -reduce $dops +bltTest3 $graph element data1 -scalesymbols no $dops +bltTest3 $graph element data2 -showerrorbars no $dops +bltTest3 $graph element data1 -showvalues none $dops +bltTest3 $graph element data1 -showvalues x $dops +bltTest3 $graph element data1 -showvalues both $dops +bltTest3 $graph element data1 -smooth linear $dops +bltTest3 $graph element data1 -smooth cubic $dops +bltTest3 $graph element data1 -smooth quadratic $dops +bltTest3 $graph element data1 -smooth catrom $dops +#bltTest3 $graph element data2 -styles $dops +bltTest3 $graph element data1 -symbol arrow $dops +bltTest3 $graph element data1 -symbol cross $dops +bltTest3 $graph element data1 -symbol diamond $dops +bltTest3 $graph element data1 -symbol none $dops +bltTest3 $graph element data1 -symbol plus $dops +bltTest3 $graph element data1 -symbol scross $dops +bltTest3 $graph element data1 -symbol splus $dops +bltTest3 $graph element data1 -symbol square $dops +bltTest3 $graph element data1 -symbol triangle $dops +bltTest3 $graph element data2 -trace both $dops +bltTest3 $graph element data1 -valueanchor n $dops +bltTest3 $graph element data1 -valuecolor cyan $dops +bltTest3 $graph element data1 -valuefont {times 18 bold italic} $dops +bltTest3 $graph element data1 -valueformat "%e" $dops +bltTest3 $graph element data1 -valuerotate 45 $dops +#bltTest3 $graph element data2 -weights $dops +bltTest3 $graph element data1 -x {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} $dops +bltTest3 $graph element data1 -xdata {0 .2 .4 .6 .8 1 1.2 1.4 1.6 1.8} $dops +bltTest3 $graph element data2 -xerror {.1 .1 .1 .1 .1 .1 .1 .1 .1 .1 .1} $dops +#bltTest3 $graph element data2 -xhigh $dops +#bltTest3 $graph element data2 -xlow $dops +bltTest3 $graph element data1 -y {8 20 31 41 50 59 65 70 75 85} $dops +bltTest3 $graph element data1 -ydata {8 20 31 41 50 59 65 70 75 85} $dops +bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5} $dops +#bltTest3 $graph element data2 -yhigh $dops +#bltTest3 $graph element data2 -ylow $dops bltCmd $graph element activate data2 bltCmd $graph element deactivate data2 diff --git a/tests/linegraph.tcl b/tests/linegraph.tcl index d591348..a40ea99 100644 --- a/tests/linegraph.tcl +++ b/tests/linegraph.tcl @@ -6,48 +6,48 @@ set graph [bltLineGraph $w] echo "Testing Line Graph..." bltCmd $graph configure -bltTest $graph -aspect 2 -bltTest $graph -background red -#bltTest $graph -baseline -bltTest $graph -bd 50 -bltTest $graph -bg green -bltTest $graph -bm 50 -bltTest $graph -borderwidth 50 -bltTest $graph -bottommargin 50 -#bltTest $graph -bufferelements -#bltTest $graph -buffergraph -bltTest $graph -cursor cross -bltTest $graph -fg blue -bltTest $graph -font {times 36 bold italic} -bltTest $graph -foreground cyan -#bltTest $graph -halo -bltTest $graph -height 300 -#bltTest $graph -highlightbackground -#bltTest $graph -highlightcolor -#bltTest $graph -highlightthickness -bltTest $graph -invertxy yes -bltTest $graph -justify left -bltTest $graph -leftmargin 50 -bltTest $graph -lm 50 -bltTest $graph -plotbackground cyan -bltTest $graph -plotborderwidth 50 -bltTest $graph -plotpadx 50 -bltTest $graph -plotpady 50 -bltTest $graph -plotrelief groove -bltTest $graph -relief groove -bltTest $graph -rightmargin 50 -bltTest $graph -rm 50 -#bltTest $graph -searchhalo -#bltTest $graph -searchmode -#bltTest $graph -searchalong -#bltTest $graph -stackaxes -#bltTest $graph -takefocus -bltTest $graph -title "This is a Title" -bltTest $graph -tm 50 -bltTest $graph -topmargin 50 -bltTest $graph -width 300 -bltTest $graph -plotwidth 300 -bltTest $graph -plotheight 300 +bltTest $graph -aspect 2 $dops +bltTest $graph -background red $dops +#bltTest $graph -baseline $dops +bltTest $graph -bd 50 $dops +bltTest $graph -bg green $dops +bltTest $graph -bm 50 $dops +bltTest $graph -borderwidth 50 $dops +bltTest $graph -bottommargin 50 $dops +#bltTest $graph -bufferelements $dops +#bltTest $graph -buffergraph $dops +bltTest $graph -cursor cross $dops +bltTest $graph -fg blue $dops +bltTest $graph -font {times 36 bold italic} $dops +bltTest $graph -foreground cyan $dops +#bltTest $graph -halo $dops +bltTest $graph -height 300 $dops +#bltTest $graph -highlightbackground $dops +#bltTest $graph -highlightcolor $dops +#bltTest $graph -highlightthickness $dops +bltTest $graph -invertxy yes $dops +bltTest $graph -justify left $dops +bltTest $graph -leftmargin 50 $dops +bltTest $graph -lm 50 $dops +bltTest $graph -plotbackground cyan $dops +bltTest $graph -plotborderwidth 50 $dops +bltTest $graph -plotpadx 50 $dops +bltTest $graph -plotpady 50 $dops +bltTest $graph -plotrelief groove $dops +bltTest $graph -relief groove $dops +bltTest $graph -rightmargin 50 $dops +bltTest $graph -rm 50 $dops +#bltTest $graph -searchhalo $dops +#bltTest $graph -searchmode $dops +#bltTest $graph -searchalong $dops +#bltTest $graph -stackaxes $dops +#bltTest $graph -takefocus $dops +bltTest $graph -title "This is a Title" $dops +bltTest $graph -tm 50 $dops +bltTest $graph -topmargin 50 $dops +bltTest $graph -width 300 $dops +bltTest $graph -plotwidth 300 $dops +bltTest $graph -plotheight 300 $dops ##bltCmd $graph axis bltCmd $graph cget -background diff --git a/tests/linemarker.tcl b/tests/linemarker.tcl index 7df2cff..c2ecf81 100644 --- a/tests/linemarker.tcl +++ b/tests/linemarker.tcl @@ -13,24 +13,24 @@ $graph element configure data1 -hide yes echo "Testing Line Marker..." bltCmd $graph marker configure $mm -#bltTest3 $graph marker $mm -bindtags {aa} -bltTest3 $graph marker $mm -cap round -bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} -bltTest3 $graph marker $mm -dashes {8 3} -bltTest3 $graph marker $mm -dashoffset 10 -bltTest3 $graph marker $mm -element data1 -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 x2 -bltTest3 $graph marker $mm -mapy y2 -bltTest3 $graph marker $mm -outline green -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 +bltTest3 $graph marker $mm -bindtags {aa} 0 +bltTest3 $graph marker $mm -cap round $dops +bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} $dops +bltTest3 $graph marker $mm -dashes {8 3} $dops +bltTest3 $graph marker $mm -dashoffset 10 $dops +bltTest3 $graph marker $mm -element data1 $dops +bltTest3 $graph marker $nn -fill yellow $dops +bltTest3 $graph marker $mm -join round $dops +bltTest3 $graph marker $mm -linewidth 1 $dops +bltTest3 $graph marker $mm -hide yes $dops +bltTest3 $graph marker $mm -mapx x2 $dops +bltTest3 $graph marker $mm -mapy y2 $dops +bltTest3 $graph marker $mm -outline green $dops +bltTest3 $graph marker $mm -state disabled $dops +bltTest3 $graph marker $mm -under yes $dops +bltTest3 $graph marker $mm -xoffset 20 $dops +bltTest3 $graph marker $mm -xor yes $dops +bltTest3 $graph marker $mm -yoffset 20 $dops echo "done" bltPlotDestroy $w diff --git a/tests/linepen.tcl b/tests/linepen.tcl index d8cf2b0..3228cce 100644 --- a/tests/linepen.tcl +++ b/tests/linepen.tcl @@ -9,32 +9,32 @@ $graph element configure data2 -pen foo echo "Testing Line Pen..." $graph element configure data1 -bltTest3 $graph pen foo -color yellow -bltTest3 $graph pen foo -dashes {8 3} -bltTest3 $graph pen foo -errorbarcolor green -bltTest3 $graph pen foo -errorbarwidth 2 -bltTest3 $graph pen foo -errorbarcap 10 -bltTest3 $graph pen foo -fill cyan -bltTest3 $graph pen foo -linewidth 3 -bltTest3 $graph pen foo -offdash black -bltTest3 $graph pen foo -outline green -bltTest3 $graph pen foo -outlinewidth 5 -bltTest3 $graph pen foo -pixels 20 -bltTest3 $graph pen foo -showvalues none -bltTest3 $graph pen foo -symbol arrow -bltTest3 $graph pen foo -symbol cross -bltTest3 $graph pen foo -symbol diamond -bltTest3 $graph pen foo -symbol none -bltTest3 $graph pen foo -symbol plus -bltTest3 $graph pen foo -symbol scross -bltTest3 $graph pen foo -symbol splus -bltTest3 $graph pen foo -symbol square -bltTest3 $graph pen foo -symbol triangle -bltTest3 $graph pen foo -valueanchor n -bltTest3 $graph pen foo -valuecolor cyan -bltTest3 $graph pen foo -valuefont "times 18 bold italic" -bltTest3 $graph pen foo -valueformat "%e" -bltTest3 $graph pen foo -valuerotate 45 +bltTest3 $graph pen foo -color yellow $dops +bltTest3 $graph pen foo -dashes {8 3} $dops +bltTest3 $graph pen foo -errorbarcolor green $dops +bltTest3 $graph pen foo -errorbarwidth 2 $dops +bltTest3 $graph pen foo -errorbarcap 10 $dops +bltTest3 $graph pen foo -fill cyan $dops +bltTest3 $graph pen foo -linewidth 3 $dops +bltTest3 $graph pen foo -offdash black $dops +bltTest3 $graph pen foo -outline green $dops +bltTest3 $graph pen foo -outlinewidth 5 $dops +bltTest3 $graph pen foo -pixels 20 $dops +bltTest3 $graph pen foo -showvalues none $dops +bltTest3 $graph pen foo -symbol arrow $dops +bltTest3 $graph pen foo -symbol cross $dops +bltTest3 $graph pen foo -symbol diamond $dops +bltTest3 $graph pen foo -symbol none $dops +bltTest3 $graph pen foo -symbol plus $dops +bltTest3 $graph pen foo -symbol scross $dops +bltTest3 $graph pen foo -symbol splus $dops +bltTest3 $graph pen foo -symbol square $dops +bltTest3 $graph pen foo -symbol triangle $dops +bltTest3 $graph pen foo -valueanchor n $dops +bltTest3 $graph pen foo -valuecolor cyan $dops +bltTest3 $graph pen foo -valuefont {times 18 bold italic} $dops +bltTest3 $graph pen foo -valueformat "%e" $dops +bltTest3 $graph pen foo -valuerotate 45 $dops bltCmd $graph pen cget foo -color bltCmd $graph pen configure foo diff --git a/tests/polygonmarker.tcl b/tests/polygonmarker.tcl index 4acd7c5..52460f2 100644 --- a/tests/polygonmarker.tcl +++ b/tests/polygonmarker.tcl @@ -10,25 +10,25 @@ $graph element configure data1 -hide yes echo "Testing Polygon Marker..." bltCmd $graph marker configure $mm -#bltTest3 $graph marker $mm -bindtags {aa} -bltTest3 $graph marker $mm -cap round -bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} -bltTest3 $graph marker $mm -dashes {8 3} -bltTest3 $graph marker $mm -element data1 -bltTest3 $graph marker $mm -fill yellow -bltTest3 $graph marker $mm -fillbg blue -bltTest3 $graph marker $mm -join round -bltTest3 $graph marker $mm -linewidth 1 -bltTest3 $graph marker $mm -hide yes -bltTest3 $graph marker $mm -mapx x2 -bltTest3 $graph marker $mm -mapy y2 -bltTest3 $graph marker $mm -outline green -bltTest3 $graph marker $mm -outlinebg cyan -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 +bltTest3 $graph marker $mm -bindtags {aa} 0 +bltTest3 $graph marker $mm -cap round $dops +bltTest3 $graph marker $mm -coords {1 50 1.5 100 2 150} $dops +bltTest3 $graph marker $mm -dashes {8 3} $dops +bltTest3 $graph marker $mm -element data1 $dops +bltTest3 $graph marker $mm -fill yellow $dops +bltTest3 $graph marker $mm -fillbg blue $dops +bltTest3 $graph marker $mm -join round $dops +bltTest3 $graph marker $mm -linewidth 1 $dops +bltTest3 $graph marker $mm -hide yes $dops +bltTest3 $graph marker $mm -mapx x2 $dops +bltTest3 $graph marker $mm -mapy y2 $dops +bltTest3 $graph marker $mm -outline green $dops +bltTest3 $graph marker $mm -outlinebg cyan $dops +bltTest3 $graph marker $mm -state disabled $dops +bltTest3 $graph marker $mm -under yes $dops +bltTest3 $graph marker $mm -xoffset 20 $dops +bltTest3 $graph marker $mm -xor yes $dops +bltTest3 $graph marker $mm -yoffset 20 $dops echo "done" bltPlotDestroy $w diff --git a/tests/test.tcl b/tests/test.tcl index 120958b..b51a5f2 100644 --- a/tests/test.tcl +++ b/tests/test.tcl @@ -4,8 +4,6 @@ set w .line set graph [bltLineGraph $w] #set graph [bltBarGraph $w] -$graph postscript output foo.ps - #echo "done" #bltPlotDestroy $w diff --git a/tests/textmarker.tcl b/tests/textmarker.tcl index 12b5f23..f741ad8 100644 --- a/tests/textmarker.tcl +++ b/tests/textmarker.tcl @@ -10,27 +10,27 @@ $graph element configure data1 -hide yes echo "Testing Text Marker..." bltCmd $graph marker configure $mm -bltTest3 $graph marker $mm -anchor nw -bltTest3 $graph marker $mm -background yellow -bltTest3 $graph marker $mm -bg red -#bltTest3 $graph marker $mm -bindtags {aa} -bltTest3 $graph marker $mm -coords {1 50} -bltTest3 $graph marker $mm -element data1 -bltTest3 $graph marker $mm -fg cyan -bltTest3 $graph marker $mm -fill yellow -bltTest3 $graph marker $mm -font {times 24 bold italic} -bltTest3 $graph marker $mm -foreground blue -bltTest3 $graph marker $mm -justify left -bltTest3 $graph marker $mm -hide yes -bltTest3 $graph marker $mm -mapx x2 -bltTest3 $graph marker $mm -mapy y2 -bltTest3 $graph marker $mm -outline green -bltTest3 $graph marker $mm -rotate 45 -bltTest3 $graph marker $mm -state disabled -bltTest3 $graph marker $mm -text {Hello World} -bltTest3 $graph marker $mm -under yes -bltTest3 $graph marker $mm -xoffset 20 -bltTest3 $graph marker $mm -yoffset 20 +bltTest3 $graph marker $mm -anchor nw $dops +bltTest3 $graph marker $mm -background yellow $dops +bltTest3 $graph marker $mm -bg red $dops +bltTest3 $graph marker $mm -bindtags {aa} 0 +bltTest3 $graph marker $mm -coords {1 50} $dops +bltTest3 $graph marker $mm -element data1 $dops +bltTest3 $graph marker $mm -fg cyan $dops +bltTest3 $graph marker $mm -fill yellow $dops +bltTest3 $graph marker $mm -font {times 24 bold italic} $dops +bltTest3 $graph marker $mm -foreground blue $dops +bltTest3 $graph marker $mm -justify left $dops +bltTest3 $graph marker $mm -hide yes $dops +bltTest3 $graph marker $mm -mapx x2 $dops +bltTest3 $graph marker $mm -mapy y2 $dops +bltTest3 $graph marker $mm -outline green $dops +bltTest3 $graph marker $mm -rotate 45 $dops +bltTest3 $graph marker $mm -state disabled $dops +bltTest3 $graph marker $mm -text {Hello World} $dops +bltTest3 $graph marker $mm -under yes $dops +bltTest3 $graph marker $mm -xoffset 20 $dops +bltTest3 $graph marker $mm -yoffset 20 $dops echo "done" bltPlotDestroy $w |