comparison lisp/progmodes/gud.el @ 66094:8d47733bcd93

* toolbar/gud-break.*: Moved to etc/images/gud/break.*. * toolbar/gud-cont.*: Moved to etc/images/gud/cont.*. * toolbar/gud-down.*: Moved to etc/images/gud/down.*. * toolbar/gud-finish.*: Moved to etc/images/gud/finish.*. * toolbar/gud-ni.*: Moved to etc/images/gud/ni.*. * toolbar/gud-n.*: Moved to etc/images/gud/n.*. * toolbar/gud-print.*: Moved to etc/images/gud/print.*. * toolbar/gud-pstar.*: Moved to etc/images/gud/pstar.*. * toolbar/gud-remove.*: Moved to etc/images/gud/remove.*. * toolbar/gud-run.*: Moved to etc/images/gud/run.*. * toolbar/gud-si.*: Moved to etc/images/gud/si.*. * toolbar/gud-s.*: Moved to etc/images/gud/s.*. * toolbar/gud-until.*: Moved to etc/images/gud/until.*. * toolbar/gud-up.*: Moved to etc/images/gud/up.*. * toolbar/gud-watch.*: Moved to etc/images/gud/watch.*. * progmodes/gud.el (gud-tool-bar-map): Renamed the images appropriately (for example, gud-break to gud/break).
author Bill Wohler <wohler@newt.com>
date Sat, 15 Oct 2005 05:41:11 +0000
parents 8bd4c2112a50
children 59812faf9041
comparison
equal deleted inserted replaced
66093:579cd0b50a4b 66094:8d47733bcd93
3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> 3 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
4 ;; Maintainer: FSF 4 ;; Maintainer: FSF
5 ;; Keywords: unix, tools 5 ;; Keywords: unix, tools
6 6
7 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003, 7 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001, 2002, 2003,
8 ;; 2004, 2005 Free Software Foundation, Inc. 8 ;; 2004, 2005 Free Software Foundation, Inc.
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
195 "`gud-mode' keymap.") 195 "`gud-mode' keymap.")
196 196
197 (defvar gud-tool-bar-map 197 (defvar gud-tool-bar-map
198 (if (display-graphic-p) 198 (if (display-graphic-p)
199 (let ((map (make-sparse-keymap))) 199 (let ((map (make-sparse-keymap)))
200 (dolist (x '((gud-break . "gud-break") 200 (dolist (x '((gud-break . "gud/break")
201 (gud-remove . "gud-remove") 201 (gud-remove . "gud/remove")
202 (gud-print . "gud-print") 202 (gud-print . "gud/print")
203 (gud-pstar . "gud-pstar") 203 (gud-pstar . "gud/pstar")
204 (gud-watch . "gud-watch") 204 (gud-watch . "gud/watch")
205 (gud-cont . "gud-cont") 205 (gud-cont . "gud/cont")
206 (gud-until . "gud-until") 206 (gud-until . "gud/until")
207 (gud-finish . "gud-finish") 207 (gud-finish . "gud/finish")
208 (gud-run . "gud-run") 208 (gud-run . "gud/run")
209 ;; gud-s, gud-si etc. instead of gud-step, 209 ;; gud-s, gud-si etc. instead of gud-step,
210 ;; gud-stepi, to avoid file-name clashes on DOS 210 ;; gud-stepi, to avoid file-name clashes on DOS
211 ;; 8+3 filesystems. 211 ;; 8+3 filesystems.
212 (gud-next . "gud-n") 212 (gud-next . "gud/n")
213 (gud-step . "gud-s") 213 (gud-step . "gud/s")
214 (gud-nexti . "gud-ni") 214 (gud-nexti . "gud/ni")
215 (gud-stepi . "gud-si") 215 (gud-stepi . "gud/si")
216 (gud-up . "gud-up") 216 (gud-up . "gud/up")
217 (gud-down . "gud-down") 217 (gud-down . "gud/down")
218 (gud-goto-info . "info")) 218 (gud-goto-info . "info"))
219 map) 219 map)
220 (tool-bar-local-item-from-menu 220 (tool-bar-local-item-from-menu
221 (car x) (cdr x) map gud-minor-mode-map))))) 221 (car x) (cdr x) map gud-minor-mode-map)))))
222 222