| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 //
28 //Framed box container class
29
30 #include "G4OpenGLXmBox.hh"
31 #include "G4OpenGLXmFramedBox.hh"
32 #include "G4OpenGLXmVWidgetComponent.hh"
33 #include "G4OpenGLXmVWidgetShell.hh"
34 #include <Xm/RowColumn.h>
35 #include <Xm/Frame.h>
36
37 G4OpenGLXmFramedBox::G4OpenGLXmFramedBox (cons
38 G4bool r) :
39 G4OpenGLXmBox (n, r)
40 {
41 frame = NULL;
42 }
43
44 G4OpenGLXmFramedBox::~G4OpenGLXmFramedBox ()
45 {}
46
47 void G4OpenGLXmFramedBox::AddChild (G4OpenGLXm
48 {
49 component->AddYourselfTo(this);
50 Cardinal num_children;
51 XtVaGetValues (box_row_col,
52 XmNnumChildren, &num_children,
53 NULL);
54 // G4cout << name << " now parents " << num_c
55 }
56
57 void G4OpenGLXmFramedBox::AddYourselfTo (G4Ope
58 {
59
60 pView = window->GetView ();
61 ProcesspView ();
62 char framename[50];
63 strcpy (framename, name);
64 strcat (framename, "_frame");
65
66 parent = window->GetPointerToWidget ();
67 frame = XtVaCreateManagedWidget (framename,
68 xmFrameWidgetClass,
69 *parent,
70
71 XtNvisual, visual,
72 XtNdepth, depth,
73 XtNcolormap, cmap,
74 XtNborderColor, borcol,
75 XtNbackground, bgnd,
76
77 NULL);
78
79
80
81 box_row_col = XtVaCreateManagedWidget (name
82 xmRowColumnWidgetClass,
83 frame,
84
85 XmNadjustMargin, True,
86 XmNisHomogeneous, False,
87 XmNlabelString, (XmString)name,
88 XmNradioAlwaysOne, radio,
89 XmNradioBehavior, radio,
90
91 XtNvisual, visual,
92 XtNdepth, depth,
93 XtNcolormap, cmap,
94 XtNborderColor, borcol,
95 XtNbackground, bgnd,
96
97 NULL);
98
99 }
100