From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 13 Jul 2000 14:08:18 +0000 (+0000)
Subject: (w32_handle_tool_bar_click): Adapt to changes in
X-Git-Tag: emacs-pretest-21.0.90~2860
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8b33aa655a34ef6123c0d833aea3e63bf096956;p=emacs.git

(w32_handle_tool_bar_click): Adapt to changes in
TOOL_BAR_EVENTs.
(w32_read_socket): Adapt to changes in HELP_EVENTs.
---

diff --git a/src/w32term.c b/src/w32term.c
index 3a8cfb8bba6..dec34ebfa6e 100644
--- a/src/w32term.c
+++ b/src/w32term.c
@@ -6205,11 +6205,13 @@ w32_handle_tool_bar_click (f, button_event)
 
       XSETFRAME (frame, f);
       event.kind = TOOL_BAR_EVENT;
-      event.frame_or_window = Fcons (frame, Fcons (Qtool_bar, Qnil));
+      event.frame_or_window = frame;
+      event.arg = frame;
       kbd_buffer_store_event (&event);
 
       event.kind = TOOL_BAR_EVENT;
-      event.frame_or_window = Fcons (frame, key);
+      event.frame_or_window = frame;
+      event.arg = key;
       event.modifiers = button_event->modifiers;
       kbd_buffer_store_event (&event);
       last_tool_bar_item = -1;
@@ -7622,7 +7624,8 @@ w32_read_socket (sd, bufp, numchars, expected)
 
               any_help_event_p = 1;
               bufp->kind = HELP_EVENT;
-              bufp->frame_or_window = Fcons (frame, help_echo);
+              bufp->frame_or_window = frame;
+              bufp->arg = help_echo;
               ++bufp, ++count, --numchars;
             }
           break;
@@ -7952,7 +7955,8 @@ w32_read_socket (sd, bufp, numchars, expected)
                 {
                   XSETFRAME (frame, f);
                   bufp->kind = HELP_EVENT;
-                  bufp->frame_or_window = Fcons (frame, Qnil);
+                  bufp->frame_or_window = frame;
+                  bufp->arg = Qnil;
                   ++bufp, ++count, --numchars;
                 }
             }