Tk Library Source Code

Running this slighltly modified example from the docs

package require Plotchart
canvas .c -background white
pack   .c -fill both
set s [::Plotchart::createXYPlot .c {0.0 100.0 10.0} {0.0 100.0 20.0}]
foreach {x y} {0.0 32.0 10.0 50.0 25.0 60.0 78.0 11.0 } {
    $s plot series1 $x $y
}
$s title "Data series"

with Tk trunk results in an error:

expected integer but got "10c"
    while executing
"incr width -[$w cget -borderwidth]"
    (procedure "WidthCanvas" line 19)
    invoked from within
"WidthCanvas $w"
    (procedure "MarginsRectangle" line 78)
    invoked from within
"MarginsRectangle $w $argv"
    (procedure "CreateXYPlotImpl" line 16)
    invoked from within
"CreateXYPlotImpl xyplot $w $xscale $yscale $args"
    (procedure "::Plotchart::createXYPlot" line 3)
    invoked from within
"::Plotchart::createXYPlot .c {0.0 100.0 10.0} {0.0 100.0 20.0}"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 {set s [::Plotchart::createXYPlot .c {0.0 100.0 10.0} {0.0 100.0 20.0}]}"

This is due to changes in Tk option defaults

$ echo 'canvas .c; puts [.c cget -width]; exit' | wish8.6 
379
$ echo 'canvas .c; puts [.c cget -width]; exit' | wish9.0 
10c

Attached patch solves the issue by calling [winfo pixels] where appropriate

New version is 2.7.0.

Unrelated change: using an initialisation proc to take care of the change in semantics in Tcl 9 for namespace variables outside a proc context.

I have applied the patch - had to make some additional changes though (these have to do with the naming convention used by Plotchart to distinguish multiple plots in the same canvas/window.

I verified that all tests succeed.