comparison lisp/progmodes/gud.el @ 67890:a6271fd07ee3

(gud-tooltip-dereference): Rename from toggle-gud-tooltip-dereference. (gud-tooltip-print-command): Move concatenation of "*" to expr to... (gud-tooltip-tips): ...here when dereferencing.

67889:7ee3fee734b9

(defvar gud-tooltip-event nil
  "The mouse movement event that led to a tooltip display.
This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")

(defun toggle-gud-tooltip-dereference ()
  "Toggle whether tooltips should show `* expr' or `expr'."
  (interactive)
  (setq gud-tooltip-dereference (not gud-tooltip-dereference))
  (when (interactive-p)
    (message "Dereferencing is now %s."
	     (if gud-tooltip-dereference "on" "off"))))

(define-obsolete-function-alias 'tooltip-gud-toggle-dereference
                                'toggle-gud-tooltip-dereference "22.1")

; This will only display data that comes in one chunk.
; Larger arrays (say 400 elements) are displayed in
; the tooltip incompletely and spill over into the gud buffer.
; Switching the process-filter creates timing problems and

  (set-process-filter process gud-tooltip-original-filter)
  (tooltip-show (tooltip-strip-prompt process output)
		(or gud-tooltip-echo-area tooltip-use-echo-area)))

(defun gud-tooltip-print-command (expr)
  "Return a suitable command to print the expression EXPR.
If GUD-TOOLTIP-DEREFERENCE is t, also prepend a `*' to EXPR."
  (when gud-tooltip-dereference
    (setq expr (concat "*" expr)))
  (case gud-minor-mode
	(gdba (concat "server print " expr))
	((dbx gdbmi) (concat "print " expr))
	(xdb (concat "p " expr))
	(sdb (concat expr "/"))

		    (unless (null define-elt)
		      (tooltip-show
		       (cdr define-elt)
		       (or gud-tooltip-echo-area tooltip-use-echo-area))
		      expr))))
	    (let ((cmd (gud-tooltip-print-command expr)))
	      (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))
		(gud-tooltip-mode -1)
		(message-box "Using GUD tooltips in this mode is unsafe\n\
so they have been disabled."))

67890:a6271fd07ee3

(defvar gud-tooltip-event nil
  "The mouse movement event that led to a tooltip display.
This event can be examined by forms in GUD-TOOLTIP-DISPLAY.")

(defun gud-tooltip-dereference ()
  "Toggle whether tooltips should show `* expr' or `expr'.
With arg, dereference expr iff arg is positive."
 (interactive "P")
  (setq gud-tooltip-dereference
	(if (null arg)
	    (not gud-tooltip-dereference)
	  (> (prefix-numeric-value arg) 0)))
  (message "Dereferencing is now %s."
	   (if gud-tooltip-dereference "on" "off")))

(define-obsolete-function-alias 'tooltip-gud-toggle-dereference
                                'gud-tooltip-dereference "22.1")

; This will only display data that comes in one chunk.
; Larger arrays (say 400 elements) are displayed in
; the tooltip incompletely and spill over into the gud buffer.
; Switching the process-filter creates timing problems and

  (set-process-filter process gud-tooltip-original-filter)
  (tooltip-show (tooltip-strip-prompt process output)
		(or gud-tooltip-echo-area tooltip-use-echo-area)))

(defun gud-tooltip-print-command (expr)
  "Return a suitable command to print the expression EXPR."
  (case gud-minor-mode
	(gdba (concat "server print " expr))
	((dbx gdbmi) (concat "print " expr))
	(xdb (concat "p " expr))
	(sdb (concat expr "/"))

		    (unless (null define-elt)
		      (tooltip-show
		       (cdr define-elt)
		       (or gud-tooltip-echo-area tooltip-use-echo-area))
		      expr))))
	    (when gud-tooltip-dereference
	      (setq expr (concat "*" expr)))
	    (let ((cmd (gud-tooltip-print-command expr)))
	      (when (and gud-tooltip-mode (eq gud-minor-mode 'gdb))
		(gud-tooltip-mode -1)
		(message-box "Using GUD tooltips in this mode is unsafe\n\
so they have been disabled."))