GUI/TFndBaseMonGUI.cxx

// @(#)fROOT/GUI:$Name:  $:$Id: TFndBaseMonGUI.cxx,v 1.14 2007/09/24 07:32:41 Diego_Faso Exp $
// Author: Diego Faso <mailto:faso@to.infn.it>, 2006/11/22

//                  TFndBaseMonGUI                 //
//                                                 //
// This is a general (virtual) implementation for  //
//  monitor GUI applications.                      //
// User can define a daughter class and add every  //
//  needed method.                                 //
// In particular a "AdjustGui()" method could be   //
//  used to change labels, positions.              //
//                                                 //
// Standard daughter class implementation:         //
//   (TFndMonGUI: public TFndBaseMonGUI)           //
//                                                 //
//   TFndMonGUI *MonGui = new TFndMonGUI();        //
//   MonGui->BuildGUI();                           //
//   MonGui->AdjustGUI();                          //
//   MonGui->MakeConnections();                    //
//   MonGui->MapGUI();                             //
//                                                 //


#include "TFndBaseMonGUI.h"

ClassImp(TFndBaseMonGUI)

//_______________________________
TFndBaseMonGUI::TFndBaseMonGUI(){
  // ---

  fDebugLev = 0;
  
  fCurLogFile = 0;
  fCurTmpFile = 0;
  fCurTmpFileName = ".tmp_baseGUI_info";

  LoadFonts();
}

//_______________________________
TFndBaseMonGUI::~TFndBaseMonGUI(){
  // ---
  
  CloseLogFile(kFALSE);
  CloseLogFile(kTRUE);
  CloseGUI();
}

//_______________________________
void TFndBaseMonGUI::LoadFonts(){

  fFontType = "-adobe-helvetica-medium-r-*-*-";
  fFontSize = 10;
  fFontISO = "-*-*-*-*-*-iso8859-1";
  GCValues_t g_context_title;
  
  // --- TITLE
  SetFontType(fFontType);
  SetFontSize(18);
  fFont_Title = gClient->GetFont(fFontString.Data());
  
  //  GCValues_t g_context_title;
  g_context_title.fMask = kGCForeground | kGCBackground | kGCFillStyle | kGCFont | kGCGraphicsExposures;
  gClient->GetColorByName("#000000",g_context_title.fForeground);
  gClient->GetColorByName("#c6c2c6",g_context_title.fBackground);
  g_context_title.fFillStyle = kFillSolid;
  g_context_title.fFont = fFont_Title->GetFontHandle();
  g_context_title.fGraphicsExposures = kFALSE;
  fFontGC_Title = gClient->GetGC(&g_context_title, kTRUE);
  // ---
  // --- GROUP TITLE
  SetFontType(fFontType);
  SetFontSize(12);
  fFont_GrpTitle = gClient->GetFont(fFontString.Data());
  
  //  GCValues_t g_context_title;
  g_context_title.fMask = kGCForeground | kGCBackground | kGCFillStyle | kGCFont | kGCGraphicsExposures;
  gClient->GetColorByName("#000000",g_context_title.fForeground);
  gClient->GetColorByName("#c6c2c6",g_context_title.fBackground);
  g_context_title.fFillStyle = kFillSolid;
  g_context_title.fFont = fFont_GrpTitle->GetFontHandle();
  g_context_title.fGraphicsExposures = kFALSE;
  fFontGC_GrpTitle = gClient->GetGC(&g_context_title, kTRUE);
  // ---
  // --- LABELS (normal)
  SetFontType(fFontType);
  SetFontSize(8);
  fFont_LabNorm = gClient->GetFont(fFontString.Data());
  
  //  GCValues_t g_context_title;
  g_context_title.fMask = kGCForeground | kGCBackground | kGCFillStyle | kGCFont | kGCGraphicsExposures;
  gClient->GetColorByName("#000000",g_context_title.fForeground);
  gClient->GetColorByName("#c6c2c6",g_context_title.fBackground);
  g_context_title.fFillStyle = kFillSolid;
  g_context_title.fFont = fFont_LabNorm->GetFontHandle();
  g_context_title.fGraphicsExposures = kFALSE;
  fFontGC_LabNorm = gClient->GetGC(&g_context_title, kTRUE);
  // ---
  // --- LABELS (enlightened)
  SetFontType(fFontType);
  SetFontSize(10);
  fFont_LabEnl = gClient->GetFont(fFontString.Data());
  
  //  GCValues_t g_context_title;
  g_context_title.fMask = kGCForeground | kGCBackground | kGCFillStyle | kGCFont | kGCGraphicsExposures;
  gClient->GetColorByName("#000000",g_context_title.fForeground);
  gClient->GetColorByName("#c6c2c6",g_context_title.fBackground);
  g_context_title.fFillStyle = kFillSolid;
  g_context_title.fFont = fFont_LabEnl->GetFontHandle();
  g_context_title.fGraphicsExposures = kFALSE;
  fFontGC_LabEnl = gClient->GetGC(&g_context_title, kTRUE);
  // ---
  // --- BUTTONS
  SetFontType(fFontType);
  SetFontSize(12);
  fFont_But = gClient->GetFont(fFontString.Data());
  
  //  GCValues_t g_context_title;
  g_context_title.fMask = kGCForeground | kGCBackground | kGCFillStyle | kGCFont | kGCGraphicsExposures;
  gClient->GetColorByName("#000000",g_context_title.fForeground);
  gClient->GetColorByName("#c6c2c6",g_context_title.fBackground);
  g_context_title.fFillStyle = kFillSolid;
  g_context_title.fFont = fFont_But->GetFontHandle();
  g_context_title.fGraphicsExposures = kFALSE;
  fFontGC_But = gClient->GetGC(&g_context_title, kTRUE);

}

