TGObject.cxx

Go to the documentation of this file.

// @(#)root/gui:$Id$
// Author: Fons Rademakers   27/12/97
 
/*************************************************************************
 * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/
/**************************************************************************
 
    This source is based on Xclass95, a Win95-looking GUI toolkit.
    Copyright (C) 1996, 1997 David Barth, Ricky Ralston, Hector Peraza.
 
    Xclass95 is free software; you can redistribute it and/or
    modify it under the terms of the GNU Library General Public
    License as published by the Free Software Foundation; either
    version 2 of the License, or (at your option) any later version.
 
**************************************************************************/
 
 
/** \class TGObject
    \ingroup guiwidgets
 
This class is the baseclass for all ROOT GUI widgets.
The ROOT GUI components emulate the Win95 look and feel and the code
is based on the XClass'95 code (see Copyleft in source).
 
*/
 
 
#include "TGObject.h"
#include "TVirtualX.h"
#include "TImage.h"
#include "TROOT.h"
 
ClassImp(TGObject);
 
////////////////////////////////////////////////////////////////////////////////
/// TGObject destructor.
 
TGObject::~TGObject()
{
   // Required since we overload TObject::Hash.
   ROOT::CallRecursiveRemoveIfNeeded(*this);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Write this TGObject to a file using TImage, if filename's extension signals
/// a valid TImage::EImageFileType, as defined by TImage::GetImageFileTypeFromFilename().
/// Otherwise forward to TObject::SaveAs().
 
void TGObject::SaveAs(const char* filename /*= ""*/, Option_t* option /*= ""*/) const
{
   TImage::EImageFileTypes type = TImage::GetImageFileTypeFromFilename(filename);
   if (type != TImage::kUnknown) {
      WindowAttributes_t wattr;
      gVirtualX->GetWindowAttributes(GetId(), wattr);
      TImage* img = TImage::Create();
      if (img) {
         img->FromWindow(GetId(), 0, 0, wattr.fWidth, wattr.fHeight);
         img->WriteImage(filename, type);
         delete img;
      }
      return;
   }
 
   TObject::SaveAs(filename, option);
}
 
////////////////////////////////////////////////////////////////////////////////
/// Equal comparison (TGObjects are equal if they have the same
/// window identifier). If the TGObjects have not been created by
/// the Window manager (e.g. a TGLVEntry), then fall back to the
/// default TObject equal comparison
 
Bool_t TGObject::IsEqual(const TObject *obj) const
{
   if (auto gobj = dynamic_cast<const TGObject *>(obj)) {
      if (fId == 0 && gobj->fId == 0)
         return TObject::IsEqual(obj);
      return fId == gobj->fId;
   }
   // TGObject != some-other-TObject:
   return false;
}