GUI/Gui.cxx

// @(#)fROOT/GUI:$Name:  $:$Id: Gui.cxx,v 1.16 2007/10/01 08:03:29 Diego_Faso Exp $
// Author: Diego Faso <mailto:faso@to.infn.it>, 2006/05/26

#include "Gui.h"
#include <TROOT.h>
#include <TH2F.h>
#include <TThread.h>
#include <TClass.h>

//using namespace FROOT;

//_______________________________
Float_t Gui::GetTGadj(Int_t whichone)
{
  // whichone = 0: x (width)
  // whichone = 1: y (height)
  switch(whichone){
  case 0:return (Float_t)((gClient->GetDisplayWidth()) / 1024.);
  case 1:return (Float_t)((gClient->GetDisplayHeight()) / 768.);
  default: return 0;
  }
}


//_______________________________
void Gui::MoveSafe(Double_t x, Double_t y, TGFrame* f,Bool_t redraw){
  // independent on the screen resolution
  // (size must be expressed according to a 1024x768 resolution)

  if(!f) return;
  Int_t xsafe = (Int_t)(GetTGadj(0) * x);
  Int_t ysafe = (Int_t)(GetTGadj(1) * y);
  //  gROOT->Info("FROOT::Gui::MoveSafe","Moving: %d, %d",xsafe,ysafe);
  f->Move(xsafe,ysafe);
  if(redraw){
    gClient->NeedRedraw(f);
    gClient->ProcessEventsFor(f);
  }
}

//_______________________________
void Gui::ResizeSafe(Double_t w, Double_t h, TGFrame* f,Bool_t redraw){
  // independent on the screen resolution
  // (size must be expressed according to a 1024x768 resolution)

  if(!f) return;
  UInt_t wsafe = (UInt_t)(GetTGadj(0) * w);
  UInt_t hsafe = (UInt_t)(GetTGadj(1) * h);
  //  gROOT->Info("FROOT::Gui::ResizeSafe","Resizing: %u, %u",wsafe,hsafe);
  f->Resize(wsafe,hsafe);
  if(redraw){
    gClient->NeedRedraw(f);
    gClient->ProcessEventsFor(f);
  }
}

//_______________________________
void Gui::MoveResizeSafe(Double_t x, Double_t y, Double_t w, Double_t h, TGFrame* f,Bool_t redraw){
  // independent on the screen resolution
  // (size must be expressed according to a 1024x768 resolution)

  if(!f) return;
  //  gROOT->Info("FROOT::Gui::MoveResizeSafe","Moving-Resizing: %d, %d - %u, %u",x,y,w,h);
  MoveSafe(x,y,f,kFALSE);
  ResizeSafe(w,h,f,kFALSE);
  if(redraw){
    gClient->NeedRedraw(f);
    gClient->ProcessEventsFor(f);
  }
}

//_______________________________
void Gui::SelectComboEntry(TGComboBox *combo,Int_t entry_id){

  Printf("Selecting entry %d",entry_id);
  combo->Select(entry_id);
  combo->Selected(combo->WidgetId(),entry_id);
  combo->Selected(entry_id);
  //  gClient->NeedRedraw(combo);
  //  gClient->ProcessEventsFor(combo);
}

//_______________________________
void Gui::SaveCanvasWithTitle(TCanvas *canv,const TString &title,const TString &filename,TString draw_1D_opt,TString draw_2D_opt,Int_t TitColor,Double_t pad_tit_h,Double_t TitSize){
  // pad_tit_h is: percent of canvas height

  Printf("saving canvas \"%s\"",canv->GetTitle());
  
  Double_t sep = 0.005;  

  Double_t ori_w = (Double_t) ( canv->GetWindowWidth() );
  Double_t ori_h = (Double_t) ( canv->GetWindowHeight() );

  if(ori_w == 0 || ori_w == 32000) ori_w = 800;
  if(ori_h == 0 || ori_h == 32000) ori_h = 600;

  //   cout << "************* ori_w: " << ori_w << endl;
  //   cout << "************* ori_h: " << ori_h << endl;
  
  Double_t w_h_ratio = ori_w / ori_h;
  
  UInt_t displ_h = (UInt_t) ( ori_h - ( ori_h * pad_tit_h + sep) );
  UInt_t displ_w = (UInt_t) ( displ_h * w_h_ratio );
  
  TCanvas *save_canvas = new TCanvas("save_canvas","Save Canvas",300,300,(UInt_t)ori_w,(UInt_t)ori_h);
  
  
  TPad *pt = new TPad("pt","ptit",
                      .01 , (1.- (pad_tit_h - sep) ) ,
                      .99 ,  .999);
  
  if(TitColor != -1)pt->SetFillColor(TitColor);
  
  save_canvas->cd();
  pt->Draw();
  // WRITE TITLE
  pt->cd();
  TLatex tit;//= new TLatex(.05,.95,title);
  tit.SetTextAlign(23);
  tit.SetTextSize(TitSize);
  tit.DrawLatex(0.5,0.65,title);
  //  tit->Draw();

  
  Double_t dis_perc_w = (Double_t) (displ_w) / ori_w;
  Double_t dis_perc_h = (Double_t) (displ_h) / ori_h;
  
  Double_t half_p = (1. - dis_perc_w)/2;

  TPad *pd = new TPad("pd","pdis",
                      half_p     , .0001,
                      1 - half_p , dis_perc_h,3,1,1);

  save_canvas->cd();
  pd->Draw();

  pd->cd();  
  canv->DrawClonePad();
  // ---

  // Now apply draw options
  pd->cd();

  // compute error-bars
  TIter next(gDirectory->GetList());
  TObject *obj;
  while ((obj = next())) {
    TString clnam = obj->IsA()->GetName();
    clnam.Resize(3);
    if ( clnam.CompareTo("TH1") == 0 ) ( (TH1 *)obj )->SetOption(draw_1D_opt);
    else if ( clnam.CompareTo("TH2") == 0 ) ( (TH2 *)obj )->SetOption(draw_2D_opt);
  }

  // ---
  pd->Modified();
  pd->Update();  
  // ---
  save_canvas->SaveAs(filename);
  delete save_canvas;
  
}

---