Re: How to get information of a tip created by x-show-tip

[Feng Shu]

martin rudalics <address@hidden> writes:

>> I use the following code to test, but failure
>> 1. width and height parameter do not work
>> 2. I can find any frame with 'tooltip parameter
>>
>> ```
>> (setq tooltip-reuse-hidden-frame t)
>
> This may hide the frame from 'visible-frame-list'.
>
>> (setq x-gtk-use-system-tooltips nil)
>>
>> (progn
>>    (x-show-tip "this is a test"
>>                    (selected-frame)
>>                '((name . "tooltip1")
>>                  (internal-border-width . 2)
>>                  (left . 200)
>>                  (top . 300)
>>                  (width . 200)
>>                  (height . 600)
>>                  (border-width . 1)
>>                  (no-special-glyphs . t))
>>                100 0 0)
>>    (dolist (frame (visible-frame-list))
>>      (princ (frame-parameter frame 'tooltip))))
>
> Evaluating the following here on Windows
>
> (progn
>   (x-show-tip "this is a test"
>                     (selected-frame)
>               '((name . "tooltip1")
>                 (internal-border-width . 2)
>                 (left . 200)
>                 (top . 300)
>                 (width . 200)
>                 (height . 600)
>                 (border-width . 1)
>                 (no-special-glyphs . t))
>               100 0 0)
>   (dolist (frame (visible-frame-list))
>     (when (frame-parameter frame 'tooltip)
>       (princ (frame-parameters frame)))))
>
> gets me
>
> ((tool-bar-position . top) (parent-id) (explicit-name . t)
> (display . w32) (visibility . t) (icon-name) (window-id . 1180020)
> (scroll-bar-height . 0) (scroll-bar-width . 0) (right-fringe . 0)
> (left-fringe . 0) (bottom-divider-width . 0) (right-divider-width . 0)
> (top . 300) (left . 200) (buried-buffer-list) (buffer-list *scratch*)
> (unsplittable . t) (modeline) (width . 80) (height . 36) (name
> . tooltip1) (tooltip . t) (alpha) (cursor-type . box) (auto-lower)
> (auto-raise) (no-special-glyphs . t) (border-color . lightyellow)
> (cursor-color . black) (mouse-color . black) (background-color
> . lightyellow) (foreground-color . black) (internal-border-width . 2)
> (border-width . 1) (font . -outline-Courier
> New-normal-normal-normal-mono-13-*-*-*-c-*-iso8859-1) (font-backend
> uniscribe gdi))
>
> martin
>

On linux (guixsd), emacs master, I can see the tooltip but print nil


(setq tooltip-reuse-hidden-frame nil)
(progn
  (x-show-tip "this is a test"
                      (selected-frame)
              '((name . "tooltip1")
                (internal-border-width . 2)
                (left . 200)
                (top . 300)
                (width . 200)
                (height . 600)
                (border-width . 1)
                (no-special-glyphs . t))
              100 0 0)
  (dolist (frame (visible-frame-list))
    (when (frame-parameter frame 'tooltip)
      (princ (frame-parameters frame)))))


--