3139 |
'gud-tooltip-modes "22.1") |
'gud-tooltip-modes "22.1") |
3140 |
(define-obsolete-variable-alias 'tooltip-gud-display |
(define-obsolete-variable-alias 'tooltip-gud-display |
3141 |
'gud-tooltip-display "22.1") |
'gud-tooltip-display "22.1") |
|
(define-obsolete-variable-alias 'tooltip-use-echo-area |
|
|
'gud-tooltip-echo-area "22.1") |
|
3142 |
|
|
3143 |
;;; Reacting on mouse movements |
;;; Reacting on mouse movements |
3144 |
|
|
3240 |
|
|
3241 |
; This will only display data that comes in one chunk. |
; This will only display data that comes in one chunk. |
3242 |
; Larger arrays (say 400 elements) are displayed in |
; Larger arrays (say 400 elements) are displayed in |
3243 |
; the tootip incompletely and spill over into the gud buffer. |
; the tooltip incompletely and spill over into the gud buffer. |
3244 |
; Switching the process-filter creates timing problems and |
; Switching the process-filter creates timing problems and |
3245 |
; it may be difficult to do better. Using annotations as in |
; it may be difficult to do better. Using annotations as in |
3246 |
; gdb-ui.el gets round this problem. |
; gdb-ui.el gets round this problem. |
3248 |
"Process debugger output and show it in a tooltip window." |
"Process debugger output and show it in a tooltip window." |
3249 |
(set-process-filter process gud-tooltip-original-filter) |
(set-process-filter process gud-tooltip-original-filter) |
3250 |
(tooltip-show (tooltip-strip-prompt process output) |
(tooltip-show (tooltip-strip-prompt process output) |
3251 |
gud-tooltip-echo-area)) |
(or gud-tooltip-echo-area tooltip-use-echo-area))) |
3252 |
|
|
3253 |
(defun gud-tooltip-print-command (expr) |
(defun gud-tooltip-print-command (expr) |
3254 |
"Return a suitable command to print the expression EXPR. |
"Return a suitable command to print the expression EXPR. |
3293 |
(cddr mouse)))) |
(cddr mouse)))) |
3294 |
(let ((define-elt (assoc expr gdb-define-alist))) |
(let ((define-elt (assoc expr gdb-define-alist))) |
3295 |
(unless (null define-elt) |
(unless (null define-elt) |
3296 |
(tooltip-show (cdr define-elt)) |
(tooltip-show |
3297 |
|
(cdr define-elt) |
3298 |
|
(or gud-tooltip-echo-area tooltip-use-echo-area)) |
3299 |
expr)))) |
expr)))) |
3300 |
(let ((cmd (gud-tooltip-print-command expr))) |
(let ((cmd (gud-tooltip-print-command expr))) |
3301 |
(when (and gud-tooltip-mode (eq gud-minor-mode 'gdb)) |
(when (and gud-tooltip-mode (eq gud-minor-mode 'gdb)) |