Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,104 @@
+// 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: G4OpenGLXmTopLevelShell.cc,v 2.1 1998/07/13 17:11:50 urbi Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+//Top level shell class
+
+#ifdef G4VIS_BUILD_OPENGLXM_DRIVER
+
+#include "G4OpenGLXmTopLevelShell.hh"
+#include "G4OpenGLXmVWidgetContainer.hh"
+
+G4OpenGLXmTopLevelShell::G4OpenGLXmTopLevelShell (G4OpenGLXmView* v,
+						  char* n) 
+{
+  pView = v;
+  ProcesspView ();
+  name = n;
+  toplevel = XtVaCreatePopupShell 
+    (name,
+     topLevelShellWidgetClass,
+     top,
+     
+     XtNiconName, name,
+     XtNtitle, name,
+     XmNdeleteResponse, XmDO_NOTHING,
+     XmNisHomogeneous, False,
+     
+     XtNvisual, visual, 
+     XtNdepth, depth, 
+     XtNcolormap, cmap, 
+     XtNborderColor, borcol,
+     XtNbackground, bgnd,
+     NULL);
+
+  frame = XtVaCreateManagedWidget (name,
+				   xmFrameWidgetClass,
+				   toplevel,
+				   
+				   XtNvisual, visual,
+				   XtNdepth, depth,
+				   XtNcolormap, cmap,
+				   XtNborderColor, borcol,
+				   XtNbackground, bgnd,
+				   
+				   NULL);
+  
+  
+  
+  top_box =  XtVaCreateManagedWidget (name,
+				      xmRowColumnWidgetClass,
+				      frame,
+				      
+				      XmNadjustMargin, True,
+				      XmNisHomogeneous, False,
+				      
+				      XtNvisual, visual,
+				      XtNdepth, depth,
+				      XtNcolormap, cmap,
+				      XtNborderColor, borcol,
+				      XtNbackground, bgnd,
+				      
+				      NULL);  
+
+}
+
+G4OpenGLXmTopLevelShell::~G4OpenGLXmTopLevelShell ()
+{
+  XtDestroyWidget (toplevel);
+}
+
+void G4OpenGLXmTopLevelShell::AddChild (G4OpenGLXmVWidgetContainer* container)
+{
+  container->AddYourselfTo (this);
+}
+
+void G4OpenGLXmTopLevelShell::Realize () 
+{
+  Cardinal num_children;
+  XtVaGetValues (toplevel,
+		 XmNnumChildren, &num_children,
+		 NULL);
+//  G4cout << name << " now parents " << num_children << " children." << endl;
+  XtManageChild (toplevel);
+  XtRealizeWidget (toplevel);
+  XtPopup (toplevel, XtGrabNonexclusive);
+}
+
+Widget* G4OpenGLXmTopLevelShell::GetPointerToWidget ()
+{
+  return &top_box;
+}
+
+char* G4OpenGLXmTopLevelShell::GetName ()
+{
+  return name;
+}
+
+#endif