30 #ifdef G4VIS_BUILD_OPENGLXM_DRIVER
35 #include <X11/Intrinsic.h>
37 #include <Xm/ArrowBG.h>
41 G4OpenGLXmFourArrowButtons::G4OpenGLXmFourArrowButtons (XtCallbackRec**
c)
49 G4OpenGLXmFourArrowButtons::~G4OpenGLXmFourArrowButtons ()
52 void G4OpenGLXmFourArrowButtons::AddYourselfTo (G4OpenGLXmVWidgetContainer* container)
55 pView = container->GetView ();
58 parent = container->GetPointerToWidget ();
60 arrow_form = XtVaCreateManagedWidget
69 XtNborderColor, borcol,
76 arrow = XtVaCreateManagedWidget
78 xmArrowButtonGadgetClass,
81 XmNtopAttachment, XmATTACH_POSITION,
84 XmNbottomAttachment, XmATTACH_POSITION,
87 XmNleftAttachment, XmATTACH_POSITION,
90 XmNrightAttachment, XmATTACH_POSITION,
93 XmNarrowDirection, XmARROW_UP,
97 XtAddCallbacks (arrow,
101 XtAddCallbacks (arrow,
105 XtAddCallbacks (arrow,
110 arrow = XtVaCreateManagedWidget
112 xmArrowButtonGadgetClass,
115 XmNtopAttachment, XmATTACH_POSITION,
118 XmNbottomAttachment, XmATTACH_POSITION,
119 XmNbottomPosition, 3,
121 XmNleftAttachment, XmATTACH_POSITION,
124 XmNrightAttachment, XmATTACH_POSITION,
127 XmNarrowDirection, XmARROW_DOWN,
131 XtAddCallbacks (arrow,
135 XtAddCallbacks (arrow,
139 XtAddCallbacks (arrow,
144 arrow = XtVaCreateManagedWidget
146 xmArrowButtonGadgetClass,
149 XmNtopAttachment, XmATTACH_POSITION,
152 XmNbottomAttachment, XmATTACH_POSITION,
153 XmNbottomPosition, 2,
155 XmNleftAttachment, XmATTACH_POSITION,
158 XmNrightAttachment, XmATTACH_POSITION,
161 XmNarrowDirection, XmARROW_LEFT,
165 XtAddCallbacks (arrow,
169 XtAddCallbacks (arrow,
173 XtAddCallbacks (arrow,
178 arrow = XtVaCreateManagedWidget
180 xmArrowButtonGadgetClass,
183 XmNtopAttachment, XmATTACH_POSITION,
186 XmNbottomAttachment, XmATTACH_POSITION,
187 XmNbottomPosition, 2,
189 XmNleftAttachment, XmATTACH_POSITION,
192 XmNrightAttachment, XmATTACH_POSITION,
195 XmNarrowDirection, XmARROW_RIGHT,
199 XtAddCallbacks (arrow,
203 XtAddCallbacks (arrow,
207 XtAddCallbacks (arrow,
213 Widget* G4OpenGLXmFourArrowButtons::GetPointerToParent ()
218 Widget* G4OpenGLXmFourArrowButtons::GetPointerToWidget ()