diff src/events.c @ 249:83b3d10dcba9 r20-5b23

Import from CVS: tag r20-5b23
author cvs
date Mon, 13 Aug 2007 10:19:09 +0200
parents f220cc83d72e
children 11cf20601dec
line wrap: on
line diff
--- a/src/events.c	Mon Aug 13 10:18:22 2007 +0200
+++ b/src/events.c	Mon Aug 13 10:19:09 2007 +0200
@@ -66,7 +66,7 @@
 Lisp_Object Qkey_press, Qbutton_press, Qbutton_release, Qmisc_user;
 Lisp_Object Qascii_character;
 
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
 Lisp_Object Qdnd_drop_event_p;
 Lisp_Object Qdnd_drop;
 #endif
@@ -135,7 +135,7 @@
     case magic_event:
     case empty_event:
     case dead_event:
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
 #endif
       break;
@@ -215,7 +215,7 @@
     case dead_event:
 	write_c_string ("#<DEALLOCATED-EVENT", printcharfun);
 	break;
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
       print_event_1 ("#<dnd-drop-event ", obj, printcharfun);
       break;
@@ -273,7 +273,7 @@
 	      internal_equal (e1->event.magic_eval.object,
 			      e2->event.magic_eval.object, 0));
 
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
       return (e1->event.dnd_drop.button    == e2->event.dnd_drop.button &&
 	      e1->event.dnd_drop.modifiers == e2->event.dnd_drop.modifiers &&
@@ -350,7 +350,7 @@
 		    (unsigned long) e->event.magic_eval.internal_function,
 		    internal_hash (e->event.magic_eval.object, depth + 1));
 
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
       return HASH4 (hash, e->event.dnd_drop.button, e->event.dnd_drop.modifiers,
 		    LISP_HASH(e->event.dnd_drop.data));
@@ -369,12 +369,7 @@
 #endif
 #ifdef HAVE_MS_WINDOWS
 	if (CONSOLE_MSWINDOWS_P (con))
-	 return HASH6 (hash, e->event.magic.underlying_mswindows_event.message,
-		       e->event.magic.underlying_mswindows_event.data[0],
-		       e->event.magic.underlying_mswindows_event.data[1],
-		       e->event.magic.underlying_mswindows_event.data[2],
-		       e->event.magic.underlying_mswindows_event.data[3]
-		       );
+	  return HASH2 (hash, e->event.magic.underlying_mswindows_event);
 #endif
       }
 
@@ -487,7 +482,7 @@
     e->event_type = button_release_event;
   else if (EQ (type, Qmotion))
     e->event_type = pointer_motion_event;
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
   else if (EQ (type, Qdnd_drop))
     {
       e->event_type = dnd_drop_event;
@@ -606,7 +601,7 @@
 	  CHECK_NATNUM (value);
 	  e->timestamp = XINT (value);
 	}
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
       else if (EQ (keyword, Qdnd_data))
 	{
 	  Lisp_Object dnd_tail;
@@ -630,7 +625,7 @@
 	      e->event.dnd_drop.data = Fcopy_tree (value, Qnil);
 	    }
 	}
-#endif /* HAVE_OFFIX_DND */
+#endif /* HAVE_OFFIX_DND || HAVE_MS_WINDOWS */
       else
 	signal_simple_error ("Invalid property", keyword);
     } /* while */
@@ -649,7 +644,7 @@
   if (e->event_type == pointer_motion_event
       || e->event_type == button_press_event
       || e->event_type == button_release_event
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
       || e->event_type == dnd_drop_event
 #endif
       )
@@ -666,7 +661,7 @@
 	}
       else if (e->event_type == button_press_event
 	       || e->event_type == button_release_event
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
 	       || e->event_type == dnd_drop_event
 #endif
 	       )
