Mercurial > emacs
comparison lisp/progmodes/gud.el @ 54902:0895b563f562
(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) |