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,200 @@
// 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: G4OpenGLXmFourArrowButtons.cc,v 2.0 1998/07/02 16:46:37 gunter Exp $
// GEANT4 tag $Name: geant4-00 $
//
//Four arrow buttons class. Inherits from G4OpenGLXmVWidgetComponent
#ifdef G4VIS_BUILD_OPENGLXM_DRIVER
#include "G4OpenGLXmVWidgetComponent.hh"
#include "G4OpenGLXmVWidgetContainer.hh"
#include "G4OpenGLXmFourArrowButtons.hh"
#include <X11/Intrinsic.h>
#include "globals.hh"
G4OpenGLXmFourArrowButtons::G4OpenGLXmFourArrowButtons (XtCallbackRec** c)
{
callback = c;
}
G4OpenGLXmFourArrowButtons::~G4OpenGLXmFourArrowButtons ()
{}
void G4OpenGLXmFourArrowButtons::AddYourselfTo (G4OpenGLXmVWidgetContainer* container)
{
pView = container->GetView ();
ProcesspView ();
parent = container->GetPointerToWidget ();
arrow_form = XtVaCreateManagedWidget
("arrow_form",
xmFormWidgetClass,
*parent,
XmNfractionBase, 3,
XtNvisual, visual,
XtNdepth, depth,
XtNcolormap, cmap,
XtNborderColor, borcol,
XtNbackground, bgnd,
NULL);
///////////////`up' arrow///////////////
arrow = XtVaCreateManagedWidget
("up_arrow",
xmArrowButtonGadgetClass,
arrow_form,
XmNtopAttachment, XmATTACH_POSITION,
XmNtopPosition, 0,
XmNbottomAttachment, XmATTACH_POSITION,
XmNbottomPosition, 1,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 1,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 2,
XmNarrowDirection, XmARROW_UP,
XmNuserData, True,
NULL);
XtAddCallbacks (arrow,
XmNactivateCallback,
callback[0]);
XtAddCallbacks (arrow,
XmNarmCallback,
callback[0]);
XtAddCallbacks (arrow,
XmNdisarmCallback,
callback[0]);
///////////////`down' arrow///////////////
arrow = XtVaCreateManagedWidget
("down_arrow",
xmArrowButtonGadgetClass,
arrow_form,
XmNtopAttachment, XmATTACH_POSITION,
XmNtopPosition, 2,
XmNbottomAttachment, XmATTACH_POSITION,
XmNbottomPosition, 3,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 1,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 2,
XmNarrowDirection, XmARROW_DOWN,
XmNuserData, False,
NULL);
XtAddCallbacks (arrow,
XmNactivateCallback,
callback[1]);
XtAddCallbacks (arrow,
XmNarmCallback,
callback[1]);
XtAddCallbacks (arrow,
XmNdisarmCallback,
callback[1]);
///////////////`left' arrow///////////////
arrow = XtVaCreateManagedWidget
("left_arrow",
xmArrowButtonGadgetClass,
arrow_form,
XmNtopAttachment, XmATTACH_POSITION,
XmNtopPosition, 1,
XmNbottomAttachment, XmATTACH_POSITION,
XmNbottomPosition, 2,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 0,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 1,
XmNarrowDirection, XmARROW_LEFT,
XmNuserData, False,
NULL);
XtAddCallbacks (arrow,
XmNactivateCallback,
callback[2]);
XtAddCallbacks (arrow,
XmNarmCallback,
callback[2]);
XtAddCallbacks (arrow,
XmNdisarmCallback,
callback[2]);
///////////////`right' arrow///////////////
arrow = XtVaCreateManagedWidget
("right_arrow",
xmArrowButtonGadgetClass,
arrow_form,
XmNtopAttachment, XmATTACH_POSITION,
XmNtopPosition, 1,
XmNbottomAttachment, XmATTACH_POSITION,
XmNbottomPosition, 2,
XmNleftAttachment, XmATTACH_POSITION,
XmNleftPosition, 2,
XmNrightAttachment, XmATTACH_POSITION,
XmNrightPosition, 3,
XmNarrowDirection, XmARROW_RIGHT,
XmNuserData, True,
NULL);
XtAddCallbacks (arrow,
XmNactivateCallback,
callback[3]);
XtAddCallbacks (arrow,
XmNarmCallback,
callback[3]);
XtAddCallbacks (arrow,
XmNdisarmCallback,
callback[3]);
}
Widget* G4OpenGLXmFourArrowButtons::GetPointerToParent ()
{
return parent;
}
Widget* G4OpenGLXmFourArrowButtons::GetPointerToWidget ()
{
return &arrow_form;
}
#endif