EVE/Reve/.SKEL-ged.cxx

   1 // $Header$
   2
   3 #include "CLASS.h"
   4 #include <Reve/STEM.h>
   5
   6 #include <TVirtualPad.h>
   7 #include <TColor.h>
   8
   9 #include <TGLabel.h>
  10 #include <TGButton.h>
  11 #include <TGNumberEntry.h>
  12 #include <TGColorSelect.h>
  13 #include <TGDoubleSlider.h>
  14
  15 using namespace Reve;
  16
  17 //______________________________________________________________________
  18 // CLASS
  19 //
  20
  21 ClassImp(CLASS);
  22
  23 CLASS::CLASS(const TGWindow *p, Int_t id, Int_t width, Int_t height,
  24              UInt_t options, Pixel_t back) :
  25   TGedFrame(p, id, width, height, options | kVerticalFrame, back)
  26 {
  27   fM = 0;
  28   MakeTitle("STEM");
  29
  30   //!!! create the widgets here ...
  31
  32   // Register the editor.
  33   TClass *cl = STEM::Class();
  34   TGedElement *ge = new TGedElement;
  35   ge->fGedFrame = this;
  36   ge->fCanvas = 0;
  37   cl->GetEditorList()->Add(ge);
  38 }
  39
  40 CLASS::~CLASS()
  41 {}
  42
  43 /**************************************************************************/
  44
  45 void CLASS::SetModel(TVirtualPad* pad, TObject* obj, Int_t event)
  46 {
  47   fModel = 0;
  48   fPad   = 0;
  49
  50   if (!obj || !obj->InheritsFrom(STEM::Class()) || obj->InheritsFrom(TVirtualPad::Class())) {
  51     SetActive(kFALSE);
  52     return;
  53   }
  54
  55   fModel = obj;
  56   fPad   = pad;
  57
  58   fM = dynamic_cast<STEM*>(fModel);
  59
  60   SetActive();
  61 }
  62
  63 /**************************************************************************/