349 |
'gdb-mouse-set-clear-breakpoint) |
'gdb-mouse-set-clear-breakpoint) |
350 |
(define-key gud-minor-mode-map [left-fringe mouse-1] |
(define-key gud-minor-mode-map [left-fringe mouse-1] |
351 |
'gdb-mouse-set-clear-breakpoint) |
'gdb-mouse-set-clear-breakpoint) |
352 |
|
(define-key gud-minor-mode-map [left-fringe mouse-2] |
353 |
|
'gdb-mouse-until) |
354 |
|
(define-key gud-minor-mode-map [left-fringe drag-mouse-1] |
355 |
|
'gdb-mouse-until) |
356 |
(define-key gud-minor-mode-map [left-margin mouse-3] |
(define-key gud-minor-mode-map [left-margin mouse-3] |
357 |
'gdb-mouse-toggle-breakpoint-margin) |
'gdb-mouse-toggle-breakpoint-margin) |
358 |
(define-key gud-minor-mode-map [left-fringe mouse-3] |
(define-key gud-minor-mode-map [left-fringe mouse-3] |
400 |
(gdb-set-gud-minor-mode-existing-buffers) |
(gdb-set-gud-minor-mode-existing-buffers) |
401 |
(run-hooks 'gdba-mode-hook)) |
(run-hooks 'gdba-mode-hook)) |
402 |
|
|
403 |
|
(defun gdb-mouse-until (event) |
404 |
|
"Execute source lines by dragging the overlay arrow (fringe) with the mouse." |
405 |
|
(interactive "e") |
406 |
|
(if gud-overlay-arrow-position |
407 |
|
(let ((start (event-start event)) |
408 |
|
(end (event-end event)) |
409 |
|
(buffer (marker-buffer gud-overlay-arrow-position)) (line)) |
410 |
|
(if (equal buffer (window-buffer (posn-window end))) |
411 |
|
(with-current-buffer buffer |
412 |
|
(when (or (equal start end) |
413 |
|
(equal (posn-point start) |
414 |
|
(marker-position gud-overlay-arrow-position))) |
415 |
|
(setq line (line-number-at-pos (posn-point end))) |
416 |
|
(gud-call (concat "until " (number-to-string line))))))))) |
417 |
|
|
418 |
(defcustom gdb-use-colon-colon-notation nil |
(defcustom gdb-use-colon-colon-notation nil |
419 |
"If non-nil use FUN::VAR format to display variables in the speedbar." |
"If non-nil use FUN::VAR format to display variables in the speedbar." |
420 |
:type 'boolean |
:type 'boolean |