Mercurial > emacs

comparison lisp/progmodes/gud.el @ 54902:0895b563f562

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gud-menu-map, gud-tool-bar-map): Add help button.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 15 Apr 2004 20:04:38 +0000
parents 96ee39f37385
children d5f4f3846c40
comparison
equal deleted inserted replaced
54901:fa4feb8b3c34 54902:0895b563f562
90 (defvar gud-running nil 90 (defvar gud-running nil
91 "Non-nil if debuggee is running. 91 "Non-nil if debuggee is running.
92 Used to grey out relevant toolbar icons.") 92 Used to grey out relevant toolbar icons.")
93 93
94 (easy-mmode-defmap gud-menu-map 94 (easy-mmode-defmap gud-menu-map
95 '(([refresh] "Refresh" . gud-refresh) 95 '(([help] menu-item "Help" gdb-goto-info
96 :enable (eq gud-minor-mode 'gdba))
97 ([refresh] "Refresh" . gud-refresh)
96 ([run] menu-item "Run" gud-run 98 ([run] menu-item "Run" gud-run
97 :enable (and (not gud-running) 99 :enable (and (not gud-running)
98 (memq gud-minor-mode '(gdba gdb dbx jdb)))) 100 (memq gud-minor-mode '(gdba gdb dbx jdb))))
99 ([until] menu-item "Continue to selection" gud-until 101 ([until] menu-item "Continue to selection" gud-until
100 :enable (and (not gud-running) 102 :enable (and (not gud-running)
114 (memq gud-minor-mode 116 (memq gud-minor-mode
115 '(gdba gdb dbx xdb jdb pdb bashdb)))) 117 '(gdba gdb dbx xdb jdb pdb bashdb))))
116 ([print] menu-item "Print Expression" gud-print 118 ([print] menu-item "Print Expression" gud-print
117 :enable (not gud-running)) 119 :enable (not gud-running))
118 ([watch] menu-item "Watch Expression" gud-watch 120 ([watch] menu-item "Watch Expression" gud-watch
119 :enable (and (not gud-running) 121 :enable (and (not gud-running) (eq gud-minor-mode 'gdba)))
120 (eq gud-minor-mode 'gdba)))
121 ([finish] menu-item "Finish Function" gud-finish 122 ([finish] menu-item "Finish Function" gud-finish
122 :enable (and (not gud-running) 123 :enable (and (not gud-running)
123 (memq gud-minor-mode 124 (memq gud-minor-mode
124 '(gdba gdb xdb jdb pdb bashdb)))) 125 '(gdba gdb xdb jdb pdb bashdb))))
125 ([stepi] menu-item "Step Instruction" gud-stepi 126 ([stepi] menu-item "Step Instruction" gud-stepi
126 :enable (and (not gud-running) 127 :enable (and (not gud-running)
127 (memq gud-minor-mode 128 (memq gud-minor-mode '(gdba gdb dbx))))
128 '(gdba gdb dbx))))
129 ([nexti] menu-item "Next Instruction" gud-nexti 129 ([nexti] menu-item "Next Instruction" gud-nexti
130 :enable (and (not gud-running) 130 :enable (and (not gud-running)
131 (memq gud-minor-mode 131 (memq gud-minor-mode '(gdba gdb dbx))))
132 '(gdba gdb dbx))))
133 ([step] menu-item "Step Line" gud-step 132 ([step] menu-item "Step Line" gud-step
134 :enable (not gud-running)) 133 :enable (not gud-running))
135 ([next] menu-item "Next Line" gud-next 134 ([next] menu-item "Next Line" gud-next
136 :enable (not gud-running)) 135 :enable (not gud-running))
137 ([cont] menu-item "Continue" gud-cont 136 ([cont] menu-item "Continue" gud-cont
169 (gud-next . "gud-n") 168 (gud-next . "gud-n")
170 (gud-finish . "gud-finish") 169 (gud-finish . "gud-finish")
171 (gud-stepi . "gud-si") 170 (gud-stepi . "gud-si")
172 (gud-nexti . "gud-ni") 171 (gud-nexti . "gud-ni")
173 (gud-up . "gud-up") 172 (gud-up . "gud-up")
174 (gud-down . "gud-down")) 173 (gud-down . "gud-down")
174 (gdb-goto-info . "help"))
175 map) 175 map)
176 (tool-bar-local-item-from-menu 176 (tool-bar-local-item-from-menu
177 (car x) (cdr x) map gud-minor-mode-map))))) 177 (car x) (cdr x) map gud-minor-mode-map)))))
178 178
179 (defun gud-file-name (f) 179 (defun gud-file-name (f)