void raise_explorer(GUI *gui, Quark *q)
{
GraceApp *gapp = gui->P;
set_wait_cursor();
if (!gui->eui) {
ExplorerUI *eui;
Widget menubar, menupane, panel, form, fr;
eui = xmalloc(sizeof(ExplorerUI));
gui->eui = eui;
eui->a_icon = XpmToPixmap(active_xpm);
eui->h_icon = XpmToPixmap(hidden_xpm);
eui->top = CreateDialog(app_shell, "Explorer");
menubar = CreateMenuBar(eui->top);
WidgetManage(menubar);
FormAddVChild(eui->top, menubar);
menupane = CreateMenu(menubar, "File", 'F', FALSE);
CreateMenuButtonA(menupane, "Close", 'C', "<Key>Escape", "Esc", destroy_dialog_cb, eui->top);
menupane = CreateMenu(menubar, "Edit", 'E', FALSE);
eui->edit_undo_bt = CreateMenuButtonA(menupane, "Undo", 'U', "Ctrl<Key>z", "Ctrl+Z",
undo_cb, gapp);
eui->edit_redo_bt = CreateMenuButtonA(menupane, "Redo", 'R', "Ctrl Shift<Key>z", "Ctrl+Shift+Z",
redo_cb, gapp);
menupane = CreateMenu(menubar, "Insert", 'I', FALSE);
eui->insert_frame_bt = CreateMenuButton(menupane,
"Frame", '\0', add_frame_cb, eui);
WidgetSetSensitive(eui->insert_frame_bt, FALSE);
eui->insert_graph_bt = CreateMenuButton(menupane,
"Graph", '\0', add_graph_cb, eui);
WidgetSetSensitive(eui->insert_graph_bt, FALSE);
eui->insert_ssd_bt = CreateMenuButton(menupane,
"SSData", '\0', add_ssd_cb, eui);
WidgetSetSensitive(eui->insert_ssd_bt, FALSE);
eui->insert_set_bt = CreateMenuButton(menupane,
"Set", '\0', add_set_cb, eui);
WidgetSetSensitive(eui->insert_set_bt, FALSE);
eui->insert_axisgrid_bt = CreateMenuButton(menupane,
"Axis grid", '\0', add_axisgrid_cb, eui);
WidgetSetSensitive(eui->insert_axisgrid_bt, FALSE);
eui->insert_axis_bt = CreateMenuButton(menupane,
"Axis", '\0', add_axis_cb, eui);
WidgetSetSensitive(eui->insert_axis_bt, FALSE);
eui->insert_object_pane = CreateMenu(menupane, "Annotating objects", 'o', FALSE);
WidgetSetSensitive(eui->insert_object_pane, FALSE);
eui->insert_text_bt = CreateMenuButton(eui->insert_object_pane,
"Text", '\0', add_object_cb, eui);
eui->insert_line_bt = CreateMenuButton(eui->insert_object_pane,
"Line", '\0', add_object_cb, eui);
eui->insert_box_bt = CreateMenuButton(eui->insert_object_pane,
"Box", '\0', add_object_cb, eui);
eui->insert_arc_bt = CreateMenuButton(eui->insert_object_pane,
"Arc", '\0', add_object_cb, eui);
menupane = CreateMenu(menubar, "Options", 'O', FALSE);
eui->instantupdate = CreateMenuToggle(menupane, "Instantaneous update",
'u', NULL, NULL);
ToggleButtonSetState(eui->instantupdate, gui->instant_update);
menupane = CreateMenu(menubar, "Help", 'H', TRUE);
CreateMenuHelpButton(menupane, "On explorer", 'e',
eui->top, "doc/UsersGuide.html#explorer");
panel = CreatePanedWindow(eui->top);
form = CreateForm(panel);
PlaceGridChild(panel, form, 0, 0); /* in case if CreatePanedWindow creates a grid */
eui->tree = CreateTree(form);
AddTreeHighlightItemsCB(eui->tree, highlight_cb, eui);
AddTreeContextMenuCB(eui->tree, menu_cb, eui);
AddTreeDropItemsCB(eui->tree, drop_cb, eui);
FormAddVChild(form, eui->tree);
fr = CreateFrame(form, NULL);
eui->idstr = CreateText(fr, "ID string:");
AddTextActivateCB(eui->idstr, text_explorer_cb, eui);
FormAddVChild(form, fr);
FormFixateVChild(fr);
eui->scrolled_window = CreateScrolledWindow(panel);
PlaceGridChild(panel, eui->scrolled_window, 1, 0); /* in case if CreatePanedWindow creates a grid */
PanedWindowSetMinWidth(form, 150);
WidgetSetWidth(form, 250);
WidgetManage(form);
#ifdef HAVE_LESSTIF
# if !defined(SF_BUG_993209_FIXED) && !defined(SF_BUG_993209_NOT_FIXED)
# error "You should check whether SF bug #993209 is fixed in your version of LessTif."
# error "Then define either SF_BUG_993209_FIXED or SF_BUG_993209_NOT_FIXED, accordingly."
# error "See http://sourceforge.net/tracker/index.php?func=detail&aid=993209&group_id=8596&atid=108596."
# endif
# ifdef SF_BUG_993209_NOT_FIXED
/* A dirty workaround */
eui->scrolled_window = CreateVContainer(eui->scrolled_window);
# endif
#endif
eui->project_ui = create_project_ui(eui);
WidgetUnmanage(eui->project_ui->top);
eui->ssd_ui = create_ssd_ui(eui);
WidgetUnmanage(eui->ssd_ui->top);
eui->frame_ui = create_frame_ui(eui);
WidgetUnmanage(eui->frame_ui->top);
eui->graph_ui = create_graph_ui(eui);
WidgetUnmanage(eui->graph_ui->top);
eui->set_ui = create_set_ui(eui);
WidgetUnmanage(eui->set_ui->top);
eui->axisgrid_ui = create_axisgrid_ui(eui);
WidgetUnmanage(eui->axisgrid_ui->top);
eui->axis_ui = create_axis_ui(eui);
WidgetUnmanage(eui->axis_ui->top);
eui->object_ui = create_object_ui(eui);
WidgetUnmanage(eui->object_ui->top);
eui->atext_ui = create_atext_ui(eui);
WidgetUnmanage(eui->atext_ui->top);
eui->region_ui = create_region_ui(eui);
WidgetUnmanage(eui->region_ui->top);
eui->aacbuts = CreateAACDialog(eui->top, panel, explorer_aac, eui);
WidgetManage(eui->tree);
/* Menu popup */
eui->popup = CreatePopupMenu(eui->tree);
eui->popup_hide_bt = CreateMenuButton(eui->popup,
"Hide", '\0', hide_cb, eui);
eui->popup_show_bt = CreateMenuButton(eui->popup,
"Show", '\0', show_cb, eui);
CreateMenuSeparator(eui->popup);
eui->popup_delete_bt = CreateMenuButton(eui->popup,
"Delete", '\0', delete_cb, eui);
eui->popup_duplicate_bt = CreateMenuButton(eui->popup,
"Duplicate", '\0', duplicate_cb, eui);
/* Project menu popup */
eui->project_popup = CreatePopupMenu(eui->tree);
eui->project_popup_show_bt = CreateMenuButton(eui->project_popup,
"Show", '\0', project_show_cb, eui);
CreateMenuSeparator(eui->project_popup);
eui->project_popup_save_bt = CreateMenuButton(eui->project_popup,
"Save", '\0', project_save_cb, eui);
eui->project_popup_save_as_bt = CreateMenuButton(eui->project_popup,
"Save as...", '\0', project_save_as_cb, eui);
eui->project_popup_revert_to_saved_bt = CreateMenuButton(eui->project_popup,
"Revert to saved", '\0', project_revert_to_saved_cb, eui);
CreateMenuSeparator(eui->project_popup);
eui->project_popup_close_bt = CreateMenuButton(eui->project_popup,
"Close", '\0', project_close_cb, eui);
init_quark_tree(eui);
if (!q && gapp->gp) {
select_quark_explorer(gproject_get_top(gapp->gp));
}
}
#ifdef QT_GUI
/* TODO: use resources */
WidgetSetSize(gui->eui->top, 650, 600);
#endif
DialogRaise(gui->eui->top);
if (q) {
select_quark_explorer(q);
}
update_undo_buttons(gapp->gp);
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();
}
