restart added by MM, commit by MT

diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl
index bb444d82d00df77c92d290f0144678d0dbf5ed10..229f09357240cd9debc5c6d6f3641413700e17d5 100644 (file)
--- a/hadaq/hadaq.tcl
+++ b/hadaq/hadaq.tcl
@@ -314,9 +314,11 @@ proc updateAcquisitionButtons {} {
        if [isDown [group status acquisition]] {
                .mbar.options.menu entryconfigure 0 -state normal
                .mbar.options.menu entryconfigure 1 -state disabled
+               .mbar.options.menu entryconfigure 2 -state disabled
        } else {
                .mbar.options.menu entryconfigure 0 -state disabled
                .mbar.options.menu entryconfigure 1 -state normal
+               .mbar.options.menu entryconfigure 2 -state normal
        }
 }
 
@@ -355,6 +357,11 @@ proc stopAcquisitionCmd {} {
        updateAcquisitionButtons
 }
 
+proc restartAcquisitionCmd {} {
+       stopAcquisitionCmd
+       startAcquisitionCmd
+}
+
 proc updateAcquisitionStat {} {
        if {![isDown [group status acquisition]]} {
                updateStat viewAcquisitionStat [group status acquisition -counter]
@@ -493,6 +500,7 @@ eval menu .mbar.view.menu $tearoff
 eval menu .mbar.options.menu $tearoff
 .mbar.options.menu add command -label "Start Acquisition" -command startAcquisitionCmd
 .mbar.options.menu add command -label "Stop Acquisition" -command stopAcquisitionCmd
+.mbar.options.menu add command -label "Restart Acquisition" -command restartAcquisitionCmd
 
 eval menu .mbar.help.menu $tearoff
 .mbar.help.menu add command -label "About" -command aboutCmd -state disabled