Show/hide lines in pairwise plot

Author: jhenin

vmd/cv_dashboard/cv_dashboard.tcl

@@ -132,8 +132,8 @@ Please upgrade to VMD 1.9.4 alpha or later."
   if { [vecdist $abc {1 1 1}] < 1e-10 } {
       set answer [tk_messageBox -icon warning -type okcancel -title "Warning: unlikely periodic box lengths"\
         -message "The periodic box lengths are (1, 1, 1), which can be the output of a\
- non-periodic simulation in NAMD. Overwrite with (0, 0, 0) to make Colvars detect as non-periodic?
- The command line is:
+ non-periodic simulation in NAMD. Overwrite with (0, 0, 0) to signal a non-periodic system?
+ This will run the following commands:
  package require pbctools
  pbc set {0 0 0} -all -molid $::cv_dashboard::mol"]
       if { $answer == "ok" } {

vmd/cv_dashboard/cv_dashboard_plots.tcl

@@ -92,6 +92,8 @@ proc ::cv_dashboard::plot { { type timeline } } {
     menubutton $menubar.colvars -text "Colvars" -underline 0 -menu $menubar.colvars.menu
     menu $menubar.colvars.menu -tearoff 0
     $menubar.colvars.menu add command -label "Swap axes" -command ::cv_dashboard::pairwise_swap_axes
+    $menubar.colvars.menu add command -label "Turn lines off" -command "::cv_dashboard::display_lines false"
+    $menubar.colvars.menu add command -label "Turn lines on" -command "::cv_dashboard::display_lines true"
     # Add item to existing menu bar
     set col [lindex [grid size $menubar] 0]
     grid $menubar.colvars -row 0 -column $col -sticky nsw
@@ -544,4 +546,17 @@ proc ::cv_dashboard::pairwise_swap_axes {} {
 
   $plothandle clear
   $plothandle add $y $x -xlabel $ylabel -ylabel $xlabel -plot
+}
+
+
+proc ::cv_dashboard::display_lines { yesno } {
+
+  variable ::cv_dashboard::plothandle
+  if $yesno {
+    set param "-lines"
+  } else {
+    set param "-nolines"
+  }
+
+  $plothandle configure $param -plot
 }