Import Geant4 0.0.0 source tree

This commit is contained in:
Gabriele Cosmo
2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,89 @@
// This code implementation is the intellectual property of
// the RD44 GEANT4 collaboration.
//
// By copying, distributing or modifying the Program (or any work
// based on the Program) you indicate your acceptance of this statement,
// and all its terms.
//
// $Id: G4OpenGLXmBox.cc,v 2.1 1998/07/13 17:11:44 urbi Exp $
// GEANT4 tag $Name: geant4-00 $
//
//Box container class
#ifdef G4VIS_BUILD_OPENGLXM_DRIVER
#include "G4OpenGLXmFramedBox.hh"
#include "G4OpenGLXmBox.hh"
#include "G4OpenGLXmVWidgetComponent.hh"
#include "G4OpenGLXmVWidgetShell.hh"
G4OpenGLXmBox::G4OpenGLXmBox (char* n,
G4bool r)
{
name = n;
radio = r;
parent = NULL;
box_row_col = NULL;
}
G4OpenGLXmBox::~G4OpenGLXmBox ()
{}
void G4OpenGLXmBox::AddChild (G4OpenGLXmVWidgetComponent* component)
{
component->AddYourselfTo(this);
Cardinal num_children;
XtVaGetValues (box_row_col,
XmNnumChildren, &num_children,
NULL);
// G4cout << name << " now parents " << num_children << " children." << endl;
}
void G4OpenGLXmBox::AddYourselfTo (G4OpenGLXmVWidgetShell* window)
{
pView = window->GetView ();
ProcesspView ();
parent = window->GetPointerToWidget ();
box_row_col = XtVaCreateManagedWidget (name,
xmRowColumnWidgetClass,
*parent,
XmNadjustMargin, True,
XmNisHomogeneous, False,
XmNlabelString, (XmString)name,
XmNradioAlwaysOne, radio,
XmNradioBehavior, radio,
XtNvisual, visual,
XtNdepth, depth,
XtNcolormap, cmap,
XtNborderColor, borcol,
XtNbackground, bgnd,
NULL);
}
Widget* G4OpenGLXmBox::GetPointerToParent ()
{
return parent;
}
Widget* G4OpenGLXmBox::GetPointerToWidget ()
{
return &box_row_col;
}
char* G4OpenGLXmBox::GetName ()
{
return name;
}
void G4OpenGLXmBox::SetName (char* n)
{
name = n;
}
#endif