Lines Matching +refs:set +refs:mouse +refs:color
427 (defun gdb-set-gud-minor-mode-existing-buffers ()
439 (set (make-local-variable 'gud-minor-mode) 'gdba)
440 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
466 (set (make-local-variable 'gud-minor-mode) 'gdba)
467 (set (make-local-variable 'gud-marker-filter) 'gud-gdba-marker-filter)
505 (define-key gud-minor-mode-map [left-margin mouse-1]
506 'gdb-mouse-set-clear-breakpoint)
507 (define-key gud-minor-mode-map [left-fringe mouse-1]
508 'gdb-mouse-set-clear-breakpoint)
509 (define-key gud-minor-mode-map [left-margin C-mouse-1]
510 'gdb-mouse-toggle-breakpoint-margin)
511 (define-key gud-minor-mode-map [left-fringe C-mouse-1]
512 'gdb-mouse-toggle-breakpoint-fringe)
514 (define-key gud-minor-mode-map [left-margin drag-mouse-1]
515 'gdb-mouse-until)
516 (define-key gud-minor-mode-map [left-fringe drag-mouse-1]
517 'gdb-mouse-until)
518 (define-key gud-minor-mode-map [left-margin mouse-3]
519 'gdb-mouse-until)
520 (define-key gud-minor-mode-map [left-fringe mouse-3]
521 'gdb-mouse-until)
523 (define-key gud-minor-mode-map [left-margin C-drag-mouse-1]
524 'gdb-mouse-jump)
525 (define-key gud-minor-mode-map [left-fringe C-drag-mouse-1]
526 'gdb-mouse-jump)
527 (define-key gud-minor-mode-map [left-fringe C-mouse-3]
528 'gdb-mouse-jump)
529 (define-key gud-minor-mode-map [left-margin C-mouse-3]
530 'gdb-mouse-jump)
577 (gdb-enqueue-input (list "set new-console off\n" 'ignore)))
578 (gdb-enqueue-input (list "set height 0\n" 'ignore))
579 (gdb-enqueue-input (list "set width 0\n" 'ignore))
584 'gdb-set-gud-minor-mode-existing-buffers))
592 'gdb-set-gud-minor-mode-existing-buffers-1))
619 (defun gdb-mouse-until (event)
622 with mouse-3 on the fringe/margin or dragging the arrow
623 with mouse-1 (default bindings)."
636 (defun gdb-mouse-jump (event)
638 The destination source line can be selected either by clicking with C-mouse-3
639 on the fringe/margin or dragging the arrow with C-mouse-1 (default bindings).
640 Unlike gdb-mouse-until the destination address can be before the current
692 (if event (posn-set-point (event-end event)))
703 (set-text-properties 0 (length expr) nil expr)
948 ;; named according to the rules set forth in the gdb-buffer-rules-assoc
970 (set (make-local-variable 'gud-minor-mode)
972 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
981 (set-buffer (car bufs))
1000 (defun gdb-set-buffer-rules (buffer-type &rest rules)
1008 (gdb-set-buffer-rules 'gdba 'error)
1013 (gdb-set-buffer-rules 'gdb-partial-output-buffer
1023 (gdb-set-buffer-rules 'gdb-inferior-io
1374 (defcustom gdb-same-frame focus-follows-mouse
1399 It is just like `gdb-stopping', except that if we already set the output
1491 (point-min) (point-max) '(mouse-face nil help-echo nil))))))))
1506 (set-window-buffer source-window buffer))
1663 (set-window-start window start)
1664 (set-window-point window p)))))
1685 (gdb-set-buffer-rules 'gdb-breakpoints-buffer
1780 '((((class color) (min-colors 88)) :foreground "grey70")
1781 ;; Ensure that on low-color displays that we end up something visible.
1782 (((class color) (min-colors 8) (background light))
1784 (((class color) (min-colors 8) (background dark))
1795 ;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
1830 '(mouse-face highlight
1831 help-echo "mouse-2, RET: visit breakpoint"))
1838 (set (make-local-variable 'gud-minor-mode)
1840 (set (make-local-variable 'tool-bar-map)
1871 (defun gdb-mouse-set-clear-breakpoint (event)
1872 "Set/clear breakpoint in left fringe/margin with mouse click."
1874 (mouse-minibuffer-check event)
1886 (defun gdb-mouse-toggle-breakpoint-margin (event)
1887 "Enable/disable breakpoint in left margin with mouse click."
1889 (mouse-minibuffer-check event)
1908 (defun gdb-mouse-toggle-breakpoint-fringe (event)
1909 "Enable/disable breakpoint in left fringe with mouse click."
1911 (mouse-minibuffer-check event)
1918 (set-buffer (window-buffer (selected-window)))
1964 (define-key map [mouse-2] 'gdb-goto-breakpoint)
1965 (define-key map [follow-link] 'mouse-face)
2016 (if event (posn-set-point (event-end event)))
2032 (set-window-point window (point))))))
2048 (gdb-set-buffer-rules 'gdb-stack-buffer
2070 '(mouse-face highlight
2071 help-echo "mouse-2, RET: Select frame")))
2079 (set-marker gdb-stack-position (point)))
2100 '(mouse-face highlight
2103 "mouse-2, RET: customize gdb-max-frames to see more frames")))))
2113 (match-string 1) "\n") 'gdb-set-hollow))
2120 (defun gdb-set-hollow ()
2148 (define-key map [mouse-2] 'gdb-frames-select)
2149 (define-key map [follow-link] 'mouse-face)
2180 (if event (posn-set-point (event-end event)))
2194 (gdb-set-buffer-rules 'gdb-threads-buffer
2212 '(mouse-face highlight
2213 help-echo "mouse-2, RET: select thread")))
2238 (define-key map [mouse-2] 'gdb-threads-select)
2239 (define-key map [follow-link] 'mouse-face)
2257 (set (make-local-variable 'font-lock-defaults)
2270 (if event (posn-set-point (event-end event)))
2286 (gdb-set-buffer-rules 'gdb-registers-buffer
2311 '(help-echo "mouse-2: edit value"
2312 mouse-face highlight))))
2318 (if event (posn-set-point (event-end event)))
2323 (list (concat gdb-server-prefix "set $" register "=" value "\n")
2330 (define-key map [mouse-2] 'gdb-edit-register-value)
2413 (gdb-set-buffer-rules 'gdb-memory-buffer
2436 (defun gdb-memory-set-address (event)
2445 (defun gdb-memory-set-repeat-count (event)
2454 (customize-set-variable 'gdb-memory-repeat-count count)
2460 (customize-set-variable 'gdb-memory-format "t")
2466 (customize-set-variable 'gdb-memory-format "o")
2472 (customize-set-variable 'gdb-memory-format "u")
2478 (customize-set-variable 'gdb-memory-format "d")
2484 (customize-set-variable 'gdb-memory-format "x")
2489 (define-key map [header-line down-mouse-3] 'gdb-memory-format-menu-1)
2528 (customize-set-variable 'gdb-memory-unit "g")
2534 (customize-set-variable 'gdb-memory-unit "w")
2540 (customize-set-variable 'gdb-memory-unit "h")
2546 (customize-set-variable 'gdb-memory-unit "b")
2551 (define-key map [header-line down-mouse-3] 'gdb-memory-unit-menu-1)
2584 ;;from make-mode-line-mouse-map
2585 (defun gdb-make-header-line-mouse-map (mouse function) "\
2586 Return a keymap with single entry for mouse key MOUSE on the header line.
2590 (define-key map (vector 'header-line mouse) function)
2591 (define-key map (vector 'header-line 'down-mouse-1) 'ignore)
2616 'help-echo "mouse-1: decrement address"
2617 'mouse-face 'mode-line-highlight
2619 (gdb-make-header-line-mouse-map
2620 'mouse-1
2636 'help-echo "mouse-1: increment address"
2637 'mouse-face 'mode-line-highlight
2638 'local-map (gdb-make-header-line-mouse-map
2639 'mouse-1
2646 'help-echo "mouse-1: set memory address"
2647 'mouse-face 'mode-line-highlight
2648 'local-map (gdb-make-header-line-mouse-map
2649 'mouse-1
2650 #'gdb-memory-set-address))
2654 'help-echo "mouse-1: set repeat count"
2655 'mouse-face 'mode-line-highlight
2656 'local-map (gdb-make-header-line-mouse-map
2657 'mouse-1
2658 #'gdb-memory-set-repeat-count))
2662 'help-echo "mouse-3: select display format"
2663 'mouse-face 'mode-line-highlight
2668 'help-echo "mouse-3: select unit size"
2669 'mouse-face 'mode-line-highlight
2671 (set (make-local-variable 'font-lock-defaults)
2700 (gdb-set-buffer-rules 'gdb-locals-buffer
2715 (define-key map [mouse-2] (lambda (event) (interactive "e")
2716 (mouse-set-point event)
2724 'mouse-face 'highlight
2725 'help-echo "mouse-2: create watch expression"
2730 'mouse-face 'highlight
2731 'help-echo "mouse-2: create watch expression"
2760 (set-window-start window start)
2761 (set-window-point window p))
2780 (set (make-local-variable 'font-lock-defaults)
2820 (set-window-buffer window buf)
2828 (set-window-buffer answer buf)
2829 (set-window-dedicated-p answer dedicated)))
2909 (defun gdb-set-window-buffer (name)
2910 (set-window-buffer (selected-window) (get-buffer name))
2911 (set-window-dedicated-p (selected-window) t))
2926 (gdb-set-window-buffer (gdb-locals-buffer-name))
2940 (gdb-set-window-buffer
2943 (gdb-set-window-buffer (gdb-stack-buffer-name))
2946 (gdb-set-window-buffer (gdb-breakpoints-buffer-name))
3028 (set (make-local-variable 'gud-minor-mode) 'gdba)
3029 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map))
3051 (set (make-local-variable 'gud-minor-mode)
3053 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)))))
3090 0 1 '(help-echo "mouse-1: clear bkpt, mouse-3: enable/disable bkpt")
3114 (set-window-margins
3144 (set-window-margins
3159 (set-window-margins
3167 (gdb-set-buffer-rules 'gdb-assembler-buffer
3186 (set-window-point window p)))))
3209 (set-marker gdb-overlay-arrow-position (point))))))
3230 (set-window-point (get-buffer-window buffer 0) pos)))))
3266 (set (make-local-variable 'font-lock-defaults)
3358 (set-marker gud-overlay-arrow-position position))))))
3369 (defun gdb-set-gud-minor-mode-existing-buffers-1 ()
3372 is set in them."
3379 (set (make-local-variable 'gud-minor-mode)
3381 (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
3465 (gdb-set-buffer-rules 'gdb-registers-buffer
3511 (set-window-start window start)
3512 (set-window-point window p))))))
3529 '(help-echo "mouse-2: edit value"
3530 mouse-face highlight))))
3561 (gdb-set-buffer-rules 'gdb-locals-buffer
3579 (define-key map [mouse-2] 'gud-watch)
3587 (define-key map [mouse-2] 'gdb-edit-locals-value)
3595 (if event (posn-set-point (event-end event)))
3600 (list (concat gdb-server-prefix"set variable " var " = " value "\n")
3638 `(mouse-face highlight
3639 help-echo "mouse-2: create watch expression"
3643 `(mouse-face highlight
3644 help-echo "mouse-2: edit value"
3650 (set-window-start window start)
3651 (set-window-point window p))))))))