diff options
| author | joye <joye> | 2014-03-19 14:57:58 (GMT) |
|---|---|---|
| committer | joye <joye> | 2014-03-19 14:57:58 (GMT) |
| commit | eb0f03dcf8233f5ff8bed1249145c352863872ae (patch) | |
| tree | b2be8c7209714fffb79d5868a8ce97f9f162f08c /tests/marker.tcl | |
| parent | 3e470981e44c7f52186c040d9e759a7789b25a81 (diff) | |
| download | blt-eb0f03dcf8233f5ff8bed1249145c352863872ae.zip blt-eb0f03dcf8233f5ff8bed1249145c352863872ae.tar.gz blt-eb0f03dcf8233f5ff8bed1249145c352863872ae.tar.bz2 | |
*** empty log message ***
Diffstat (limited to 'tests/marker.tcl')
| -rw-r--r-- | tests/marker.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/marker.tcl b/tests/marker.tcl index 345654d..f72029c 100644 --- a/tests/marker.tcl +++ b/tests/marker.tcl @@ -4,12 +4,12 @@ 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] + -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] -#bltCmd $graph marker bind marker ?sequence command? +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 |