mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-10 18:00:30 -08:00
Code Issues Projects Releases Wiki Activity

Implement (sort of) `drag-source' on Haiku

Browse source 
* src/haikuterm.c (haiku_mouse_or_wdesc_frame)
(haiku_mouse_position): Behave reasonably when track_mouse is
Qdrag_source.
This commit is contained in:
Po Lu 2022-04-03 11:08:42 +00:00
parent 28f720e7c4
commit c3f12cd5da
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/haikuterm.c
View file

@ -452,7 +452,8 @@ haiku_mouse_or_wdesc_frame (void *window)
? x_display_list->last_mouse_frame
: NULL);
if (lm_f && !EQ (track_mouse, Qdropping))
if (lm_f && !EQ (track_mouse, Qdropping)
&& !EQ (track_mouse, Qdrag_source))
return lm_f;
else
{
@ -2566,6 +2567,9 @@ haiku_scroll_run (struct window *w, struct run *run)
unblock_input ();
}
/* Haiku doesn't provide any way to get the frame actually underneath
the pointer, so we typically return dpyinfo->last_mouse_frame, and
refrain from returning anything if that doesn't exist. */
static void
haiku_mouse_position (struct frame **fp, int insist, Lisp_Object *bar_window,
enum scroll_bar_part *part, Lisp_Object *x, Lisp_Object *y,
@ -2585,7 +2589,9 @@ haiku_mouse_position (struct frame **fp, int insist, Lisp_Object *bar_window,
XFRAME (frame)->mouse_moved = false;
}
if (gui_mouse_grabbed (x_display_list) && !EQ (track_mouse, Qdropping))
if (gui_mouse_grabbed (x_display_list)
&& !EQ (track_mouse, Qdropping)
&& !EQ (track_mouse, Qdrag_source))
f1 = x_display_list->last_mouse_frame;
if (!f1 || FRAME_TOOLTIP_P (f1))