diff options
| author | joye <joye> | 2014-05-20 18:24:00 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-05-20 18:24:00 (GMT) |
| commit | b8968fb771ec905f3dd6d9de54fe96478b9c46b3 (patch) | |
| tree | 41c3fd6323d23af1470ddb26a366cc06615ac0bd /tests/barelement.tcl | |
| parent | 9cd94eac6c4d0bf60a32daa15b769d45881a56dd (diff) | |
| download | blt-b8968fb771ec905f3dd6d9de54fe96478b9c46b3.zip blt-b8968fb771ec905f3dd6d9de54fe96478b9c46b3.tar.gz blt-b8968fb771ec905f3dd6d9de54fe96478b9c46b3.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests/barelement.tcl')
| -rw-r--r-- | tests/barelement.tcl | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/tests/barelement.tcl b/tests/barelement.tcl index 19a0a00..a0b971c 100644 --- a/tests/barelement.tcl +++ b/tests/barelement.tcl @@ -3,16 +3,17 @@ source base.tcl set w .bar set graph [bltBarGraph $w] -$graph element configure data1 -showvalues y +$graph element configure data1 -color red -showvalues y +$graph element configure data2 -color blue $graph pen create foo -showvalues y -color purple $graph element activate data3 -echo "Bar Element" +echo "Testing Bar Element..." bltTest3 $graph element data3 -activepen foo bltTest3 $graph element data2 -background yellow -bltTest3 $graph element data2 -barwidth 10 +bltTest3 $graph element data2 -barwidth 1 bltTest3 $graph element data2 -bd 4 bltTest3 $graph element data2 -bg yellow #bltTest3 $graph element data2 -bindtags @@ -59,9 +60,9 @@ bltTest3 $graph element data2 -yerror {5 5 5 5 5 5 5 5 5 5 5} bltCmd $graph element activate data2 bltCmd $graph element deactivate data2 #bltCmd $graph element bind data1 <Button-1> [list puts "%x %y"] -bltCmd $graph element cget data1 -smooth +bltCmd $graph element cget data1 -showvalues bltCmd $graph element configure data1 -bltCmd $graph element configure data1 -smooth +bltCmd $graph element configure data1 -showvalues #bltCmd $graph element closest 50 50 #bltCmd $graph element closest 50 50 data1 data2 bltCmd $graph element create data4 |