//_______________________________
void TFndBaseMonGUI::SetFontType(TString ftype){

  TString fontstring = ftype;
  fontstring+=(Int_t)(Gui::GetTGadj(1) * (Double_t)(fFontSize));
  fontstring+=fFontISO;
  
  if(!gClient->GetFontPool()->GetFont(fontstring.Data(),0)){
    Warning("SetFontType","selected font is not available: \"%s\"",ftype.Data());
    return;
  }
  fFontType = ftype;
  fFontString = fontstring;

}

//_______________________________
void TFndBaseMonGUI::SetFontSize(Float_t fsize){

  Int_t check_size = (Int_t) (Gui::GetTGadj(1) * fsize );
  
  TString fontstring;
  
  Int_t accepted = kFALSE;
  while(!accepted){
    if(check_size <=0){
      Error("SetFontSize","Problems while setting font size: using \"8\".");
      fFontSize = 8;
      fFontString = fFontType;
      fFontString+=fFontSize;
      fFontString+=fFontISO;
      return;
    }
    fontstring = fFontType;
    fontstring+=check_size;
    fontstring+=fFontISO;
    
    accepted = (Int_t)gClient->GetFontPool()->GetFont(fontstring.Data(),0);
    if(fDebugLev > 1) Printf("accepted = \"%x\"",accepted);
    if(!accepted){
      Warning("SetFontType","selected font size (\"%d\") not available: trying \"%d\"",check_size,check_size-1);
      check_size--;
    }
  }
  
  fFontSize = check_size; 
  fFontString = fontstring;
}

//_______________________________
void TFndBaseMonGUI::UpdateDisplayPad(){

  if(!fShowCanvas){
    Warning("ResetDisplayPad","Display pad not available");
    return;
  }

  fShowCanvas->Modified();
  fShowCanvas->Update();
}

//_______________________________
void TFndBaseMonGUI::ResetDisplayPad(Int_t ncols,Int_t nraws){

  if(!fShowCanvas){
    Warning("ResetDisplayPad","Display pad not available");
    return;
  }

  ResetDaughter();

  fShowCanvas->Clear();
  //  fShowCanvas->SetFillColor(42);
  
  if(ncols != 0 || nraws !=0) fShowCanvas->Divide(ncols,nraws);
  UpdateDisplayPad();
}

//_______________________________
void TFndBaseMonGUI::MapGUI(){

  if(!fMainFrame){
    Warning("MapGUI","fMainFrame not available");
    return;
  }
  fMainFrame->MapSubwindows();

  fMainFrame->Resize(fMainFrame->GetDefaultSize());
  fMainFrame->MapWindow();

  Gui::MoveResizeSafe(10, 10,1000,650,fMainFrame);

}

