/[emacs]/emacs/lisp/progmodes/gud.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gud.el

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

revision 1.72 by kfstorm, Tue Nov 15 22:55:48 2005 UTC revision 1.73 by nickrob, Wed Nov 16 00:55:52 2005 UTC
# Line 127  Used to grey out relevant togolbar icons Line 127  Used to grey out relevant togolbar icons
127             (and (memq gud-minor-mode '(gdbmi gdba))             (and (memq gud-minor-mode '(gdbmi gdba))
128                  (> (car (window-fringes)) 0)))))                  (> (car (window-fringes)) 0)))))
129    
130    (defun gud-stop-subjob ()
131      (interactive)
132      (if (string-equal
133           (buffer-local-value 'gud-target-name gud-comint-buffer) "emacs")
134          (comint-stop-subjob)
135        (comint-interrupt-subjob)))
136    
137  (easy-mmode-defmap gud-menu-map  (easy-mmode-defmap gud-menu-map
138    '(([help]     "Info" . gud-goto-info)    '(([help]     "Info" . gud-goto-info)
139      ([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode      ([tooltips] menu-item "Toggle GUD tooltips" gud-tooltip-mode
# Line 142  Used to grey out relevant togolbar icons Line 149  Used to grey out relevant togolbar icons
149      ([go]       menu-item "Run/Continue" gud-go      ([go]       menu-item "Run/Continue" gud-go
150                    :visible (and (not gud-running)                    :visible (and (not gud-running)
151                                  (eq gud-minor-mode 'gdba)))                                  (eq gud-minor-mode 'gdba)))
152      ([stop]     menu-item "Stop" comint-stop-subjob      ([stop]     menu-item "Stop" gud-stop-subjob
153                    :visible (or (not (eq gud-minor-mode 'gdba))                    :visible (or (not (eq gud-minor-mode 'gdba))
154                                 (and gud-running                                 (and gud-running
155                                      (eq gud-minor-mode 'gdba))))                                      (eq gud-minor-mode 'gdba))))
# Line 168  Used to grey out relevant togolbar icons Line 175  Used to grey out relevant togolbar icons
175                                 (memq gud-minor-mode                                 (memq gud-minor-mode
176                                       '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))                                       '(gdbmi gdba gdb dbx xdb jdb pdb bashdb))))
177      ([pp]       menu-item "Print the emacs s-expression" gud-pp      ([pp]       menu-item "Print the emacs s-expression" gud-pp
178                       :enable (and (not gud-running)                    :enable (and (not gud-running)
179                                    gdb-active-process)                                    gdb-active-process)
180                       :visible (and (string-equal                    :visible (and (string-equal
181                                    (buffer-local-value                                   (buffer-local-value
182                                     'gud-target-name gud-comint-buffer) "emacs")                                    'gud-target-name gud-comint-buffer) "emacs")
183                                     (eq gud-minor-mode 'gdba)))                                  (eq gud-minor-mode 'gdba)))
184      ([print*]   menu-item "Print Dereference" gud-pstar      ([print*]   menu-item "Print Dereference" gud-pstar
185                       :enable (and (not gud-running)                    :enable (and (not gud-running)
186                                    (memq gud-minor-mode '(gdbmi gdba gdb))))                                 (memq gud-minor-mode '(gdbmi gdba gdb))))
187      ([print]    menu-item "Print Expression" gud-print      ([print]    menu-item "Print Expression" gud-print
188                       :enable (not gud-running))                    :enable (not gud-running))
189      ([watch]    menu-item "Watch Expression" gud-watch      ([watch]    menu-item "Watch Expression" gud-watch
190                       :enable (and (not gud-running)                    :enable (and (not gud-running)
191                                    (memq gud-minor-mode '(gdbmi gdba))))                                 (memq gud-minor-mode
192      ([finish]   menu-item "Finish Function" gud-finish                                       '(gdbmi gdba gdb xdb jdb pdb bashdb))))
                      :enable (and (not gud-running)  
                                   (memq gud-minor-mode  
                                         '(gdbmi gdba gdb xdb jdb pdb bashdb))))  
193      ([stepi]    menu-item "Step Instruction" gud-stepi      ([stepi]    menu-item "Step Instruction" gud-stepi
194                       :enable (and (not gud-running)                    :enable (and (not gud-running)
195                                    (memq gud-minor-mode '(gdbmi gdba gdb dbx))))                                 (memq gud-minor-mode '(gdbmi gdba gdb dbx))))
196      ([nexti]    menu-item "Next Instruction" gud-nexti      ([nexti]    menu-item "Next Instruction" gud-nexti
197                       :enable (and (not gud-running)                    :enable (and (not gud-running)
198                                    (memq gud-minor-mode '(gdbmi gdba gdb dbx))))                                 (memq gud-minor-mode '(gdbmi gdba gdb dbx))))
199      ([step]     menu-item "Step Line" gud-step      ([step]     menu-item "Step Line" gud-step
200                       :enable (not gud-running))                    :enable (not gud-running))
201      ([next]     menu-item "Next Line" gud-next      ([next]     menu-item "Next Line" gud-next
202                       :enable (not gud-running))                    :enable (not gud-running))
203      ([cont]     menu-item "Continue" gud-cont      ([cont]     menu-item "Continue" gud-cont
204                       :enable (not gud-running)                    :enable (not gud-running)
205                       :visible (not (eq gud-minor-mode 'gdba))))                    :visible (not (eq gud-minor-mode 'gdba))))
206    "Menu for `gud-mode'."    "Menu for `gud-mode'."
207    :name "Gud")    :name "Gud")
208    
# Line 226  Used to grey out relevant togolbar icons Line 230  Used to grey out relevant togolbar icons
230                       (gud-watch . "gud/watch")                       (gud-watch . "gud/watch")
231                       (gud-run . "gud/run")                       (gud-run . "gud/run")
232                       (gud-go . "gud/go")                       (gud-go . "gud/go")
233                       (comint-stop-subjob . "gud/stop")                       (gud-stop-subjob . "gud/stop")
234                       ;; gud-s, gud-si etc. instead of gud-step,                       ;; gud-s, gud-si etc. instead of gud-step,
235                       ;; gud-stepi, to avoid file-name clashes on DOS                       ;; gud-stepi, to avoid file-name clashes on DOS
236                       ;; 8+3 filesystems.                       ;; 8+3 filesystems.

Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73

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