void create_datasetop_popup(Widget but, void *data)
{
Widget dialog, menubar, menupane, rc;
set_wait_cursor();
if (datasetopui.top == NULL) {
datasetopui.top = CreateDialogForm(app_shell, "Data set operations");
SetDialogFormResizable(datasetopui.top, TRUE);
menubar = CreateMenuBar(datasetopui.top);
ManageChild(menubar);
AddDialogFormChild(datasetopui.top, menubar);
dialog = CreateVContainer(datasetopui.top);
#ifdef MOTIF_GUI
XtVaSetValues(dialog, XmNrecomputeSize, True, NULL);
#endif
datasetopui.sel = CreateSSDChoice(dialog,
"Data sets:", LIST_TYPE_MULTIPLE);
menupane = CreateMenu(menubar, "File", 'F', FALSE);
CreateMenuButton(menupane,
"Close", 'C', destroy_dialog_cb, GetParent(datasetopui.top));
menupane = CreateMenu(menubar, "Help", 'H', TRUE);
CreateMenuHelpButton(menupane, "On dataset operations", 's',
datasetopui.top, "doc/UsersGuide.html#data-set-operations");
datasetopui.optype_item =
CreateOptionChoiceVA(dialog, "Operation type:",
"Reverse", DATASETOP_REVERSE,
"Transpose", DATASETOP_TRANSPOSE,
"Coalesce", DATASETOP_COALESCE,
#if 0
"Sort", DATASETOP_SORT,
"Split", DATASETOP_SPLIT,
#endif
"Drop rows", DATASETOP_DROP,
NULL);
AddOptionChoiceCB(datasetopui.optype_item, datasetoptypeCB, NULL);
rc = CreateHContainer(dialog);
#ifdef MOTIF_GUI
XtVaSetValues(rc, XmNrecomputeSize, True, NULL);
#endif
/* Sort */
datasetopui.up_down_item = CreateOptionChoiceVA(rc, "Order:",
"Ascending", FALSE,
"Descending", TRUE,
NULL);
datasettype_controls[0] = rc;
/* Reverse */
rc = CreateVContainer(dialog);
CreateSeparator(rc);
datasettype_controls[1] = rc;
/* Transpose */
rc = CreateVContainer(dialog);
CreateSeparator(rc);
datasettype_controls[2] = rc;
/* Coalesce */
rc = CreateVContainer(dialog);
CreateSeparator(rc);
datasettype_controls[3] = rc;
/* Split */
rc = CreateVContainer(dialog);
datasetopui.length_item = CreateTextItem(rc, 6, "Length:");
datasettype_controls[4] = rc;
/* Drop rows */
rc = CreateHContainer(dialog);
datasetopui.start_item = CreateTextItem(rc, 6, "Start at:");
datasetopui.stop_item = CreateTextItem(rc, 6, "Stop at:");
datasettype_controls[5] = rc;
UnmanageChild(datasettype_controls[0]);
ManageChild(datasettype_controls[1]);
UnmanageChild(datasettype_controls[2]);
UnmanageChild(datasettype_controls[3]);
UnmanageChild(datasettype_controls[4]);
UnmanageChild(datasettype_controls[5]);
CreateAACDialog(datasetopui.top, dialog, datasetop_aac_cb,
&datasetopui);
}
RaiseWindow(GetParent(datasetopui.top));
unset_wait_cursor();
}
void create_datasetprop_popup(Widget but, void *data)
{
set_wait_cursor();
if (tui.top == NULL) {
Widget menubar, menupane, fr;
int i, j;
char *rowlabels[MAX_SET_COLS];
char *collabels[DATA_STAT_COLS] =
{"Min", "at", "Max", "at", "Mean", "Stdev"};
int column_widths[DATA_STAT_COLS] = {12, 6, 12, 6, 12, 12};
GraceApp *gapp = (GraceApp *) data;
tui.top = CreateDialogForm(app_shell, "Data set statistics");
menubar = CreateMenuBar(tui.top);
ManageChild(menubar);
AddDialogFormChild(tui.top, menubar);
tui.sel = CreateGraphSetSelector(tui.top,
"Data sets:", LIST_TYPE_SINGLE);
AddDialogFormChild(tui.top, tui.sel->frame);
AddStorageChoiceCB(tui.sel->set_sel, changetypeCB, tui.sel);
menupane = CreateMenu(menubar, "File", 'F', FALSE);
CreateMenuCloseButton(menupane, tui.top);
menupane = CreateMenu(menubar, "Help", 'H', TRUE);
CreateMenuHelpButton(menupane, "On data sets", 's',
tui.top, "doc/UsersGuide.html#data-sets");
for (i = 0; i < MAX_SET_COLS; i++) {
rowlabels[i] = copy_string(NULL, dataset_col_name(gapp->grace, i));
for (j = 0; j < DATA_STAT_COLS; j++) {
tui.rows[i][j] = NULL;
}
}
fr = CreateFrame(tui.top, "Statistics");
tui.mw = CreateTable("mw", fr, MAX_SET_COLS, DATA_STAT_COLS,
MAX_SET_COLS, 4);
TableDataSetPropInit(tui.mw);
TableSetColLabels(tui.mw, collabels);
TableSetColWidths(tui.mw, column_widths);
TableSetDefaultColAlignment(tui.mw, ALIGN_END);
TableSetDefaultColLabelAlignment(tui.mw, ALIGN_CENTER);
TableSetRowLabels(tui.mw, rowlabels);
TableSetDefaultRowLabelWidth(tui.mw, 3);
TableSetDefaultRowLabelAlignment(tui.mw, ALIGN_CENTER);
TableUpdateVisibleRowsCols(tui.mw);
AddTableEnterCellCB(tui.mw, enterCB, NULL);
AddDialogFormChild(tui.top, fr);
ManageChild(tui.top);
}
RaiseWindow(GetParent(tui.top));
unset_wait_cursor();
}
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();
}
