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