comparison lisp/tooltip.el @ 25332:c09e05be2f4b

(tooltip-mode): Customize this, per convention. (tooltip-active): Option deleted.

25331:d0672c9ba98a

;;; tooltip.el --- Show tooltip windows

;; Copyright (C) 1997 Free Software Foundation, Inc.

;; Author: Gerd Moellmann <[e-mail]>
;; Keywords: help c mouse tools

;; This file is part of GNU Emacs.

  "Customization group for the `tooltip' package."
  :group 'help
  :group 'c
  :group 'mouse
  :group 'tools
  :tag "Tool Tips")


(defcustom tooltip-delay 1.0
  "Seconds to wait before displaying a tooltip the first time."
  :tag "Delay"
  :type 'number

  :type 'number
  :group 'tooltip)


(defcustom tooltip-recent-seconds 1
  "Display tooltips after `tooltip-short-delay' if changing tip items
within this many seconds."
  :tag "Recent seconds"
  :type 'number
  :group 'tooltip)

  "A copy of the last mouse motion event seen.")


(defvar tooltip-hide-time nil
  "Time when the last tooltip was hidden.")


(defvar tooltip-mode nil
  "Non-nil means tooltip mode is on.")


(defvar tooltip-gud-debugger nil
  "The debugger for which we show tooltips.")

    (sdb (concat expr "/"))
    (perldb expr)))
    

(defun tooltip-gud-tips (event)
  "Show tip for identifier or selection under the mouse.  The mouse
must either point at an identifier or inside a selected region for the
tip window to be shown.  If tooltip-gud-dereference is t, add a `*' in
front of the printed expression.

This function must return nil if it doesn't handle EVENT."
  (let (gud-buffer process)
    (when (and (eventp event)
	       tooltip-gud-tips-p


;;; Do this after all functions have been defined that are called
;;; from `tooltip-mode'.

(defcustom tooltip-active nil
  "*Non-nil means tooltips are active."
  :tag "Activate tooltips"
  :type 'boolean
  :set #'(lambda (symbol value)
	   (set-default symbol value)
	   (tooltip-mode (or value 0)))
  :require 'tooltip
  :group 'tooltip)


;;; tooltip.el ends here

25332:c09e05be2f4b

;;; tooltip.el --- Show tooltip windows

;; Copyright (C) 1997, 1999 Free Software Foundation, Inc.

;; Author: Gerd Moellmann <[e-mail]>
;; Keywords: help c mouse tools

;; This file is part of GNU Emacs.

  "Customization group for the `tooltip' package."
  :group 'help
  :group 'c
  :group 'mouse
  :group 'tools
  :version "21.1"
  :tag "Tool Tips")

(defvar tooltip-mode)

(defcustom tooltip-delay 1.0
  "Seconds to wait before displaying a tooltip the first time."
  :tag "Delay"
  :type 'number

  :type 'number
  :group 'tooltip)


(defcustom tooltip-recent-seconds 1
  "Display tooltips if changing tip items within this many seconds.
Do so after `tooltip-short-delay'."
  :tag "Recent seconds"
  :type 'number
  :group 'tooltip)

  "A copy of the last mouse motion event seen.")


(defvar tooltip-hide-time nil
  "Time when the last tooltip was hidden.")


(defvar tooltip-gud-debugger nil
  "The debugger for which we show tooltips.")

    (sdb (concat expr "/"))
    (perldb expr)))
    

(defun tooltip-gud-tips (event)
  "Show tip for identifier or selection under the mouse.
The mouse must either point at an identifier or inside a selected
region for the tip window to be shown.  If tooltip-gud-dereference is t,
add a `*' in front of the printed expression.

This function must return nil if it doesn't handle EVENT."
  (let (gud-buffer process)
    (when (and (eventp event)
	       tooltip-gud-tips-p


;;; Do this after all functions have been defined that are called
;;; from `tooltip-mode'.


;;;###autoload
(defcustom tooltip-mode nil
  "Toggle tooltip-mode.
Setting this variable directly does not take effect;
use either \\[customize] or the function `tooltip-mode'."
  :set (lambda (symbol value)
	 (tooltip-mode (or value 0)))
  :initialize 'custom-initialize-default
  :type 'boolean
  :require 'tooltip
  :group 'tooltip)


;;; tooltip.el ends here