From: hadaq <hadaq>
Date: Thu, 19 Jun 2003 12:09:17 +0000 (+0000)
Subject: restart added by MM, commit by MT
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=ae89c4071739300b68f50bbc052313d629089a87;p=daqdata.git

restart added by MM, commit by MT
---

diff --git a/hadaq/hadaq.tcl b/hadaq/hadaq.tcl
index bb444d8..229f093 100644
--- 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