31#ifdef G4VIS_BUILD_OPENGLXM_DRIVER
36#include <X11/Intrinsic.h>
38#include <Xm/ArrowBG.h>
42G4OpenGLXmFourArrowButtons::G4OpenGLXmFourArrowButtons (XtCallbackRec** c)
47G4OpenGLXmFourArrowButtons::~G4OpenGLXmFourArrowButtons ()
50void G4OpenGLXmFourArrowButtons::AddYourselfTo (G4OpenGLXmVWidgetContainer* container)
53 pView = container->GetView ();
56 parent = container->GetPointerToWidget ();
58 arrow_form = XtVaCreateManagedWidget
67 XtNborderColor, borcol,
74 arrow = XtVaCreateManagedWidget
76 xmArrowButtonGadgetClass,
79 XmNtopAttachment, XmATTACH_POSITION,
82 XmNbottomAttachment, XmATTACH_POSITION,
85 XmNleftAttachment, XmATTACH_POSITION,
88 XmNrightAttachment, XmATTACH_POSITION,
91 XmNarrowDirection, XmARROW_UP,
95 XtAddCallbacks (arrow,
99 XtAddCallbacks (arrow,
103 XtAddCallbacks (arrow,
108 arrow = XtVaCreateManagedWidget
110 xmArrowButtonGadgetClass,
113 XmNtopAttachment, XmATTACH_POSITION,
116 XmNbottomAttachment, XmATTACH_POSITION,
117 XmNbottomPosition, 3,
119 XmNleftAttachment, XmATTACH_POSITION,
122 XmNrightAttachment, XmATTACH_POSITION,
125 XmNarrowDirection, XmARROW_DOWN,
129 XtAddCallbacks (arrow,
133 XtAddCallbacks (arrow,
137 XtAddCallbacks (arrow,
142 arrow = XtVaCreateManagedWidget
144 xmArrowButtonGadgetClass,
147 XmNtopAttachment, XmATTACH_POSITION,
150 XmNbottomAttachment, XmATTACH_POSITION,
151 XmNbottomPosition, 2,
153 XmNleftAttachment, XmATTACH_POSITION,
156 XmNrightAttachment, XmATTACH_POSITION,
159 XmNarrowDirection, XmARROW_LEFT,
163 XtAddCallbacks (arrow,
167 XtAddCallbacks (arrow,
171 XtAddCallbacks (arrow,
176 arrow = XtVaCreateManagedWidget
178 xmArrowButtonGadgetClass,
181 XmNtopAttachment, XmATTACH_POSITION,
184 XmNbottomAttachment, XmATTACH_POSITION,
185 XmNbottomPosition, 2,
187 XmNleftAttachment, XmATTACH_POSITION,
190 XmNrightAttachment, XmATTACH_POSITION,
193 XmNarrowDirection, XmARROW_RIGHT,
197 XtAddCallbacks (arrow,
201 XtAddCallbacks (arrow,
205 XtAddCallbacks (arrow,
211Widget* G4OpenGLXmFourArrowButtons::GetPointerToParent ()
216Widget* G4OpenGLXmFourArrowButtons::GetPointerToWidget ()