source base.tcl set w .line set graph [bltLineGraph $w] set mm [$graph marker create bitmap tt -element data1 \ -x 1.5 -y 100 -bitmap error] 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 -element data2 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 x bltTest3 $graph marker $mm -mapy y bltTest3 $graph marker $mm -outline green bltTest3 $graph marker $mm -state disabled bltTest3 $graph marker $mm -under yes bltTest3 $graph marker $mm -x 1 bltTest3 $graph marker $mm -xoffset 20 bltTest3 $graph marker $mm -y 150 bltTest3 $graph marker $mm -yoffset 20 echo "done" bltPlotDestroy $w