//_______________________________
Bool_t TFndBaseMonGUI::MakeConnections(Bool_t Connect){

  Bool_t ok = kTRUE;
  
  if(Connect){
    ok = ok && fMainFrame->Connect("CloseWindow()", "TFndBaseMonGUI", this, "CloseGUI()");

    ok = ok && fSteer_Combo->Connect("Selected(Int_t)", "TFndBaseMonGUI", this, "Exe_SteerCombo(Int_t)");
    ok = ok && fSel_Combo1->Connect("Selected(Int_t)", "TFndBaseMonGUI", this, "Exe_SelCombo1(Int_t)");
    ok = ok && fSel_Combo2->Connect("Selected(Int_t)", "TFndBaseMonGUI", this, "Exe_SelCombo2(Int_t)");

    ok = ok && fShowCanvas->Connect("ProcessedEvent(Int_t,Int_t,Int_t,TObject*)","TFndBaseMonGUI",this,"HandleMouseActions(Int_t,Int_t,Int_t,TObject*)");
  }
  else{
    ok = ok && fMainFrame->Disconnect("CloseWindow()", "TFndBaseMonGUI", this, "CloseGUI()");

    ok = ok && fSteer_Combo->Disconnect("Selected(Int_t)", "TFndBaseMonGUI", this, "Exe_SteerCombo(Int_t)");
    ok = ok && fSel_Combo1->Disconnect("Selected(Int_t)", "TFndBaseMonGUI", this, "Exe_SelCombo1(Int_t)");
    ok = ok && fSel_Combo2->Disconnect("Selected(Int_t)", "TFndBaseMonGUI", this, "Exe_SelCombo2(Int_t)");
    
    ok = ok && fShowCanvas->Disconnect("ProcessedEvent(Int_t,Int_t,Int_t,TObject*)","TFndBaseMonGUI",this,"HandleMouseActions(Int_t,Int_t,Int_t,TObject*)");
  }
  
  if(!ok) Warning("MakeConnections","At least one broken connection found.");
  return ok;

}

//_______________________________
void TFndBaseMonGUI::FillCombo_Steer(){

  if(!fSteer_Combo) return;
  
  if(fSteer_Combo->GetNumberOfEntries() != 0) fSteer_Combo->RemoveAll();

  fSteer_Combo->AddEntry("Steer 0",0);
  fSteer_Combo->AddEntry("Steer 1",1);
  fSteer_Combo->AddEntry("Steer 2",2);
  fSteer_Combo->AddEntry("Steer 3",3);

}

//_______________________________
void TFndBaseMonGUI::FillCombo_Sel1(){
  // sel-combo 1
  
  if(!fSel_Combo1) return;
  
  if(fSel_Combo1->GetNumberOfEntries() != 0) fSel_Combo1->RemoveAll();
  
  fSel_Combo1->AddEntry("Combo master 0",0);
  fSel_Combo1->AddEntry("Combo master 1",1);
  fSel_Combo1->AddEntry("Combo master 2",2);
  fSel_Combo1->AddEntry("Combo master 3",3);
  
}

//_______________________________
void TFndBaseMonGUI::FillCombo_Sel2(){
  // sel-combo 2

  if(!fSel_Combo2) return;
  
  if(fSel_Combo2->GetNumberOfEntries() != 0) fSel_Combo2->RemoveAll();
  
  fSel_Combo2->AddEntry("Combo slave 0",0);
  fSel_Combo2->AddEntry("Combo slave 1",1);
  fSel_Combo2->AddEntry("Combo slave 2",2);
  fSel_Combo2->AddEntry("Combo slave 3",3);
  
}

//_______________________________
void TFndBaseMonGUI::Exe_SteerCombo(Int_t id){
 
  if(fDebugLev > 0) Info("Exe_SteerCombo","Executing command id: %d",id); 
}

//_______________________________
void TFndBaseMonGUI::Exe_SelCombo1(Int_t id){

  if(fDebugLev > 0) Info("Exe_SelCombo1","Executing command id: %d",id);   
}

//_______________________________
void TFndBaseMonGUI::Exe_SelCombo2(Int_t id){
  
  if(fDebugLev > 0) Info("Exe_SelCombo2","Executing command id: %d",id); 
}

