Mercurial > hg > xemacs-beta

comparison src/event-gtk.c @ 589:37fe04af1590

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-31 02:00:29 by wmperry] Regenerated some .c files from their lisp equivalents for GTK bindings. Fix buttons as modifiers code so that text selection works in GTK event loop.
author wmperry
date Thu, 31 May 2001 02:00:31 +0000
parents 183866b06e0b
children fdefd0186b75
comparison
equal deleted inserted replaced
588:ed8e2ee8d29d 589:37fe04af1590
1251 if (*state & gd->MetaMask) modifiers |= XEMACS_MOD_META; 1251 if (*state & gd->MetaMask) modifiers |= XEMACS_MOD_META;
1252 if (*state & gd->SuperMask) modifiers |= XEMACS_MOD_SUPER; 1252 if (*state & gd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
1253 if (*state & gd->HyperMask) modifiers |= XEMACS_MOD_HYPER; 1253 if (*state & gd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
1254 if (*state & gd->AltMask) modifiers |= XEMACS_MOD_ALT; 1254 if (*state & gd->AltMask) modifiers |= XEMACS_MOD_ALT;
1255 1255
1256 {
1257 int numero_de_botao = -1;
1258
1259 if (!key_event_p)
1260 numero_de_botao = gdk_event->button.button;
1261
1262 /* the button gets noted either in the button or the modifiers
1263 field, but not both. */
1264 if (numero_de_botao != 1 && (*state & GDK_BUTTON1_MASK))
1265 modifiers |= XEMACS_MOD_BUTTON1;
1266 if (numero_de_botao != 2 && (*state & GDK_BUTTON2_MASK))
1267 modifiers |= XEMACS_MOD_BUTTON2;
1268 if (numero_de_botao != 3 && (*state & GDK_BUTTON3_MASK))
1269 modifiers |= XEMACS_MOD_BUTTON3;
1270 if (numero_de_botao != 4 && (*state & GDK_BUTTON4_MASK))
1271 modifiers |= XEMACS_MOD_BUTTON4;
1272 if (numero_de_botao != 5 && (*state & GDK_BUTTON5_MASK))
1273 modifiers |= XEMACS_MOD_BUTTON5;
1274 }
1275
1256 /* Ignore the Caps_Lock key if: 1276 /* Ignore the Caps_Lock key if:
1257 - any other modifiers are down, so that Caps_Lock doesn't 1277 - any other modifiers are down, so that Caps_Lock doesn't
1258 turn C-x into C-X, which would suck. 1278 turn C-x into C-X, which would suck.
1259 - the event was a mouse event. */ 1279 - the event was a mouse event. */
1260 if (modifiers || ! key_event_p) 1280 if (modifiers || ! key_event_p)
1372 if (mask & GDK_CONTROL_MASK) modifiers |= XEMACS_MOD_CONTROL; 1392 if (mask & GDK_CONTROL_MASK) modifiers |= XEMACS_MOD_CONTROL;
1373 if (mask & gd->MetaMask) modifiers |= XEMACS_MOD_META; 1393 if (mask & gd->MetaMask) modifiers |= XEMACS_MOD_META;
1374 if (mask & gd->SuperMask) modifiers |= XEMACS_MOD_SUPER; 1394 if (mask & gd->SuperMask) modifiers |= XEMACS_MOD_SUPER;
1375 if (mask & gd->HyperMask) modifiers |= XEMACS_MOD_HYPER; 1395 if (mask & gd->HyperMask) modifiers |= XEMACS_MOD_HYPER;
1376 if (mask & gd->AltMask) modifiers |= XEMACS_MOD_ALT; 1396 if (mask & gd->AltMask) modifiers |= XEMACS_MOD_ALT;
1397 if (mask & GDK_BUTTON1_MASK) modifiers |= XEMACS_MOD_BUTTON1;
1398 if (mask & GDK_BUTTON2_MASK) modifiers |= XEMACS_MOD_BUTTON2;
1399 if (mask & GDK_BUTTON3_MASK) modifiers |= XEMACS_MOD_BUTTON3;
1400 if (mask & GDK_BUTTON4_MASK) modifiers |= XEMACS_MOD_BUTTON4;
1401 if (mask & GDK_BUTTON5_MASK) modifiers |= XEMACS_MOD_BUTTON5;
1402
1377 /* Currently ignores Shift_Lock but probably shouldn't 1403 /* Currently ignores Shift_Lock but probably shouldn't
1378 (but it definitely should ignore Caps_Lock). */ 1404 (but it definitely should ignore Caps_Lock). */
1379 emacs_event->event.motion.modifiers = modifiers; 1405 emacs_event->event.motion.modifiers = modifiers;
1380 } 1406 }
1381 break; 1407 break;