Description: |
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
|
User Comments: |
aku added on 2019-04-11 20:12:37:
(text/x-fossil-wiki)
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.
|