//_______________________________
void TFndBaseMonGUI::BuildBaseGUI(){

  // main frame
  fMainFrame = new TGMainFrame(gClient->GetRoot(),10,10,kMainFrame | kVerticalFrame);
  fMainFrame->SetLayoutBroken(kTRUE);
  fMainFrame->SetCleanup(kDeepCleanup);
  fMainFrame->SetWindowName("Base GUI for monitoring applications");

  // vertical frame
  fVertFrm_CL1 = new TGVerticalFrame(fMainFrame,1190,856,kVerticalFrame);
  fVertFrm_CL1->SetLayoutBroken(kTRUE);

  // horizontal frame
  fHorFrm_CL2 = new TGHorizontalFrame(fVertFrm_CL1,1186,832,kHorizontalFrame);
  fHorFrm_CL2->SetLayoutBroken(kTRUE);

  //--------------- FONTS
  LoadFonts();
  
  // embedded canvas
  fShowEmbeddedCanvas = new TRootEmbeddedCanvas(0,fHorFrm_CL2,1000,830);
  fShowCanvas = fShowEmbeddedCanvas->GetCanvas();
  //  fShowCanvas->SetFillColor(42);
  fShowCanvas->SetName("fShowCanvas");
  fShowCanvas->SetTitle("Show Canvas");
  //  fShowCanvas->SetWindowPosition(0,0);
  //  fShowCanvas->SetCanvasSize(800,600);
  fShowCanvas->SetWindowSize(800,600);
  //  fShowCanvas->GetCanvasImp()->ShowStatusBar();

  //   Int_t wfShowEmbeddedCanvas = fShowEmbeddedCanvas->GetCanvasWindowId();
  
  //   fShowCanvas = new TCanvas("fShowCanvas", 10, 10, wfShowEmbeddedCanvas);
  //   fShowEmbeddedCanvas->AdoptCanvas(fShowCanvas);
  fHorFrm_CL2->AddFrame(fShowEmbeddedCanvas, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  
  Gui::MoveResizeSafe(170, 20,826,605,fShowEmbeddedCanvas);

  // "fGrpFrm_SteerCmd" group frame for STEER commands
  fGrpFrm_SteerCmd = new TGGroupFrame(fHorFrm_CL2,"fGrpFrm_SteerCmd");
  fGrpFrm_SteerCmd->SetLayoutBroken(kTRUE);
  fGrpFrm_SteerCmd->SetTitlePos(TGGroupFrame::kCenter);
  fGrpFrm_SteerCmd->SetTextFont(fFont_GrpTitle->GetName());

  ULong_t ucolor;        // will reflect user color changes
  gClient->GetColorByName("#ffffff",ucolor);

  // combo box
  fSteer_Combo_Lbl = new TGLabel(fGrpFrm_SteerCmd,"fSteer_Combo_Lbl",
                                 fFontGC_LabNorm->GetGC(),
                                 fFont_LabNorm->GetFontStruct(),
                                 kSunkenFrame | kDoubleBorder | kOwnBackground);

  fSteer_Combo_Lbl->SetTextJustify(36);
  fGrpFrm_SteerCmd->AddFrame(fSteer_Combo_Lbl, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(10,20,75,17, fSteer_Combo_Lbl);
   
  fSteer_Combo = new TGComboBox(fGrpFrm_SteerCmd,-1,kHorizontalFrame | kSunkenFrame | kDoubleBorder | kOwnBackground);
  fSteer_Combo->AddEntry("Entry 1 ",0);
  fSteer_Combo->AddEntry("Entry 2 ",1);
  fSteer_Combo->AddEntry("Entry 3 ",2);
  fSteer_Combo->AddEntry("Entry 4 ",3);
  fSteer_Combo->AddEntry("Entry 5 ",4);
  fSteer_Combo->AddEntry("Entry 6 ",5);
  fSteer_Combo->AddEntry("Entry 7 ",6);
  fSteer_Combo->Select(-1);
  fGrpFrm_SteerCmd->AddFrame(fSteer_Combo, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(90,20,70,17, fSteer_Combo);

  fSteer_Num1_Lbl = new TGLabel(fGrpFrm_SteerCmd,"fSteer_Num1_Lbl",
                                 fFontGC_LabNorm->GetGC(),
                                 fFont_LabNorm->GetFontStruct(),
                                 kSunkenFrame | kDoubleBorder | kOwnBackground);

  fSteer_Num1_Lbl->SetTextJustify(36);
  fGrpFrm_SteerCmd->AddFrame(fSteer_Num1_Lbl, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(10,40,75,17,  fSteer_Num1_Lbl);
  
  fSteer_Num1 = new TGNumberEntry(fGrpFrm_SteerCmd, (Double_t) 0,8,-1,(TGNumberFormat::EStyle) 5);
  fGrpFrm_SteerCmd->AddFrame(fSteer_Num1, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(90,40,69,17, fSteer_Num1);
  
  fSteer_Num2_Lbl = new TGLabel(fGrpFrm_SteerCmd,"fSteer_Num2_Lbl",
                                 fFontGC_LabNorm->GetGC(),
                                 fFont_LabNorm->GetFontStruct(),
                                 kSunkenFrame | kDoubleBorder | kOwnBackground);

  fSteer_Num2_Lbl->SetTextJustify(36);
  fGrpFrm_SteerCmd->AddFrame(fSteer_Num2_Lbl, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(10,60,75,17,  fSteer_Num2_Lbl);
  
  fSteer_Num2 = new TGNumberEntry(fGrpFrm_SteerCmd, (Double_t) 0,8,-1,(TGNumberFormat::EStyle) 5);
  fGrpFrm_SteerCmd->AddFrame(fSteer_Num2, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(90,60,69,17, fSteer_Num2);

  // STEER buttons
  fSteer_But1 = new TGTextButton(fGrpFrm_SteerCmd,"fSteer_But1");
  fSteer_But1->SetTextJustify(36);
  fSteer_But1->SetFont(fFont_But->GetName());
  fGrpFrm_SteerCmd->AddFrame(fSteer_But1, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(10,90,70,30, fSteer_But1);

  fSteer_But2 = new TGTextButton(fGrpFrm_SteerCmd,"fSteer_But2");
  fSteer_But2->SetTextJustify(36);
  fSteer_But2->SetFont(fFont_But->GetName());
  fGrpFrm_SteerCmd->AddFrame(fSteer_But2, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(87,90,70,30, fSteer_But2);

  fGrpFrm_SteerCmd->SetLayoutManager(new TGVerticalLayout(fGrpFrm_SteerCmd));
  fHorFrm_CL2->AddFrame(fGrpFrm_SteerCmd, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(2,20,165,150,fGrpFrm_SteerCmd);

  // "fGrpFrm_SelectCmd" group frame for selections
  fGrpFrm_SelectCmd = new TGGroupFrame(fHorFrm_CL2,"fGrpFrm_SelectCmd");
  fGrpFrm_SelectCmd->SetLayoutBroken(kTRUE);
  fGrpFrm_SelectCmd->SetTitlePos(TGGroupFrame::kCenter);
  fGrpFrm_SelectCmd->SetTextFont(fFont_GrpTitle->GetName());

  gClient->GetColorByName("#ffffff",ucolor);

  // combo box   
  fSel_Combo1_Lbl = new TGLabel(fGrpFrm_SelectCmd,"fSel_Combo1_Lbl",
                                 fFontGC_LabEnl->GetGC(),
                                 fFont_LabEnl->GetFontStruct(),
                                 kSunkenFrame | kDoubleBorder | kOwnBackground);

  fSel_Combo1_Lbl->SetTextJustify(36);
  fGrpFrm_SelectCmd->AddFrame(fSel_Combo1_Lbl, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(20,20,130,20, fSel_Combo1_Lbl);

  fSel_Combo1 = new TGComboBox(fGrpFrm_SelectCmd,-1,kHorizontalFrame | kSunkenFrame | kDoubleBorder | kOwnBackground);
  fSel_Combo1->AddEntry("Entry 1 ",0);
  fSel_Combo1->AddEntry("Entry 2 ",1);
  fSel_Combo1->AddEntry("Entry 3 ",2);
  fSel_Combo1->AddEntry("Entry 4 ",3);
  fSel_Combo1->AddEntry("Entry 5 ",4);
  fSel_Combo1->AddEntry("Entry 6 ",5);
  fSel_Combo1->AddEntry("Entry 7 ",6);
  fSel_Combo1->Select(-1);
  fGrpFrm_SelectCmd->AddFrame(fSel_Combo1, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(20,40,130,20, fSel_Combo1);

  gClient->GetColorByName("#ffffff",ucolor);

  // combo box
  fSel_Combo2_Lbl = new TGLabel(fGrpFrm_SelectCmd,"fSel_Combo2_Lbl",
                                 fFontGC_LabEnl->GetGC(),
                                 fFont_LabEnl->GetFontStruct(),
                                 kSunkenFrame | kDoubleBorder | kOwnBackground);

  fSel_Combo2_Lbl->SetTextJustify(36);
  fGrpFrm_SelectCmd->AddFrame(fSel_Combo2_Lbl, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(20,80,130,20, fSel_Combo2_Lbl);


  fSel_Combo2 = new TGComboBox(fGrpFrm_SelectCmd,-1,kHorizontalFrame | kSunkenFrame | kDoubleBorder | kOwnBackground);
  fSel_Combo2->AddEntry("Entry 1 ",0);
  fSel_Combo2->AddEntry("Entry 2 ",1);
  fSel_Combo2->AddEntry("Entry 3 ",2);
  fSel_Combo2->AddEntry("Entry 4 ",3);
  fSel_Combo2->AddEntry("Entry 5 ",4);
  fSel_Combo2->AddEntry("Entry 6 ",5);
  fSel_Combo2->AddEntry("Entry 7 ",6);
  fSel_Combo2->Select(-1);
  fGrpFrm_SelectCmd->AddFrame(fSel_Combo2, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(20,100,130,20, fSel_Combo2);
   
  fGrpFrm_SelectCmd->SetLayoutManager(new TGVerticalLayout(fGrpFrm_SelectCmd));
  fHorFrm_CL2->AddFrame(fGrpFrm_SelectCmd, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(2,240,165,150, fGrpFrm_SelectCmd);

  // "fGrpFrm_Msg" group frame with messages
  fGrpFrm_Msg = new TGGroupFrame(fHorFrm_CL2,"fGrpFrm_Msg");
  fGrpFrm_Msg->SetLayoutBroken(kTRUE);
  fGrpFrm_Msg->SetTitlePos(TGGroupFrame::kCenter);
  fGrpFrm_Msg->SetTextFont(fFont_GrpTitle->GetName());

  fMsg_TxtEdit = new TGTextEdit(fGrpFrm_Msg,168,288);
  fMsg_TxtEdit->LoadFile("FndBaseMonGUI.log");
  fGrpFrm_Msg->AddFrame(fMsg_TxtEdit, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(5,18,156,205,fMsg_TxtEdit);

  fGrpFrm_Msg->SetLayoutManager(new TGVerticalLayout(fGrpFrm_Msg));
  fHorFrm_CL2->AddFrame(fGrpFrm_Msg, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(2,395,165,233,fGrpFrm_Msg);

  fVertFrm_CL1->AddFrame(fHorFrm_CL2, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(2, 2,1000,630,fHorFrm_CL2);

  // status bar
  fStatBar1 = new TGStatusBar(fVertFrm_CL1,1188,20);
  fVertFrm_CL1->AddFrame(fStatBar1, new TGLayoutHints(kLHintsBottom | kLHintsExpandX));
  Gui::MoveResizeSafe(0, 630,1000,20,fStatBar1);
  Int_t parr[2] = {55,45};
  fStatBar1->SetParts(parr,2);


  fMainFrame->AddFrame(fVertFrm_CL1, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  Gui::MoveResizeSafe(0, 0,1000,650,fVertFrm_CL1);

}  

//_______________________
void TFndBaseMonGUI::CustomizeGUI(){

  FillCombo_Steer();
  FillCombo_Sel1();
  FillCombo_Sel2();
}

//_______________________
void TFndBaseMonGUI::WriteStatusMessage(const TString &msg,Int_t partidx){

  fStatBar1->SetText(msg,partidx);
}

//_______________________________________________________________________
void TFndBaseMonGUI::OpenLogFile(const TString &fdir, const TString &fnam,const Bool_t &is_temp,const Bool_t &reset_old){
  
  CloseLogFile(is_temp);
  
  TString path_str;
  path_str.Form("%s/%s",ExpandPathName(fdir).Data(),fnam.Data());
  
  if(is_temp){
    // temporary file content is reset
    fCurTmpFile = new ofstream();
    if(reset_old) fCurTmpFile->open(path_str.Data(),ofstream::out | ofstream::trunc);
    else fCurTmpFile->open(path_str.Data(),ofstream::out | ofstream::app);
  }
  else{
    fCurLogFile = new ofstream();
    if(reset_old) fCurLogFile->open(path_str.Data(),ofstream::out | ofstream::trunc);
    else fCurLogFile->open(path_str.Data(),ofstream::out | ofstream::app);
  }
}

//_______________________________________________________________________
void TFndBaseMonGUI::CloseLogFile(const Bool_t &is_temp){
  
  if(is_temp){
    if(!fCurTmpFile) return;
    fCurTmpFile->close();
    delete fCurTmpFile;
    fCurTmpFile = 0;    
  }
  else{
    if(!fCurLogFile) return;
    fCurLogFile->close();
    delete fCurLogFile;
    fCurLogFile = 0;
  }
  
}

//_______________________________________________________________________
void TFndBaseMonGUI::WriteLogFile(const TString &line,const Bool_t &is_temp){

  if(is_temp){
    if(!fCurTmpFile) return;
    *fCurTmpFile << line.Data() << endl;    
  }
  else{
    if(!fCurLogFile) return;
    *fCurLogFile << line.Data() << endl;
  }
  
}
   
//____________________________________
Int_t TFndBaseMonGUI::WriteTextEdit(const TString &txt_filename){
  // Write the content of the given text file into
  //   the message frame ("fMsg_TxtEdit")
  //
  // return value:
  //               0: ok
  //              -1: text file not found
  
  if(gSystem->AccessPathName(ExpandPathName(txt_filename))){
    Warning("WriteTextEdit","text file \"%s\" not found",txt_filename.Data());
    return -1;
  }
    
  fMsg_TxtEdit->LoadFile(ExpandPathName(txt_filename).Data());

  return 0;
}

//_______________________________
void TFndBaseMonGUI::AddTextMessage(const TString &msg,Bool_t reset,Bool_t refresh){
  // add text to the msg frame
  //  (current temp-text-file is used)
  //
  // the "refresh argument is used to display information inside the GUI frame"
  
  OpenLogFile(ExpandPathName("$PWD"),fCurTmpFileName,kTRUE,reset);
  WriteLogFile(msg,kTRUE);
  if(refresh) WriteTextEdit(fCurTmpFileName);
}

//_______________________________
void TFndBaseMonGUI::SetBackgroundColor(const Int_t &col){

  fShowCanvas->cd();
  fShowCanvas->SetFillColor(col);
  fShowCanvas->Modified();

  TPad *curpad = 0;
  for(Int_t i=1; i<100; i++){
    if(! fShowCanvas->GetPad(i) ) break;
    curpad = (TPad *) fShowCanvas->cd(i);
    //    cout << "curpad: " << i << endl;
    gPad->SetFillColor(col);
    gPad->GetFrame()->SetFillColor(col);
    gPad->Modified();
    gPad->Update();
        
  }
  
  fShowCanvas->Modified();
  fShowCanvas->Update();

}

//_______________________
void TFndBaseMonGUI::CloseGUI(){
  // Called when window is closed via the window manager.
  
  
  if(!fMainFrame){
    Warning("CloseGUI","fMainFrame not available");
    return;
  }

  if(fDebugLev > 1) Info("CloseGUI","Deleting mainframe");

  //  fMainFrame->RemoveFrame(fShowEmbeddedCanvas);
  //  delete fShowCanvas;
  //  delete fShowEmbeddedCanvas;
  
  //   gClient->ProcessEventsFor(fMainFrame);
  //   gSystem->Sleep(300);
  //   gClient->ProcessEventsFor(fMainFrame);
  
  //   DisableTxtEntry(fLmdMixture);
  //   DisableTxtEntry(fStbMixture);
  
  //  gClient->ProcessEventsFor(fMainFrame);
  fMainFrame->Cleanup();

  delete fMainFrame;
  //  gClient->ProcessEventsFor(fMainFrame);
  
  //   Printf("...Good bye");
  //   gApplication->Terminate(0);
  return;
}


//____________________________________
void TFndBaseMonGUI::HandleMouseActions(Int_t event, Int_t x, Int_t y, TObject *selected){
  
   if(fDebugLev > 2) cout << "event: " << event << " ===> (" << x << ";" << y << "): " << selected->ClassName() << " -> " << selected->GetName() << endl;
  // 51: move
  // 53: leave pad
  // 52: enter subpad
  //
  //  1: left  click (press left mouse button)
  // 11: left  release (release left mouse button)
  // 61: left  double-click (after "1-11-1" combo)
  // 21: left  drag (keep left mouse button clicked and move mouse)
  //
  //  2: right click (press left mouse button)
  // 12: right release (release left mouse button)
  // 62: right double-click (after "1-11-1" combo)
  //
  //  3: right click (press left mouse button)
  // 13: right release (release left mouse button)
  // 63: right double-click (after "1-11-1" combo)
  
  //  if(event == 11 && !strcmp(selected->ClassName(),"TH1F"))
  //  cout << "Clicked on " << selected->ClassName() << " " << selected->GetName() << endl;

  TString msg = "";

  const Int_t ncmps = 6;
  TString cmpstr[ncmps] = {""};
  cmpstr[0] = "TFndMultiGraph";
  cmpstr[1] = "TMultiGraph";
  cmpstr[2] = "TFndGraph";
  cmpstr[3] = "TProfile";
  cmpstr[4] = "TGraph";
  cmpstr[5] = "TH";
  Bool_t sel_ok = kFALSE;
  TString cutnam = "";

  switch(event){
    // ------------
    // --- move ---
  case 51: // move inside the canvas (or sub-pads)
    for(Int_t i=0;i<ncmps;i++){
      cutnam = selected->ClassName();
      cutnam.Resize(cmpstr[i].Sizeof()-1);
      //      cout << "=========> \"" << cutnam.Data() << "\"" << endl;
      if(cmpstr[i].CompareTo(cutnam) == 0){
        sel_ok = kTRUE;
        break;
      }
    }
    
    if(sel_ok){
      msg.Form("Moving on: %s: \"%s\" (%s) ---> ",selected->ClassName(),selected->GetName(),selected->GetTitle());
      msg+=selected->GetObjectInfo(x,y);
    }

    break;
  case 53: // leave the main pad
    break;
  case 52: // enter sub-pad
    break;
    // -------------
    // --- click ---
  case  1: // left click (before releasing mouse button)
    
    break;
    //
  case 11: // left click (after having releasing mouse button)
    
    break;
    //
  case 61: // left double-click
    break;
    //
  default: break;    
  }

  
  if( ! msg.IsNull() ) WriteStatusMessage(msg,0);

  HandleMouseActionsDaughter(event, x, y, selected);

}


//_______________________________
//_______________________________
//_______________________________
/* void BaseMonGUI() */
/* { */

/*   TFndBaseMonGUI *BaseGui = new TFndBaseMonGUI(); */
/*   BaseGui->BuildGUI();  // to be re-defined in daughters */
/*   BaseGui->CustomizeGUI(); // to be re-defined in daughters */
/*   BaseGui->MakeConnections(); // to be re-defined in daughters */
/*   BaseGui->MapGUI(); */

/*   //  delete BaseGui; */

/* } */

//                                           //
//        TRANSIENT PROGRESS CLASS           //
//                                           //
ClassImp(TFndGTransientProgress)

//_____________
TFndGTransientProgress::TFndGTransientProgress():
  TGMainFrame(gClient->GetRoot(),10,10,kMainFrame | kVerticalFrame)
{
 
  fIsCancelled = kFALSE;

  SetLayoutBroken(kTRUE);
  SetCleanup(kDeepCleanup);
  DontCallClose();
  //
  BuildGUI();
  MakeConnections();
  DisplayGUI();
 
}

//_____________
TFndGTransientProgress::~TFndGTransientProgress(){
  
  Cleanup(); 
}



//_____________
void TFndGTransientProgress::BuildGUI(){
  
  // vertical frame
  fFrmVert = new TGVerticalFrame(this,324,200,kVerticalFrame);
  fFrmVert->SetLayoutBroken(kTRUE);

  // colors
  ULong_t ucolor;        // will reflect user color changes
  gClient->GetColorByName("#ffffff",ucolor);

  // --- title  
  fLblTitle = new TGLabel(fFrmVert,"Progress Frame");
  fLblTitle->SetTextJustify(36);
  fFrmVert->AddFrame(fLblTitle, new TGLayoutHints(kLHintsLeft | kLHintsCenterX | kLHintsTop,2,2,2,2));
  MoveResizeSafe(16,8,296,56,fLblTitle);

  // --- progress bar
  fPrgBar = new TGHProgressBar(fFrmVert,296);
  fPrgBar->SetFillType(TGProgressBar::kSolidFill);
  fPrgBar->ChangeOptions(kSunkenFrame | kDoubleBorder | kOwnBackground);
  fPrgBar->SetBackgroundColor(ucolor);
  fPrgBar->SetPosition(25);
  fFrmVert->AddFrame(fPrgBar, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  MoveResizeSafe(16,80,296,24,fPrgBar);

  // --- Cancel button
  fTxtButCancel = new TGTextButton(fFrmVert,"CANCEL");
  fTxtButCancel->SetTextJustify(36);
  fTxtButCancel->Resize(192,48);
  fFrmVert->AddFrame(fTxtButCancel, new TGLayoutHints(kLHintsLeft | kLHintsTop,2,2,2,2));
  MoveResizeSafe(72,112,192,48,fTxtButCancel);

  // --- status bar
  fStatBar = new TGStatusBar(fFrmVert,324,24);
  fFrmVert->AddFrame(fStatBar, new TGLayoutHints(kLHintsBottom | kLHintsExpandX));
  MoveResizeSafe(0,176,324,24,fStatBar);

  // ---
  AddFrame(fFrmVert, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX | kLHintsExpandY,2,2,2,2));
  MoveResizeSafe(2,2,324,200,fFrmVert);

}

//_____________
void TFndGTransientProgress::DisplayGUI(){
  
  //
  MapSubwindows();
  
  Resize(GetDefaultSize());
  MapWindow();
  MoveResizeSafe(300,300,328,204,this);
}

//_____________
void TFndGTransientProgress::MakeConnections(){
  fTxtButCancel->Connect("Clicked()","TFndGTransientProgress",this,"DoCancel()");
}

//_____________
void TFndGTransientProgress::UpdateGUI(){
  
  gClient->NeedRedraw(this);
}

//_____________
void TFndGTransientProgress::DoCancel(){
  
  cout << "Doing Cancel" << endl;
  fIsCancelled = kTRUE;
}

//_____________
void TFndGTransientProgress::SetTitle(const TString &tit){
  
  fLblTitle->SetText(tit);
}

//_____________
void TFndGTransientProgress::ReSetStatusMessage(TString msg){
 
  fStatBar->SetText(msg);
}

//_____________
void TFndGTransientProgress::SetProgressBar(const Float_t &pos_perc){
  // set position [%]

  fPrgBar->SetPosition(pos_perc);
}

//_____________
void TFndGTransientProgress::SetProgressBar(const Float_t &current,const Float_t &total){
   
  Float_t perc = current/total;
  perc = perc *100;
  if( current > total ){
    Warning("SetProgressBar","Percent = %.2f",perc);
    perc = 100;
  }
  SetProgressBar(perc);

}

---