31 #ifdef G4VIS_BUILD_OPENGLXM_DRIVER
36 #include <X11/Intrinsic.h>
38 #include <Xm/ArrowBG.h>
42 G4OpenGLXmFourArrowButtons::G4OpenGLXmFourArrowButtons (XtCallbackRec** c)
50 G4OpenGLXmFourArrowButtons::~G4OpenGLXmFourArrowButtons ()
53 void G4OpenGLXmFourArrowButtons::AddYourselfTo (G4OpenGLXmVWidgetContainer* container)
56 pView = container->GetView ();
59 parent = container->GetPointerToWidget ();
61 arrow_form = XtVaCreateManagedWidget
70 XtNborderColor, borcol,
77 arrow = XtVaCreateManagedWidget
79 xmArrowButtonGadgetClass,
82 XmNtopAttachment, XmATTACH_POSITION,
85 XmNbottomAttachment, XmATTACH_POSITION,
88 XmNleftAttachment, XmATTACH_POSITION,
91 XmNrightAttachment, XmATTACH_POSITION,
94 XmNarrowDirection, XmARROW_UP,
98 XtAddCallbacks (arrow,
102 XtAddCallbacks (arrow,
106 XtAddCallbacks (arrow,
111 arrow = XtVaCreateManagedWidget
113 xmArrowButtonGadgetClass,
116 XmNtopAttachment, XmATTACH_POSITION,
119 XmNbottomAttachment, XmATTACH_POSITION,
120 XmNbottomPosition, 3,
122 XmNleftAttachment, XmATTACH_POSITION,
125 XmNrightAttachment, XmATTACH_POSITION,
128 XmNarrowDirection, XmARROW_DOWN,
132 XtAddCallbacks (arrow,
136 XtAddCallbacks (arrow,
140 XtAddCallbacks (arrow,
145 arrow = XtVaCreateManagedWidget
147 xmArrowButtonGadgetClass,
150 XmNtopAttachment, XmATTACH_POSITION,
153 XmNbottomAttachment, XmATTACH_POSITION,
154 XmNbottomPosition, 2,
156 XmNleftAttachment, XmATTACH_POSITION,
159 XmNrightAttachment, XmATTACH_POSITION,
162 XmNarrowDirection, XmARROW_LEFT,
166 XtAddCallbacks (arrow,
170 XtAddCallbacks (arrow,
174 XtAddCallbacks (arrow,
179 arrow = XtVaCreateManagedWidget
181 xmArrowButtonGadgetClass,
184 XmNtopAttachment, XmATTACH_POSITION,
187 XmNbottomAttachment, XmATTACH_POSITION,
188 XmNbottomPosition, 2,
190 XmNleftAttachment, XmATTACH_POSITION,
193 XmNrightAttachment, XmATTACH_POSITION,
196 XmNarrowDirection, XmARROW_RIGHT,
200 XtAddCallbacks (arrow,
204 XtAddCallbacks (arrow,
208 XtAddCallbacks (arrow,
214 Widget* G4OpenGLXmFourArrowButtons::GetPointerToParent ()
219 Widget* G4OpenGLXmFourArrowButtons::GetPointerToWidget ()