[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-toolbar.el [lexbind]
|
From: |
Miles Bader |
|
Subject: |
[Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-toolbar.el [lexbind] |
|
Date: |
Wed, 08 Dec 2004 19:34:28 -0500 |
Index: emacs/lisp/progmodes/idlw-toolbar.el
diff -c emacs/lisp/progmodes/idlw-toolbar.el:3.9.4.3
emacs/lisp/progmodes/idlw-toolbar.el:3.9.4.4
*** emacs/lisp/progmodes/idlw-toolbar.el:3.9.4.3 Sat Apr 10 06:20:09 2004
--- emacs/lisp/progmodes/idlw-toolbar.el Wed Dec 8 23:31:45 2004
***************
*** 3,9 ****
;; Author: Carsten Dominik <address@hidden>
;; Maintainer: J.D. Smith <address@hidden>
! ;; Version: 4.15
;; Keywords: processes
;; This file is part of GNU Emacs.
--- 3,9 ----
;; Author: Carsten Dominik <address@hidden>
;; Maintainer: J.D. Smith <address@hidden>
! ;; Version: 5.5
;; Keywords: processes
;; This file is part of GNU Emacs.
***************
*** 170,214 ****
\" \"};")
"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
--- 170,175 ----
***************
*** 287,292 ****
--- 248,331 ----
\" \"};")
"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 */
***************
*** 398,404 ****
\" \",
\" \",
\" \"};")
! "The Cont icon.")
(defvar idlwave-toolbar-to-here-icon
(idlwave-toolbar-make-button
--- 437,443 ----
\" \",
\" \",
\" \"};")
! "The Cont icon.")
(defvar idlwave-toolbar-to-here-icon
(idlwave-toolbar-make-button
***************
*** 709,714 ****
--- 748,796 ----
\" \"};")
"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\",
+ \" \",
+ \" \",
+ \" .. \",
+ \" +++++@ \",
+ \" ++++++ \",
+ \" +++++@ \",
+ \" +++++ \",
+ \" #++++@ \",
+ \" $+++@ %% %% \",
+ \" ++++++$ % % \",
+ \" #+++++$ % % \",
+ \" #++$# %%% \",
+ \" #+++ %%%%%%% \",
+ \" .++ %%%%%%%%%%% \",
+ \" ++$$ %%%%%%%%%%% \",
+ \" address@hidden &&%%%%%%%&& \",
+ \" .++++# &&&&&%%%&&&&& \",
+ \" +++++$ &&%%&&&&&%%&& \",
+ \" $+++$ &&%%&&&&&%%&& \",
+ \" $++@ &&&&&&%&&&&&& \",
+ \" $+@ &&&&&&%&&&&&& \",
+ \" @+ &&%%&&&&&%%&& \",
+ \" ++. &%%&&%&&%%& \",
+ \" +. &&&&%%%&&&& \",
+ \" .+ &&%%%%%&& \",
+ \" ++ %%%%%%% \",
+ \" . %%% \",
+ \" \"};")
+ "The electric debug icon.")
+
(defvar idlwave-toolbar
'(
[idlwave-toolbar-compile-icon
***************
*** 723,732 ****
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
--- 805,810 ----
***************
*** 735,740 ****
--- 813,826 ----
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
***************
*** 779,784 ****
--- 865,874 ----
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.
***************
*** 824,836 ****
(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)))
--- 914,927 ----
(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)
+ :visible show
:help help)))
(define-key idlwave-mode-map key def)
(define-key idlwave-shell-mode-map key def)))
***************
*** 876,882 ****
(provide 'idlw-toolbar)
(provide 'idlwave-toolbar)
;;; idlw-toolbar.el ends here
-
-
- ;;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62
--- 967,971 ----
(provide 'idlw-toolbar)
(provide 'idlwave-toolbar)
+ ;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62
;;; idlw-toolbar.el ends here
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/progmodes/idlw-toolbar.el [lexbind],
Miles Bader <=