bug#39247: 26.3; inappropriate mouse pointer shapes

bug#39247: 26.3; inappropriate mouse pointer shapes

[ynyaaa]

In some cases, mouse pointer shapes are not appropriate.

(1)'text shape on mode-line.
   Move the mouse pointer onto the line number in the mode-line
   at the bottom of the emacs frame.
   Move the pointer to the right SPC.
   Then the pointer shape is 'text.
   (With (setq resize-mini-windows nil), this does not occur.)

(2)'text shape on header-line.
   Evaluate the form below.
   Move the mouse pointer onto the text 'YYY'.
   Move the pointer up to the blank area of the header-line.
   Then the pointer shape is 'text.

   (let ((buf (generate-new-buffer "tmp")))
     (switch-to-buffer buf)
     (setq header-line-format "xxx")
     (insert "xxxYYY"))

(3)'hourglass shape when emacs is not busy
   Move the mouse pointer onto a text area of emacs frame.
   Do not touch the mouse afterwards.
   Evaluate the form below.
   Type 'j' to insert 'j'.
   Type 'a' to make emacs busy.
   Type Alt-Tab to switch to another application.
   Type Alt-Tab again to switch back to the emacs frame.
   Type 'C-g' to stop the busy loop.
   Then the pointer shape keep 'hourglass.

   (let ((buf (generate-new-buffer "tmp"))
         (map (make-sparse-keymap)))
     (menu-bar-mode 0)
     (switch-to-buffer buf)
     (define-key map "a"
       (lambda () (interactive) (dotimes (i 1000000000))))
     (use-local-map map))

(4)shape of 'pointer property value put on another area
   Evaluate the form below.
   Move the mouse pointer onto 'yyy'.
   Move the pointer left to 'XXX' or right to 'ZZZ'.
   Then the pointer shape keep 'hdrag.

   (let ((buf (generate-new-buffer "tmp")))
     (switch-to-buffer buf)
     (insert (propertize "XXX" 'mouse-face 'region)
             (propertize "yyy" 'mouse-face 'region 'pointer 'hdrag)
             (propertize "ZZZ" 'mouse-face 'region)))

(5)'text shape on the blank area in the echo area.
   Show any message in the echo area. For example, type 'C-g'.
   Move the mouse pointer onto the blank area of the echo area.
   Then the pointer shape is 'text.
   Even after the message is cleared with some input such as 'C-f',
   the pointer shape on the echo area may remain 'text.

(6)'text shape on an image map area with empty PLIST
   The form below inserts a image with four circles.
   Spec for a red circle has empty PLIST.
   The mouse poiter shape on the red circle is 'text.

