TDialogCanvas.cxx

Go to the documentation of this file.

// @(#)root/gpad:$Id$
// Author: Rene Brun   03/07/96
 
/*************************************************************************
 * Copyright (C) 1995-2021, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/
 
#include "TROOT.h"
#include "TDialogCanvas.h"
#include "TGroupButton.h"
#include "TStyle.h"
 
ClassImp(TDialogCanvas);
 
/** \class TDialogCanvas
\ingroup gpad
 
A canvas specialized to set attributes.
 
It contains, in general, TGroupButton objects.
When the APPLY button is executed, the actions corresponding
to the active buttons are executed via the Interpreter.
 
See examples in TAttLineCanvas, TAttFillCanvas, TAttTextCanvas, TAttMarkerCanvas
*/
 
////////////////////////////////////////////////////////////////////////////////
/// DialogCanvas default constructor
 
TDialogCanvas::TDialogCanvas() : TCanvas()
{
}
 
////////////////////////////////////////////////////////////////////////////////
/// DialogCanvas constructor
 
TDialogCanvas::TDialogCanvas(const char *name, const char *title, Int_t ww, Int_t wh)
             : TCanvas(name,title,-ww,wh)
{
   SetFillColor(36);
}
 
////////////////////////////////////////////////////////////////////////////////
/// DialogCanvas constructor
 
TDialogCanvas::TDialogCanvas(const char *name, const char *title, Int_t wtopx, Int_t wtopy, UInt_t ww, UInt_t wh)
             : TCanvas(name,title,-wtopx,wtopy,ww,wh)
{
   SetFillColor(36);
}
 
////////////////////////////////////////////////////////////////////////////////
/// DialogCanvas default destructor
 
TDialogCanvas::~TDialogCanvas()
{
}
 
////////////////////////////////////////////////////////////////////////////////
/// Called when the APPLY button is executed
 
void TDialogCanvas::Apply(const char *action)
{
   if (!fRefPad) return;
   SetCursor(kWatch);
 
   TIter next(fPrimitives);
   TObject *refobj = fRefObject;
   TObject *obj;
   TGroupButton *button;
   if (!strcmp(action,"gStyle")) fRefObject = gStyle;
 
   while ((obj = next())) {
      if (obj->InheritsFrom(TGroupButton::Class())) {
         button = (TGroupButton*)obj;
         if (button->GetBorderMode() < 0) button->ExecuteAction();
      }
   }
   fRefObject = refobj;
   if (!gROOT->GetSelectedPad()) return;
   gROOT->GetSelectedPad()->Modified();
   gROOT->GetSelectedPad()->Update();
}
 
 
////////////////////////////////////////////////////////////////////////////////
/// Create APPLY, gStyle and CLOSE buttons
 
void TDialogCanvas::BuildStandardButtons()
{
   TGroupButton *apply = new TGroupButton("APPLY","Apply","",.05,.01,.3,.09);
   apply->SetTextSize(0.55);
   apply->SetBorderSize(3);
   apply->SetFillColor(44);
   apply->Draw();
 
   apply = new TGroupButton("APPLY","gStyle","",.375,.01,.625,.09);
   apply->SetTextSize(0.55);
   apply->SetBorderSize(3);
   apply->SetFillColor(44);
   apply->Draw();
 
   apply = new TGroupButton("APPLY","Close","",.70,.01,.95,.09);
   apply->SetTextSize(0.55);
   apply->SetBorderSize(3);
   apply->SetFillColor(44);
   apply->Draw();
}
 
 
////////////////////////////////////////////////////////////////////////////////
/// Set world coordinate system for the pad
 
void TDialogCanvas::Range(Double_t x1, Double_t y1, Double_t x2, Double_t y2)
{
   TPad::Range(x1,y1,x2,y2);
}
 
 
////////////////////////////////////////////////////////////////////////////////
/// Recursively remove object from a pad and its sub-pads
 
void TDialogCanvas::RecursiveRemove(TObject *obj)
{
   TPad::RecursiveRemove(obj);
   if (fRefObject == obj) fRefObject = nullptr;
   if (fRefPad    == obj) fRefPad    = nullptr;
}