Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 284:558f606b08ae r21-0b40

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b40
author cvs
date Mon, 13 Aug 2007 10:34:13 +0200
parents c42ec1d1cded
children c9fe270a4101
comparison
equal deleted inserted replaced
283:fa3d41851a08 284:558f606b08ae
1613 XEVENT (event)->event.misc.object = object; 1613 XEVENT (event)->event.misc.object = object;
1614 XEVENT (event)->event.misc.button = 0; 1614 XEVENT (event)->event.misc.button = 0;
1615 XEVENT (event)->event.misc.modifiers = 0; 1615 XEVENT (event)->event.misc.modifiers = 0;
1616 XEVENT (event)->event.misc.x = -1; 1616 XEVENT (event)->event.misc.x = -1;
1617 XEVENT (event)->event.misc.y = -1; 1617 XEVENT (event)->event.misc.y = -1;
1618 enqueue_command_event (event);
1619
1620 return event;
1621 }
1622
1623 Lisp_Object
1624 enqueue_misc_user_event_pos (Lisp_Object channel, Lisp_Object function,
1625 Lisp_Object object,
1626 int button, int modifiers, int x, int y)
1627 {
1628 Lisp_Object event = Fmake_event (Qnil, Qnil);
1629
1630 XEVENT (event)->event_type = misc_user_event;
1631 XEVENT (event)->channel = channel;
1632 XEVENT (event)->event.misc.function = function;
1633 XEVENT (event)->event.misc.object = object;
1634 XEVENT (event)->event.misc.button = button;
1635 XEVENT (event)->event.misc.modifiers = modifiers;
1636 XEVENT (event)->event.misc.x = x;
1637 XEVENT (event)->event.misc.y = y;
1618 enqueue_command_event (event); 1638 enqueue_command_event (event);
1619 1639
1620 return event; 1640 return event;
1621 } 1641 }
1622 1642