KVNameValueListGUI.cpp

//Created by KVClassFactory on Fri Feb 17 09:32:40 2017
//Author: John Frankland,,,
 
#include "KVNameValueListGUI.h"
 
#include <TGLabel.h>
#include <TGNumberEntry.h>
#include <TGTextEntry.h>
#include "TTimer.h"
#include "TMath.h"
 
ClassImp(KVNameValueListGUI)
 
 
 
TObject* KVNameValueListGUI::AddAString(Int_t i, TGHorizontalFrame* hf)
{
   TGTextEntry* text = new TGTextEntry(hf, theList->GetStringValue(i));
   max_width = TMath::Max(max_width, text->GetDefaultWidth() + 10);
   text->Resize(text->GetDefaultWidth(), text->GetDefaultHeight());
   hf->AddFrame(text, new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandX, 3, 2, 1, 1));
   return text;
}
 
 
 
 
TObject* KVNameValueListGUI::AddABool(Int_t i, TGHorizontalFrame* hf)
{
   TGCheckButton* but = new TGCheckButton(hf);
   but->Resize(but->GetDefaultWidth(), 10);
   hf->AddFrame(but, new TGLayoutHints(kLHintsTop | kLHintsCenterX | kLHintsExpandX, 3, 2, 1, 1));
   but->SetState(theList->GetBoolValue(i) ? kButtonDown : kButtonUp, kFALSE);
   return but;
}
 
 
 
 
TObject* KVNameValueListGUI::AddADouble(Int_t i, TGHorizontalFrame* hf)
{
   TGNumberEntry* num = new TGNumberEntry(hf, theList->GetDoubleValue(i), 10, -1,
                                          TGNumberEntry::kNESReal,
                                          TGNumberEntry::kNEAAnyNumber,
                                          TGNumberEntry::kNELNoLimits);
   max_width = TMath::Max(max_width, num->GetDefaultWidth() + 10);
   num->Resize(num->GetDefaultWidth(), num->GetDefaultHeight());
   hf->AddFrame(num, new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandX, 3, 2, 1, 1));
   return num;
}
 
 
 
 
TObject* KVNameValueListGUI::AddAInt(Int_t i, TGHorizontalFrame* hf)
{
   TGNumberEntry* num = new TGNumberEntry(hf, theList->GetDoubleValue(i), 10, -1,
                                          TGNumberEntry::kNESInteger,
                                          TGNumberEntry::kNEAAnyNumber,
                                          TGNumberEntry::kNELNoLimits);
   max_width = TMath::Max(max_width, num->GetDefaultWidth() + 10);
   num->Resize(num->GetDefaultWidth(), num->GetDefaultHeight());
   hf->AddFrame(num, new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandX, 3, 2, 1, 1));
   return num;
}
 
 
 
 
 
 
void KVNameValueListGUI::ReadData()
{
   for (int i = 0; i < theList->GetNpar(); ++i) {
      KVNamedParameter* par = theList->GetParameter(i);
      if (par->IsDouble()) {
         par->Set(dynamic_cast<TGNumberEntry*>(fData[i])->GetNumber());
      }
      else if (par->IsInt()) {
         par->Set((Int_t)dynamic_cast<TGNumberEntry*>(fData[i])->GetNumber());
      }
      else if (par->IsString()) {
         par->Set(dynamic_cast<TGTextEntry*>(fData[i])->GetText());
      }
      else if (par->IsBool()) {
         par->Set(dynamic_cast<TGCheckButton*>(fData[i])->IsDown());
      }
   }
}
 
 
 
 
void KVNameValueListGUI::RestoreData()
{
   // return all values to original state
   fOriginal.Copy(*theList);
   *fCancel = kTRUE;
}
 
 
 
 
void KVNameValueListGUI::DisplayDialog()
{
   fMain->MapSubwindows();
 
   fHeight = fMain->GetDefaultHeight();
   fMain->Resize(fWidth, fHeight);
   fMain->SetWMSize(fWidth, fHeight);
   fMain->SetWMSizeHints(fWidth, fHeight, fWidth, fHeight, 0, 0);
   fMain->SetMWMHints(kMWMDecorAll | kMWMDecorResizeH | kMWMDecorMaximize |
                      kMWMDecorMinimize | kMWMDecorMenu,
                      kMWMFuncAll | kMWMFuncResize | kMWMFuncMaximize |
                      kMWMFuncMinimize, kMWMInputModeless);
 
   // position relative to the parent's window
   fMain->CenterOnParent();
   fMain->SetWindowName(theList->GetTitle());
 
   fMain->MapWindow();
   if (fWaitForMain) gClient->WaitFor(fMain);
}
 
 
 
 
KVNameValueListGUI::KVNameValueListGUI(const TGWindow* main, KVNameValueList* params, Bool_t* cancel_pressed, Bool_t wait_for_main)
   : fData(params->GetNpar()), fWaitForMain(wait_for_main)
{
   // Constructor
   fMain = new TGTransientFrame(gClient->GetDefaultRoot(), main, 1, 1, kVerticalFrame);
   fMain->CenterOnParent();
   fMain->Connect("CloseWindow()", "KVNameValueListGUI", this, "DoClose()");
   fMain->DontCallClose();      // to avoid double deletions.
   // use hierarchical cleaning
   fMain->SetCleanup(kDeepCleanup);
 
   fCancel = cancel_pressed;
   *fCancel = kFALSE;
 
   // SET UP GUI
   theList = params;
   theList->Copy(fOriginal); // copy original values in case "Cancel" is pressed
   // for each name-value pair, add a horizontal frame with a label (name)
   // and a text entry box (value)
   Int_t nentries = theList->GetEntries();
   max_width = 1;
   for (Int_t i = 0; i < nentries; ++i) {
      TGHorizontalFrame* hf = new TGHorizontalFrame(fMain);
      TGLabel* lab = new TGLabel(hf, theList->GetNameAt(i));
      max_width = TMath::Max(max_width, lab->GetDefaultWidth() + 10);
      lab->Resize(lab->GetDefaultWidth(), lab->GetDefaultHeight());
      hf->AddFrame(lab, new TGLayoutHints(kLHintsCenterY | kLHintsLeft | kLHintsExpandX, 2, 3, 1, 1));
 
      if (theList->GetParameter(i)->IsInt()) {
         fData[i] = AddAInt(i, hf);
      }
      else if (theList->GetParameter(i)->IsDouble()) {
         fData[i] = AddADouble(i, hf);
      }
      else if (theList->GetParameter(i)->IsBool()) {
         fData[i] = AddABool(i, hf);
      }
      else {
         fData[i] = AddAString(i, hf);
      }
 
      fMain->AddFrame(hf, new TGLayoutHints(kLHintsTop | kLHintsExpandX, 1, 1, 1, 1));
   }
 
   //--- create the OK, Apply and Cancel buttons
 
   fWidth = max_width * 2;
   fHeight = 0;
 
   TGHorizontalFrame* hf = new TGHorizontalFrame(fMain);
 
   fOKBut = new TGTextButton(hf, "&OK", 1);
   hf->AddFrame(fOKBut, new TGLayoutHints(kLHintsCenterY | kLHintsExpandX, 2, 3, 0, 0));
   fHeight = fOKBut->GetDefaultHeight();
   fOKBut->SetToolTipText("Save changes and close");
   fOKBut->Resize(max_width, fHeight);
   fOKBut->Connect("Clicked()", "KVNameValueListGUI", this, "ReadData()");
   fOKBut->Connect("Clicked()", "KVNameValueListGUI", this, "DoClose()");
 
   fCancelBut = new TGTextButton(hf, "&Cancel", 3);
   hf->AddFrame(fCancelBut, new TGLayoutHints(kLHintsCenterY | kLHintsExpandX, 3, 2, 0, 0));
   fCancelBut->Resize(max_width, fHeight);
   fCancelBut->SetToolTipText("Discard changes and close");
   fCancelBut->Connect("Clicked()", "KVNameValueListGUI", this, "RestoreData()");
   fCancelBut->Connect("Clicked()", "KVNameValueListGUI", this, "DoClose()");
 
   fMain->AddFrame(hf, new TGLayoutHints(kLHintsBottom | kLHintsCenterX | kLHintsExpandX, 0, 0, 10, 5));
}
 
 
 
 
 
