Geant4 9.6.0
Toolkit for the simulation of the passage of particles through matter
•All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Macros
G4OpenGLXmConvenienceRoutines.cc
Go to the documentation of this file.
1//
2// ********************************************************************
3// * License and Disclaimer *
4// * *
5// * The Geant4 software is copyright of the Copyright Holders of *
6// * the Geant4 Collaboration. It is provided under the terms and *
7// * conditions of the Geant4 Software License, included in the file *
8// * LICENSE and available at http://cern.ch/geant4/license . These *
9// * include a list of copyright holders. *
10// * *
11// * Neither the authors of this software system, nor their employing *
12// * institutes,nor the agencies providing financial support for this *
13// * work make any representation or warranty, express or implied, *
14// * regarding this software system or assume any liability for its *
15// * use. Please see the license in the file LICENSE and URL above *
16// * for the full disclaimer and the limitation of liability. *
17// * *
18// * This code implementation is the result of the scientific and *
19// * technical work of the GEANT4 collaboration. *
20// * By using, copying, modifying or distributing the software (or *
21// * any work based on the software) you agree to acknowledge its *
22// * use in resulting scientific publications, and indicate your *
23// * acceptance of all terms of the Geant4 Software license. *
24// ********************************************************************
25//
26//
27// $Id$
28//
29//
30// Andrew Walkden 16th April 1997
31// G4OpenGLXmConvenienceRoutines :
32// Collection of routines to facilitate
33// the addition of simple push button boxes,
34// and slider bars to the control panel.
35//
36// See G4OpenGLXmConvenienceRoutines.hh for more information.
37
38#ifdef G4VIS_BUILD_OPENGLXM_DRIVER
39
40#include "G4OpenGLXmViewer.hh"
41
42#include <Xm/Form.h>
43#include <Xm/ToggleB.h>
44#include <Xm/ArrowBG.h>
45#include <Xm/RowColumn.h>
46#include <Xm/TextF.h>
47#include <Xm/Separator.h>
48#include <Xm/Scale.h>
49
50void G4OpenGLXmViewer::Add_four_arrow_buttons (G4OpenGLXmViewer* pView,
51 XtCallbackRec** arrow_callbacks,
52 Widget* parent_widget) {
53
54 Widget arrow_form = XtVaCreateWidget
55 ("arrow_form",
56 xmFormWidgetClass,
57 *parent_widget,
58 XmNfractionBase, 3,
59 XtNvisual, pView->vi->visual,
60 XtNdepth, pView->vi->depth,
61 XtNcolormap, pView->cmap,
62 XtNborderColor, pView->borcol,
63 XtNbackground, pView->bgnd,
64 NULL);
65
66 Widget arrow = XtVaCreateManagedWidget
67 ("up_arrow",
68 xmArrowButtonGadgetClass,
69 arrow_form,
70 XmNtopAttachment, XmATTACH_POSITION,
71 XmNtopPosition, 0,
72 XmNbottomAttachment, XmATTACH_POSITION,
73 XmNbottomPosition, 1,
74 XmNleftAttachment, XmATTACH_POSITION,
75 XmNleftPosition, 1,
76 XmNrightAttachment, XmATTACH_POSITION,
77 XmNrightPosition, 2,
78 XmNarrowDirection, XmARROW_UP,
79 NULL);
80
81 XtVaSetValues (arrow,
82 XmNuserData, True,
83 NULL);
84
85 XtAddCallbacks (arrow,
86 XmNactivateCallback,
87 arrow_callbacks[0]);
88
89 XtAddCallbacks (arrow,
90 XmNarmCallback,
91 arrow_callbacks[0]);
92
93 XtAddCallbacks (arrow,
94 XmNdisarmCallback,
95 arrow_callbacks[0]);
96
97 arrow = XtVaCreateManagedWidget
98 ("down_arrow",
99 xmArrowButtonGadgetClass,
100 arrow_form,
101 XmNtopAttachment, XmATTACH_POSITION,
102 XmNtopPosition, 2,
103 XmNbottomAttachment, XmATTACH_POSITION,
104 XmNbottomPosition, 3,
105 XmNleftAttachment, XmATTACH_POSITION,
106 XmNleftPosition, 1,
107 XmNrightAttachment, XmATTACH_POSITION,
108 XmNrightPosition, 2,
109 XmNarrowDirection, XmARROW_DOWN,
110 NULL);
111
112 XtVaSetValues (arrow,
113 XmNuserData, False,
114 NULL);
115
116 XtAddCallbacks (arrow,
117 XmNactivateCallback,
118 arrow_callbacks[1]);
119
120 XtAddCallbacks (arrow,
121 XmNarmCallback,
122 arrow_callbacks[1]);
123
124 XtAddCallbacks (arrow,
125 XmNdisarmCallback,
126 arrow_callbacks[1]);
127
128 arrow = XtVaCreateManagedWidget
129 ("left_arrow",
130 xmArrowButtonGadgetClass,
131 arrow_form,
132 XmNtopAttachment, XmATTACH_POSITION,
133 XmNtopPosition, 1,
134 XmNbottomAttachment, XmATTACH_POSITION,
135 XmNbottomPosition, 2,
136 XmNleftAttachment, XmATTACH_POSITION,
137 XmNleftPosition, 0,
138 XmNrightAttachment, XmATTACH_POSITION,
139 XmNrightPosition, 1,
140 XmNarrowDirection, XmARROW_LEFT,
141 NULL);
142
143 XtVaSetValues (arrow,
144 XmNuserData, False,
145 NULL);
146
147 XtAddCallbacks (arrow,
148 XmNactivateCallback,
149 arrow_callbacks[2]);
150
151 XtAddCallbacks (arrow,
152 XmNarmCallback,
153 arrow_callbacks[2]);
154
155 XtAddCallbacks (arrow,
156 XmNdisarmCallback,
157 arrow_callbacks[2]);
158
159 arrow = XtVaCreateManagedWidget
160 ("right_arrow",
161 xmArrowButtonGadgetClass,
162 arrow_form,
163 XmNtopAttachment, XmATTACH_POSITION,
164 XmNtopPosition, 1,
165 XmNbottomAttachment, XmATTACH_POSITION,
166 XmNbottomPosition, 2,
167 XmNleftAttachment, XmATTACH_POSITION,
168 XmNleftPosition, 2,
169 XmNrightAttachment, XmATTACH_POSITION,
170 XmNrightPosition, 3,
171 XmNarrowDirection, XmARROW_RIGHT,
172 NULL);
173
174 XtVaSetValues (arrow,
175 XmNuserData, True,
176 NULL);
177
178 XtAddCallbacks (arrow,
179 XmNactivateCallback,
180 arrow_callbacks[3]);
181
182 XtAddCallbacks (arrow,
183 XmNarmCallback,
184 arrow_callbacks[3]);
185
186 XtAddCallbacks (arrow,
187 XmNdisarmCallback,
188 arrow_callbacks[3]);
189
190 XtManageChild (arrow_form);
191
192}
193
194void G4OpenGLXmViewer::Add_radio_box (char* label_string,
195 Widget* parent_widget,
196 XtCallbackRec* radio_box_callback,
197 G4int num_buttons,
198 G4int default_button,
199 char* radio_box_name,
200 char** button_names,
201 G4OpenGLXmViewer* pView)
202{
203 XmString button_str = XmStringCreateLocalized((char*) ""); // ...to
204 // initialise to something to avoid pedantic warning.
205 Arg** args;
206 args = new Arg* [num_buttons];
207 Widget button;
208
209 G4int i;
210 for (i = 0; i < num_buttons; i++) {
211
212 args[i] = new Arg[7];
213 button_str = XmStringCreateLocalized (button_names[i]);
214
215 XtSetArg (args[i][0], XtNvisual, pView->vi->visual);
216 XtSetArg (args[i][1], XtNdepth, pView->vi->depth);
217 XtSetArg (args[i][2], XtNcolormap, pView->cmap);
218 XtSetArg (args[i][3], XtNborderColor, pView->borcol);
219 XtSetArg (args[i][4], XtNbackground, pView->bgnd);
220 XtSetArg (args[i][5], XmNlabelString, button_str);
221
222 if (i == default_button) {
223 XtSetArg (args[i][6], XmNset, True);
224 } else {
225 XtSetArg (args[i][6], XmNset, False);
226 }
227 }
228
229 Widget radio_box = XtVaCreateWidget (radio_box_name,
230 xmRowColumnWidgetClass,
231 *parent_widget,
232 XmNisHomogeneous, False,
233 XmNradioBehavior, True,
234 XmNradioAlwaysOne, True,
235 XmNuserData, pView,
236 XtNvisual, pView->vi->visual,
237 XtNdepth, pView->vi->depth,
238 XtNcolormap, pView->cmap,
239 XtNborderColor, pView->borcol,
240 XtNbackground, pView->bgnd,
241 NULL);
242
243 XmString lab = XmStringCreateLocalized (label_string);
244
245 // Unused!
246 //Widget label = XtVaCreateManagedWidget ("radio_label",
247 // xmLabelWidgetClass,
248 // radio_box,
249 // XmNalignment, XmALIGNMENT_CENTER,
250 // XmNlabelString, lab,
251 // XtNvisual, pView->vi->visual,
252 // XtNdepth, pView->vi->depth,
253 // XtNcolormap, pView->cmap,
254 // XtNborderColor, pView->borcol,
255 // XtNbackground, pView->bgnd,
256 // NULL);
257
258 XmStringFree (lab);
259
260 for (i = 0; i < num_buttons; i++) {
261 button = XtCreateManagedWidget (button_names[i],
262 xmToggleButtonWidgetClass,
263 radio_box,
264 args[i],
265 7);
266 XtVaSetValues (button,
267 XmNuserData, i,
268 NULL);
269
270 XtAddCallbacks (button,
271 XmNarmCallback,
272 radio_box_callback);
273 }
274
275 XtManageChild (radio_box);
276
277 XmStringFree (button_str);
278
279 for (i = 0; i < num_buttons; i++) {
280
281 delete[] args[i];
282
283 }
284
285 delete[] args;
286}
287
288void G4OpenGLXmViewer::Add_set_field (char* w_name,
289 char* w_text,
290 Widget* row_col_box,
291 Widget* wid,
292 G4double* val,
293 G4OpenGLXmViewer* pView)
294{
295
296 char local_w_text[50];
297 strcpy (local_w_text, w_text);
298
299 char label_name[50];
300 strcpy (label_name, w_name);
301 strcat (label_name, "_label");
302
303 char text_field_name[50];
304 strcpy (text_field_name, w_name);
305 strcat (text_field_name, "_text_field");
306
307 XmString local_text = XmStringCreateLocalized (local_w_text);
308
309 // Unused!
310 // Widget label = XtVaCreateManagedWidget (label_name,
311 // xmLabelWidgetClass,
312 // *row_col_box,
313 // XmNlabelString, local_text,
314 // XtNvisual, pView->vi->visual,
315 // XtNdepth, pView->vi->depth,
316 // XtNcolormap, pView->cmap,
317 // XtNborderColor, pView->borcol,
318 // XtNbackground, pView->bgnd,
319 // NULL);
320
321 XmStringFree (local_text);
322
323 char initial[50];
324 sprintf (initial, "%6.2f", *val);
325
326 *wid = XtVaCreateManagedWidget (text_field_name,
327 xmTextFieldWidgetClass,
328 *row_col_box,
329 XmNvalue, (String)initial,
330 XtNvisual, pView->vi->visual,
331 XtNdepth, pView->vi->depth,
332 XtNcolormap, pView->cmap,
333 XtNborderColor, pView->borcol,
334 XtNbackground, pView->bgnd,
335 NULL);
336
337 XtAddCallback (*wid,
338 XmNvalueChangedCallback,
339 get_double_value_callback,
340 val);
341
342 /* Not actually used - comment out to prevent compiler warnings.
343 Instead, just in case it matters, just invoke
344 XtVaCreateManagedWidget (JA)
345 Widget sep = XtVaCreateManagedWidget ("sep",
346 xmSeparatorWidgetClass,
347 *row_col_box,
348 XmNorientation, XmHORIZONTAL,
349 XtNvisual, pView->vi->visual,
350 XtNdepth, pView->vi->depth,
351 XtNcolormap, pView->cmap,
352 XtNborderColor, pView->borcol,
353 XtNbackground, pView->bgnd,
354 NULL);
355 sep = XtVaCreateManagedWidget ("sep",
356 xmSeparatorWidgetClass,
357 *row_col_box,
358 XmNseparatorType, XmNO_LINE,
359 XmNmargin, 1,
360 XmNorientation, XmHORIZONTAL,
361 XtNvisual, pView->vi->visual,
362 XtNdepth, pView->vi->depth,
363 XtNcolormap, pView->cmap,
364 XtNborderColor, pView->borcol,
365 XtNbackground, pView->bgnd,
366 NULL);
367 */
368 XtVaCreateManagedWidget ("sep",
369 xmSeparatorWidgetClass,
370 *row_col_box,
371 XmNseparatorType, XmNO_LINE,
372 XmNmargin, 1,
373 XmNorientation, XmHORIZONTAL,
374 XtNvisual, pView->vi->visual,
375 XtNdepth, pView->vi->depth,
376 XtNcolormap, pView->cmap,
377 XtNborderColor, pView->borcol,
378 XtNbackground, pView->bgnd,
379 NULL);
380}
381
382void G4OpenGLXmViewer::Add_slider_box (char* label_string,
383 G4int num_sliders,
384 char** slider_names,
385 G4OpenGLXmViewer* pView,
386 G4double* min_array,
387 G4double* max_array,
388 G4double* value_array,
389 G4bool* show,
390 short* decimals,
391 unsigned char* orientation,
392 unsigned char* direction,
393 XtCallbackRec** slider_box_callbacks,
394 Widget* parent_widget)
395{
396 XmString slider_name_str = XmStringCreateLocalized((char*) ""); // ...to
397 // initialise to something to avoid pedantic warning.
398 Arg** slider_args;
399 slider_args = new Arg*[num_sliders];
400 Widget slider;
401 G4int j = 0;
402
403 G4int i;
404 for (i = 0; i < num_sliders; i++) {
405 j = 0;
406 slider_args[i] = new Arg[13];
407 slider_name_str = XmStringCreateLtoR (slider_names[i],
408 XmFONTLIST_DEFAULT_TAG);
409
410 XtSetArg (slider_args[i][j],
411 XtNvisual, pView->vi->visual); j++;
412 XtSetArg (slider_args[i][j],
413 XtNdepth, pView->vi->depth); j++;
414 XtSetArg (slider_args[i][j],
415 XtNcolormap, pView->cmap); j++;
416 XtSetArg (slider_args[i][j],
417 XtNborderColor, pView->borcol); j++;
418 XtSetArg (slider_args[i][j],
419 XtNbackground, pView->bgnd); j++;
420
421 XtSetArg (slider_args[i][j],
422 XmNtitleString, slider_name_str); j++;
423
424 XtSetArg (slider_args[i][j],
425 XmNmaximum, G4int(max_array[i] * std::pow(10.0, (G4double)decimals[i]))); j++;
426 XtSetArg (slider_args[i][j],
427 XmNminimum, G4int(min_array[i] * std::pow(10.0, (G4double)decimals[i]))); j++;
428 XtSetArg (slider_args[i][j],
429 XmNvalue, G4int(value_array[i] * std::pow(10.0, (G4double)decimals[i]))); j++;
430 XtSetArg (slider_args[i][j],
431 XmNshowValue, show[i]); j++;
432 XtSetArg (slider_args[i][j],
433 XmNdecimalPoints, decimals[i]); j++;
434
435 XtSetArg (slider_args[i][j],
436 XmNorientation, orientation[i]); j++;
437 XtSetArg (slider_args[i][j],
438 XmNprocessingDirection, direction[i]); j++;
439
440 }
441
442 Widget slider_box = XtVaCreateWidget ("slider_box",
443 xmRowColumnWidgetClass,
444 *parent_widget,
445 XmNisHomogeneous, False,
446 XtNvisual, pView->vi->visual,
447 XtNdepth, pView->vi->depth,
448 XtNcolormap, pView->cmap,
449 XtNborderColor, pView->borcol,
450 XtNbackground, pView->bgnd,
451 NULL);
452
453 XmString lab = XmStringCreateLocalized (label_string);
454
455 // Unused!
456 //Widget label = XtVaCreateManagedWidget ("slider_label",
457 // xmLabelWidgetClass,
458 // slider_box,
459 // XmNlabelString, lab,
460 // XmNalignment, XmALIGNMENT_CENTER,
461 // XtNvisual, pView->vi->visual,
462 // XtNdepth, pView->vi->depth,
463 // XtNcolormap, pView->cmap,
464 // XtNborderColor, pView->borcol,
465 // XtNbackground, pView->bgnd,
466 // NULL);
467
468 XmStringFree (lab);
469
470 for (i = 0; i < num_sliders; i++) {
471
472 slider = XtCreateManagedWidget (slider_names[i],
473 xmScaleWidgetClass,
474 slider_box,
475 slider_args[i],
476 j);
477
478 XtAddCallbacks (slider,
479 XmNvalueChangedCallback,
480 slider_box_callbacks[i]);
481
482 XtAddCallbacks (slider,
483 XmNdragCallback,
484 slider_box_callbacks[i]);
485
486 }
487
488 XtManageChild (slider_box);
489 XmStringFree (slider_name_str);
490
491 for (i = 0; i < num_sliders; i++) {
492
493 delete[] slider_args[i];
494
495 }
496
497 delete[] slider_args;
498
499}
500
501void G4OpenGLXmViewer::get_double_value_callback (Widget w,
502 XtPointer clientData,
503 XtPointer)
504{
505 G4double* val = (G4double*) clientData;
506 String string;
507
508 XtVaGetValues (w,
509 XmNvalue, &string,
510 NULL);
511
512 sscanf (string, "%lg", val);
513
514}
515
516void G4OpenGLXmViewer::get_text_callback (Widget w,
517 XtPointer clientData,
518 XtPointer)
519{
520 char* txt = (char*)clientData;
521 String string;
522
523 XtVaGetValues (w,
524 XmNvalue, &string,
525 NULL);
526
527 sscanf (string, "%s", txt);
528}
529
530G4bool G4OpenGLXmViewer::get_boolean_userData (Widget w)
531{
532 XtPointer userData;
533 XtVaGetValues (w,XmNuserData,&userData,NULL);
534 return (G4bool)(((unsigned long)userData)&0xffff);
535}
536
537G4int G4OpenGLXmViewer::get_int_userData (Widget w)
538{
539 XtPointer userData;
540 XtVaGetValues (w,XmNuserData,&userData,NULL);
541 return (G4int)(unsigned long)userData;
542}
543
544#endif
545
546
547
548
549
G4double
double G4double
Definition: G4Types.hh:64
G4int
int G4int
Definition: G4Types.hh:66
G4bool
bool G4bool
Definition: G4Types.hh:67
userData
#define userData
Definition: xmlparse.cc:555