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); } }
void iupmotSetBgColor(Widget w, Pixel color) { Pixel fgcolor; XtVaGetValues(w, XmNforeground, &fgcolor, NULL); XmChangeColor(w, color); /* XmChangeColor also sets the XmNforeground color, so we must reset to the previous one. */ XtVaSetValues(w, XmNforeground, fgcolor, NULL); XtVaSetValues(w, XmNbackgroundPixmap, XmUNSPECIFIED_PIXMAP, NULL); }
void fb_set_button_bg_color (EIF_POINTER client, EIF_POINTER pix) { font_box_data *fbd = (font_box_data *) client; /* Need to only set the parent color since children are gadgets (i.e. gadgets automatically get the color of the parent) */ if (fbd->number_family) XmChangeColor (XtParent((fbd->family_menu_buttons)[0]), (Pixel) pix); if (fbd->number_slant) XmChangeColor (XtParent((fbd->slant_menu_buttons)[0]), (Pixel) pix); if (fbd->number_width) XmChangeColor (XtParent((fbd->width_menu_buttons)[0]), (Pixel) pix); if (fbd->number_weight) XmChangeColor (XtParent((fbd->weight_menu_buttons)[0]), (Pixel) pix); if (fbd->number_point) XmChangeColor (XtParent((fbd->point_menu_buttons)[0]), (Pixel) pix); if (fbd->number_resolution) XmChangeColor (XtParent((fbd->resolution_menu_buttons)[0]), (Pixel) pix); XmChangeColor (XtParent(fbd->stand_fonts_button), (Pixel) pix); }
void color_listener(Pixel pix) { ss->sgx->listener_color = pix; if (listener_text) XmChangeColor(listener_text, pix); }