/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by nickrob, Tue Feb 1 20:11:09 2005 UTC revision 1.44 by nickrob, Sat Feb 5 05:31:36 2005 UTC
# Line 4  Line 4 
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    
# Line 1890  corresponding to the mode line clicked." Line 1890  corresponding to the mode line clicked."
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)))
# Line 1914  corresponding to the mode line clicked." Line 1902  corresponding to the mode line clicked."
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."

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26