| Geant4 Cross Reference |
1 // 1 //
2 // ******************************************* 2 // ********************************************************************
3 // * License and Disclaimer 3 // * License and Disclaimer *
4 // * 4 // * *
5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of *
6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and *
7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file *
8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These *
9 // * include a list of copyright holders. 9 // * include a list of copyright holders. *
10 // * 10 // * *
11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing *
12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this *
13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, *
14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its *
15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above *
16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. *
17 // * 17 // * *
18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and *
19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. *
20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or *
21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its *
22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your *
23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. *
24 // ******************************************* 24 // ********************************************************************
25 // 25 //
26 // 26 //
>> 27 // $Id: G4OpenGLXmTopLevelShell.cc,v 1.7 2009-02-04 16:48:41 lgarnier Exp $
>> 28 // GEANT4 tag $Name: geant4-09-04-patch-01 $
27 // 29 //
28 //Top level shell class 30 //Top level shell class
29 31
30 #include "G4OpenGLXmViewer.hh" << 32 #ifdef G4VIS_BUILD_OPENGLXM_DRIVER
>> 33
31 #include "G4OpenGLXmTopLevelShell.hh" 34 #include "G4OpenGLXmTopLevelShell.hh"
32 #include "G4OpenGLXmVWidgetContainer.hh" 35 #include "G4OpenGLXmVWidgetContainer.hh"
>> 36 #include "G4OpenGLXmViewer.hh"
33 37
34 #include <Xm/Frame.h> 38 #include <Xm/Frame.h>
35 #include <Xm/RowColumn.h> 39 #include <Xm/RowColumn.h>
36 40
37 G4OpenGLXmTopLevelShell::G4OpenGLXmTopLevelShe 41 G4OpenGLXmTopLevelShell::G4OpenGLXmTopLevelShell (G4OpenGLXmViewer* v,
38 char* n) 42 char* n)
39 { 43 {
40 pView = v; 44 pView = v;
41 ProcesspView (); 45 ProcesspView ();
42 name = n; 46 name = n;
43 toplevel = XtVaCreatePopupShell 47 toplevel = XtVaCreatePopupShell
44 (name, 48 (name,
45 topLevelShellWidgetClass, 49 topLevelShellWidgetClass,
46 top, 50 top,
47 51
48 XtNiconName, name, 52 XtNiconName, name,
49 XtNtitle, name, 53 XtNtitle, name,
50 XmNdeleteResponse, XmDO_NOTHING, 54 XmNdeleteResponse, XmDO_NOTHING,
51 XmNisHomogeneous, False, 55 XmNisHomogeneous, False,
52 56
53 XtNvisual, visual, 57 XtNvisual, visual,
54 XtNdepth, depth, 58 XtNdepth, depth,
55 XtNcolormap, cmap, 59 XtNcolormap, cmap,
56 XtNborderColor, borcol, 60 XtNborderColor, borcol,
57 XtNbackground, bgnd, 61 XtNbackground, bgnd,
58 NULL); 62 NULL);
59 63
60 frame = XtVaCreateManagedWidget (name, 64 frame = XtVaCreateManagedWidget (name,
61 xmFrameWidgetClass, 65 xmFrameWidgetClass,
62 toplevel, 66 toplevel,
63 67
64 XtNvisual, visual, 68 XtNvisual, visual,
65 XtNdepth, depth, 69 XtNdepth, depth,
66 XtNcolormap, cmap, 70 XtNcolormap, cmap,
67 XtNborderColor, borcol, 71 XtNborderColor, borcol,
68 XtNbackground, bgnd, 72 XtNbackground, bgnd,
69 73
70 NULL); 74 NULL);
71 75
72 76
73 77
74 top_box = XtVaCreateManagedWidget (name, 78 top_box = XtVaCreateManagedWidget (name,
75 xmRowColumnWidgetClass, 79 xmRowColumnWidgetClass,
76 frame, 80 frame,
77 81
78 XmNadjustMargin, True, 82 XmNadjustMargin, True,
79 XmNisHomogeneous, False, 83 XmNisHomogeneous, False,
80 84
81 XtNvisual, visual, 85 XtNvisual, visual,
82 XtNdepth, depth, 86 XtNdepth, depth,
83 XtNcolormap, cmap, 87 XtNcolormap, cmap,
84 XtNborderColor, borcol, 88 XtNborderColor, borcol,
85 XtNbackground, bgnd, 89 XtNbackground, bgnd,
86 90
87 NULL); 91 NULL);
88 92
89 } 93 }
90 94
91 G4OpenGLXmTopLevelShell::~G4OpenGLXmTopLevelSh 95 G4OpenGLXmTopLevelShell::~G4OpenGLXmTopLevelShell ()
92 { 96 {
93 XtDestroyWidget (toplevel); 97 XtDestroyWidget (toplevel);
94 } 98 }
95 99
96 void G4OpenGLXmTopLevelShell::AddChild (G4Open 100 void G4OpenGLXmTopLevelShell::AddChild (G4OpenGLXmVWidgetContainer* container)
97 { 101 {
98 container->AddYourselfTo (this); 102 container->AddYourselfTo (this);
99 } 103 }
100 104
101 void G4OpenGLXmTopLevelShell::Realize () 105 void G4OpenGLXmTopLevelShell::Realize ()
102 { 106 {
103 Cardinal num_children; 107 Cardinal num_children;
104 XtVaGetValues (toplevel, 108 XtVaGetValues (toplevel,
105 XmNnumChildren, &num_children, 109 XmNnumChildren, &num_children,
106 NULL); 110 NULL);
107 // G4cout << name << " now parents " << num_c 111 // G4cout << name << " now parents " << num_children << " children." << G4endl;
108 XtManageChild (toplevel); 112 XtManageChild (toplevel);
109 XtRealizeWidget (toplevel); 113 XtRealizeWidget (toplevel);
110 XtPopup (toplevel, XtGrabNonexclusive); 114 XtPopup (toplevel, XtGrabNonexclusive);
111 } 115 }
112 116
113 Widget* G4OpenGLXmTopLevelShell::GetPointerToW 117 Widget* G4OpenGLXmTopLevelShell::GetPointerToWidget ()
114 { 118 {
115 return &top_box; 119 return &top_box;
116 } 120 }
117 121
118 char* G4OpenGLXmTopLevelShell::GetName () 122 char* G4OpenGLXmTopLevelShell::GetName ()
119 { 123 {
120 return name; 124 return name;
121 } 125 }
>> 126
>> 127 #endif
122 128