static XEN g_find_dialog_widgets(void) { if (edit_find_dialog) return(XEN_CONS(XEN_WRAP_WIDGET(edit_find_dialog), XEN_CONS(XEN_WRAP_WIDGET(edit_find_text), XEN_CONS(XEN_WRAP_WIDGET(findnextB), XEN_CONS(XEN_WRAP_WIDGET(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_CANCEL_BUTTON)), /* find previous */ XEN_CONS(XEN_WRAP_WIDGET(XmMessageBoxGetChild(edit_find_dialog, XmDIALOG_OK_BUTTON)), /* cancel */ XEN_EMPTY_LIST)))))); return(XEN_EMPTY_LIST); }
static void listener_unfocus_callback(Widget w, XtPointer context, XEvent *event, Boolean *flag) { if (XEN_HOOKED(mouse_leave_listener_hook)) run_hook(mouse_leave_listener_hook, XEN_LIST_1(XEN_WRAP_WIDGET(listener_text)), /* not w */ S_mouse_leave_listener_hook); }
static XEN g_view_regions_dialog(void) { #define H_view_regions_dialog "(" S_view_regions_dialog "): start the region dialog" if (snd_regions() > 0) view_region_callback(MAIN_PANE(ss), NULL); return(XEN_WRAP_WIDGET(region_dialog)); }
static XEN g_find_dialog(XEN managed, XEN text) { #define H_find_dialog "(" S_find_dialog " :optional managed text): create and activate the Edit:Find dialog, return the dialog widget. \ If 'text' is included, it is preloaded into the find dialog text widget." XEN_ASSERT_TYPE(XEN_BOOLEAN_IF_BOUND_P(managed), managed, XEN_ARG_1, S_find_dialog, "a boolean"); XEN_ASSERT_TYPE(XEN_STRING_IF_BOUND_P(text), text, XEN_ARG_2, S_find_dialog, "a string"); make_edit_find_dialog(XEN_TO_C_BOOLEAN(managed)); if ((edit_find_text) && (XEN_STRING_P(text))) XmTextSetString(edit_find_text, (char *)XEN_TO_C_STRING(text)); return(XEN_WRAP_WIDGET(edit_find_dialog)); }