diff options
Diffstat (limited to 'ds9/library/graph.tcl')
| -rw-r--r-- | ds9/library/graph.tcl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/ds9/library/graph.tcl b/ds9/library/graph.tcl index 9b37697..11e1fa1 100644 --- a/ds9/library/graph.tcl +++ b/ds9/library/graph.tcl @@ -241,12 +241,17 @@ proc ClearGraphData {} { } } -proc UpdateGraph {which x y sys} { +proc UpdateGraphData {which x y sys} { global ds9 global view global graph global dgraph + global debug + if {$debug(tcl,update)} { + puts stderr "UpdateGraphData" + } + # save for later set dgraph(frame) $which set dgraph(x) $x @@ -521,7 +526,7 @@ proc GraphApplyDialog {} { if {$dgraph(frame) != {}} { set ii [lsearch $ds9(active) $dgraph(frame)] if {$ii>=0} { - UpdateGraph $dgraph(frame) $dgraph(x) $dgraph(y) canvas + UpdateGraphData $dgraph(frame) $dgraph(x) $dgraph(y) canvas } else { set dgraph(frame) {} } |