Import Geant4 0.0.0 source tree
This commit is contained in:
Gabriele Cosmo
@@ -0,0 +1,500 @@
|
||||
// This code implementation is the intellectual property of
|
||||
// the RD44 GEANT4 collaboration.
|
||||
//
|
||||
// By copying, distributing or modifying the Program (or any work
|
||||
// based on the Program) you indicate your acceptance of this statement,
|
||||
// and all its terms.
|
||||
//
|
||||
// $Id: G4OpenGLXmConvenienceRoutines.cc,v 2.2 1998/08/13 16:14:34 barrand Exp $
|
||||
// GEANT4 tag $Name: geant4-00 $
|
||||
//
|
||||
//
|
||||
// Andrew Walkden 16th April 1997
|
||||
// G4OpenGLXmConvenienceRoutines :
|
||||
// Collection of routines to facilitate
|
||||
// the addition of simple push button boxes,
|
||||
// and slider bars to the control panel.
|
||||
//
|
||||
// See G4OpenGLXmConvenienceRoutines.hh for more information.
|
||||
|
||||
#ifdef G4VIS_BUILD_OPENGLXM_DRIVER
|
||||
|
||||
//#include "G4OpenGLXmConvenienceRoutines.hh"
|
||||
#include "G4OpenGLXmView.hh"
|
||||
|
||||
void G4OpenGLXmView::Add_four_arrow_buttons (G4OpenGLXmView* pView,
|
||||
XtCallbackRec** arrow_callbacks,
|
||||
Widget* parent_widget) {
|
||||
|
||||
Widget arrow_form = XtVaCreateWidget
|
||||
("arrow_form",
|
||||
xmFormWidgetClass,
|
||||
*parent_widget,
|
||||
XmNfractionBase, 3,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
|
||||
Widget arrow = XtVaCreateManagedWidget
|
||||
("up_arrow",
|
||||
xmArrowButtonGadgetClass,
|
||||
arrow_form,
|
||||
XmNtopAttachment, XmATTACH_POSITION,
|
||||
XmNtopPosition, 0,
|
||||
XmNbottomAttachment, XmATTACH_POSITION,
|
||||
XmNbottomPosition, 1,
|
||||
XmNleftAttachment, XmATTACH_POSITION,
|
||||
XmNleftPosition, 1,
|
||||
XmNrightAttachment, XmATTACH_POSITION,
|
||||
XmNrightPosition, 2,
|
||||
XmNarrowDirection, XmARROW_UP,
|
||||
NULL);
|
||||
|
||||
XtVaSetValues (arrow,
|
||||
XmNuserData, True,
|
||||
NULL);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNactivateCallback,
|
||||
arrow_callbacks[0]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNarmCallback,
|
||||
arrow_callbacks[0]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNdisarmCallback,
|
||||
arrow_callbacks[0]);
|
||||
|
||||
arrow = XtVaCreateManagedWidget
|
||||
("down_arrow",
|
||||
xmArrowButtonGadgetClass,
|
||||
arrow_form,
|
||||
XmNtopAttachment, XmATTACH_POSITION,
|
||||
XmNtopPosition, 2,
|
||||
XmNbottomAttachment, XmATTACH_POSITION,
|
||||
XmNbottomPosition, 3,
|
||||
XmNleftAttachment, XmATTACH_POSITION,
|
||||
XmNleftPosition, 1,
|
||||
XmNrightAttachment, XmATTACH_POSITION,
|
||||
XmNrightPosition, 2,
|
||||
XmNarrowDirection, XmARROW_DOWN,
|
||||
NULL);
|
||||
|
||||
XtVaSetValues (arrow,
|
||||
XmNuserData, False,
|
||||
NULL);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNactivateCallback,
|
||||
arrow_callbacks[1]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNarmCallback,
|
||||
arrow_callbacks[1]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNdisarmCallback,
|
||||
arrow_callbacks[1]);
|
||||
|
||||
arrow = XtVaCreateManagedWidget
|
||||
("left_arrow",
|
||||
xmArrowButtonGadgetClass,
|
||||
arrow_form,
|
||||
XmNtopAttachment, XmATTACH_POSITION,
|
||||
XmNtopPosition, 1,
|
||||
XmNbottomAttachment, XmATTACH_POSITION,
|
||||
XmNbottomPosition, 2,
|
||||
XmNleftAttachment, XmATTACH_POSITION,
|
||||
XmNleftPosition, 0,
|
||||
XmNrightAttachment, XmATTACH_POSITION,
|
||||
XmNrightPosition, 1,
|
||||
XmNarrowDirection, XmARROW_LEFT,
|
||||
NULL);
|
||||
|
||||
XtVaSetValues (arrow,
|
||||
XmNuserData, False,
|
||||
NULL);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNactivateCallback,
|
||||
arrow_callbacks[2]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNarmCallback,
|
||||
arrow_callbacks[2]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNdisarmCallback,
|
||||
arrow_callbacks[2]);
|
||||
|
||||
arrow = XtVaCreateManagedWidget
|
||||
("right_arrow",
|
||||
xmArrowButtonGadgetClass,
|
||||
arrow_form,
|
||||
XmNtopAttachment, XmATTACH_POSITION,
|
||||
XmNtopPosition, 1,
|
||||
XmNbottomAttachment, XmATTACH_POSITION,
|
||||
XmNbottomPosition, 2,
|
||||
XmNleftAttachment, XmATTACH_POSITION,
|
||||
XmNleftPosition, 2,
|
||||
XmNrightAttachment, XmATTACH_POSITION,
|
||||
XmNrightPosition, 3,
|
||||
XmNarrowDirection, XmARROW_RIGHT,
|
||||
NULL);
|
||||
|
||||
XtVaSetValues (arrow,
|
||||
XmNuserData, True,
|
||||
NULL);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNactivateCallback,
|
||||
arrow_callbacks[3]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNarmCallback,
|
||||
arrow_callbacks[3]);
|
||||
|
||||
XtAddCallbacks (arrow,
|
||||
XmNdisarmCallback,
|
||||
arrow_callbacks[3]);
|
||||
|
||||
XtManageChild (arrow_form);
|
||||
|
||||
}
|
||||
|
||||
void G4OpenGLXmView::Add_radio_box (char* label_string,
|
||||
Widget* parent_widget,
|
||||
XtCallbackRec* radio_box_callback,
|
||||
G4int num_buttons,
|
||||
G4int default_button,
|
||||
char* radio_box_name,
|
||||
char** button_names,
|
||||
G4OpenGLXmView* pView)
|
||||
{
|
||||
|
||||
XmString button_str;
|
||||
Arg** args;
|
||||
args = new Arg* [num_buttons];
|
||||
Widget button;
|
||||
|
||||
G4int i;
|
||||
for (i = 0; i < num_buttons; i++) {
|
||||
|
||||
args[i] = new Arg[7];
|
||||
button_str = XmStringCreateLocalized (button_names[i]);
|
||||
|
||||
XtSetArg (args[i][0], XtNvisual, pView->vi->visual);
|
||||
XtSetArg (args[i][1], XtNdepth, pView->vi->depth);
|
||||
XtSetArg (args[i][2], XtNcolormap, pView->cmap);
|
||||
XtSetArg (args[i][3], XtNborderColor, pView->borcol);
|
||||
XtSetArg (args[i][4], XtNbackground, pView->bgnd);
|
||||
XtSetArg (args[i][5], XmNlabelString, button_str);
|
||||
|
||||
if (i == default_button) {
|
||||
XtSetArg (args[i][6], XmNset, True);
|
||||
} else {
|
||||
XtSetArg (args[i][6], XmNset, False);
|
||||
}
|
||||
}
|
||||
|
||||
Widget radio_box = XtVaCreateWidget (radio_box_name,
|
||||
xmRowColumnWidgetClass,
|
||||
*parent_widget,
|
||||
XmNisHomogeneous, False,
|
||||
XmNradioBehavior, True,
|
||||
XmNradioAlwaysOne, True,
|
||||
XmNuserData, pView,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
|
||||
XmString lab = XmStringCreateLocalized (label_string);
|
||||
Widget label = XtVaCreateManagedWidget ("radio_label",
|
||||
xmLabelWidgetClass,
|
||||
radio_box,
|
||||
XmNalignment, XmALIGNMENT_CENTER,
|
||||
XmNlabelString, lab,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
XmStringFree (lab);
|
||||
|
||||
for (i = 0; i < num_buttons; i++) {
|
||||
button = XtCreateManagedWidget (button_names[i],
|
||||
xmToggleButtonWidgetClass,
|
||||
radio_box,
|
||||
args[i],
|
||||
7);
|
||||
XtVaSetValues (button,
|
||||
XmNuserData, i,
|
||||
NULL);
|
||||
|
||||
XtAddCallbacks (button,
|
||||
XmNarmCallback,
|
||||
radio_box_callback);
|
||||
}
|
||||
|
||||
XtManageChild (radio_box);
|
||||
|
||||
XmStringFree (button_str);
|
||||
|
||||
for (i = 0; i < num_buttons; i++) {
|
||||
|
||||
delete[] args[i];
|
||||
|
||||
}
|
||||
|
||||
delete[] args;
|
||||
}
|
||||
|
||||
void G4OpenGLXmView::Add_set_field (char* w_name,
|
||||
char* w_text,
|
||||
Widget* row_col_box,
|
||||
Widget* wid,
|
||||
G4double* val,
|
||||
G4OpenGLXmView* pView)
|
||||
{
|
||||
|
||||
char local_w_text[50];
|
||||
strcpy (local_w_text, w_text);
|
||||
|
||||
char label_name[50];
|
||||
strcpy (label_name, w_name);
|
||||
strcat (label_name, "_label");
|
||||
|
||||
char text_field_name[50];
|
||||
strcpy (text_field_name, w_name);
|
||||
strcat (text_field_name, "_text_field");
|
||||
|
||||
XmString local_text = XmStringCreateLocalized (local_w_text);
|
||||
Widget label = XtVaCreateManagedWidget (label_name,
|
||||
xmLabelWidgetClass,
|
||||
*row_col_box,
|
||||
XmNlabelString, local_text,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
XmStringFree (local_text);
|
||||
|
||||
char initial[50];
|
||||
sprintf (initial, "%6.2f\0", *val);
|
||||
|
||||
*wid = XtVaCreateManagedWidget (text_field_name,
|
||||
xmTextFieldWidgetClass,
|
||||
*row_col_box,
|
||||
XmNvalue, (String)initial,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
|
||||
XtAddCallback (*wid,
|
||||
XmNvalueChangedCallback,
|
||||
G4OpenGLXmView::get_double_value_callback,
|
||||
val);
|
||||
|
||||
Widget sep = XtVaCreateManagedWidget ("sep",
|
||||
xmSeparatorWidgetClass,
|
||||
*row_col_box,
|
||||
XmNorientation, XmHORIZONTAL,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
|
||||
sep = XtVaCreateManagedWidget ("sep",
|
||||
xmSeparatorWidgetClass,
|
||||
*row_col_box,
|
||||
XmNseparatorType, XmNO_LINE,
|
||||
XmNmargin, 1,
|
||||
XmNorientation, XmHORIZONTAL,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
}
|
||||
|
||||
void G4OpenGLXmView::Add_slider_box (char* label_string,
|
||||
G4int num_sliders,
|
||||
char** slider_names,
|
||||
G4OpenGLXmView* pView,
|
||||
G4double* min_array,
|
||||
G4double* max_array,
|
||||
G4double* value_array,
|
||||
G4bool* show,
|
||||
short* decimals,
|
||||
unsigned char* orientation,
|
||||
unsigned char* direction,
|
||||
XtCallbackRec** slider_box_callbacks,
|
||||
Widget* parent_widget)
|
||||
{
|
||||
XmString slider_name_str;
|
||||
Arg** slider_args;
|
||||
slider_args = new Arg*[num_sliders];
|
||||
Widget slider;
|
||||
G4int j = 0;
|
||||
|
||||
G4int i;
|
||||
for (i = 0; i < num_sliders; i++) {
|
||||
j = 0;
|
||||
slider_args[i] = new Arg[13];
|
||||
slider_name_str = XmStringCreateLtoR (slider_names[i],
|
||||
XmFONTLIST_DEFAULT_TAG);
|
||||
|
||||
XtSetArg (slider_args[i][j],
|
||||
XtNvisual, pView->vi->visual); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XtNdepth, pView->vi->depth); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XtNcolormap, pView->cmap); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XtNborderColor, pView->borcol); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XtNbackground, pView->bgnd); j++;
|
||||
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNtitleString, slider_name_str); j++;
|
||||
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNmaximum, G4int(max_array[i] * pow(10.0, (G4double)decimals[i]))); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNminimum, G4int(min_array[i] * pow(10.0, (G4double)decimals[i]))); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNvalue, G4int(value_array[i] * pow(10.0, (G4double)decimals[i]))); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNshowValue, show[i]); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNdecimalPoints, decimals[i]); j++;
|
||||
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNorientation, orientation[i]); j++;
|
||||
XtSetArg (slider_args[i][j],
|
||||
XmNprocessingDirection, direction[i]); j++;
|
||||
|
||||
}
|
||||
|
||||
Widget slider_box = XtVaCreateWidget ("slider_box",
|
||||
xmRowColumnWidgetClass,
|
||||
*parent_widget,
|
||||
XmNisHomogeneous, False,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
|
||||
XmString lab = XmStringCreateLocalized (label_string);
|
||||
|
||||
Widget label = XtVaCreateManagedWidget ("slider_label",
|
||||
xmLabelWidgetClass,
|
||||
slider_box,
|
||||
XmNlabelString, lab,
|
||||
XmNalignment, XmALIGNMENT_CENTER,
|
||||
XtNvisual, pView->vi->visual,
|
||||
XtNdepth, pView->vi->depth,
|
||||
XtNcolormap, pView->cmap,
|
||||
XtNborderColor, pView->borcol,
|
||||
XtNbackground, pView->bgnd,
|
||||
NULL);
|
||||
XmStringFree (lab);
|
||||
|
||||
for (i = 0; i < num_sliders; i++) {
|
||||
|
||||
slider = XtCreateManagedWidget (slider_names[i],
|
||||
xmScaleWidgetClass,
|
||||
slider_box,
|
||||
slider_args[i],
|
||||
j);
|
||||
|
||||
XtAddCallbacks (slider,
|
||||
XmNvalueChangedCallback,
|
||||
slider_box_callbacks[i]);
|
||||
|
||||
XtAddCallbacks (slider,
|
||||
XmNdragCallback,
|
||||
slider_box_callbacks[i]);
|
||||
|
||||
}
|
||||
|
||||
XtManageChild (slider_box);
|
||||
XmStringFree (slider_name_str);
|
||||
|
||||
for (i = 0; i < num_sliders; i++) {
|
||||
|
||||
delete[] slider_args[i];
|
||||
|
||||
}
|
||||
|
||||
delete[] slider_args;
|
||||
|
||||
}
|
||||
|
||||
void G4OpenGLXmView::get_double_value_callback (Widget w,
|
||||
XtPointer clientData,
|
||||
XtPointer)
|
||||
{
|
||||
G4double* val = (G4double*) clientData;
|
||||
String string;
|
||||
|
||||
XtVaGetValues (w,
|
||||
XmNvalue, &string,
|
||||
NULL);
|
||||
|
||||
sscanf (string, "%lg", val);
|
||||
|
||||
}
|
||||
|
||||
void G4OpenGLXmView::get_text_callback (Widget w,
|
||||
XtPointer clientData,
|
||||
XtPointer)
|
||||
{
|
||||
char* txt = (char*)clientData;
|
||||
String string;
|
||||
|
||||
XtVaGetValues (w,
|
||||
XmNvalue, &string,
|
||||
NULL);
|
||||
|
||||
sscanf (string, "%s", txt);
|
||||
}
|
||||
|
||||
G4bool G4OpenGLXmView::get_boolean_userData (Widget w)
|
||||
{
|
||||
XtPointer userData;
|
||||
XtVaGetValues (w,XmNuserData,&userData,NULL);
|
||||
return (G4bool)(unsigned long)userData;
|
||||
}
|
||||
|
||||
G4int G4OpenGLXmView::get_int_userData (Widget w)
|
||||
{
|
||||
XtPointer userData;
|
||||
XtVaGetValues (w,XmNuserData,&userData,NULL);
|
||||
return (G4int)(unsigned long)userData;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user