(let ((svg (progn (require 'svg) (svg-create 200 200))))
  (svg-circle svg  50  50 50 :fill-color "red")
  (svg-circle svg 150  50 50 :fill-color "green")
  (svg-circle svg  50 150 50 :fill-color "blue")
  (svg-circle svg 150 150 50 :fill-color "yellow")
  (insert-image
   (svg-image
    svg :map '(((circle . ((50 . 50) . 50)) red-area nil)
               ((circle . ((150 . 50) . 50)) green-area (dummy "green"))
               ((circle . ((50 . 150) . 50)) blue-area (help-echo "blue"))
               ((circle . ((150 . 150) . 50)) yellow-area
                (help-echo "yellow" pointer hdrag)))))
  (put-text-property
   (1- (point)) (point) 'keymap
   (let ((map (make-sparse-keymap)))
     (dolist (color '("red" "green" "blue" "yellow"))
       (let ((area (intern (format "%s-area" color))))
         (define-key map (vector area 'mouse-1)
           `(lambda (ev) (interactive "e")
              (let ((tmp (event-end ev)))
                (message "%S" (posn-area tmp)))))))
     map)))


In GNU Emacs 26.3 (build 1, x86_64-w64-mingw32)
 of 2019-08-29 built on CIRROCUMULUS
Repository revision: 96dd0196c28bc36779584e47fffcca433c9309cd
Windowing system distributor 'Microsoft Corp.', version 10.0.18363
Recent messages:

Configured using:
 'configure --without-dbus --host=x86_64-w64-mingw32
 --without-compress-install 'CFLAGS=-O2 -static -g3''

Configured features:
XPM JPEG TIFF GIF PNG RSVG SOUND NOTIFY ACL GNUTLS LIBXML2 ZLIB
TOOLKIT_SCROLL_BARS THREADS LCMS2

Important settings:
  value of $LANG: JPN
  locale-coding-system: cp932

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  global-eldoc-mode: t
  eldoc-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Load-path shadows:
None found.

Features:
(cl-print thingatpt cus-edit cus-start cus-load misearch multi-isearch
term/bobcat shadow emacsbug mailalias smtpmail sendmail sort mail-extr
message dired dired-loaddefs rfc822 mml mml-sec epa derived epg
epg-config mm-decode mm-bodies mm-encode mailabbrev gmm-utils mailheader
help-fns radix-tree pp descr-text cl-extra help-mode network-stream
starttls url-http tls gnutls mail-parse rfc2231 url-gw nsm rmc url-cache
url-auth eww easymenu puny mm-url gnus nnheader gnus-util rmail
rmail-loaddefs rfc2047 rfc2045 ietf-drums mail-utils wid-edit mm-util
mail-prsvr url-queue url url-proxy url-privacy url-expand url-methods
url-history url-cookie url-domsuf url-util url-parse auth-source cl-seq
eieio eieio-core cl-macs eieio-loaddefs password-cache url-vars mailcap
shr svg xml seq byte-opt gv bytecomp byte-compile cconv dom browse-url
format-spec cl-loaddefs cl-lib elec-pair time-date mule-util japan-util
tooltip eldoc electric uniquify ediff-hook vc-hooks lisp-float-type
mwheel dos-w32 ls-lisp disp-table term/w32-win w32-win w32-vars
term/common-win tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page menu-bar rfn-eshadow isearch timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame cl-generic cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932
hebrew greek romanian slovak czech european ethiopic indian cyrillic
chinese composite charscript charprop case-table epa-hook jka-cmpr-hook
help simple abbrev obarray minibuffer cl-preloaded nadvice loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote threads w32notify w32 lcms2 multi-tty make-network-process
emacs)

Memory information:
((conses 16 188164 148046)
 (symbols 48 50872 6)
 (miscs 40 88 497)
 (strings 32 115046 1483)
 (string-bytes 1 2563859)
 (vectors 16 25649)
 (vector-slots 8 1692784 183626)
 (floats 8 85 504)
 (intervals 56 15069 3803)
 (buffers 992 21))

bug#39247: 26.3; inappropriate mouse pointer shapes

[Eli Zaretskii]

severity 39247 minor
thanks

> From: ynyaaa@gmail.com
> Date: Thu, 23 Jan 2020 11:25:09 +0900
> 
> (1)'text shape on mode-line.
>    Move the mouse pointer onto the line number in the mode-line
>    at the bottom of the emacs frame.
>    Move the pointer to the right SPC.
>    Then the pointer shape is 'text.
>    (With (setq resize-mini-windows nil), this does not occur.)

This part seems reasonable to me, not a bug: when resize-mini-windows
is nil, you can resize the mini-window by dragging the mode line with
the mouse, and that's what the mouse pointer shows you when it's over
that area of the mode line.  When resize-mini-windows is non-nil, you
cannot resize the mini-window.

bug#39247: 26.3; inappropriate mouse pointer shapes

[ynyaaa]

Eli Zaretskii <eliz@gnu.org> writes:

> severity 39247 minor
> thanks
>
>> From: ynyaaa@gmail.com
>> Date: Thu, 23 Jan 2020 11:25:09 +0900
>> 
>> (1)'text shape on mode-line.
>>    Move the mouse pointer onto the line number in the mode-line
>>    at the bottom of the emacs frame.
>>    Move the pointer to the right SPC.
>>    Then the pointer shape is 'text.
>>    (With (setq resize-mini-windows nil), this does not occur.)
>
> This part seems reasonable to me, not a bug: when resize-mini-windows
> is nil, you can resize the mini-window by dragging the mode line with
> the mouse, and that's what the mouse pointer shows you when it's over
> that area of the mode line.  When resize-mini-windows is non-nil, you
> cannot resize the mini-window.

If the pointer is moved onto the SPC area directly from outside of the
mode-line, the pointer shape is a north-west arrow.
I can not distinguish which shape is used, 'arrow, 'mode-line or 'vdrag.

bug#39247: 26.3; inappropriate mouse pointer shapes

[Eli Zaretskii]

> From: ynyaaa@gmail.com
> Cc: 39247@debbugs.gnu.org
> Date: Fri, 24 Jan 2020 22:36:05 +0900
> 
> >> (1)'text shape on mode-line.
> >>    Move the mouse pointer onto the line number in the mode-line
> >>    at the bottom of the emacs frame.
> >>    Move the pointer to the right SPC.
> >>    Then the pointer shape is 'text.
> >>    (With (setq resize-mini-windows nil), this does not occur.)
> >
> > This part seems reasonable to me, not a bug: when resize-mini-windows
> > is nil, you can resize the mini-window by dragging the mode line with
> > the mouse, and that's what the mouse pointer shows you when it's over
> > that area of the mode line.  When resize-mini-windows is non-nil, you
> > cannot resize the mini-window.
> 
> If the pointer is moved onto the SPC area directly from outside of the
> mode-line, the pointer shape is a north-west arrow.

I cannot reproduce this (if you mean this happens when
resize-mini-windows is nil).

bug#39247: 26.3; inappropriate mouse pointer shapes

[ynyaaa]

Eli Zaretskii <eliz@gnu.org> writes:

>> From: ynyaaa@gmail.com
>> Cc: 39247@debbugs.gnu.org
>> Date: Fri, 24 Jan 2020 22:36:05 +0900
>> 
>> >> (1)'text shape on mode-line.
>> >>    Move the mouse pointer onto the line number in the mode-line
>> >>    at the bottom of the emacs frame.
>> >>    Move the pointer to the right SPC.
>> >>    Then the pointer shape is 'text.
>> >>    (With (setq resize-mini-windows nil), this does not occur.)
>> >
>> > This part seems reasonable to me, not a bug: when resize-mini-windows
>> > is nil, you can resize the mini-window by dragging the mode line with
>> > the mouse, and that's what the mouse pointer shows you when it's over
>> > that area of the mode line.  When resize-mini-windows is non-nil, you
>> > cannot resize the mini-window.
>> 
>> If the pointer is moved onto the SPC area directly from outside of the
>> mode-line, the pointer shape is a north-west arrow.
>
> I cannot reproduce this (if you mean this happens when
> resize-mini-windows is nil).

When resize-mini-windows is nil, there is no problem.

When resize-mini-windows is non-nil and minibuffer is not active,
the problem is that the pointer shape on the same place changes
depending on where it comes from.

When the pointer moved onto the SPC right to the line number,
the pointer shape is
  'text if it comes from the left,
  a north-west arrow if it comes from the right.
This does not heppen on other SPCs in the same mode-line.

If the pointer comes from the upper side or the lower side, the shape
keeps same as just before it gets onto the SPC right to the line number.

If 'pointer property is put on the text displayed just above the SPC,
the specified shape is kept after it gets onto the SPC.
Evaluating the form below and moving the mouse pointer, the pointer
shape on the mode-line can be 'hdrag.

(let ((buf (get-buffer-create "tmp"))
      (str (propertize (make-string ?a 100) 'pointer 'hdrag)))
  (switch-to-buffer buf)
  (setq truncate-lines t)
  (delete-other-windows)
  (dotimes (i (window-height)) (insert str ?\n))
  (goto-char (point-min)))

bug#39247: 26.3; inappropriate mouse pointer shapes

[martin rudalics]

 > When resize-mini-windows is non-nil and minibuffer is not active,
 > the problem is that the pointer shape on the same place changes
 > depending on where it comes from.
 >
 > When the pointer moved onto the SPC right to the line number,
 > the pointer shape is
 >    'text if it comes from the left,
 >    a north-west arrow if it comes from the right.
 > This does not heppen on other SPCs in the same mode-line.
 >
 > If the pointer comes from the upper side or the lower side, the shape
 > keeps same as just before it gets onto the SPC right to the line number.

Here (emacs -Q on Debian GTK) I always get a north-west arrow regardless
of from where the mouse pointer moves into the space right of L4.

martin

bug#39247: 26.3; inappropriate mouse pointer shapes

[Eli Zaretskii]

> Cc: 39247@debbugs.gnu.org
> From: martin rudalics <rudalics@gmx.at>
> Date: Sat, 25 Jan 2020 09:44:04 +0100
> 
>  > If the pointer comes from the upper side or the lower side, the shape
>  > keeps same as just before it gets onto the SPC right to the line number.
> 
> Here (emacs -Q on Debian GTK) I always get a north-west arrow regardless
> of from where the mouse pointer moves into the space right of L4.

The way we change the mouse cursor on Windows is... tricky.