Some gui cleanups

This fixes some of Ben's concerns as well as making the search dialog work (mostly) under athena. andy 2000-04-14 Andy Piper <andy(a)xemacs.org&gt; * gutter-items.el (make-search-dialog): avoid unneccessary futzing by using the new widget-callback-current-channel. (search-dialog-callback): ditto. * general.c (syms_of_general): add last-command, this-command, let and funcall. * lisp.h: declare various symbols. * glyphs.h: declare Qwidget_callback_current_channel; * glyphs-widget.c (syms_of_glyphs_widget): add Qgui_callback_current_channel. (vars_of_glyphs_widget): add Vgui_callback_current_channel. * gui-msw.c (mswindows_handle_gui_wm_command): bind widget-callback-current-channel when invoking the interactive arg. Also bind last-command and next-command when invoking the widget updates. * gui-x.c (popup_selection_callback): ditto. * gui.c (get_gui_callback): massage args so that we are always calling eval. This allows us to add our own variable bindings outside. 2000-04-06 Andy Piper <andy(a)xemacs.org&gt; * configure.in: fix typo. 2000-04-12 Andy Piper <andy(a)xemacs.org&gt; * glyphs-x.c (x_button_instantiate): use gui_items_to_widget_values since this is GC safe. (x_progress_gauge_instantiate): ditto. (x_edit_field_instantiate): ditto. (x_label_instantiate): ditto. * event-Xt.c (emacs_Xt_handle_magic_event): remove old printfs. (emacs_Xt_event_widget_focus_out): new function (emacs_Xt_event_widget_focus_in): new function. Set the keyboard focus. (emacs_Xt_event_add_widget_actions): new function. add focus functions as actions. (init_event_Xt_late): use it. 2000-04-12 Andy Piper <andy(a)xemacs.org&gt; * lwlib-Xaw.c (xaw_update_one_widget): no-op for text widgets. (xaw_update_one_value): Get strings safely. (xaw_create_text_field): add some extra properties. 2000-04-12 Andy Piper <andy(a)xemacs.org&gt; * Emacs.ad: give the gui-element face the same font as the menubar and popups. Add translations for text widgets. 2000-04-12 Andy Piper <andy(a)xemacs.org&gt; * gutter.el (default-gutter-position): moved from gutter-items.el. (default-gutter-position-changed-hook): ditto. (gutter-element-visibility-changed-hook): ditto. (set-gutter-element): ditto. (remove-gutter-element): ditto. (set-gutter-element-visible-p): ditto. (gutter-element-visible-p): ditto. (init-gutter): ditto. * dialog.el (make-dialog-box): renamed and moved from gutter-items.el * gutter-items.el: move various functions elsewhere. -------------------------------------------------------------- Dr Andy Piper Principal Consultant, BEA Systems Ltd