Mercurial > emacs

comparison lisp/progmodes/idlw-toolbar.el @ 46529:148f4d9a8905

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Updated to IDLWAVE version 4.14. See idlwave.org.
author J.D. Smith <jdsmith@as.arizona.edu>
date Thu, 18 Jul 2002 18:58:07 +0000
parents 49e8031d8893
children 0e5a022947e9
comparison
equal deleted inserted replaced
46528:0fc136f66777 46529:148f4d9a8905
1 ;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE 1 ;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
2 ;; Copyright (c) 1999, 2000 Free Software Foundation 2 ;; Copyright (c) 1999, 2000, 2001,2002 Free Software Foundation
3 3
4 ;; Author: Carsten Dominik <dominik@strw.leidenuniv.nl> 4 ;; Author: Carsten Dominik <dominik@astro.uva.nl>
5 ;; Maintainer: John-David Smith <jdsmith@astro.cornell.edu> 5 ;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
6 ;; Version: 4.7 6 ;; Version: 4.14
7 ;; Date: $Date: 2001/07/16 12:22:59 $ 7 ;; Date: $Date: 2002/06/14 19:06:16 $
8 ;; Keywords: processes 8 ;; Keywords: processes
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
26 26
27 ;;; Commentary: 27 ;;; Commentary:
28 28
29 ;; This file implements a debugging toolbar for IDLWAVE. It requires 29 ;; This file implements a debugging toolbar for IDLWAVE. It requires
30 ;; Emacs or XEmacs with toolbar and xpm support. 30 ;; Emacs or XEmacs with toolbar and xpm support.
31
32 ;; New versions of IDLWAVE, documentation, and more information
33 ;; available from:
34 ;; http://idlwave.org
31 35
32 36
33 ;;; Code: 37 ;;; Code:
34 38
35 (eval-when-compile (require 'cl)) 39 (eval-when-compile (require 'cl))
57 (defvar idlwave-toolbar-compile-icon 61 (defvar idlwave-toolbar-compile-icon
58 (idlwave-toolbar-make-button 62 (idlwave-toolbar-make-button
59 "/* XPM */ 63 "/* XPM */
60 static char * file[] = { 64 static char * file[] = {
61 \"28 28 2 1\", 65 \"28 28 2 1\",
62 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 66 \" c None s backgroundToolBarColor\",
63 \". c #000000000000\", 67 \". c #000000000000\",
64 \" \", 68 \" \",
65 \" \", 69 \" \",
66 \" \", 70 \" \",
67 \" . \", 71 \" . \",
94 (defvar idlwave-toolbar-next-error-icon 98 (defvar idlwave-toolbar-next-error-icon
95 (idlwave-toolbar-make-button 99 (idlwave-toolbar-make-button
96 "/* XPM */ 100 "/* XPM */
97 static char * file[] = { 101 static char * file[] = {
98 \"28 28 3 1\", 102 \"28 28 3 1\",
99 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 103 \" c None s backgroundToolBarColor\",
100 \". c #000000000000\", 104 \". c #000000000000\",
101 \"R c #FFFF00000000\", 105 \"R c #FFFF00000000\",
102 \" \", 106 \" \",
103 \" \", 107 \" \",
104 \" R \", 108 \" R \",
132 (defvar idlwave-toolbar-stop-at-icon 136 (defvar idlwave-toolbar-stop-at-icon
133 (idlwave-toolbar-make-button 137 (idlwave-toolbar-make-button
134 "/* XPM */ 138 "/* XPM */
135 static char * file[] = { 139 static char * file[] = {
136 \"28 28 3 1\", 140 \"28 28 3 1\",
137 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 141 \" c None s backgroundToolBarColor\",
138 \". c #000000000000\", 142 \". c #000000000000\",
139 \"R c #FFFF00000000\", 143 \"R c #FFFF00000000\",
140 \" \", 144 \" \",
141 \" \", 145 \" \",
142 \" \", 146 \" \",
170 (defvar idlwave-toolbar-stop-in-icon 174 (defvar idlwave-toolbar-stop-in-icon
171 (idlwave-toolbar-make-button 175 (idlwave-toolbar-make-button
172 "/* XPM */ 176 "/* XPM */
173 static char * file[] = { 177 static char * file[] = {
174 \"28 28 4 1\", 178 \"28 28 4 1\",
175 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 179 \" c None s backgroundToolBarColor\",
176 \"_ c #FFFFFFFFFFFF\", 180 \"_ c #FFFFFFFFFFFF\",
177 \". c #000000000000\", 181 \". c #000000000000\",
178 \"R c #FFFF00000000\", 182 \"R c #FFFF00000000\",
179 \" \", 183 \" \",
180 \" \", 184 \" \",
210 (defvar idlwave-toolbar-clear-at-icon 214 (defvar idlwave-toolbar-clear-at-icon
211 (idlwave-toolbar-make-button 215 (idlwave-toolbar-make-button
212 "/* XPM */ 216 "/* XPM */
213 static char * file[] = { 217 static char * file[] = {
214 \"28 28 3 1\", 218 \"28 28 3 1\",
215 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 219 \" c None s backgroundToolBarColor\",
216 \". c #000000000000\", 220 \". c #000000000000\",
217 \"R c #FFFF00000000\", 221 \"R c #FFFF00000000\",
218 \" \", 222 \" \",
219 \" \", 223 \" \",
220 \" \", 224 \" \",
248 (defvar idlwave-toolbar-clear-all-icon 252 (defvar idlwave-toolbar-clear-all-icon
249 (idlwave-toolbar-make-button 253 (idlwave-toolbar-make-button
250 "/* XPM */ 254 "/* XPM */
251 static char * file[] = { 255 static char * file[] = {
252 \"28 28 4 1\", 256 \"28 28 4 1\",
253 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 257 \" c None s backgroundToolBarColor\",
254 \". c #000000000000\", 258 \". c #000000000000\",
255 \"X c #FFFFFFFFFFFF\", 259 \"X c #FFFFFFFFFFFF\",
256 \"R c #FFFF00000000\", 260 \"R c #FFFF00000000\",
257 \" \", 261 \" \",
258 \" \", 262 \" \",
287 (defvar idlwave-toolbar-edit-cmd-icon 291 (defvar idlwave-toolbar-edit-cmd-icon
288 (idlwave-toolbar-make-button 292 (idlwave-toolbar-make-button
289 "/* XPM */ 293 "/* XPM */
290 static char * file[] = { 294 static char * file[] = {
291 \"28 28 2 1\", 295 \"28 28 2 1\",
292 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 296 \" c None s backgroundToolBarColor\",
293 \". c #000000000000\", 297 \". c #000000000000\",
294 \" \", 298 \" \",
295 \" \", 299 \" \",
296 \" \", 300 \" \",
297 \" \", 301 \" \",
324 (defvar idlwave-toolbar-run-icon 328 (defvar idlwave-toolbar-run-icon
325 (idlwave-toolbar-make-button 329 (idlwave-toolbar-make-button
326 "/* XPM */ 330 "/* XPM */
327 static char * file[] = { 331 static char * file[] = {
328 \"28 28 3 1\", 332 \"28 28 3 1\",
329 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 333 \" c None s backgroundToolBarColor\",
330 \". s FgColor c #000000000000\", 334 \". s FgColor c #000000000000\",
331 \"G c #0000BBBB0000\", 335 \"G c #0000BBBB0000\",
332 \" \", 336 \" \",
333 \" \", 337 \" \",
334 \" \", 338 \" \",
362 (defvar idlwave-toolbar-cont-icon 366 (defvar idlwave-toolbar-cont-icon
363 (idlwave-toolbar-make-button 367 (idlwave-toolbar-make-button
364 "/* XPM */ 368 "/* XPM */
365 static char * file[] = { 369 static char * file[] = {
366 \"28 28 3 1\", 370 \"28 28 3 1\",
367 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 371 \" c None s backgroundToolBarColor\",
368 \". s FgColor c #000000000000\", 372 \". s FgColor c #000000000000\",
369 \"G c #0000BBBB0000\", 373 \"G c #0000BBBB0000\",
370 \" \", 374 \" \",
371 \" \", 375 \" \",
372 \" \", 376 \" \",
400 (defvar idlwave-toolbar-to-here-icon 404 (defvar idlwave-toolbar-to-here-icon
401 (idlwave-toolbar-make-button 405 (idlwave-toolbar-make-button
402 "/* XPM */ 406 "/* XPM */
403 static char * file[] = { 407 static char * file[] = {
404 \"28 28 4 1\", 408 \"28 28 4 1\",
405 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 409 \" c None s backgroundToolBarColor\",
406 \". c #000000000000\", 410 \". c #000000000000\",
407 \"G c #0000BBBB0000\", 411 \"G c #0000BBBB0000\",
408 \"R c #FFFF00000000\", 412 \"R c #FFFF00000000\",
409 \" \", 413 \" \",
410 \" \", 414 \" \",
439 (defvar idlwave-toolbar-step-over-icon 443 (defvar idlwave-toolbar-step-over-icon
440 (idlwave-toolbar-make-button 444 (idlwave-toolbar-make-button
441 "/* XPM */ 445 "/* XPM */
442 static char * file[] = { 446 static char * file[] = {
443 \"28 28 3 1\", 447 \"28 28 3 1\",
444 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 448 \" c None s backgroundToolBarColor\",
445 \". c #000000000000\", 449 \". c #000000000000\",
446 \"G c #0000BBBB0000\", 450 \"G c #0000BBBB0000\",
447 \" \", 451 \" \",
448 \" \", 452 \" \",
449 \" \", 453 \" \",
477 (defvar idlwave-toolbar-step-into-icon 481 (defvar idlwave-toolbar-step-into-icon
478 (idlwave-toolbar-make-button 482 (idlwave-toolbar-make-button
479 "/* XPM */ 483 "/* XPM */
480 static char * file[] = { 484 static char * file[] = {
481 \"28 28 3 1\", 485 \"28 28 3 1\",
482 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 486 \" c None s backgroundToolBarColor\",
483 \". c #000000000000\", 487 \". c #000000000000\",
484 \"G c #0000BBBB0000\", 488 \"G c #0000BBBB0000\",
485 \" \", 489 \" \",
486 \" \", 490 \" \",
487 \" \", 491 \" \",
515 (defvar idlwave-toolbar-step-out-icon 519 (defvar idlwave-toolbar-step-out-icon
516 (idlwave-toolbar-make-button 520 (idlwave-toolbar-make-button
517 "/* XPM */ 521 "/* XPM */
518 static char * file[] = { 522 static char * file[] = {
519 \"28 28 3 1\", 523 \"28 28 3 1\",
520 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 524 \" c None s backgroundToolBarColor\",
521 \". c #000000000000\", 525 \". c #000000000000\",
522 \"G c #0000BBBB0000\", 526 \"G c #0000BBBB0000\",
523 \" \", 527 \" \",
524 \" \", 528 \" \",
525 \" \", 529 \" \",
554 (defvar idlwave-toolbar-eval-icon 558 (defvar idlwave-toolbar-eval-icon
555 (idlwave-toolbar-make-button 559 (idlwave-toolbar-make-button
556 "/* XPM */ 560 "/* XPM */
557 static char * file[] = { 561 static char * file[] = {
558 \"28 28 2 1\", 562 \"28 28 2 1\",
559 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 563 \" c None s backgroundToolBarColor\",
560 \". c #000000000000\", 564 \". c #000000000000\",
561 \" \", 565 \" \",
562 \" \", 566 \" \",
563 \" \", 567 \" \",
564 \" \", 568 \" \",
591 (defvar idlwave-toolbar-stack-up-icon 595 (defvar idlwave-toolbar-stack-up-icon
592 (idlwave-toolbar-make-button 596 (idlwave-toolbar-make-button
593 "/* XPM */ 597 "/* XPM */
594 static char * file[] = { 598 static char * file[] = {
595 \"28 28 5 1\", 599 \"28 28 5 1\",
596 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 600 \" c None s backgroundToolBarColor\",
597 \". s FgColor c #000000000000\", 601 \". s FgColor c #000000000000\",
598 \"_ c #FFFFFFFFFFFF\", 602 \"_ c #FFFFFFFFFFFF\",
599 \"G c #0000BBBB0000\", 603 \"G c #0000BBBB0000\",
600 \"R c #FFFF00000000\", 604 \"R c #FFFF00000000\",
601 \" \", 605 \" \",
631 (defvar idlwave-toolbar-stack-down-icon 635 (defvar idlwave-toolbar-stack-down-icon
632 (idlwave-toolbar-make-button 636 (idlwave-toolbar-make-button
633 "/* XPM */ 637 "/* XPM */
634 static char * file[] = { 638 static char * file[] = {
635 \"28 28 5 1\", 639 \"28 28 5 1\",
636 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 640 \" c None s backgroundToolBarColor\",
637 \". s FgColor c #000000000000\", 641 \". s FgColor c #000000000000\",
638 \"_ c #FFFFFFFFFFFF\", 642 \"_ c #FFFFFFFFFFFF\",
639 \"G c #0000BBBB0000\", 643 \"G c #0000BBBB0000\",
640 \"R c #FFFF00000000\", 644 \"R c #FFFF00000000\",
641 \" \", 645 \" \",
671 (defvar idlwave-toolbar-reset-icon 675 (defvar idlwave-toolbar-reset-icon
672 (idlwave-toolbar-make-button 676 (idlwave-toolbar-make-button
673 "/* XPM */ 677 "/* XPM */
674 static char * file[] = { 678 static char * file[] = {
675 \"28 28 3 1\", 679 \"28 28 3 1\",
676 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\", 680 \" c None s backgroundToolBarColor\",
677 \"G c #0000BBBB0000\", 681 \"G c #0000BBBB0000\",
678 \". c #000000000000\", 682 \". c #000000000000\",
679 \" \", 683 \" \",
680 \" \", 684 \" \",
681 \" \", 685 \" \",
872 876
873 (provide 'idlw-toolbar) 877 (provide 'idlw-toolbar)
874 (provide 'idlwave-toolbar) 878 (provide 'idlwave-toolbar)
875 879
876 ;;; idlw-toolbar.el ends here 880 ;;; idlw-toolbar.el ends here
881
882