| 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 //Radio button class. Inherits from G4OpenGLXm
29
30 #include "G4OpenGLXmVWidgetComponent.hh"
31 #include "G4OpenGLXmVWidgetContainer.hh"
32 #include "G4OpenGLXmRadioButton.hh"
33 #include <X11/Intrinsic.h>
34 #include <Xm/ToggleB.h>
35
36 #include "globals.hh"
37
38 G4OpenGLXmRadioButton::G4OpenGLXmRadioButton (
39 XtCallbackRec* c,
40 G4bool d,
41 G4int num)
42 : button(0)
43 , parent(0)
44 {
45 name = n;
46 callback = c;
47 default_button = d;
48 number = num;
49 }
50
51 G4OpenGLXmRadioButton::~G4OpenGLXmRadioButton
52 {}
53
54 void G4OpenGLXmRadioButton::SetName (const cha
55 {
56 name = n;
57 XmString button_string = XmStringCreateLocal
58 XtVaSetValues (button,
59 XmNlabelString, button_string,
60 NULL);
61 XmStringFree (button_string);
62 }
63
64 const char* G4OpenGLXmRadioButton::GetName ()
65 {
66 return name;
67 }
68
69 void G4OpenGLXmRadioButton::AddYourselfTo (G4O
70 {
71
72 pView = container->GetView ();
73 ProcesspView ();
74 parent = container->GetPointerToWidget ();
75 XmString button_string = XmStringCreateLocal
76 button = XtVaCreateManagedWidget (name,
77 xmToggleButtonWidgetClass,
78 *parent,
79
80 XmNlabelString, button_string,
81 XmNset, default_button,
82 XmNuserData, number,
83
84 XtNvisual, visual,
85 XtNdepth, depth,
86 XtNcolormap, cmap,
87 XtNborderColor, borcol,
88 XtNbackground, bgnd,
89
90 NULL);
91
92 XtAddCallbacks (button,
93 XmNarmCallback,
94 callback);
95
96 XmStringFree (button_string);
97 }
98
99 Widget* G4OpenGLXmRadioButton::GetPointerToPar
100 {
101 return parent;
102 }
103
104 Widget* G4OpenGLXmRadioButton::GetPointerToWid
105 {
106 return &button;
107 }
108