Tcl Library Source Code

When I bind to the plot created by createLogXYPlot using bindplot, I get an error.
Same happens when I use bindlast instead.
Same will happen for all other XY plot types except createXYPlot itself.

I corrected the bug only for bindplot and only for createLogXYPlot but all other types should be corrected too.

I modified the files:
plotbind.tcl
plotchart.tcl

Here are the unified diffs:





 lib_x64/plotchart/plotbind.tcl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lib_x64/plotchart/plotbind.tcl b/lib_x64/plotchart/plotbind.tcl
index f06e71a..d6310f8 100644
--- a/lib_x64/plotchart/plotbind.tcl
+++ b/lib_x64/plotchart/plotbind.tcl
@@ -20,6 +20,10 @@
 proc ::Plotchart::BindPlot {w event cmd} {
     variable scaling
 
+    if {![info exists scaling($w,eventobj)]} {
+        set scaling($w,eventobj) ""
+    }
+
     if { $scaling($w,eventobj) == "" } {
 
         set pxmin $scaling($w,pxmin)






 lib_x64/plotchart/plotchart.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib_x64/plotchart/plotchart.tcl b/lib_x64/plotchart/plotchart.tcl
index c9d3c25..4e3cea9 100644
--- a/lib_x64/plotchart/plotchart.tcl
+++ b/lib_x64/plotchart/plotchart.tcl
@@ -164,6 +164,9 @@ namespace eval ::Plotchart {
    set methodProc(logxyplot,plaintextconfig)   ConfigPlainText
    set methodProc(logxyplot,canvas)         GetCanvas
    set methodProc(logxyplot,deletedata)     DeleteData
+
+   set methodProc(logxyplot,bindplot)       BindPlot
+
    set methodProc(logxlogyplot,title)          DrawTitle
    set methodProc(logxlogyplot,subtitle)       DrawSubtitle
    set methodProc(logxlogyplot,xtext)          DrawXtext

I am unable to find "createLogXYPlot" in Tcllib.

Is that maybe something for the Tklib tracker ?

Checking ... Yeah, looks to be Tklib's "plotchart" package.

Please enter into the tracker at https://core.tcl.tk/tklib/ticket

Assigned to Arjen as heads up.

Set to `not applicable here`, leaving closing of ticket to Arjen.