@@ -685,14 +680,14 @@
       break;
     case button_press_event:
     case button_release_event:
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
 #endif
       if (!e->event.button.button)
 	error ("Undefined button for %s event",
 	       e->event_type == button_press_event
 	       ? "buton-press" :
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
 	       e->event_type == button_release_event
 	       ? "button-release" : "dnd-drop"
 #else
@@ -956,7 +951,7 @@
     case button_press_event:
     case button_release_event:
     case misc_user_event:
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
 #endif
       return 1;
@@ -1216,7 +1211,7 @@
   int mouse_p = 0;
   int mod = 0;
   Lisp_Object key;
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
   int dnd_p = 0;
 #endif
 
@@ -1263,7 +1258,7 @@
 	else strcpy (buf, "???");
 	return;
       }
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
       {
 	dnd_p++;
@@ -1297,7 +1292,7 @@
       --mouse_p;
     }
 
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
   switch (dnd_p)
     {
     case 1:
@@ -1440,7 +1435,7 @@
     case process_event:		return Qprocess;
     case timeout_event:		return Qtimeout;
     case eval_event:		return Qeval;
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:	return Qdnd_drop;
 #endif
     case magic_event:
@@ -1497,7 +1492,7 @@
 */
        (event))
 {
-#ifndef HAVE_OFFIX_DND
+#if !defined(HAVE_OFFIX_DND) && !defined(HAVE_MS_WINDOWS)
 
   CHECK_EVENT_TYPE2 (event, button_press_event, button_release_event,
 		     Qbutton_event_p);
@@ -1507,7 +1502,7 @@
   return Qzero;
 #endif /* !HAVE_WINDOW_SYSTEM */
 
-#else /* HAVE_OFFIX_DND */
+#else /* HAVE_OFFIX_DND || HAVE_MS_WINDOWS */
 
   CHECK_LIVE_EVENT (event);
   if (XEVENT(event)->event_type == (button_press_event) ||
@@ -1541,7 +1536,7 @@
       return make_int (XEVENT (event)->event.button.modifiers);
     case pointer_motion_event:
       return make_int (XEVENT (event)->event.motion.modifiers);
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
       return make_int (XEVENT (event)->event.dnd_drop.modifiers);
 #endif
@@ -1586,7 +1581,7 @@
       *x = XEVENT (event)->event.button.x;
       *y = XEVENT (event)->event.button.y;
     }
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
   else if (XEVENT (event)->event_type == dnd_drop_event)
     {
       *x = XEVENT (event)->event.dnd_drop.x;
@@ -1743,7 +1738,7 @@
       pix_x = XEVENT (event)->event.button.x;
       pix_y = XEVENT (event)->event.button.y;
       break;
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event :
       pix_x = XEVENT (event)->event.dnd_drop.x;
       pix_y = XEVENT (event)->event.dnd_drop.y;
@@ -2103,7 +2098,7 @@
 */
        (event))
 {
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
  again:
   CHECK_LIVE_EVENT (event);
   switch (XEVENT (event)->event_type)
@@ -2114,9 +2109,9 @@
       event = wrong_type_argument (Qdnd_drop_event_p, event);
       goto again;
     }
-#else /* !HAVE_OFFIX_DND */
+#else /* !(HAVE_OFFIX_DND || HAVE_MS_WINDOWS) */
   return Qnil;
-#endif /* HAVE_OFFIX_DND */
+#endif /* HAVE_OFFIX_DND || HAVE_MS_WINDOWS */
 }
 
 DEFUN ("event-properties", Fevent_properties, 1, 1, 0, /*
@@ -2173,7 +2168,7 @@
       props = Fcons (Qfunction, Fcons (Fevent_function (event), props));
       break;
 
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
     case dnd_drop_event:
       props = Fcons (Qy, Fcons (Fevent_y_pixel (event), props));
       props = Fcons (Qx, Fcons (Fevent_x_pixel (event), props));
@@ -2262,7 +2257,7 @@
   defsymbol (&Qbutton_release, "button-release");
   defsymbol (&Qmisc_user, "misc-user");
   defsymbol (&Qascii_character, "ascii-character");
-#ifdef HAVE_OFFIX_DND
+#if defined(HAVE_OFFIX_DND) || defined(HAVE_MS_WINDOWS)
   defsymbol (&Qdnd_drop_event_p, "dnd-drop-event-p");
   defsymbol (&Qdnd_drop, "dnd-drop");
 #endif