109 |
antiright_button (form, "Select", arshell_font_select_cb, font_selector); |
antiright_button (form, "Select", arshell_font_select_cb, font_selector); |
110 |
ARCLARG; |
ARCLARG; |
111 |
#else |
#else |
|
#if HAVE_XLT |
|
|
Widget font_selector; |
|
|
antiright_set_title ("Font Selector"); |
|
|
ARCLARG; |
|
|
font_selector = XltCreateFontChooser (arshell.gui.widgets.mainwindow, |
|
|
"font_selector", ARARGS); |
|
|
XtManageChild (font_selector); |
|
|
XtAddCallback (font_selector, XmNokCallback, |
|
|
arshell_font_chooser_ok_cb, NULL); |
|
|
XtAddCallback (font_selector, XmNcancelCallback, |
|
|
arshell_font_chooser_cancel_cb, NULL); |
|
|
XtAddCallback (font_selector, XmNhelpCallback, |
|
|
antiright_help_cb, "Use_this_dialog_to_select_a_font."); |
|
|
#else |
|
112 |
system ("arshell -ADp 'Enter a font name:' &"); |
system ("arshell -ADp 'Enter a font name:' &"); |
113 |
exit (0); |
exit (0); |
|
#endif /* HAVE_XLT */ |
|
114 |
#endif /* XmVERSION > 1 & XmREVISION > 1 */ |
#endif /* XmVERSION > 1 & XmREVISION > 1 */ |
115 |
|
|
116 |
} |
} |