;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
-;; Copyright (c) 1999, 2000, 2001,2002 Free Software Foundation
+
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Carsten Dominik <dominik@astro.uva.nl>
;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
-;; Version: 4.15
+;; Version: 6.1_em22
;; Keywords: processes
;; This file is part of GNU Emacs.
-;; GNU Emacs is free software; you can redistribute it and/or modify
+;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
(toolbar-make-button-list image)
(list 'image :type 'xpm :data image)))
+(defvar idlwave-toolbar)
(defvar default-toolbar)
+(defvar idlwave-toolbar-is-possible)
+
(if (not (or (and (featurep 'xemacs) ; This is XEmacs
(featurep 'xpm) ; need xpm
(featurep 'toolbar)) ; ... and the toolbar
\" \"};")
"The Stop At icon.")
-(defvar idlwave-toolbar-stop-in-icon
- (idlwave-toolbar-make-button
- "/* XPM */
-static char * file[] = {
-\"28 28 4 1\",
-\" c None s backgroundToolBarColor\",
-\"_ c #FFFFFFFFFFFF\",
-\". c #000000000000\",
-\"R c #FFFF00000000\",
-\" \",
-\" \",
-\" \",
-\" \",
-\" ........ \",
-\" .RRRRRRRR. \",
-\" .RRRRRRRRRR. \",
-\" .RRRRRRRRRRRR. \",
-\" .RRR___RR___RRR. \",
-\" .RRRR__RRRR__RRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRR__RRRRRR__RRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRRR__RRRR__RRRRR. \",
-\" .RRRR___RR___RRRR. \",
-\" .RRRRRRRRRRRRRR. \",
-\" .RRRRRRRRRRRR. \",
-\" .RRRRRRRRRR. \",
-\" .RRRRRRRR. \",
-\" ........ \",
-\" \",
-\" \",
-\" \",
-\" \"};")
- "The Stop in icon.")
-
(defvar idlwave-toolbar-clear-at-icon
(idlwave-toolbar-make-button
\" \"};")
"The Clear-All icon.")
+(defvar idlwave-toolbar-stop-beginning-icon
+ (idlwave-toolbar-make-button
+ "/* XPM */
+static char * file[] = {
+\"28 28 4 1\",
+\" c None s backgroundToolBarColor\",
+\". c #000000000000\",
+\"X c #FFFF00000000\",
+\"_ c #FFFFFFFFFFFF\",
+\" \",
+\" \",
+\" \",
+\" \",
+\" ........ \",
+\" .XXXXXXXX. \",
+\" .XXXXXXXXXX. \",
+\" .XXXXXXXXXXXX. \",
+\" .XX..XXXXXXXXXX. \",
+\" .XX.XX.X______XXX. \",
+\" .XXX.XX.X______XXXX. \",
+\" .XXXX..XXXXXXXXXXXX. \",
+\" .XXXXXXXXXX____XXXX. \",
+\" .XXXXXXXXXX____XXXX. \",
+\" .XXXXXXXXXXXXXXXXXX. \",
+\" .XXXXXXXXXX____XXXX. \",
+\" .XXXXXXXXXX____XXXX. \",
+\" .XXXXXXXXXXXXXXXXXX. \",
+\" .XXXXXXXXX____XXX. \",
+\" .XXXXXXXX____XX. \",
+\" .XXXXXXXXXXXX. \",
+\" .XXXXXXXXXX. \",
+\" .XXXXXXXX. \",
+\" ........ \",
+\" \",
+\" \",
+\" \",
+\" \"};")
+ "The Stop at Beginning icon.")
+
+(defvar idlwave-toolbar-stop-in-icon
+ (idlwave-toolbar-make-button
+ "/* XPM */
+static char * file[] = {
+\"28 28 4 1\",
+\" c None s backgroundToolBarColor\",
+\"_ c #FFFFFFFFFFFF\",
+\". c #000000000000\",
+\"R c #FFFF00000000\",
+\" \",
+\" \",
+\" \",
+\" \",
+\" ........ \",
+\" .RRRRRRRR. \",
+\" .RRRRRRRRRR. \",
+\" .RRRRRRRRRRRR. \",
+\" .RRR___RR___RRR. \",
+\" .RRRR__RRRR__RRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRR__RRRRRR__RRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRRR__RRRR__RRRRR. \",
+\" .RRRR___RR___RRRR. \",
+\" .RRRRRRRRRRRRRR. \",
+\" .RRRRRRRRRRRR. \",
+\" .RRRRRRRRRR. \",
+\" .RRRRRRRR. \",
+\" ........ \",
+\" \",
+\" \",
+\" \",
+\" \"};")
+ "The Stop in icon.")
+
(defvar idlwave-toolbar-edit-cmd-icon
(idlwave-toolbar-make-button
"/* XPM */
\" \",
\" \",
\" \"};")
- "The Cont icon.")
+ "The Cont icon.")
(defvar idlwave-toolbar-to-here-icon
(idlwave-toolbar-make-button
\" \"};")
"The Reset icon.")
+(defvar idlwave-toolbar-electric-debug-icon
+ (idlwave-toolbar-make-button
+ "/* XPM */
+static char * file[] = {
+\"28 28 8 1\",
+\" c None s backgroundToolBarColor\",
+\". c #CFC854\",
+\"+ c #EEDB0E\",
+\"@ c #D2C739\",
+\"# c #A39C54\",
+\"$ c #CDC020\",
+\"% c #020202\",
+\"& c #D60E36\",
+\" \",
+\" \",
+\" .. \",
+\" +++++@ \",
+\" ++++++ \",
+\" +++++@ \",
+\" +++++ \",
+\" #++++@ \",
+\" $+++@ %% %% \",
+\" ++++++$ % % \",
+\" #+++++$ % % \",
+\" #++$# %%% \",
+\" #+++ %%%%%%% \",
+\" .++ %%%%%%%%%%% \",
+\" ++$$ %%%%%%%%%%% \",
+\" .+@# &&%%%%%%%&& \",
+\" .++++# &&&&&%%%&&&&& \",
+\" +++++$ &&%%&&&&&%%&& \",
+\" $+++$ &&%%&&&&&%%&& \",
+\" $++@ &&&&&&%&&&&&& \",
+\" $+@ &&&&&&%&&&&&& \",
+\" @+ &&%%&&&&&%%&& \",
+\" ++. &%%&&%&&%%& \",
+\" +. &&&&%%%&&&& \",
+\" .+ &&%%%%%&& \",
+\" ++ %%%%%%% \",
+\" . %%% \",
+\" \"};")
+ "The electric debug icon.")
+
(defvar idlwave-toolbar
'(
[idlwave-toolbar-compile-icon
idlwave-shell-break-here
(eq major-mode 'idlwave-mode)
"Set Breakpoint at selected position"]
- [idlwave-toolbar-stop-in-icon
- idlwave-shell-break-in
- t
- "Stop in Function with name near at point"]
[idlwave-toolbar-clear-at-icon
idlwave-shell-clear-current-bp
t
idlwave-shell-clear-all-bp
t
"Clear all Breakpoints"]
+ [idlwave-toolbar-stop-beginning-icon
+ idlwave-shell-break-this-module
+ (eq major-mode 'idlwave-mode)
+ "Stop at beginning of enclosing Routine"]
+ [idlwave-toolbar-stop-in-icon
+ idlwave-shell-break-in
+ t
+ "Stop in Routine with name near point"]
[idlwave-toolbar-edit-cmd-icon
idlwave-shell-edit-default-command-line
t
idlwave-shell-reset
t
"Reset IDL (RETALL & CLOSE,/ALL and more)"]
+ [idlwave-toolbar-electric-debug-icon
+ idlwave-shell-electric-debug-mode
+ (eq major-mode 'idlwave-mode)
+ "Toggle Electric Debug Mode"]
))
;; When the shell exits, arrange to remove the special toolbar everywhere.
(idlwave-toolbar-add))
(buffer-list)))
;; For Emacs, add the key definitions to the mode maps
- (mapcar (lambda (x)
- (let* ((icon (aref x 0))
- (func (aref x 1))
- ;;(show (aref x 2))
- (help (aref x 3))
- (key (vector 'tool-bar func))
- (def (list 'menu-item
- "a"
- func
- :image (symbol-value icon)
- :help help)))
- (define-key idlwave-mode-map key def)
- (define-key idlwave-shell-mode-map key def)))
- (reverse idlwave-toolbar)))
+ (mapc (lambda (x)
+ (let* ((icon (aref x 0))
+ (func (aref x 1))
+ (show (aref x 2))
+ (help (aref x 3))
+ (key (vector 'tool-bar func))
+ (def (list 'menu-item
+ "a"
+ func
+ :image (symbol-value icon)
+ :visible show
+ :help help)))
+ (define-key idlwave-mode-map key def)
+ (define-key idlwave-shell-mode-map key def)))
+ (reverse idlwave-toolbar)))
(setq idlwave-toolbar-visible t)))
(defun idlwave-toolbar-remove-everywhere ()
(idlwave-toolbar-remove))
(buffer-list)))
;; For Emacs, remove the key definitions from the mode maps
- (mapcar (lambda (x)
- (let* (;;(icon (aref x 0))
- (func (aref x 1))
- ;;(show (aref x 2))
- ;;(help (aref x 3))
- (key (vector 'tool-bar func)))
- (define-key idlwave-mode-map key nil)
- (define-key idlwave-shell-mode-map key nil)))
- idlwave-toolbar))
+ (mapc (lambda (x)
+ (let* (;;(icon (aref x 0))
+ (func (aref x 1))
+ ;;(show (aref x 2))
+ ;;(help (aref x 3))
+ (key (vector 'tool-bar func)))
+ (define-key idlwave-mode-map key nil)
+ (define-key idlwave-shell-mode-map key nil)))
+ idlwave-toolbar))
(setq idlwave-toolbar-visible nil)))
(defun idlwave-toolbar-toggle (&optional force-on)
(provide 'idlw-toolbar)
(provide 'idlwave-toolbar)
+;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62
;;; idlw-toolbar.el ends here
-
-
-;;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62
HCoop / bpt / emacs.git / blobdiff