comparison src/xterm.c @ 30182:73181a26fc85

(x_handle_tool_bar_click): Store the frame in the frame_or_window slot of TOOL_BAR_EVENT input events instead of consing. For prefix events, store the frame in the `arg' slot of the event, otherwise store the key there. (XTread_socket): Instead of consing, use the frame_or_window slot of HELP_EVENTs for the frame, and the `arg' slot for the help string.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 13 Jul 2000 14:09:13 +0000
parents 432da5a9f734
children 3237a5529020
comparison
equal deleted inserted replaced
30181:770a280db6ee 30182:73181a26fc85
6778 key = (XVECTOR (f->current_tool_bar_items) 6778 key = (XVECTOR (f->current_tool_bar_items)
6779 ->contents[prop_idx + TOOL_BAR_ITEM_KEY]); 6779 ->contents[prop_idx + TOOL_BAR_ITEM_KEY]);
6780 6780
6781 XSETFRAME (frame, f); 6781 XSETFRAME (frame, f);
6782 event.kind = TOOL_BAR_EVENT; 6782 event.kind = TOOL_BAR_EVENT;
6783 event.frame_or_window = Fcons (frame, Fcons (Qtool_bar, Qnil)); 6783 event.frame_or_window = frame;
6784 event.arg = frame;
6784 kbd_buffer_store_event (&event); 6785 kbd_buffer_store_event (&event);
6785 6786
6786 event.kind = TOOL_BAR_EVENT; 6787 event.kind = TOOL_BAR_EVENT;
6787 event.frame_or_window = Fcons (frame, key); 6788 event.frame_or_window = frame;
6789 event.arg = key;
6788 event.modifiers = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f), 6790 event.modifiers = x_x_to_emacs_modifiers (FRAME_X_DISPLAY_INFO (f),
6789 button_event->state); 6791 button_event->state);
6790 kbd_buffer_store_event (&event); 6792 kbd_buffer_store_event (&event);
6791 last_tool_bar_item = -1; 6793 last_tool_bar_item = -1;
6792 } 6794 }
9783 the mouse leaves the frame. */ 9785 the mouse leaves the frame. */
9784 if (any_help_event_p) 9786 if (any_help_event_p)
9785 { 9787 {
9786 XSETFRAME (frame, f); 9788 XSETFRAME (frame, f);
9787 bufp->kind = HELP_EVENT; 9789 bufp->kind = HELP_EVENT;
9788 bufp->frame_or_window = Fcons (frame, Qnil); 9790 bufp->frame_or_window = frame;
9791 bufp->arg = Qnil;
9789 ++bufp, ++count, --numchars; 9792 ++bufp, ++count, --numchars;
9790 } 9793 }
9791 9794
9792 #ifdef LESSTIF_VERSION 9795 #ifdef LESSTIF_VERSION
9793 /* Please see the comment at the start of the 9796 /* Please see the comment at the start of the
9870 else 9873 else
9871 frame = Qnil; 9874 frame = Qnil;
9872 9875
9873 any_help_event_p = 1; 9876 any_help_event_p = 1;
9874 bufp->kind = HELP_EVENT; 9877 bufp->kind = HELP_EVENT;
9875 bufp->frame_or_window = Fcons (frame, help_echo); 9878 bufp->frame_or_window = frame;
9879 bufp->arg = help_echo;
9876 ++bufp, ++count, --numchars; 9880 ++bufp, ++count, --numchars;
9877 } 9881 }
9878 9882
9879 goto OTHER; 9883 goto OTHER;
9880 } 9884 }