Skip to content

GitLab

Commit 52a244eb authored by J.D. Smith's avatar J.D. Smith
Browse files
Options

Updated to IDLWAVE version 5.5. See idlwave.org

parent 802c6e56
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 5637 additions and 3604 deletions
lisp/progmodes/idlw-rinfo.el
View file @ 52a244eb
This diff is collapsed.
lisp/progmodes/idlw-shell.el
View file @ 52a244eb
This diff is collapsed.
lisp/progmodes/idlw-toolbar.el
View file @ 52a244eb
......@@ -3,7 +3,8 @@
;; Author: Carsten Dominik <dominik@astro.uva.nl>
;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
;; Version: 4.15
;; Version: 5.5
;; Date: $Date: 2003/05/13 18:42:27 $
;; Keywords: processes
;; This file is part of GNU Emacs.
......@@ -170,45 +171,6 @@ static char * file[] = {
\" \"};")
"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
......@@ -287,6 +249,84 @@ static char * file[] = {
\" \"};")
"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,7 +438,7 @@ static char * file[] = {
\" \",
\" \",
\" \"};")
"The Cont icon.")
"The Cont icon.")
(defvar idlwave-toolbar-to-here-icon
(idlwave-toolbar-make-button
......@@ -709,6 +749,49 @@ static char * file[] = {
\" \"};")
"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
......@@ -723,10 +806,6 @@ static char * file[] = {
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
......@@ -735,6 +814,14 @@ static char * file[] = {
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,6 +866,10 @@ static char * file[] = {
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,13 +915,14 @@ static char * file[] = {
(mapcar (lambda (x)
(let* ((icon (aref x 0))
(func (aref x 1))
;;(show (aref x 2))
(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)))
......@@ -879,4 +971,3 @@ static char * file[] = {
;;; idlw-toolbar.el ends here
;;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62
lisp/progmodes/idlwave.el
View file @ 52a244eb
This diff is collapsed.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment