diff options
| author | Po Lu | 2024-06-01 15:41:54 +0800 |
|---|---|---|
| committer | Po Lu | 2024-06-01 15:41:54 +0800 |
| commit | 2b7056db424ab0f8bf9e96b5a3c6aa12a3debf48 (patch) | |
| tree | 2e1bb7731a0e25001b2df993b2c218f797b00df9 /src/pgtkfns.c | |
| parent | b1692e23edc32ce8938d3af200c0c42c8aa6b313 (diff) | |
| download | emacs-2b7056db424ab0f8bf9e96b5a3c6aa12a3debf48.tar.gz emacs-2b7056db424ab0f8bf9e96b5a3c6aa12a3debf48.zip | |
Implement touch screen events on PGTK
* etc/NEWS: Better qualify entry for touch screen events.
* lisp/loadup.el (featurep 'pgtk): Load touch-screen.el.
* lisp/touch-screen.el: Revise list of systems where touch
screen events are reported.
* src/gtkutil.c (xg_create_frame_widgets): Request
GDK_TOUCH_MASK.
* src/pgtkfns.c (pgtk_frame_parm_handlers, tip_window): Pacify
compiler warning.
* src/pgtkterm.c (pgtk_free_frame_resources): Free touch points
linked to this frame.
(pgtk_link_touch_point, pgtk_unlink_touch_point)
(pgtk_unlink_touch_points, pgtk_find_touch_point): New
functions, ported from X.
(touch_event_cb): New event callback.
(pgtk_set_event_handler): Register `touch_event_cb' as handler
for `touch-event'.
(pgtk_delete_display): Free residual touch points on this
display.
* src/pgtkterm.h (struct pgtk_touch_point): New structure.
(struct pgtk_display_info) <touchpoints>: New field.
Diffstat (limited to 'src/pgtkfns.c')
| -rw-r--r-- | src/pgtkfns.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/pgtkfns.c b/src/pgtkfns.c index 6a8efb6d0bf..bdc6c5836fa 100644 --- a/src/pgtkfns.c +++ b/src/pgtkfns.c | |||
| @@ -945,6 +945,7 @@ unless TYPE is `png'. */) | |||
| 945 | return pgtk_cr_export_frames (frames, surface_type); | 945 | return pgtk_cr_export_frames (frames, surface_type); |
| 946 | } | 946 | } |
| 947 | 947 | ||
| 948 | extern frame_parm_handler pgtk_frame_parm_handlers[]; | ||
| 948 | frame_parm_handler pgtk_frame_parm_handlers[] = | 949 | frame_parm_handler pgtk_frame_parm_handlers[] = |
| 949 | { | 950 | { |
| 950 | gui_set_autoraise, /* generic OK */ | 951 | gui_set_autoraise, /* generic OK */ |
| @@ -2619,7 +2620,7 @@ static Lisp_Object tip_frame; | |||
| 2619 | 2620 | ||
| 2620 | /* The window-system window corresponding to the frame of the | 2621 | /* The window-system window corresponding to the frame of the |
| 2621 | currently visible tooltip. */ | 2622 | currently visible tooltip. */ |
| 2622 | GtkWidget *tip_window; | 2623 | static GtkWidget *tip_window; |
| 2623 | 2624 | ||
| 2624 | /* A timer that hides or deletes the currently visible tooltip when it | 2625 | /* A timer that hides or deletes the currently visible tooltip when it |
| 2625 | fires. */ | 2626 | fires. */ |