BUG: Prevent UI clicks when analysis is running

Author: zoglauer

src/fretalon/melinator/inc/MGUIMainMelinator.h

@@ -163,6 +163,8 @@ class MGUIMainMelinator : public TGMainFrame
   unsigned int m_ActiveLineFit;
   //! The active results view
   bool m_ActiveResultIsEnergy;
+  //! True if any analysis is ongoing
+  bool m_AnalysisRunning;
 
   //! The label of the main histogram
   TGLabel* m_MainHistogramLabel;

src/fretalon/melinator/src/MGUIMainMelinator.cxx

@@ -87,6 +87,7 @@ MGUIMainMelinator::MGUIMainMelinator(MInterfaceMelinator* Interface,
   m_ActiveCollection = 0;
   m_ActiveLineFit = 0;
   m_ActiveResultIsEnergy = true;
+  m_AnalysisRunning = false;
 }
 
 
@@ -793,6 +794,13 @@ bool MGUIMainMelinator::ProcessMessage(long Message, long Parameter1, long Param
 
   bool Status = true;
 
+  // Protection against reentering running analysis:
+  if (m_AnalysisRunning == true) {
+    mout<<"Please wait until the current analysis is done"<<endl;
+    return true;
+  }
+  m_AnalysisRunning = true;
+  
   switch (GET_MSG(Message)) {
   case kC_COMMAND:
     switch (GET_SUBMSG(Message)) {
@@ -946,6 +954,8 @@ bool MGUIMainMelinator::ProcessMessage(long Message, long Parameter1, long Param
     break;
   }
 
+  m_AnalysisRunning = false;  
+  
   return Status;
 }
 
@@ -1030,7 +1040,7 @@ bool MGUIMainMelinator::OnExit()
 
 //! Switch the histogram binning mode
 bool MGUIMainMelinator::OnSwitchHistogramBinningMode(unsigned int ID)
-{  
+{ 
   if (ID == MMelinator::c_HistogramBinningModeFixedNumberOfBins) {
     m_HistogramBinningModeValueLabel->SetText("  bins");
   } else if (ID == MMelinator::c_HistogramBinningModeFixedCountsPerBin) {
@@ -1054,7 +1064,7 @@ bool MGUIMainMelinator::OnSwitchHistogramBinningMode(unsigned int ID)
 
 //! Switch the histogram binning mode
 bool MGUIMainMelinator::OnSwitchPeakParametrizationMode(unsigned int ID)
-{    
+{
   if (ID == MCalibrateEnergyFindLines::c_PeakParametrizationMethodBayesianBlockPeak) {
     m_PeakParametrizationOptions->RemoveAll(); // Deletes everyting too 
   } else if (ID == MCalibrateEnergyFindLines::c_PeakParametrizationMethodSmoothedPeak) {