# HG changeset patch
# User Patrice Mandin <patmandin@gmail.com>
# Date 1352052469 -3600
# Node ID 1aab0b09a0e3e20ae0f2170683b261742c4367f1
# Parent  5415ef59343afcd08ca5772a1a52d8235ab1e51c
gem: revert back to graf_mkstate usage to get mouse state

diff -r 5415ef59343a -r 1aab0b09a0e3 src/video/gem/SDL_gemevents.c
--- a/src/video/gem/SDL_gemevents.c	Sun Nov 04 19:02:21 2012 +0100
+++ b/src/video/gem/SDL_gemevents.c	Sun Nov 04 19:07:49 2012 +0100
@@ -87,25 +87,22 @@
 		quit = 0;
 
 		resultat = evnt_multi(
-			MU_MESAG|MU_TIMER|MU_KEYBD|MU_BUTTON|MU_M1,
-			0x101,7,prevmb,
-			MO_LEAVE,prevmx,prevmy,1,1,
+			MU_MESAG|MU_TIMER|MU_KEYBD,
+			0,0,0,
+			0,0,0,0,0,
 			0,0,0,0,0,
 			buffer,
 			10,
-			&mousex,&mousey,&mouseb,&kstate,&kc,&dummy
+			&dummy,&dummy,&dummy,&kstate,&kc,&dummy
 		);
 
 		/* Message event ? */
 		if (resultat & MU_MESAG)
 			quit = do_messages(this, buffer);
 
-		/* Special keys ? */
-		if (resultat & (MU_KEYBD|MU_BUTTON))
-			do_keyboard_special(kstate);
-
 		/* Keyboard event ? */
 		if (resultat & MU_KEYBD) {
+			do_keyboard_special(kstate);
 			if (prevkc != kc) {
 				do_keyboard(kc);
 				prevkc = kc;
@@ -115,24 +112,17 @@
 			}
 		}
 
-		/* Mouse motion event ? */
-		if (resultat & MU_M1) {
-			do_mouse_motion(this, mousex, mousey);
-			prevmx = mousex;
-			prevmy = mousey;
-		}
-
-		/* Mouse button event ? */
-		if (resultat & MU_BUTTON) {
-			do_mouse_buttons(this, mouseb);
-			prevmb = mouseb & 7;
-		}
-
 		/* Timer event ? */
 		if ((resultat & MU_TIMER) || quit)
 			break;
 	}
 
+	/* Update mouse state */
+	graf_mkstate(&mousex, &mousey, &mouseb, &kstate);
+	do_keyboard_special(kstate);
+	do_mouse_motion(this, mousex, mousey);
+	do_mouse_buttons(this, mouseb);
+
 	/* Now generate keyboard events */
 	for (i=0; i<ATARIBIOS_MAXKEYS; i++) {
 		/* Key pressed ? */