mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +00:00
Code Issues Releases Activity

(tooltip-x-offset, tooltip-y-offset): New user-options.

Browse Source 
(tooltip-show): Use the offsets.
This commit is contained in:
Gerd Moellmann 2000-11-18 12:56:26 +00:00
parent 24127af0a0
commit e4df9b40fd
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/tooltip.el
View File

@ -76,6 +76,28 @@ Do so after `tooltip-short-delay'."
:group 'tooltip)
(defcustom tooltip-x-offset nil
"Specify an X offset for the display of tooltips.
The offset is relative to the position of the mouse. It must
be chosen so that the tooltip window doesn't contain the mouse
when it pops up."
:tag "X offset"
:type '(choice (const :tag "Default" nil)
(integer :tag "Offset" :value 1))
:group 'tooltip)
(defcustom tooltip-y-offset nil
"Specify an Y offset for the display of tooltips.
The offset is relative to the position of the mouse. It must
be chosen so that the tooltip window doesn't contain the mouse
when it pops up."
:tag "Y offset"
:type '(choice (const :tag "Default" nil)
(integer :tag "Offset" :value 1))
:group 'tooltip)
(defcustom tooltip-frame-parameters
'((name . "tooltip")
(foreground-color . "black")
@ -284,7 +306,12 @@ ACTIVATEP non-nil means activate mouse motion events."
"Show a tooltip window at the current mouse position displaying TEXT."
(if tooltip-use-echo-area
(message "%s" text)
(x-show-tip text (selected-frame) tooltip-frame-parameters)))
(x-show-tip text
(selected-frame)
tooltip-frame-parameters
nil
tooltip-x-offset
tooltip-y-offset)))
(defun tooltip-hide (&optional ignored-arg)
"Hide a tooltip, if one is displayed.