4 |
;; Maintainer: FSF |
;; Maintainer: FSF |
5 |
;; Keywords: unix, tools |
;; Keywords: unix, tools |
6 |
|
|
7 |
;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc. |
8 |
|
|
9 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
10 |
|
|
1890 |
|
|
1891 |
;;; Shared keymap initialization: |
;;; Shared keymap initialization: |
1892 |
|
|
|
(let ((menu (make-sparse-keymap "GDB-Frames"))) |
|
|
(define-key gud-menu-map [frames] |
|
|
`(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba))) |
|
|
(define-key menu [gdb] '("Gdb" . gdb-frame-gdb-buffer)) |
|
|
(define-key menu [threads] '("Threads" . gdb-frame-threads-buffer)) |
|
|
(define-key menu [memory] '("Memory" . gdb-frame-memory-buffer)) |
|
|
(define-key menu [assembler] '("Machine" . gdb-frame-assembler-buffer)) |
|
|
(define-key menu [registers] '("Registers" . gdb-frame-registers-buffer)) |
|
|
(define-key menu [locals] '("Locals" . gdb-frame-locals-buffer)) |
|
|
(define-key menu [frames] '("Stack" . gdb-frame-stack-buffer)) |
|
|
(define-key menu [breakpoints] '("Breakpoints" . gdb-frame-breakpoints-buffer))) |
|
|
|
|
1893 |
(let ((menu (make-sparse-keymap "GDB-Windows"))) |
(let ((menu (make-sparse-keymap "GDB-Windows"))) |
1894 |
(define-key gud-menu-map [displays] |
(define-key gud-menu-map [displays] |
1895 |
`(menu-item "GDB-Windows" ,menu :visible (eq gud-minor-mode 'gdba))) |
`(menu-item "GDB-Windows" ,menu :visible (eq gud-minor-mode 'gdba))) |
1902 |
(define-key menu [frames] '("Stack" . gdb-display-stack-buffer)) |
(define-key menu [frames] '("Stack" . gdb-display-stack-buffer)) |
1903 |
(define-key menu [breakpoints] '("Breakpoints" . gdb-display-breakpoints-buffer))) |
(define-key menu [breakpoints] '("Breakpoints" . gdb-display-breakpoints-buffer))) |
1904 |
|
|
1905 |
|
(let ((menu (make-sparse-keymap "GDB-Frames"))) |
1906 |
|
(define-key gud-menu-map [frames] |
1907 |
|
`(menu-item "GDB-Frames" ,menu :visible (eq gud-minor-mode 'gdba))) |
1908 |
|
(define-key menu [gdb] '("Gdb" . gdb-frame-gdb-buffer)) |
1909 |
|
(define-key menu [threads] '("Threads" . gdb-frame-threads-buffer)) |
1910 |
|
(define-key menu [memory] '("Memory" . gdb-frame-memory-buffer)) |
1911 |
|
(define-key menu [assembler] '("Machine" . gdb-frame-assembler-buffer)) |
1912 |
|
(define-key menu [registers] '("Registers" . gdb-frame-registers-buffer)) |
1913 |
|
(define-key menu [locals] '("Locals" . gdb-frame-locals-buffer)) |
1914 |
|
(define-key menu [frames] '("Stack" . gdb-frame-stack-buffer)) |
1915 |
|
(define-key menu [breakpoints] '("Breakpoints" . gdb-frame-breakpoints-buffer))) |
1916 |
|
|
1917 |
(let ((menu (make-sparse-keymap "GDB-UI"))) |
(let ((menu (make-sparse-keymap "GDB-UI"))) |
1918 |
(define-key gud-menu-map [ui] |
(define-key gud-menu-map [ui] |
1919 |
`(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba))) |
`(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba))) |
1920 |
(define-key menu [gdb-restore-windows] |
(define-key menu [gdb-restore-windows] |
1921 |
'("Restore window layout" . gdb-restore-windows)) |
'("Restore Window Layout" . gdb-restore-windows)) |
1922 |
(define-key menu [gdb-many-windows] |
(define-key menu [gdb-many-windows] |
1923 |
(menu-bar-make-toggle gdb-many-windows gdb-many-windows |
(menu-bar-make-toggle gdb-many-windows gdb-many-windows |
1924 |
"Display other windows" "Many Windows %s" |
"Display Other Windows" "Many windows %s" |
1925 |
"Display locals, stack and breakpoint information"))) |
"Toggle display of locals, stack and breakpoint information"))) |
1926 |
|
|
1927 |
(defun gdb-frame-gdb-buffer () |
(defun gdb-frame-gdb-buffer () |
1928 |
"Display GUD buffer in a new frame." |
"Display GUD buffer in a new frame." |