void create_editp_frame(Widget w, XtPointer client_data, XtPointer call_data)
{
int x, y;
static Widget top;
Widget dialog;
set_wait_cursor();
if (top == NULL) {
Widget but1[3];
char *label1[3];
label1[0] = "Edit";
label1[1] = "Formula";
label1[2] = "Close";
XmGetPos(app_shell, 0, &x, &y);
top = XmCreateDialogShell(app_shell, "Edit/Create set", NULL, 0);
handle_close(top);
XtVaSetValues(top, XmNx, x, XmNy, y, NULL);
dialog = XmCreateRowColumn(top, "dialog_rc", NULL, 0);
editp_set_item = CreateSetSelector(dialog, "Edit set:",
SET_SELECT_NEXT,
FILTER_SELECT_NONE,
GRAPH_SELECT_CURRENT,
SELECTION_TYPE_SINGLE);
XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, dialog, NULL);
#ifdef HAVE_LIBXBAE
ext_editor_item = XtVaCreateManagedWidget("Use external editor",
xmToggleButtonWidgetClass, dialog,
NULL);
XmToggleButtonSetState( ext_editor_item, False, False );
XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, dialog, NULL);
#endif
CreateCommandButtons(dialog, 3, but1, label1);
XtAddCallback(but1[0], XmNactivateCallback,
(XtCallbackProc) edit_set_proc, NULL);
XtAddCallback(but1[1], XmNactivateCallback,
(XtCallbackProc) create_leval_frame, NULL);
XtAddCallback(but1[2], XmNactivateCallback,
(XtCallbackProc) destroy_dialog, (XtPointer) top);
XtAddCallback(editp_set_item.list, XmNsingleSelectionCallback,
(XtCallbackProc) setsel_cred_cb, (XtPointer)but1[1] );
XtManageChild(dialog);
}
XtRaise(top);
unset_wait_cursor();
}
void create_featext_frame(Widget w, XtPointer client_data, XtPointer call_data)
{
int x, y, i;
Widget dialog;
set_wait_cursor();
if (feui.top == NULL) {
char *label2[3];
label2[0] = "Accept";
label2[1] = "Close";
XmGetPos(app_shell, 0, &x, &y);
feui.top = XmCreateDialogShell(app_shell, "Feature Extraction", NULL, 0);
handle_close(feui.top);
XtVaSetValues(feui.top, XmNx, x, XmNy, y, NULL);
dialog = XmCreateRowColumn(feui.top, "dialog_rc", NULL, 0);
feui.tograph = CreateGraphChoice(dialog, "Results to graph: ", maxgraph, 1);
feui.feature_item = CreatePanelChoice0(dialog,
"Feature:", 3, 24,
"Y minimum", "Y maximum", "Y average", "Y std. dev.",
"Y median",
"X minimum", "X maximum", "X average", "X std. dev.",
"X median",
"Frequency", "Period", "Zero crossing",
"Rise time", "Fall time", "Slope", "Y intercept",
"Set length", "Half maximal width",
"Barycenter X", "Barycenter Y",
"X(Y max)", "Y(X max)",
NULL, 0);
feui.xval_item = CreatePanelChoice(dialog,
"X values from:", 5,
"Index", "Legends", "X from Set", "Y from set",
NULL, 0 );
for (i = 0; i < 4; i++) {
XtAddCallback(feui.xval_item[2 + i], XmNactivateCallback,
(XtCallbackProc) do_fext_toggle, (XtPointer) i);
}
XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, dialog, NULL);
feui.legload_rc= XmCreateRowColumn(dialog, "fext_legload_rc", NULL, 0);
feui.absic_graph = CreateGraphChoice(feui.legload_rc,
"Abscissa from graph: ",maxgraph,0);
for(i=0; i<maxgraph; i++ )
XtAddCallback(feui.absic_graph[2 + i], XmNactivateCallback,
(XtCallbackProc) do_gto_setsel_update, (XtPointer) i);
feui.absic_set = CreateSetSelector(feui.legload_rc, "set:",
SET_SELECT_ACTIVE,
FILTER_SELECT_NONE,
0,
SELECTION_TYPE_SINGLE);
update_save_set_list( feui.absic_set, 0 );
XtManageChild(feui.legload_rc);
XtSetSensitive(feui.legload_rc, False);
XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, dialog, NULL);
CreateCommandButtons(dialog, 2, but2, label2);
XtAddCallback(but2[0], XmNactivateCallback, (XtCallbackProc)
do_fext_proc,(XtPointer) & feui);
XtAddCallback(but2[1], XmNactivateCallback,
(XtCallbackProc)destroy_dialog,(XtPointer)feui.top);
XtManageChild(dialog);
}
XtRaise(feui.top);
unset_wait_cursor();
}
/* ARGSUSED */
void create_nonl_frame(Widget w, XtPointer client_data, XtPointer call_data)
{
int i;
Widget sw, fr, title_fr, fr1, fr3, rc, rc1, rc2, rc3, lab, fitbut[4], but1[2];
Widget menubar, menupane, submenupane, cascade;
set_wait_cursor();
if (nonl_frame == NULL) {
char *fitlabel[4];
char *blabel[2];
fitlabel[0] = "Load as is";
fitlabel[1] = "Run 5 steps";
fitlabel[2] = "Run 20 steps";
fitlabel[3] = "Run 100 steps";
blabel[0] = "Accept";
blabel[1] = "Cancel";
nonl_frame = XmCreateDialogShell(app_shell, "Non-linear curve fitting", NULL, 0);
handle_close(nonl_frame);
nonl_panel = XmCreateForm(nonl_frame, "nonl_frame_rc", NULL, 0);
menubar = CreateMenuBar(nonl_panel, "nonlMenuBar", NULL);
menupane = CreateMenu(menubar, "nonlFileMenu", "File", 'F', NULL, NULL);
CreateMenuButton(menupane, "open", "Open...", 'O',
(XtCallbackProc) create_openfit_popup, (XtPointer) NULL, NULL);
CreateMenuButton(menupane, "save", "Save...", 'S',
(XtCallbackProc) create_savefit_popup, (XtPointer) NULL, NULL);
CreateMenuSeparator(menupane, "sep1");
CreateMenuButton(menupane, "close", "Close", 'C',
(XtCallbackProc) destroy_nonl_frame, (XtPointer) NONL_ACCEPT, NULL);
menupane = CreateMenu(menubar, "nonlDataMenu", "Data", 'D', NULL, NULL);
CreateMenuButton(menupane, "reset", "Reset", 'R',
(XtCallbackProc) reset_nonl_frame, (XtPointer) NULL, 0);
CreateMenuButton(menupane, "update", "Update", 'U',
(XtCallbackProc) update_nonl_frame, (XtPointer) NULL, 0);
menupane = CreateMenu(menubar, "nonlOptionsMenu", "Options", 'O', NULL, NULL);
submenupane = CreateMenu(menupane, "nonlLoadMenu",
"Load", 'L', NULL, NULL);
nonl_load_item[0] = CreateMenuToggle(submenupane, "values", "Fitted values", 'v',
(XtCallbackProc) do_nonl_toggle, (XtPointer) 0, NULL);
nonl_load_item[1] = CreateMenuToggle(submenupane, "residuals", "Residuals", 'R',
(XtCallbackProc) do_nonl_toggle, (XtPointer) 1, NULL);
nonl_load_item[2] = CreateMenuToggle(submenupane, "function", "Function", 'F',
(XtCallbackProc) do_nonl_toggle, (XtPointer) 2, NULL);
nonl_autol_item = CreateMenuToggle(menupane, "autoload", "Autoload", 'A',
(XtCallbackProc) NULL, (XtPointer) NULL, NULL);
menupane = CreateMenu(menubar, "nonlHelpMenu", "Help", 'H', &cascade, NULL);
XtVaSetValues(menubar, XmNmenuHelpWidget, cascade, NULL);
CreateMenuButton(menupane, "onFit", "On fit", 'f',
(XtCallbackProc) HelpCB, (XtPointer) "trans.html#nlcurve", 0);
CreateMenuButton(menupane, "onContext", "On context", 'x',
(XtCallbackProc) ContextHelpCB, (XtPointer) NULL, 0);
XtManageChild(menubar);
XtVaSetValues(menubar,
XmNtopAttachment, XmATTACH_FORM,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
fr1 = XmCreateFrame(nonl_panel, "nonl_frame", NULL, 0);
nonl_set_item = CreateSetSelector(fr1, "Apply to set:",
SET_SELECT_ACTIVE,
FILTER_SELECT_NONE,
GRAPH_SELECT_CURRENT,
SELECTION_TYPE_SINGLE);
XtManageChild(fr1);
XtVaSetValues(fr1,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, menubar,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
fr = XmCreateFrame(nonl_panel, "nonl_frame", NULL, 0);
rc = XmCreateRowColumn(fr, "nonl_rc", NULL, 0);
title_fr = XmCreateFrame(rc, "nonl_title_frame", NULL, 0);
XtVaSetValues(title_fr, XmNshadowType, XmSHADOW_ETCHED_OUT, NULL);
nonl_title_item = XmCreateLabel(title_fr, nonl_opts.title, NULL, 0);
XtManageChild(nonl_title_item);
XtManageChild(title_fr);
nonl_formula_item = (Widget) CreateTextItem2(rc, 35, "Formula:");
rc1 = XmCreateRowColumn(rc, "nonl_rc", NULL, 0);
XtVaSetValues(rc1, XmNorientation, XmHORIZONTAL, NULL);
nonl_nparm_item = CreatePanelChoice(rc1,
"Number of parameters:",
12,
"0",
"1",
"2",
"3",
"4",
"5",
"6",
"7",
"8",
"9",
"10",
NULL, NULL);
for (i = 0; i < MAXPARM + 1; i++) {
XtAddCallback(nonl_nparm_item[2 + i], XmNactivateCallback,
(XtCallbackProc) do_nparm_toggle, (XtPointer) i);
}
nonl_tol_item = CreateTextItem2(rc1, 10, "Tolerance:");
XtManageChild(rc1);
sw = XtVaCreateManagedWidget("sw",
xmScrolledWindowWidgetClass, rc,
XmNheight, 180,
XmNscrollingPolicy, XmAUTOMATIC,
NULL);
rc2 = XmCreateRowColumn(sw, "rc2", NULL, 0);
for (i = 0; i < MAXPARM; i++) {
nonl_parm_item[i] = XmCreateRowColumn(rc2, "rc1", NULL, 0);
XtVaSetValues(nonl_parm_item[i], XmNorientation, XmHORIZONTAL, NULL);
sprintf(buf, "A%1d: ", i);
nonl_value_item[i] = CreateTextItem2(nonl_parm_item[i], 10, buf);
nonl_constr_item[i] = XmCreateToggleButton(nonl_parm_item[i], "Bounds:", NULL, 0);
XtAddCallback(nonl_constr_item[i], XmNvalueChangedCallback,
(XtCallbackProc) do_constr_toggle, (XtPointer) i);
XtManageChild(nonl_constr_item[i]);
nonl_lowb_item[i] = CreateTextItem2(nonl_parm_item[i], 6, "");
sprintf(buf, "< A%1d < ", i);
lab = XmCreateLabel(nonl_parm_item[i], buf, NULL, 0);
XtManageChild(lab);
nonl_uppb_item[i] = CreateTextItem2(nonl_parm_item[i], 6, "");
XtManageChild(nonl_parm_item[i]);
}
XtManageChild(rc2);
XtManageChild(rc);
XtManageChild(fr);
XtVaSetValues(fr,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, fr1,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
NULL);
fr3 = XmCreateFrame(nonl_panel, "nonl_frame", NULL, 0);
rc3 = XmCreateRowColumn(fr3, "rc3", NULL, 0);
CreateCommandButtons(rc3, 4, fitbut, fitlabel);
XtAddCallback(fitbut[0], XmNactivateCallback,
(XtCallbackProc) do_nonl_proc, (XtPointer) (0));
XtAddCallback(fitbut[1], XmNactivateCallback,
(XtCallbackProc) do_nonl_proc, (XtPointer) (5));
XtAddCallback(fitbut[2], XmNactivateCallback,
(XtCallbackProc) do_nonl_proc, (XtPointer) (20));
XtAddCallback(fitbut[3], XmNactivateCallback,
(XtCallbackProc) do_nonl_proc, (XtPointer) (100));
XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, rc3, NULL);
nonl_fload_rc = XmCreateRowColumn(rc3, "nonl_fload_rc", NULL, 0);
XtVaSetValues(nonl_fload_rc, XmNorientation, XmHORIZONTAL, NULL);
nonl_start_item = CreateTextItem2(nonl_fload_rc, 6, "Start load at:");
nonl_stop_item = CreateTextItem2(nonl_fload_rc, 6, "Stop load at:");
nonl_npts_item = CreateTextItem2(nonl_fload_rc, 4, "# of points:");
XtManageChild(nonl_fload_rc);
XtSetSensitive(nonl_fload_rc, False);
CreateCommandButtons(rc3, 2, but1, blabel);
XtAddCallback(but1[0], XmNactivateCallback,
(XtCallbackProc) destroy_nonl_frame, (XtPointer) NONL_ACCEPT);
XtAddCallback(but1[1], XmNactivateCallback,
(XtCallbackProc) destroy_nonl_frame, (XtPointer) NONL_CANCEL);
XtManageChild(rc3);
XtManageChild(fr3);
XtVaSetValues(fr3,
XmNtopAttachment, XmATTACH_WIDGET,
XmNtopWidget, fr,
XmNleftAttachment, XmATTACH_FORM,
XmNrightAttachment, XmATTACH_FORM,
XmNbottomAttachment, XmATTACH_FORM,
NULL);
XtManageChild(nonl_panel);
}
update_nonl_frame();
XtRaise(nonl_frame);
unset_wait_cursor();
}
void create_hotlinks_popup(Widget, XtPointer, XtPointer)
{
int x, y;
static Widget top, dialog;
Arg args[3];
set_wait_cursor();
if (top == NULL)
{
char *label1[5];
Widget but1[5];
label1[0] = (char *)"Link";
label1[1] = (char *)"Files...";
label1[2] = (char *)"Unlink";
label1[3] = (char *)"Update";
label1[4] = (char *)"Close";
XmGetPos(app_shell, 0, &x, &y);
top = XmCreateDialogShell(app_shell, (char *)"Hot links", NULL, 0);
handle_close(top);
XtVaSetValues(top, XmNx, x, XmNy, y, NULL);
dialog = XmCreateRowColumn(top, (char *)"dialog_rc", NULL, 0);
XtSetArg(args[0], XmNlistSizePolicy, XmRESIZE_IF_POSSIBLE);
XtSetArg(args[1], XmNvisibleItemCount, 5);
hotlink_list_item = XmCreateScrolledList(dialog, (char *)"list", args, 2);
XtManageChild(hotlink_list_item);
hotlink_set_item = CreateSetSelector(dialog, "Link set:",
SET_SELECT_ACTIVE,
FILTER_SELECT_ALL,
GRAPH_SELECT_CURRENT,
SELECTION_TYPE_MULTIPLE);
DefineSetSelectorFilter(&hotlink_set_item);
hotlink_file_item = CreateTextItem2(dialog, 30, "To file or pipe:");
hotlink_source_item = CreatePanelChoice(dialog, "Source: ", 3,
"Disk file",
"Pipe",
NULL,
NULL);
XtVaCreateManagedWidget("sep", xmSeparatorWidgetClass, dialog, NULL);
CreateCommandButtons(dialog, 5, but1, label1);
XtAddCallback(but1[0], XmNactivateCallback, (XtCallbackProc)do_hotlink_proc,
(XtPointer)NULL);
XtAddCallback(but1[1], XmNactivateCallback, (XtCallbackProc)create_hotfiles_popup,
(XtPointer)NULL);
XtAddCallback(but1[2], XmNactivateCallback, (XtCallbackProc)do_hotunlink_proc,
(XtPointer)NULL);
XtAddCallback(but1[3], XmNactivateCallback, (XtCallbackProc)do_hotupdate_proc,
(XtPointer)NULL);
XtAddCallback(but1[4], XmNactivateCallback, (XtCallbackProc)destroy_dialog,
(XtPointer)top);
XtManageChild(dialog);
hotlink_frame = top;
}
XtRaise(top);
update_hotlinks();
unset_wait_cursor();
}
