5 |
;; Keywords: unix, tools |
;; Keywords: unix, tools |
6 |
|
|
7 |
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003, |
;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003, |
8 |
;; 2004, 2005 Free Software Foundation, Inc. |
;; 2004, 2005 Free Software Foundation, Inc. |
9 |
|
|
10 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
11 |
|
|
197 |
(defvar gud-tool-bar-map |
(defvar gud-tool-bar-map |
198 |
(if (display-graphic-p) |
(if (display-graphic-p) |
199 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
200 |
(dolist (x '((gud-break . "gud-break") |
(dolist (x '((gud-break . "gud/break") |
201 |
(gud-remove . "gud-remove") |
(gud-remove . "gud/remove") |
202 |
(gud-print . "gud-print") |
(gud-print . "gud/print") |
203 |
(gud-pstar . "gud-pstar") |
(gud-pstar . "gud/pstar") |
204 |
(gud-watch . "gud-watch") |
(gud-watch . "gud/watch") |
205 |
(gud-cont . "gud-cont") |
(gud-cont . "gud/cont") |
206 |
(gud-until . "gud-until") |
(gud-until . "gud/until") |
207 |
(gud-finish . "gud-finish") |
(gud-finish . "gud/finish") |
208 |
(gud-run . "gud-run") |
(gud-run . "gud/run") |
209 |
;; gud-s, gud-si etc. instead of gud-step, |
;; gud-s, gud-si etc. instead of gud-step, |
210 |
;; gud-stepi, to avoid file-name clashes on DOS |
;; gud-stepi, to avoid file-name clashes on DOS |
211 |
;; 8+3 filesystems. |
;; 8+3 filesystems. |
212 |
(gud-next . "gud-n") |
(gud-next . "gud/n") |
213 |
(gud-step . "gud-s") |
(gud-step . "gud/s") |
214 |
(gud-nexti . "gud-ni") |
(gud-nexti . "gud/ni") |
215 |
(gud-stepi . "gud-si") |
(gud-stepi . "gud/si") |
216 |
(gud-up . "gud-up") |
(gud-up . "gud/up") |
217 |
(gud-down . "gud-down") |
(gud-down . "gud/down") |
218 |
(gud-goto-info . "info")) |
(gud-goto-info . "info")) |
219 |
map) |
map) |
220 |
(tool-bar-local-item-from-menu |
(tool-bar-local-item-from-menu |