//*CMZ : 2.21/05 09/02/99 02.03.13 by Fons Rademakers
//*CMZ : 2.21/00 28/12/98 17.12.49 by Rene Brun
//*CMZ : 2.20/05 15/12/98 09.17.19 by Rene Brun
//*CMZ : 1.03/09 10/12/97 12.23.42 by Rene Brun
//*-- Author : Rene Brun 12/12/94
//*KEEP,CopyRight,T=C.
/*************************************************************************
* Copyright(c) 1995-1999, The ROOT System, All rights reserved. *
* Authors: Rene Brun, Fons Rademakers. *
* For list of contributors see $ROOTSYS/AA_CREDITS. *
* *
* Permission to use, copy, modify and distribute this software and its *
* documentation for non-commercial purposes is hereby granted without *
* fee, provided that the above copyright notice appears in all copies *
* and that both the copyright notice and this permission notice appear *
* in the supporting documentation. The authors make no claims about the *
* suitability of this software for any purpose. It is provided "as is" *
* without express or implied warranty. *
*************************************************************************/
//*KEND.
#include <stdlib.h>
#include <fstream.h>
#include <iostream.h>
//*KEEP,TROOT.
#include "TROOT.h"
//*KEEP,TVirtualPad.
#include "TVirtualPad.h"
//*KEEP,TGXW.
#include "TGXW.h"
//*KEEP,TClass.
#include "TClass.h"
//*KEEP,TMath.
#include "TMath.h"
//*KEND.
ClassImp(TBox)
//______________________________________________________________________________
//
// A box is defined by :
// - Its bottom left coordinates x1,y1
// - Its top right coordinates x2,y2
//
// A box has line attributes (see TAttLine)
// and fill area attributes (see TAttFill).
//
//
/*
*/
//
//
//______________________________________________________________________________
TBox::TBox(): TObject(), TAttLine(), TAttFill()
{
//*-*-*-*-*-*-*-*-*-*-*Box default constructor-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
//*-* =======================
fTip = 0;
}
//______________________________________________________________________________
TBox::TBox(Coord_t x1, Coord_t y1, Coord_t x2, Coord_t y2)
: TObject(), TAttLine(), TAttFill()
{
//*-*-*-*-*-*-*-*-*-*-*Box standard constructor-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
//*-* ========================
fX1=x1; fY1=y1; fX2=x2; fY2=y2;
fResizing = kFALSE;
fTip = 0;
}
//______________________________________________________________________________
TBox::~TBox()
{
//*-*-*-*-*-*-*-*-*-*-*Box destructor*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
//*-* ==============
if (gPad) {
gPad->CloseToolTip(fTip);
gPad->DeleteToolTip(fTip);
}
}
//______________________________________________________________________________
TBox::TBox(const TBox &box)
{
((TBox&)box).Copy(*this);
}
//______________________________________________________________________________
void TBox::Copy(TObject &obj)
{
//*-*-*-*-*-*-*-*-*-*-*Copy a Box*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
//*-* ==========
TObject::Copy(obj);
TAttLine::Copy(((TBox&)obj));
TAttFill::Copy(((TBox&)obj));
((TBox&)obj).fX1 = fX1;
((TBox&)obj).fY1 = fY1;
((TBox&)obj).fX2 = fX2;
((TBox&)obj).fY2 = fY2;
((TBox&)obj).fResizing = fResizing;
((TBox&)obj).fTip = 0; //FIXME
}
//______________________________________________________________________________
Int_t TBox::DistancetoPrimitive(Int_t px, Int_t py)
{
//*-*-*-*-*-*-*-*-*-*-*Compute distance from point px,py to a box*-*-*-*-*-*
//*-* ==========================================
// Compute the closest distance of approach from point px,py to the
// edges of this box.
// The distance is computed in pixels units.
//
Int_t pxl, pyl, pxt, pyt;
Int_t px1 = gPad->XtoAbsPixel(fX1);
Int_t py1 = gPad->YtoAbsPixel(fY1);
Int_t px2 = gPad->XtoAbsPixel(fX2);
Int_t py2 = gPad->YtoAbsPixel(fY2);
if (px1 < px2) {pxl = px1; pxt = px2;}
else {pxl = px2; pxt = px1;}
if (py1 < py2) {pyl = py1; pyt = py2;}
else {pyl = py2; pyt = py1;}
//*-*- Are we inside the box?
//*-* ======================
if ( (px > pxl && px < pxt) && (py > pyl && py < pyt) ) {
if (GetFillStyle()) return 0; //*-* if box is filled
}
//*-*- Are we on the edges?
//*-* ====================
Int_t dxl = TMath::Abs(px - pxl);
if (py < pyl) dxl += pyl - py; if (py > pyt) dxl += py - pyt;
Int_t dxt = TMath::Abs(px - pxt);
if (py < pyl) dxt += pyl - py; if (py > pyt) dxt += py - pyt;
Int_t dyl = TMath::Abs(py - pyl);
if (px < pxl) dyl += pxl - px; if (px > pxt) dyl += px - pxt;
Int_t dyt = TMath::Abs(py - pyt);
if (px < pxl) dyt += pxl - px; if (px > pxt) dyt += px - pxt;
Int_t distance = dxl;
if (dxt < distance) distance = dxt;
if (dyl < distance) distance = dyl;
if (dyt < distance) distance = dyt;
return distance - Int_t(0.5*fLineWidth);
}
//______________________________________________________________________________
void TBox::Draw(Option_t *option)
{
//*-*-*-*-*-*-*-*-*-*-*Draw this box with its current attributes*-*-*-*-*-*-*
//*-* =========================================
AppendPad(option);
}
//______________________________________________________________________________
void TBox::DrawBox(Coord_t x1, Coord_t y1,Coord_t x2, Coord_t y2)
{
//*-*-*-*-*-*-*-*-*-*-*Draw this box with new coordinates*-*-*-*-*-*-*-*-*-*
//*-* ==================================
TBox *newbox = new TBox(x1,y1,x2,y2);
TAttLine::Copy(*newbox);
TAttFill::Copy(*newbox);
newbox->SetBit(kCanDelete);
newbox->AppendPad();
}
//______________________________________________________________________________
void TBox::ExecuteEvent(Int_t event, Int_t px, Int_t py)
{
//*-*-*-*-*-*-*-*-*-*-*Execute action corresponding to one event*-*-*-*
//*-* =========================================
// This member function is called when a BOX/WBOX/PAD object is clicked.
//
// If the mouse is clicked in one of the 4 corners of the box (PA,PB,PC,PD)
// the box is resized with the rubber rectangle.
//
// If the mouse is clicked inside the box, the box is moved.
//
// If the mouse is clicked on the 4 edges (L,R,T,B), the box is rscaled
// parallel to this edge (same as Motif window manager).
//
// PA T PB
// +--------------------------------------------+
// | |
// | |
// | |
// L| INSIDE |R
// | |
// | |
// | |
// | |
// +--------------------------------------------+
// PD B PC
//
if (!gPad) return;
const Int_t kMaxDiff = 5;
const Int_t kMinSize = 20;
static Int_t px1, px2, py1, py2, pxl, pyl, pxt, pyt, pxold, pyold;
static Int_t px1p, px2p, py1p, py2p, pxlp, pylp, pxtp, pytp;
static Bool_t PA, PB, PC, PD, T, L, R, B, INSIDE;
Int_t wx, wy;
TVirtualPad *parent;
Bool_t doing_again = kFALSE;
Bool_t opaque = gPad->OpaqueMoving();
Bool_t ropaque = gPad->OpaqueResizing();
if (InheritsFrom(TVirtualPad::Class())) {
parent = gPad->GetMother();
if (((TVirtualPad*)this)->GetXlowNDC() < 0 && event != kButton1Down) return;
if (((TVirtualPad*)this)->GetYlowNDC() < 0 && event != kButton1Down) return;
} else {
parent = gPad;
}
HideToolTip(event);
again:
switch (event) {
case kMouseEnter:
if (fTip)
gPad->ResetToolTip(fTip);
break;
case kButton1Double:
px1 = -1; //used by kButton1Up
break;
case kButton1Down:
gGXW->SetLineColor(-1);
TAttLine::Modify(); //Change line attributes only if necessary
if (GetFillColor())
gGXW->SetLineColor(GetFillColor());
else
gGXW->SetLineColor(1);
gGXW->SetLineWidth(2);
// No break !!!
case kMouseMotion:
px1 = gPad->XtoAbsPixel(GetX1());
py1 = gPad->YtoAbsPixel(GetY1());
px2 = gPad->XtoAbsPixel(GetX2());
py2 = gPad->YtoAbsPixel(GetY2());
if (px1 < px2) {
pxl = px1;
pxt = px2;
} else {
pxl = px2;
pxt = px1;
}
if (py1 < py2) {
pyl = py1;
pyt = py2;
} else {
pyl = py2;
pyt = py1;
}
px1p = parent->XtoAbsPixel(parent->GetX1()) + parent->GetBorderSize();
py1p = parent->YtoAbsPixel(parent->GetY1()) - parent->GetBorderSize();
px2p = parent->XtoAbsPixel(parent->GetX2()) - parent->GetBorderSize();
py2p = parent->YtoAbsPixel(parent->GetY2()) + parent->GetBorderSize();
if (px1p < px2p) {
pxlp = px1p;
pxtp = px2p;
} else {
pxlp = px2p;
pxtp = px1p;
}
if (py1p < py2p) {
pylp = py1p;
pytp = py2p;
} else {
pylp = py2p;
pytp = py1p;
}
PA = PB = PC = PD = T = L = R = B = INSIDE = kFALSE;
// case PA
if (TMath::Abs(px - pxl) <= kMaxDiff && TMath::Abs(py - pyl) <= kMaxDiff) {
pxold = pxl; pyold = pyl; PA = kTRUE;
gPad->SetCursor(kTopLeft);
}
// case PB
if (TMath::Abs(px - pxt) <= kMaxDiff && TMath::Abs(py - pyl) <= kMaxDiff) {
pxold = pxt; pyold = pyl; PB = kTRUE;
gPad->SetCursor(kTopRight);
}
// case PC
if (TMath::Abs(px - pxt) <= kMaxDiff && TMath::Abs(py - pyt) <= kMaxDiff) {
pxold = pxt; pyold = pyt; PC = kTRUE;
gPad->SetCursor(kBottomRight);
}
// case PD
if (TMath::Abs(px - pxl) <= kMaxDiff && TMath::Abs(py - pyt) <= kMaxDiff) {
pxold = pxl; pyold = pyt; PD = kTRUE;
gPad->SetCursor(kBottomLeft);
}
if ((px > pxl+kMaxDiff && px < pxt-kMaxDiff) &&
TMath::Abs(py - pyl) < kMaxDiff) { // top edge
pxold = pxl; pyold = pyl; T = kTRUE;
gPad->SetCursor(kTopSide);
}
if ((px > pxl+kMaxDiff && px < pxt-kMaxDiff) &&
TMath::Abs(py - pyt) < kMaxDiff) { // bottom edge
pxold = pxt; pyold = pyt; B = kTRUE;
gPad->SetCursor(kBottomSide);
}
if ((py > pyl+kMaxDiff && py < pyt-kMaxDiff) &&
TMath::Abs(px - pxl) < kMaxDiff) { // left edge
pxold = pxl; pyold = pyl; L = kTRUE;
gPad->SetCursor(kLeftSide);
}
if ((py > pyl+kMaxDiff && py < pyt-kMaxDiff) &&
TMath::Abs(px - pxt) < kMaxDiff) { // right edge
pxold = pxt; pyold = pyt; R = kTRUE;
gPad->SetCursor(kRightSide);
}
if ((px > pxl+kMaxDiff && px < pxt-kMaxDiff) &&
(py > pyl+kMaxDiff && py < pyt-kMaxDiff)) { // inside box
pxold = px; pyold = py; INSIDE = kTRUE;
if (event == kButton1Down)
gPad->SetCursor(kMove);
else
gPad->SetCursor(kCross);
}
fResizing = kFALSE;
if (PA || PB || PC || PD || T || L || R || B)
fResizing = kTRUE;
if (!PA && !PB && !PC && !PD && !T && !L && !R && !B && !INSIDE)
gPad->SetCursor(kCross);
break;
case kButton1Motion:
wx = wy = 0;
if (PA) {
if (!ropaque) gGXW->DrawBox(pxold, pyt, pxt, pyold, TGXW::kHollow); // draw the old box
if (px > pxt-kMinSize) { px = pxt-kMinSize; wx = px; }
if (py > pyt-kMinSize) { py = pyt-kMinSize; wy = py; }
if (px < pxlp) { px = pxlp; wx = px; }
if (py < pylp) { py = pylp; wy = py; }
if (!ropaque) gGXW->DrawBox(px , pyt, pxt, py, TGXW::kHollow); // draw the new box
}
if (PB) {
if (!ropaque) gGXW->DrawBox(pxl , pyt, pxold, pyold, TGXW::kHollow);
if (px < pxl+kMinSize) { px = pxl+kMinSize; wx = px; }
if (py > pyt-kMinSize) { py = pyt-kMinSize; wy = py; }
if (px > pxtp) { px = pxtp; wx = px; }
if (py < pylp) { py = pylp; wy = py; }
if (!ropaque) gGXW->DrawBox(pxl , pyt, px , py, TGXW::kHollow);
}
if (PC) {
if (!ropaque) gGXW->DrawBox(pxl , pyl, pxold, pyold, TGXW::kHollow);
if (px < pxl+kMinSize) { px = pxl+kMinSize; wx = px; }
if (py < pyl+kMinSize) { py = pyl+kMinSize; wy = py; }
if (px > pxtp) { px = pxtp; wx = px; }
if (py > pytp) { py = pytp; wy = py; }
if (!ropaque) gGXW->DrawBox(pxl , pyl, px , py, TGXW::kHollow);
}
if (PD) {
if (!ropaque) gGXW->DrawBox(pxold, pyold, pxt, pyl, TGXW::kHollow);
if (px > pxt-kMinSize) { px = pxt-kMinSize; wx = px; }
if (py < pyl+kMinSize) { py = pyl+kMinSize; wy = py; }
if (px < pxlp) { px = pxlp; wx = px; }
if (py > pytp) { py = pytp; wy = py; }
if (!ropaque) gGXW->DrawBox(px , py , pxt, pyl, TGXW::kHollow);
}
if (T) {
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
py2 += py - pyold;
if (py2 > py1-kMinSize) { py2 = py1-kMinSize; wy = py2; }
if (py2 < py2p) { py2 = py2p; wy = py2; }
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
}
if (B) {
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
py1 += py - pyold;
if (py1 < py2+kMinSize) { py1 = py2+kMinSize; wy = py1; }
if (py1 > py1p) { py1 = py1p; wy = py1; }
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
}
if (L) {
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
px1 += px - pxold;
if (px1 > px2-kMinSize) { px1 = px2-kMinSize; wx = px1; }
if (px1 < px1p) { px1 = px1p; wx = px1; }
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
}
if (R) {
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
px2 += px - pxold;
if (px2 < px1+kMinSize) { px2 = px1+kMinSize; wx = px2; }
if (px2 > px2p) { px2 = px2p; wx = px2; }
if (!ropaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow);
}
if (INSIDE) {
if (!opaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow); // draw the old box
Int_t dx = px - pxold;
Int_t dy = py - pyold;
px1 += dx; py1 += dy; px2 += dx; py2 += dy;
if (px1 < px1p) { dx = px1p - px1; px1 += dx; px2 += dx; wx = px+dx; }
if (px2 > px2p) { dx = px2 - px2p; px1 -= dx; px2 -= dx; wx = px-dx; }
if (py1 > py1p) { dy = py1 - py1p; py1 -= dy; py2 -= dy; wy = py-dy; }
if (py2 < py2p) { dy = py2p - py2; py1 += dy; py2 += dy; wy = py+dy; }
if (!opaque) gGXW->DrawBox(px1, py1, px2, py2, TGXW::kHollow); // draw the new box
}
if (wx || wy) {
if (wx) px = wx;
if (wy) py = wy;
gGXW->Warp(px, py);
}
pxold = px;
pyold = py;
if ((INSIDE && opaque) || (fResizing && ropaque)) {
event = kButton1Up;
doing_again = kTRUE;
goto again;
}
break;
case kButton1Up:
if (px1 < 0 ) break;
if (PA) {
fX1 = gPad->AbsPixeltoX(px);
fY1 = gPad->AbsPixeltoY(pyt);
fX2 = gPad->AbsPixeltoX(pxt);
fY2 = gPad->AbsPixeltoY(py);
}
if (PB) {
fX1 = gPad->AbsPixeltoX(pxl);
fY1 = gPad->AbsPixeltoY(pyt);
fX2 = gPad->AbsPixeltoX(px);
fY2 = gPad->AbsPixeltoY(py);
}
if (PC) {
fX1 = gPad->AbsPixeltoX(pxl);
fY1 = gPad->AbsPixeltoY(py);
fX2 = gPad->AbsPixeltoX(px);
fY2 = gPad->AbsPixeltoY(pyl);
}
if (PD) {
fX1 = gPad->AbsPixeltoX(px);
fY1 = gPad->AbsPixeltoY(py);
fX2 = gPad->AbsPixeltoX(pxt);
fY2 = gPad->AbsPixeltoY(pyl);
}
if (T || B || L || R || INSIDE) {
fX1 = gPad->AbsPixeltoX(px1);
fY1 = gPad->AbsPixeltoY(py1);
fX2 = gPad->AbsPixeltoX(px2);
fY2 = gPad->AbsPixeltoY(py2);
}
if (INSIDE) {
// if it was not a pad that was moved then it must have been
// a box or something like that so we have to redraw the pad
if (parent == gPad) gPad->Modified(kTRUE);
if (!doing_again) gPad->SetCursor(kCross);
}
if (PA || PB || PC || PD || T || L || R || B)
gPad->Modified(kTRUE);
gGXW->SetLineColor(-1);
gGXW->SetLineWidth(-1);
break;
case kButton1Locate:
ExecuteEvent(kButton1Down, px, py);
while (1) {
px = py = 0;
event = gGXW->RequestLocator(1, 1, px, py);
ExecuteEvent(kButton1Motion, px, py);
if (event != -1) { // button is released
ExecuteEvent(kButton1Up, px, py);
return;
}
}
}
}
//______________________________________________________________________________
void TBox::HideToolTip(Int_t event)
{
// Hide tool tip depending on the event type. Typically tool tips
// are hidden when event is not a kMouseEnter and not a kMouseMotion
// event.
if (event != kMouseEnter && event != kMouseMotion && fTip && gPad)
gPad->CloseToolTip(fTip);
}
//______________________________________________________________________________
void TBox::ls(Option_t *)
{
//*-*-*-*-*-*-*-*-*-*-*-*List this box with its attributes*-*-*-*-*-*-*-*-*
//*-* =================================
IndentLevel();
printf("%s X1= %f Y1=%f X2=%f Y2=%fn",IsA()->GetName(),fX1,fY1,fX2,fY2);
}
//______________________________________________________________________________
void TBox::Paint(Option_t *)
{
//*-*-*-*-*-*-*-*-*-*-*Paint this box with its current attributes*-*-*-*-*-*-*
//*-* ==========================================
PaintBox(fX1,fY1,fX2,fY2);
}
//______________________________________________________________________________
void TBox::PaintBox(Coord_t x1, Coord_t y1, Coord_t x2, Coord_t y2, Option_t *)
{
//*-*-*-*-*-*-*-*-*-*-*Draw this box with new coordinates*-*-*-*-*-*-*-*-*-*
//*-* ==================================
TAttLine::Modify(); //Change line attributes only if necessary
TAttFill::Modify(); //Change fill area attributes only if necessary
gPad->PaintBox(x1,y1,x2,y2);
}
//______________________________________________________________________________
void TBox::Print(Option_t *)
{
//*-*-*-*-*-*-*-*-*-*-*Dump this box with its attributes*-*-*-*-*-*-*-*-*-*
//*-* =================================
printf("%s X1= %f Y1=%f X2=%f Y2=%f",IsA()->GetName(),fX1,fY1,fX2,fY2);
if (GetLineColor() != 1) printf(" Color=%d",GetLineColor());
if (GetLineStyle() != 1) printf(" Style=%d",GetLineStyle());
if (GetLineWidth() != 1) printf(" Width=%d",GetLineWidth());
if (GetFillColor() != 0) printf(" FillColor=%d",GetFillColor());
if (GetFillStyle() != 0) printf(" FillStyle=%d",GetFillStyle());
printf("n");
}
//______________________________________________________________________________
void TBox::SavePrimitive(ofstream &out, Option_t *)
{
// Save primitive as a C++ statement(s) on output stream out
if (gROOT->ClassSaved(TBox::Class())) {
out<<" ";
} else {
out<<" TBox *";
}
out<<"box = new TBox("<<fX1<<","<<fY1<<","<<fX2<<","<<fY2<<");"<<endl;
SaveFillAttributes(out,"box",0,1001);
SaveLineAttributes(out,"box",1,1,1);
out<<" box->Draw();"<<endl;
}
//______________________________________________________________________________
void TBox::SetToolTipText(const char *text, Long_t delayms)
{
// Set tool tip text associated with this box. The delay is in
// milliseconds (minimum 250). To remove tool tip call method with
// text = 0.
if (!gPad) {
Warning("SetToolTipText", "a canvas must exist before setting the tool tip text");
return;
}
if (fTip) {
gPad->DeleteToolTip(fTip);
fTip = 0;
}
if (text && strlen(text))
fTip = gPad->CreateToolTip(this, text, delayms);
}
ROOT page - Class index - Top of the page
This page has been automatically generated. If you have any comments or suggestions about the page layout send a mail to ROOT support, or contact the developers with any questions or problems regarding ROOT.