KVNameValueListGUI::~KVNameValueListGUI()
{
   // Destructor
   if (fMain) {
      delete fMain;
      fMain = 0;
   }
}
 
 
 
 
 
void KVNameValueListGUI::DoClose()
{
   TTimer::SingleShot(150, "KVNameValueListGUI", this, "CloseWindow()");
}
 
 
 
 
 
void KVNameValueListGUI::CloseWindow()
{
   delete this;
}
 
 
 
 
bool KVNameValueListGUI::EnableDependingOnBool(const TString& value_to_enable, const TString& bool_parameter)
{
   // If the list of parameters contains a boolean variable with name bool_parameter,
   // one or more of the widgets (number entry field, text entry field, etc.) can be disabled or enabled
   // depending on the boolean state.
   //
   // if bool_parameter is not the name of a boolean in the list, or value_to_enable cannot be found in the list,
   // returns false. otherwise, returns true in case of success.
 
   if (!theList->HasBoolParameter(bool_parameter)) {
      Warning("EnableDependingOnBool", "No boolean parameter with name \"%s\" in list", bool_parameter.Data());
      return false;
   }
 
   auto bool_widget = dynamic_cast<TGCheckButton*>(GetDataWidget(bool_parameter));
 
   if (!theList->HasParameter(value_to_enable)) {
      Warning("EnableDependingOnBool", "No parameter with name \"%s\" in list", value_to_enable.Data());
      return false;
   }
 
   auto value_widget = GetDataWidget(value_to_enable);
   if (value_widget->InheritsFrom(TGNumberEntry::Class()))
      bool_widget->Connect("Toggled(Bool_t)", value_widget->IsA()->GetName(), value_widget, "SetState(Bool_t)");
   else
      bool_widget->Connect("Toggled(Bool_t)", value_widget->IsA()->GetName(), value_widget, "SetEnabled(Bool_t)");
 
   // set current state according to value
   if (value_widget->InheritsFrom(TGTextEntry::Class()))
      dynamic_cast<TGTextEntry*>(value_widget)->SetEnabled(theList->GetBoolValue(bool_parameter));
   else if (value_widget->InheritsFrom(TGNumberEntry::Class()))
      dynamic_cast<TGNumberEntry*>(value_widget)->SetState(theList->GetBoolValue(bool_parameter));
   if (value_widget->InheritsFrom(TGCheckButton::Class()))
      dynamic_cast<TGCheckButton*>(value_widget)->SetEnabled(theList->GetBoolValue(bool_parameter));
 
   return true;
}