Lines Matching +defs:fringe +defs:mode
29 ;; This mode acts as a graphical user interface to GDB. You can interact with
34 ;; Emacs 21 such as the fringe/display margin for breakpoints, and the toolbar
42 ;; You don't need to know about annotations to use this mode as a debugger,
43 ;; but if you are interested developing the mode itself, see the Annotations
54 ;; This mode SHOULD WORK WITH GDB 5.0 or later but you will NEED AT LEAST
133 (defvar gdb-buffer-fringe-width nil)
168 gdb mode sends to gdb on its own behalf.
204 "Font lock keywords used in `gdb-local-mode'.")
213 "Font lock keywords used in `gdb-local-mode'.")
245 detailed description of this mode.
257 | | (comint-mode) |
301 GDB, when gud-tooltip-mode is t.
338 (defun gdb-force-mode-line-update (status)
342 (setq mode-line-process
345 ;; Force mode line redisplay soon.
346 (force-mode-line-update)))))
427 (defun gdb-set-gud-minor-mode-existing-buffers ()
439 (set (make-local-variable 'gud-minor-mode) 'gdba)
441 (when gud-tooltip-mode
445 (gdb-force-mode-line-update
466 (set (make-local-variable 'gud-minor-mode) 'gdba)
469 (gud-def gud-break (if (not (string-match "Machine" mode-name))
477 (gud-def gud-remove (if (not (string-match "Machine" mode-name))
485 (gud-def gud-until (if (not (string-match "Machine" mode-name))
501 'major-mode (window-buffer)) 'speedbar-mode)
505 (define-key gud-minor-mode-map [left-margin mouse-1]
507 (define-key gud-minor-mode-map [left-fringe mouse-1]
509 (define-key gud-minor-mode-map [left-margin C-mouse-1]
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]
516 (define-key gud-minor-mode-map [left-fringe drag-mouse-1]
518 (define-key gud-minor-mode-map [left-margin mouse-3]
520 (define-key gud-minor-mode-map [left-fringe mouse-3]
523 (define-key gud-minor-mode-map [left-margin C-drag-mouse-1]
525 (define-key gud-minor-mode-map [left-fringe C-drag-mouse-1]
527 (define-key gud-minor-mode-map [left-fringe C-mouse-3]
529 (define-key gud-minor-mode-map [left-margin C-mouse-3]
556 gdb-buffer-fringe-width (car (window-fringes))
584 'gdb-set-gud-minor-mode-existing-buffers))
592 'gdb-set-gud-minor-mode-existing-buffers-1))
600 (run-hooks 'gdba-mode-hook))
622 with mouse-3 on the fringe/margin or dragging the arrow
639 on the fringe/margin or dragging the arrow with C-mouse-1 (default bindings).
682 (define-key gud-minor-mode-map "\C-c\C-w" 'gud-watch)
689 (let ((minor-mode (buffer-local-value 'gud-minor-mode gud-comint-buffer)))
690 (if (memq minor-mode '(gdbmi gdba))
699 (if (and transient-mark-mode mark-active)
706 (if (eq minor-mode 'gdba)
711 (message "gud-watch is a no-op in this mode."))))
736 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
841 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
854 (if (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
866 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
877 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
917 'gud-minor-mode gud-comint-buffer) 'gdba)
970 (set (make-local-variable 'gud-minor-mode)
971 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
997 ;; the proper mode for the buffer.
1025 'gdb-inferior-io-mode)
1054 (defvar gdb-inferior-io-mode-map
1063 (define-derived-mode gdb-inferior-io-mode comint-mode "Inferior I/O"
1064 "Major mode for gdb inferior-io."
1165 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
1175 ;; case: eq gud-minor-mode 'gdbmi
1229 (gdb-force-mode-line-update
1270 (gdb-force-mode-line-update
1310 (gdb-force-mode-line-update
1325 (gdb-force-mode-line-update
1354 (gdb-force-mode-line-update
1422 (gdb-force-mode-line-update
1687 'gdb-breakpoints-mode)
1765 ;; Bitmap for breakpoint in fringe
1766 (define-fringe-bitmap 'breakpoint
1768 ;; Bitmap for gud-overlay-arrow in fringe
1769 (define-fringe-bitmap 'hollow-right-triangle
1776 "Face for enabled breakpoint icon in fringe."
1789 "Face for disabled breakpoint icon in fringe."
1801 (if (and (memq gud-minor-mode '(gdba gdbmi))
1838 (set (make-local-variable 'gud-minor-mode)
1872 "Set/clear breakpoint in left fringe/margin with mouse click."
1881 (eq (car (fringe-bitmaps-at-pos (posn-point posn)))
1908 (defun gdb-mouse-toggle-breakpoint-fringe (event)
1909 "Enable/disable breakpoint in left fringe with mouse click."
1950 (defvar gdb-breakpoints-mode-map
1974 (defun gdb-breakpoints-mode ()
1975 "Major mode for gdb breakpoints.
1977 \\{gdb-breakpoints-mode-map}"
1979 (setq major-mode 'gdb-breakpoints-mode)
1980 (setq mode-name "Breakpoints")
1981 (use-local-map gdb-breakpoints-mode-map)
1983 (run-mode-hooks 'gdb-breakpoints-mode-hook)
1984 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
2050 'gdb-frames-mode)
2123 (setq fringe-indicator-alist
2143 (defvar gdb-frames-mode-map
2152 (defun gdb-frames-mode ()
2153 "Major mode for gdb call stack.
2155 \\{gdb-frames-mode-map}"
2157 (setq major-mode 'gdb-frames-mode)
2158 (setq mode-name "Frames")
2163 (use-local-map gdb-frames-mode-map)
2164 (run-mode-hooks 'gdb-frames-mode-hook)
2165 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
2196 'gdb-threads-mode)
2233 (defvar gdb-threads-mode-map
2246 "Font lock keywords used in `gdb-threads-mode'.")
2248 (defun gdb-threads-mode ()
2249 "Major mode for gdb threads.
2251 \\{gdb-threads-mode-map}"
2253 (setq major-mode 'gdb-threads-mode)
2254 (setq mode-name "Threads")
2256 (use-local-map gdb-threads-mode-map)
2259 (run-mode-hooks 'gdb-threads-mode-hook)
2288 'gdb-registers-mode)
2326 (defvar gdb-registers-mode-map
2335 (defun gdb-registers-mode ()
2336 "Major mode for gdb registers.
2338 \\{gdb-registers-mode-map}"
2340 (setq major-mode 'gdb-registers-mode)
2341 (setq mode-name "Registers")
2343 (use-local-map gdb-registers-mode-map)
2344 (run-mode-hooks 'gdb-registers-mode-hook)
2347 (if gdb-all-registers (setq mode-name "Registers:All"))
2376 (setq mode-name "Registers")))
2379 (setq mode-name "Registers:All")))
2415 'gdb-memory-mode)
2430 (defvar gdb-memory-mode-map
2584 ;;from make-mode-line-mouse-map
2588 corresponding to the mode line clicked."
2598 "Font lock keywords used in `gdb-memory-mode'.")
2600 (defun gdb-memory-mode ()
2601 "Major mode for examining memory.
2603 \\{gdb-memory-mode-map}"
2605 (setq major-mode 'gdb-memory-mode)
2606 (setq mode-name "Memory")
2608 (use-local-map gdb-memory-mode-map)
2617 'mouse-face 'mode-line-highlight
2637 'mouse-face 'mode-line-highlight
2647 'mouse-face 'mode-line-highlight
2655 'mouse-face 'mode-line-highlight
2663 'mouse-face 'mode-line-highlight
2669 'mouse-face 'mode-line-highlight
2673 (run-mode-hooks 'gdb-memory-mode-hook)
2691 (cons '(left-fringe . 0)
2692 (cons '(right-fringe . 0)
2702 'gdb-locals-mode)
2765 (defvar gdb-locals-mode-map
2771 (defun gdb-locals-mode ()
2772 "Major mode for gdb locals.
2774 \\{gdb-locals-mode-map}"
2776 (setq major-mode 'gdb-locals-mode)
2777 (setq mode-name (concat "Locals:" gdb-selected-frame))
2779 (use-local-map gdb-locals-mode-map)
2782 (run-mode-hooks 'gdb-locals-mode-hook)
2783 (if (and (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
2839 :visible (memq gud-minor-mode '(gdbmi gdba))))
2857 :visible (memq gud-minor-mode '(gdbmi gdba))))
2873 `(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI")
2874 ,menu :visible (memq gud-minor-mode '(gdbmi gdba))))
2877 :visible (eq gud-minor-mode 'gdba)
2882 :visible (eq gud-minor-mode 'gdba)
2973 (if (memq gud-minor-mode '(gdbmi gdba))
2977 (setq gud-minor-mode nil)
2983 (setq fringe-indicator-alist '((overlay-arrow . right-triangle)))
3028 (set (make-local-variable 'gud-minor-mode) 'gdba)
3043 (memq (buffer-local-value 'gud-minor-mode gud-comint-buffer)
3051 (set (make-local-variable 'gud-minor-mode)
3052 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
3099 (if (>= (or left-fringe-width
3101 gdb-buffer-fringe-width) 8)
3104 `(left-fringe breakpoint
3169 'gdb-assembler-mode)
3203 (setq fringe-indicator-alist
3232 (defvar gdb-assembler-mode-map
3251 "Font lock keywords used in `gdb-assembler-mode'.")
3253 (defun gdb-assembler-mode ()
3254 "Major mode for viewing code assembler.
3256 \\{gdb-assembler-mode-map}"
3258 (setq major-mode 'gdb-assembler-mode)
3259 (setq mode-name (concat "Machine:" gdb-selected-frame))
3264 (use-local-map gdb-assembler-mode-map)
3268 (run-mode-hooks 'gdb-assembler-mode-hook)
3342 (setq mode-name (concat "Locals:" gdb-selected-frame))))
3345 (setq mode-name (concat "Machine:" gdb-selected-frame))))
3354 (setq fringe-indicator-alist
3369 (defun gdb-set-gud-minor-mode-existing-buffers-1 ()
3371 If buffers already exist for any of these files, gud-minor-mode
3379 (set (make-local-variable 'gud-minor-mode)
3380 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
3382 (when gud-tooltip-mode
3386 (gdb-force-mode-line-update
3393 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3432 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3467 'gdb-registers-mode)
3471 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3540 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
3563 'gdb-locals-mode)
3567 (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)