From ae89c4071739300b68f50bbc052313d629089a87 Mon Sep 17 00:00:00 2001
From: hadaq <hadaq>
Date: Thu, 19 Jun 2003 12:09:17 +0000
Subject: [PATCH] restart added by MM, commit by MT
---
hadaq/hadaq.tcl | 8 ++++++++
1 file changed, 8 insertions(+)
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
--
2.43.0