]> git.eshelyaron.com Git - emacs.git/commit
Add touchscreen support to the tab bar
authorPo Lu <luangruo@yahoo.com>
Tue, 16 May 2023 07:54:50 +0000 (15:54 +0800)
committerPo Lu <luangruo@yahoo.com>
Tue, 16 May 2023 07:54:50 +0000 (15:54 +0800)
commitbb8bf9203ed33de0bb269c8ff69067aa7b3a692a
tree9aeb35760a2997f734b3f706048e381300b514c1
parent44da7d75ed3fa6322d64d66d250bc78e91636ff5
Add touchscreen support to the tab bar

* lisp/menu-bar.el (popup-menu-normalize-position): Normalize
`touchscreen-begin' events correctly.
* lisp/tab-bar.el (tab-bar-mouse-context-menu): New argument
POSN.  Use it if specified.
(touch-screen-track-tap, tab-bar-handle-timeout)
(tab-bar-touchscreen-begin): New functions.
(tab-bar-map): Bind [tab-bar touchscreen-begin].
* lisp/touch-screen.el (touch-screen-track-drag): Fix doc
string.
* src/dispextern.h: Export `get_tab_bar_item_kbd'.
* src/keyboard.c (coords_in_tab_bar_window): New function.
(make_lispy_event): Adjust touchscreen begin event mouse
position list for tab bar.
* src/xdisp.c (tab_bar_item_info): Allow CLOSE_P to be NULL.
(get_tab_bar_item): Adjust doc string.
(get_tab_bar_item_kbd): New function.
lisp/menu-bar.el
lisp/tab-bar.el
lisp/touch-screen.el
src/dispextern.h
src/keyboard.c
src/xdisp.c