static void make_command_widget(int height)
{
if (!listener_text)
{
Arg args[32];
Widget wv, wh;
int n;
if (!actions_loaded) {XtAppAddActions(MAIN_APP(ss), acts, NUM_ACTS); actions_loaded = true;}
n = attach_all_sides(args, 0);
XtSetArg(args[n], XmNheight, height); n++;
if ((sound_style(ss) == SOUNDS_IN_NOTEBOOK) || (sound_style(ss) == SOUNDS_HORIZONTAL))
listener_pane = XtCreateManagedWidget("frm", xmFormWidgetClass, SOUND_PANE_BOX(ss), args, n);
else listener_pane = XtCreateManagedWidget("frm", xmFormWidgetClass, SOUND_PANE(ss), args, n);
/* this widget is not redundant at least in Metroworks Motif */
n = 0;
XtSetArg(args[n], XmNbackground, ss->sgx->listener_color); n++;
XtSetArg(args[n], XmNforeground, ss->sgx->listener_text_color); n++;
if (ss->sgx->listener_fontlist) {XtSetArg(args[n], XM_FONT_RESOURCE, ss->sgx->listener_fontlist); n++;}
n = attach_all_sides(args, n);
XtSetArg(args[n], XmNeditMode, XmMULTI_LINE_EDIT); n++;
XtSetArg(args[n], XmNskipAdjust, true); n++;
XtSetArg(args[n], XmNvalue, listener_prompt(ss)); n++;
XtSetArg(args[n], XmNpendingDelete, false); n++; /* don't cut selection upon paste */
XtSetArg(args[n], XmNpositionIndex, XmLAST_POSITION); n++;
XtSetArg(args[n], XmNhighlightThickness, 1); n++;
listener_text = XmCreateScrolledText(listener_pane, "lisp-listener", args, n);
ss->sgx->listener_pane = listener_text;
XtVaSetValues(MAIN_SHELL(ss), XmNallowShellResize, false, NULL);
XtManageChild(listener_text);
XmTextSetCursorPosition(listener_text, 1);
if (!transTable4)
transTable4 = XtParseTranslationTable(TextTrans4);
XtOverrideTranslations(listener_text, transTable4);
printout_end = 0;
XtAddCallback(listener_text, XmNactivateCallback, command_return_callback, NULL);
XtAddCallback(listener_text, XmNmodifyVerifyCallback, command_modify_callback, NULL);
XtAddCallback(listener_text, XmNmotionVerifyCallback, command_motion_callback, NULL);
lisp_window = XtParent(listener_text);
XtAddEventHandler(lisp_window, EnterWindowMask, false, listener_focus_callback, NULL);
XtAddEventHandler(lisp_window, LeaveWindowMask, false, listener_unfocus_callback, NULL);
XmChangeColor(lisp_window, ss->sgx->basic_color);
XtVaGetValues(lisp_window, XmNverticalScrollBar, &wv, XmNhorizontalScrollBar, &wh, NULL);
XmChangeColor(wv, ss->sgx->basic_color);
XmChangeColor(wh, ss->sgx->basic_color);
map_over_children(SOUND_PANE(ss), color_sashes);
if (auto_resize(ss))
XtVaSetValues(MAIN_SHELL(ss), XmNallowShellResize, true, NULL);
}
}
GtkWidget *snd_as_widget(int argc, char **argv, GtkWidget *parent, void (*error_func)(const char *msg))
{
#else
void snd_doit(int argc, char **argv)
{
#endif
GtkWidget *shell;
int i;
#ifdef SND_AS_WIDGET
set_error_display(error_func);
ss = snd_main(argc, argv);
#else
gtk_init(&argc, &argv);
#if (!HAVE_GTK_3)
#ifndef HAVE_OSX
gdk_set_locale();
#endif
#endif
#endif
ss->channel_min_height = CHANNEL_MIN_HEIGHT;
ss->Graph_Cursor = DEFAULT_GRAPH_CURSOR;
#ifndef SND_AS_WIDGET
shell = gtk_window_new(GTK_WINDOW_TOPLEVEL);
sg_make_resizable(shell);
#endif
auto_open_files = argc-1;
if (argc > 1) auto_open_file_names = (char **)(argv + 1);
ss->startup_title = mus_strdup("snd");
set_sound_style(SOUNDS_VERTICAL);
for (i = 1; i < argc; i++)
if ((strcmp(argv[i], "-h") == 0) ||
(strcmp(argv[i], "-horizontal") == 0) ||
(strcmp(argv[i], "--horizontal") == 0))
set_sound_style(SOUNDS_HORIZONTAL);
else
if ((strcmp(argv[i], "-v") == 0) ||
(strcmp(argv[i], "-vertical") == 0) ||
(strcmp(argv[i], "--vertical") == 0))
set_sound_style(SOUNDS_VERTICAL);
else
if ((strcmp(argv[i], "-notebook") == 0) ||
(strcmp(argv[i], "--notebook") == 0))
set_sound_style(SOUNDS_IN_NOTEBOOK);
else
if ((strcmp(argv[i], "-separate") == 0) ||
(strcmp(argv[i], "--separate") == 0))
set_sound_style(SOUNDS_IN_SEPARATE_WINDOWS);
else
if (strcmp(argv[i], "-noglob") == 0)
noglob = true;
else
if (strcmp(argv[i], "-noinit") == 0)
noinit = true;
else
if (strcmp(argv[i], "-nostdin") == 0)
nostdin = true;
else
if ((strcmp(argv[i], "-b") == 0) ||
(strcmp(argv[i], "-batch") == 0) ||
(strcmp(argv[i], "--batch") == 0))
batch = true;
else
if (strcmp(argv[i], "--features") == 0) /* testing (compsnd) */
check_features_list(argv[i + 1]);
ss->batch_mode = batch;
set_auto_resize(AUTO_RESIZE_DEFAULT);
ss->zoom_slider_width = ZOOM_SLIDER_WIDTH;
ss->position_slider_width = POSITION_SLIDER_WIDTH;
ss->channel_sash_indent = CHANNEL_SASH_INDENT; /* not currently used */
ss->channel_sash_size = CHANNEL_SASH_SIZE;
ss->sash_size = SASH_SIZE;
ss->sash_indent = SASH_INDENT;
ss->toggle_size = TOGGLE_SIZE;
ss->graph_is_active = false;
ss->bg_gradient = 0.05;
ss->white = WHITE_COLOR;
ss->black = BLACK_COLOR;
ss->light_blue = LIGHT_BLUE_COLOR;
ss->lighter_blue = LIGHTER_BLUE_COLOR;
ss->red = RED_COLOR;
ss->green = GREEN_COLOR;
ss->blue = BLUE_COLOR;
ss->yellow = YELLOW_COLOR;
ss->highlight_color = HIGHLIGHT_COLOR;
ss->basic_color = BASIC_COLOR;
ss->position_color = POSITION_COLOR;
ss->zoom_color = ZOOM_COLOR;
ss->cursor_color = CURSOR_COLOR;
ss->selection_color = SELECTION_COLOR;
ss->mix_color = MIX_COLOR;
ss->enved_waveform_color = ENVED_WAVEFORM_COLOR;
ss->filter_control_waveform_color = FILTER_CONTROL_WAVEFORM_COLOR;
ss->listener_color = LISTENER_COLOR;
ss->listener_text_color = LISTENER_TEXT_COLOR;
ss->graph_color = GRAPH_COLOR;
ss->selected_graph_color = SELECTED_GRAPH_COLOR;
ss->data_color = DATA_COLOR;
ss->selected_data_color = SELECTED_DATA_COLOR;
ss->mark_color = MARK_COLOR;
ss->sash_color = SASH_COLOR;
ss->text_focus_color = TEXT_FOCUS_COLOR;
ss->grid_color = get_in_between_color(ss->data_color, ss->graph_color);
ss->selected_grid_color = get_in_between_color(ss->selected_data_color, ss->selected_graph_color);
ss->axis_color_set = false;
ss->orig_data_color = ss->data_color;
ss->orig_selected_data_color = ss->selected_data_color;
ss->orig_mark_color = ss->mark_color;
ss->orig_mix_color = ss->mix_color;
ss->orig_graph_color = ss->graph_color;
ss->orig_selected_graph_color = ss->selected_graph_color;
ss->orig_listener_color = ss->listener_color;
ss->orig_listener_text_color = ss->listener_text_color;
ss->orig_cursor_color = ss->cursor_color;
ss->orig_basic_color = ss->basic_color;
ss->orig_selection_color = ss->selection_color;
ss->orig_zoom_color = ss->zoom_color;
ss->orig_position_color = ss->position_color;
ss->orig_highlight_color = ss->highlight_color;
if ((!(set_tiny_font(DEFAULT_TINY_FONT))) &&
(!(set_tiny_font(FALLBACK_FONT))))
fprintf(stderr, "can't find tiny font: %s", DEFAULT_TINY_FONT);
if ((!(set_axis_label_font(DEFAULT_AXIS_LABEL_FONT))) &&
(!(set_axis_label_font(FALLBACK_FONT))))
fprintf(stderr, "can't find axis label font: %s", DEFAULT_AXIS_LABEL_FONT);
if ((!(set_axis_numbers_font(DEFAULT_AXIS_NUMBERS_FONT))) &&
(!(set_axis_numbers_font(FALLBACK_FONT))))
fprintf(stderr, "can't find axis numbers font: %s", DEFAULT_AXIS_NUMBERS_FONT);
if ((!(set_peaks_font(DEFAULT_PEAKS_FONT))) &&
(!(set_peaks_font(FALLBACK_FONT))))
fprintf(stderr, "can't find peaks font: %s", DEFAULT_PEAKS_FONT);
if ((!(set_bold_peaks_font(DEFAULT_BOLD_PEAKS_FONT))) &&
(!(set_bold_peaks_font(FALLBACK_FONT))))
fprintf(stderr, "can't find bold peaks font: %s", DEFAULT_BOLD_PEAKS_FONT);
if (!(set_listener_font(FALLBACK_FONT)))
fprintf(stderr, "can't find listener font: %s", FALLBACK_FONT);
ss->orig_axis_label_font = mus_strdup(axis_label_font(ss));
ss->orig_axis_numbers_font = mus_strdup(axis_numbers_font(ss));
ss->orig_peaks_font = mus_strdup(peaks_font(ss));
ss->orig_bold_peaks_font = mus_strdup(bold_peaks_font(ss));
ss->orig_listener_font = mus_strdup(listener_font(ss));
ss->orig_tiny_font = mus_strdup(tiny_font(ss));
#if (!HAVE_GTK_3)
init_gtk();
#endif
MAIN_PANE(ss) = gtk_vbox_new(false, 0); /* not homogenous, spacing 0 */
#if (HAVE_GTK_3)
init_gtk();
#endif
#ifdef SND_AS_WIDGET
MAIN_SHELL(ss) = parent;
shell = MAIN_PANE(ss);
#else
MAIN_SHELL(ss) = shell;
gtk_container_add(GTK_CONTAINER(MAIN_SHELL(ss)), MAIN_PANE(ss));
#endif
add_menu(); /* adds menubar to MAIN_PANE (via box_pack_start) */
if (with_toolbar(ss)) show_toolbar();
if (sound_style(ss) != SOUNDS_IN_SEPARATE_WINDOWS)
{
SOUND_PANE(ss) = gtk_vpaned_new();
gtk_container_set_border_width(GTK_CONTAINER(SOUND_PANE(ss)), 0);
gtk_container_add(GTK_CONTAINER(MAIN_PANE(ss)), SOUND_PANE(ss));
if (sound_style(ss) == SOUNDS_IN_NOTEBOOK)
{
SOUND_PANE_BOX(ss) = gtk_notebook_new();
gtk_notebook_set_tab_pos(GTK_NOTEBOOK(SOUND_PANE_BOX(ss)), GTK_POS_TOP);
SG_SIGNAL_CONNECT(SOUND_PANE_BOX(ss), "switch_page", notebook_switch_page, NULL);
}
else
{
if (sound_style(ss) == SOUNDS_HORIZONTAL)
SOUND_PANE_BOX(ss) = gtk_hbox_new(false, 0);
else SOUND_PANE_BOX(ss) = gtk_vbox_new(false, 0);
}
gtk_paned_add1(GTK_PANED(SOUND_PANE(ss)), SOUND_PANE_BOX(ss));
gtk_widget_show(SOUND_PANE_BOX(ss));
gtk_widget_show(SOUND_PANE(ss));
}
gtk_widget_show(MAIN_PANE(ss));
gtk_widget_show(MAIN_SHELL(ss));
#ifndef SND_AS_WIDGET
#if HAVE_GTK_ADJUSTMENT_GET_UPPER
MAIN_WINDOW(ss) = gtk_widget_get_window(MAIN_SHELL(ss));
#else
MAIN_WINDOW(ss) = MAIN_SHELL(ss)->window;
#endif
#else
MAIN_WINDOW(ss) = gtk_widget_get_parent_window(MAIN_SHELL(ss));
#endif
setup_gcs();
if (batch) gtk_widget_hide(MAIN_SHELL(ss));
else gdk_window_resize(WIDGET_TO_WINDOW(MAIN_SHELL(ss)), INITIAL_WINDOW_WIDTH, INITIAL_WINDOW_HEIGHT);
startup_funcs();
#if HAVE_SETJMP_H
#if MUS_TRAP_SEGFAULT
if (sigsetjmp(envHandleEventsLoop, 1))
{
if (!(ss->exiting))
snd_error_without_format("Caught seg fault (will try to continue):\n");
else
{
snd_error_without_format("Caught seg fault while trying to exit.\n");
exit(0);
}
}
#endif
if (setjmp(top_level_jump))
{
if (!(ss->jump_ok))
snd_error_without_format("Caught top level error (will try to continue):\n");
else ss->jump_ok = false;
}
#endif
if (ss->startup_errors)
{
post_it("Error in initialization", ss->startup_errors);
free(ss->startup_errors);
ss->startup_errors = NULL;
}
#if HAVE_GTK_3
set_basic_color(ss->basic_color);
color_listener(ss->listener_color);
color_chan_components(ss->zoom_color, COLOR_ZOOM);
color_chan_components(ss->position_color, COLOR_POSITION);
#endif
#ifndef SND_AS_WIDGET
set_up_icon();
gtk_main();
#else
return(shell);
#endif
}
static void set_up_icon(void)
{
gtk_window_set_icon(GTK_WINDOW(MAIN_SHELL(ss)), gdk_pixbuf_new_from_xpm_data(snd_icon_bits()));
}
static void startup_funcs(void)
{
static int auto_open_ctr = 0;
#ifndef SND_AS_WIDGET
/* trap outer-level Close for cleanup check */
SG_SIGNAL_CONNECT(MAIN_SHELL(ss), "delete_event", window_close, NULL);
/* when iconified, we need to hide any dialogs as well */
SG_SIGNAL_CONNECT(MAIN_SHELL(ss), "window_state_event", window_iconify, NULL);
#endif
ss->graph_cursor = gdk_cursor_new((GdkCursorType)in_graph_cursor(ss));
ss->wait_cursor = gdk_cursor_new(GDK_WATCH);
ss->bounds_cursor = gdk_cursor_new(GDK_SB_H_DOUBLE_ARROW);
ss->yaxis_cursor = gdk_cursor_new(GDK_SB_V_DOUBLE_ARROW);
ss->play_cursor = gdk_cursor_new(GDK_SB_RIGHT_ARROW);
ss->loop_play_cursor = gdk_cursor_new(GDK_SB_LEFT_ARROW);
ss->arrow_cursor = gdk_cursor_new(GDK_LEFT_PTR);
#if HAVE_EXTENSION_LANGUAGE
snd_load_init_file(noglob, noinit);
#endif
#if HAVE_SIGNAL && HAVE_EXTENSION_LANGUAGE && !__MINGW32__
if (!nostdin)
{
GIOChannel *channel;
signal(SIGTTIN, SIG_IGN);
signal(SIGTTOU, SIG_IGN);
/* these signals are sent by a shell if we start Snd as a background process,
* but try to read stdin (needed to support the emacs subjob connection). If
* we don't do this, the background job is suspended when the shell sends SIGTTIN.
*/
channel = g_io_channel_unix_new(STDIN_FILENO);
stdin_id = g_io_add_watch_full(channel,
G_PRIORITY_DEFAULT,
(GIOCondition)(G_IO_IN | G_IO_HUP | G_IO_ERR),
io_invoke, NULL, NULL);
g_io_channel_unref(channel);
}
#endif
while (auto_open_ctr < auto_open_files)
auto_open_ctr = handle_next_startup_arg(auto_open_ctr, auto_open_file_names, true, auto_open_files);
#ifndef SND_AS_WIDGET
if ((ss->init_window_width > 0) && (ss->init_window_height > 0))
set_widget_size(GTK_WIDGET(MAIN_SHELL(ss)), ss->init_window_width, ss->init_window_height);
if ((ss->init_window_x != DEFAULT_INIT_WINDOW_X) && (ss->init_window_y != DEFAULT_INIT_WINDOW_Y))
set_widget_position(GTK_WIDGET(MAIN_SHELL(ss)), ss->init_window_x, ss->init_window_y);
#endif
#if (!HAVE_FAM)
if (auto_update_interval(ss) > 0.0)
g_timeout_add_full(0, (guint32)(auto_update_interval(ss) * 1000), auto_update_check, NULL, NULL);
#endif
#if MUS_TRAP_SEGFAULT
if (trap_segfault(ss)) signal(SIGSEGV, segv);
#endif
if ((ss->sounds) &&
(ss->selected_sound == NO_SELECTION))
{
snd_info *sp;
sp = ss->sounds[0];
if ((sp) &&
(sp->inuse == SOUND_NORMAL) &&
(sp->selected_channel == NO_SELECTION)) /* don't clobber possible select-channel in loaded startup files */
select_channel(sp, 0);
}
}
void set_title(const char *title)
{
#ifndef SND_AS_WIDGET
gtk_window_set_title(GTK_WINDOW(MAIN_SHELL(ss)), title);
#endif
}
static void make_edit_find_dialog(bool managed)
{
if (!edit_find_dialog)
{
Widget dl, rc;
Arg args[20];
int n;
XmString xmstr1, xmstr3, titlestr;
n = 0;
XtSetArg(args[n], XmNbackground, ss->basic_color); n++;
xmstr1 = XmStringCreateLocalized((char *)"Go Away");
xmstr3 = XmStringCreateLocalized((char *)"Previous");
titlestr = XmStringCreateLocalized((char *)"Find");
XtSetArg(args[n], XmNokLabelString, xmstr1); n++;
XtSetArg(args[n], XmNcancelLabelString, xmstr3); n++;
XtSetArg(args[n], XmNautoUnmanage, false); n++;
XtSetArg(args[n], XmNdialogTitle, titlestr); n++;
XtSetArg(args[n], XmNresizePolicy, XmRESIZE_GROW); n++;
XtSetArg(args[n], XmNnoResize, false); n++;
XtSetArg(args[n], XmNtransient, false); n++;
edit_find_dialog = XmCreateMessageDialog(MAIN_SHELL(ss), (char *)"find", args, n);
XmStringFree(xmstr1);
XmStringFree(xmstr3);
XmStringFree(titlestr);
XtUnmanageChild(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_SYMBOL_LABEL));
XtUnmanageChild(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_MESSAGE_LABEL));
XtAddCallback(edit_find_dialog, XmNhelpCallback, edit_find_help_callback, NULL);
XtAddCallback(edit_find_dialog, XmNcancelCallback, edit_find_previous_callback, NULL);
XtAddCallback(edit_find_dialog, XmNokCallback, edit_find_cancel_callback, NULL);
n = 0;
XtSetArg(args[n], XmNbackground, ss->highlight_color); n++;
XtSetArg(args[n], XmNarmColor, ss->selection_color); n++;
findnextB = XtCreateManagedWidget("Next", xmPushButtonGadgetClass, edit_find_dialog, args, n);
XtAddCallback(findnextB, XmNactivateCallback, edit_find_next_callback, NULL);
rc = XtCreateManagedWidget("row", xmFormWidgetClass, edit_find_dialog, NULL, 0);
n = 0;
XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNbottomAttachment, XmATTACH_NONE); n++;
XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNrightAttachment, XmATTACH_NONE); n++;
dl = XtCreateManagedWidget("find:", xmLabelWidgetClass, rc, args, n);
n = 0;
XtSetArg(args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
XtSetArg(args[n], XmNleftWidget, dl); n++;
XtSetArg(args[n], XmNbottomAttachment, XmATTACH_NONE); n++;
XtSetArg(args[n], XmNtopAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
edit_find_text = make_textfield_widget("text", rc, args, n, ACTIVATABLE, add_completer_func(expression_completer, NULL));
n = 0;
XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNbottomAttachment, XmATTACH_NONE); n++;
XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
XtSetArg(args[n], XmNtopWidget, edit_find_text); n++;
XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNmarginHeight, 10); n++;
edit_find_label = XtCreateManagedWidget(" ", xmLabelWidgetClass, rc, args, n);
n = 0;
XtSetArg(args[n], XmNbackground, ss->basic_color); n++;
XtSetArg(args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
XtSetArg(args[n], XmNtopWidget, edit_find_label); n++;
XtSetArg(args[n], XmNbottomAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNleftAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNrightAttachment, XmATTACH_FORM); n++;
XtSetArg(args[n], XmNallowResize, true); n++;
XtSetArg(args[n], XmNshadowType, XmSHADOW_ETCHED_IN); n++;
XtSetArg(args[n], XmNshadowThickness, 2); n++;
find_error_frame = XtCreateManagedWidget("find-error-frame", xmFrameWidgetClass, rc, args, n);
n = 0;
XtSetArg(args[n], XmNbackground, ss->highlight_color); n++;
find_error_label = XtCreateManagedWidget("", xmLabelWidgetClass, find_error_frame, args, n);
map_over_children(edit_find_dialog, set_main_color_of_widget);
XtVaSetValues(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_OK_BUTTON), XmNarmColor, ss->selection_color, NULL);
XtVaSetValues(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_CANCEL_BUTTON), XmNarmColor, ss->selection_color, NULL);
XtVaSetValues(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_HELP_BUTTON), XmNarmColor, ss->selection_color, NULL);
XtVaSetValues(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_OK_BUTTON), XmNbackground, ss->highlight_color, NULL);
XtVaSetValues(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_CANCEL_BUTTON), XmNbackground, ss->highlight_color, NULL);
XtVaSetValues(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_HELP_BUTTON), XmNbackground, ss->highlight_color, NULL);
cancelB = XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_OK_BUTTON);
set_dialog_widget(FIND_DIALOG, edit_find_dialog);
XtUnmanageChild(find_error_frame);
if (managed) XtManageChild(edit_find_dialog);
{
Atom wm_delete_window;
wm_delete_window = XmInternAtom(MAIN_DISPLAY(ss), (char *)"WM_DELETE_WINDOW", false);
XmAddWMProtocolCallback(XtParent(edit_find_dialog), wm_delete_window, find_dialog_close, NULL);
}
}
else
{
if (managed)
{
if (!XtIsManaged(edit_find_dialog)) XtManageChild(edit_find_dialog);
raise_dialog(edit_find_dialog);
}
}
}
