HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Add arch taglines
[bpt/emacs.git] / lisp / progmodes / idlw-toolbar.el
CommitLineData
e8af40ee 1;;; idlw-toolbar.el --- a debugging toolbar for IDLWAVE
5e72c6b2 2;; Copyright (c) 1999, 2000, 2001,2002 Free Software Foundation
8c7b4ec8 3
5e72c6b2
S		 4;; Author: Carsten Dominik <dominik@astro.uva.nl>
5;; Maintainer: J.D. Smith <jdsmith@as.arizona.edu>
76959b77 6;; Version: 4.15
ab5796a9 7;; Date: $Date: 2003/02/04 13:24:35 $
8c7b4ec8
EZ		 8;; Keywords: processes
9
10;; This file is part of GNU Emacs.
11
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
14;; the Free Software Foundation; either version 2, or (at your option)
15;; any later version.
16
17;; GNU Emacs is distributed in the hope that it will be useful,
18;; but WITHOUT ANY WARRANTY; without even the implied warranty of
19;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
20;; GNU General Public License for more details.
21
22;; You should have received a copy of the GNU General Public License
23;; along with GNU Emacs; see the file COPYING. If not, write to the
24;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
25;; Boston, MA 02111-1307, USA.
26
27;;; Commentary:
28
29;; This file implements a debugging toolbar for IDLWAVE. It requires
30;; Emacs or XEmacs with toolbar and xpm support.
31
5e72c6b2
S		 32;; New versions of IDLWAVE, documentation, and more information
33;; available from:
34;; http://idlwave.org
35
8c7b4ec8
EZ		 36\f
37;;; Code:
38
39(eval-when-compile (require 'cl))
40
41(defun idlwave-toolbar-make-button (image)
42 (if (featurep 'xemacs)
43 (toolbar-make-button-list image)
44 (list 'image :type 'xpm :data image)))
45
46(defvar default-toolbar)
47(if (not (or (and (featurep 'xemacs) ; This is XEmacs
48 (featurep 'xpm) ; need xpm
49 (featurep 'toolbar)) ; ... and the toolbar
50 (and (not (featurep 'xemacs)) ; This is Emacs
8124289f 51 (boundp 'tool-bar-button-margin) ; need toolbar
8c7b4ec8
EZ		 52 (fboundp 'image-type-available-p) ; need image stuff
53 (image-type-available-p 'xpm)) ; need xpm
54 ))
55 ;; oops - cannot do the toolbar
56 (message "Sorry, IDLWAVE xpm toolbar cannot be used on this version of Emacs")
57;; OK, we can define a toolbar
58
8124289f
CD		 59(defconst idlwave-toolbar-is-possible t
60 "When defined, indicates that a toolbar is possible with this Emacs.")
8c7b4ec8
EZ		 61(defvar idlwave-toolbar-compile-icon
62 (idlwave-toolbar-make-button
63 "/* XPM */
64static char * file[] = {
65\"28 28 2 1\",
5e72c6b2 66\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 67\". c #000000000000\",
68\" \",
69\" \",
70\" \",
71\" . \",
72\" .. ... .. \",
73\" .... ... .... \",
74\" ............. \",
75\" ........... \",
76\" ................... \",
77\" ........ ........ \",
78\" ..... ........ \",
79\" .... ......... \",
80\" ..... .. ... ..... \",
81\" ...... .. .. ...... \",
82\" ..... ... .. ..... \",
83\" ......... .... \",
84\" ........ ..... \",
85\" ........ ........ \",
86\" ................... \",
87\" ........... \",
88\" ............. \",
89\" .... ... .... \",
90\" .. ... .. \",
91\" . \",
92\" \",
93\" \",
94\" \",
95\" \"};")
96 "The compile icon.")
97
98(defvar idlwave-toolbar-next-error-icon
99 (idlwave-toolbar-make-button
100 "/* XPM */
101static char * file[] = {
102\"28 28 3 1\",
5e72c6b2 103\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 104\". c #000000000000\",
105\"R c #FFFF00000000\",
106\" \",
107\" \",
108\" R \",
109\" RR RRR RR \",
110\" RRRR RRR RRRR \",
111\" RRRRRRRRRRRRR \",
112\" RRRRRRRRRRR \",
113\" RRRRRRRRRRRRRRRRRRR \",
114\" RRRRRRRR \",
115\" RRRRR \",
116\" RRRR \",
117\" ........ \",
118\" ........ \",
119\" ......... \",
120\" ..... .. ... ..... \",
121\" ...... .. .. ...... \",
122\" ..... ... .. ..... \",
123\" ......... .... \",
124\" ........ ..... \",
125\" ........ ........ \",
126\" ................... \",
127\" ........... \",
128\" ............. \",
129\" .... ... .... \",
130\" .. ... .. \",
131\" . \",
132\" \",
133\" \"};")
134 "The Next Error icon.")
135
136(defvar idlwave-toolbar-stop-at-icon
137 (idlwave-toolbar-make-button
138 "/* XPM */
139static char * file[] = {
140\"28 28 3 1\",
5e72c6b2 141\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 142\". c #000000000000\",
143\"R c #FFFF00000000\",
144\" \",
145\" \",
146\" \",
147\" \",
148\" ........ \",
149\" .RRRRRRRR. \",
150\" .RRRRRRRRRR. \",
151\" .RRRRRRRRRRRR. \",
152\" .RRRRRRRRRRRRRR. \",
153\" .RRRRRRRRRRRRRRRR. \",
154\" .RRRRRRRRRRRRRRRRRR. \",
155\" .RRRRRRRRRRRRRRRRRR. \",
156\" .RRRRRRRRRRRRRRRRRR. \",
157\" .RRRRRRRRRRRRRRRRRR. \",
158\" .RRRRRRRRRRRRRRRRRR. \",
159\" .RRRRRRRRRRRRRRRRRR. \",
160\" .RRRRRRRRRRRRRRRRRR. \",
161\" .RRRRRRRRRRRRRRRRRR. \",
162\" .RRRRRRRRRRRRRRRR. \",
163\" .RRRRRRRRRRRRRR. \",
164\" .RRRRRRRRRRRR. \",
165\" .RRRRRRRRRR. \",
166\" .RRRRRRRR. \",
167\" ........ \",
168\" \",
169\" \",
170\" \",
171\" \"};")
172 "The Stop At icon.")
173
174(defvar idlwave-toolbar-stop-in-icon
175 (idlwave-toolbar-make-button
176 "/* XPM */
177static char * file[] = {
178\"28 28 4 1\",
5e72c6b2 179\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 180\"_ c #FFFFFFFFFFFF\",
181\". c #000000000000\",
182\"R c #FFFF00000000\",
183\" \",
184\" \",
185\" \",
186\" \",
187\" ........ \",
188\" .RRRRRRRR. \",
189\" .RRRRRRRRRR. \",
190\" .RRRRRRRRRRRR. \",
191\" .RRR___RR___RRR. \",
192\" .RRRR__RRRR__RRRR. \",
193\" .RRRRR__RRRR__RRRRR. \",
194\" .RRRRR__RRRR__RRRRR. \",
195\" .RRRRR__RRRR__RRRRR. \",
196\" .RRRR__RRRRRR__RRRR. \",
197\" .RRRRR__RRRR__RRRRR. \",
198\" .RRRRR__RRRR__RRRRR. \",
199\" .RRRRR__RRRR__RRRRR. \",
200\" .RRRRR__RRRR__RRRRR. \",
201\" .RRRR___RR___RRRR. \",
202\" .RRRRRRRRRRRRRR. \",
203\" .RRRRRRRRRRRR. \",
204\" .RRRRRRRRRR. \",
205\" .RRRRRRRR. \",
206\" ........ \",
207\" \",
208\" \",
209\" \",
210\" \"};")
211 "The Stop in icon.")
212
213
214(defvar idlwave-toolbar-clear-at-icon
215 (idlwave-toolbar-make-button
216 "/* XPM */
217static char * file[] = {
218\"28 28 3 1\",
5e72c6b2 219\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 220\". c #000000000000\",
221\"R c #FFFF00000000\",
222\" \",
223\" \",
224\" \",
225\" ... ... \",
226\" ... ........ ... \",
227\" ... .RRRRRRRR. ... \",
228\" ....RRRRRRRRRR.... \",
229\" ...RRRRRRRRRR... \",
230\" ....RRRRRRRR.... \",
231\" .RR...RRRRRR...RR. \",
232\" .RRRR...RRRR...RRRR. \",
233\" .RRRRR...RR...RRRRR. \",
234\" .RRRRRR......RRRRRR. \",
235\" .RRRRRRR....RRRRRRR. \",
236\" .RRRRRRR....RRRRRRR. \",
237\" .RRRRRR......RRRRRR. \",
238\" .RRRRR...RR...RRRRR. \",
239\" .RRRR...RRRR...RRRR. \",
240\" .RR...RRRRRR...RR. \",
241\" ....RRRRRRRR.... \",
242\" ...RRRRRRRRRR... \",
243\" ....RRRRRRRRRR.... \",
244\" ... .RRRRRRRR. ... \",
245\" ... ........ ... \",
246\" ... ... \",
247\" \",
248\" \",
249\" \"};")
250 "The Clear At icon.")
251
252(defvar idlwave-toolbar-clear-all-icon
253 (idlwave-toolbar-make-button
254 "/* XPM */
255static char * file[] = {
256\"28 28 4 1\",
5e72c6b2 257\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 258\". c #000000000000\",
259\"X c #FFFFFFFFFFFF\",
260\"R c #FFFF00000000\",
261\" \",
262\" \",
263\" \",
264\" .. .... .... .. \",
265\" ...RRRR. .RRRR... \",
266\" ...RRRR. .RRRR... \",
267\" .R...RRRR. .RRRR...R. \",
268\" .RR...RRR. .RRR...RR. \",
269\" .RRR...RR. .RR...RRR. \",
270\" .RRRR...R. .R...RRRR. \",
271\" .RRRR... ...RRRR. \",
272\" .RRRR... ...RRRR. \",
273\" .... ... ... .... \",
274\" ..... \",
275\" ... \",
276\" .... ..... .... \",
277\" .RRRR.... ....RRRR. \",
278\" .RRRRR... ...RRRRR. \",
279\" .RRRRR.... ....RRRRR. \",
280\" .RRRR...R. .R...RRRR. \",
281\" .RRR...RR. .RR...RRR. \",
282\" .RR...RRR. .RRR...RR. \",
283\" ....RRR. .RRR.... \",
284\" ...RRR. .RRR... \",
285\" ....... ....... \",
286\" \",
287\" \",
288\" \"};")
289 "The Clear-All icon.")
290
291(defvar idlwave-toolbar-edit-cmd-icon
292 (idlwave-toolbar-make-button
293 "/* XPM */
294static char * file[] = {
295\"28 28 2 1\",
5e72c6b2 296\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 297\". c #000000000000\",
298\" \",
299\" \",
300\" \",
301\" \",
302\" \",
303\" \",
304\" \",
305\" \",
306\" \",
307\" \",
308\" \",
309\" .. \",
310\" .. \",
311\" .. \",
312\" .. \",
313\" .. \",
314\" \",
315\" \",
316\" ................. \",
317\" \",
318\" \",
319\" \",
320\" \",
321\" \",
322\" \",
323\" \",
324\" \",
325\" \"};")
326 "The edit-cmd icon")
327
328(defvar idlwave-toolbar-run-icon
329 (idlwave-toolbar-make-button
330 "/* XPM */
331static char * file[] = {
332\"28 28 3 1\",
5e72c6b2 333\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 334\". s FgColor c #000000000000\",
335\"G c #0000BBBB0000\",
336\" \",
337\" \",
338\" \",
339\" \",
340\" ..... \",
341\" .GGG. \",
342\" .GGG. \",
343\" .GGG. ....... \",
344\" .GGG. \",
345\" .GGG. \",
346\" .GGG. ....... \",
347\" .GGG. \",
348\" ....GGG.... \",
349\" .GGGGGGG. ....... \",
350\" .GGGGG. \",
351\" .GGG. \",
352\" .G. ....... \",
353\" . \",
354\" \",
355\" ....... \",
356\" \",
357\" \",
358\" ....... \",
359\" \",
360\" \",
361\" \",
362\" \",
363\" \"};")
364 "The Run icon.")
365
366(defvar idlwave-toolbar-cont-icon
367 (idlwave-toolbar-make-button
368 "/* XPM */
369static char * file[] = {
370\"28 28 3 1\",
5e72c6b2 371\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 372\". s FgColor c #000000000000\",
373\"G c #0000BBBB0000\",
374\" \",
375\" \",
376\" \",
377\" ....... \",
378\" \",
379\" ....... \",
380\" .GGGGGG. ....... \",
381\" .GGGGGGG. \",
382\" .GGG..... \",
383\" .GGG. ....... \",
384\" .GGG. \",
385\" .GGG. \",
386\" .GGG. ....... \",
387\" .GGG. \",
388\" ....GGG.... \",
389\" .GGGGGGG. ....... \",
390\" .GGGGG. \",
391\" .GGG. \",
392\" .G. ....... \",
393\" . \",
394\" \",
395\" ....... \",
396\" \",
397\" \",
398\" \",
399\" \",
400\" \",
401\" \"};")
a1506d29 402 "The Cont icon.")
8c7b4ec8
EZ		 403
404(defvar idlwave-toolbar-to-here-icon
405 (idlwave-toolbar-make-button
406 "/* XPM */
407static char * file[] = {
408\"28 28 4 1\",
5e72c6b2 409\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 410\". c #000000000000\",
411\"G c #0000BBBB0000\",
412\"R c #FFFF00000000\",
413\" \",
414\" \",
415\" \",
416\" \",
417\" \",
418\" \",
419\" ..... ........ \",
420\" .GGGG. \",
421\" .GGGGG. \",
422\" .GG.... ........ \",
423\" .GG. \",
424\" .GG. . \",
425\" .GG. .. \",
426\" .GG. .G. ...... \",
427\" .GG...GG. \",
428\" .GGGGGGGG. RRRRRR \",
429\" .GGGGGGGGG. RRRRRR \",
430\" .GGGGGGG. RRRRRR \",
431\" ....GG. \",
432\" .G. ...... \",
433\" .. \",
434\" . \",
435\" \",
436\" \",
437\" \",
438\" \",
439\" \",
440\" \"};")
441 "The Cont-to-here icon.")
442
443(defvar idlwave-toolbar-step-over-icon
444 (idlwave-toolbar-make-button
445 "/* XPM */
446static char * file[] = {
447\"28 28 3 1\",
5e72c6b2 448\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 449\". c #000000000000\",
450\"G c #0000BBBB0000\",
451\" \",
452\" \",
453\" \",
454\" \",
455\" \",
456\" \",
457\" ..... \",
458\" .GGGG. ....... \",
459\" .GGGGG. \",
460\" .GG.... \",
461\" .GG. ....... \",
462\" .GG. . \",
463\" .GG. .. \",
464\" .GG. .G. ....... \",
465\" .GG...GG. \",
466\" .GGGGGGGG. \",
467\" .GGGGGGGGG. ....... \",
468\" .GGGGGGG. \",
469\" ....GG. \",
470\" .G. ....... \",
471\" .. \",
472\" . \",
473\" ....... \",
474\" \",
475\" \",
476\" \",
477\" \",
478\" \"};")
479 "The Step Over icon.")
480
481(defvar idlwave-toolbar-step-into-icon
482 (idlwave-toolbar-make-button
483 "/* XPM */
484static char * file[] = {
485\"28 28 3 1\",
5e72c6b2 486\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 487\". c #000000000000\",
488\"G c #0000BBBB0000\",
489\" \",
490\" \",
491\" \",
492\" \",
493\" \",
494\" \",
495\" ..... ....... \",
496\" .GGGG. \",
497\" .GGGGG. \",
498\" .GG.... ........ \",
499\" .GG. \",
500\" .GG. . \",
501\" .GG. .. \",
502\" .GG. .G. \",
503\" .GG...GG. ....... \",
504\" .GGGGGGGG. \",
505\" .GGGGGGGGG. \",
506\" .GGGGGGG. ....... \",
507\" ....GG. \",
508\" .G. \",
509\" .. ....... \",
510\" . \",
511\" \",
512\" \",
513\" \",
514\" \",
515\" \",
516\" \"};")
517 "The Step Into icon.")
518
519(defvar idlwave-toolbar-step-out-icon
520 (idlwave-toolbar-make-button
521 "/* XPM */
522static char * file[] = {
523\"28 28 3 1\",
5e72c6b2 524\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 525\". c #000000000000\",
526\"G c #0000BBBB0000\",
527\" \",
528\" \",
529\" \",
530\" \",
531\" \",
532\" \",
533\" . \",
534\" .. ........ \",
535\" .G. \",
536\" ....GG. \",
537\" .GGGGGGG. ........ \",
538\" .GGGGGGGGG. \",
539\" .GGGGGGGG. \",
540\" .GG...GG. ........ \",
541\" .GG. .G. \",
542\" .GG. .. \",
543\" .GG. . \",
544\" .GG. \",
545\" .GG....... ....... \",
546\" .GGGGGGGG. \",
547\" .GGGGGGG. \",
548\" ........ ....... \",
549\" \",
550\" \",
551\" \",
552\" \",
553\" \",
554\" \"};")
555 "The Step up icon.")
556
557
558(defvar idlwave-toolbar-eval-icon
559 (idlwave-toolbar-make-button
560 "/* XPM */
561static char * file[] = {
562\"28 28 2 1\",
5e72c6b2 563\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 564\". c #000000000000\",
565\" \",
566\" \",
567\" \",
568\" \",
569\" \",
570\" \",
571\" \",
572\" \",
573\" \",
574\" \",
575\" \",
576\" .... \",
577\" .. .. ...... \",
578\" .. .. ...... \",
579\" .. .. \",
580\" .. .. ...... \",
581\" .. .. ...... \",
582\" .... \",
583\" .. \",
584\" .. \",
585\" \",
586\" \",
587\" \",
588\" \",
589\" \",
590\" \",
591\" \",
592\" \"};")
593 "The Evaluate icon.")
594
595(defvar idlwave-toolbar-stack-up-icon
596 (idlwave-toolbar-make-button
597 "/* XPM */
598static char * file[] = {
599\"28 28 5 1\",
5e72c6b2 600\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 601\". s FgColor c #000000000000\",
602\"_ c #FFFFFFFFFFFF\",
603\"G c #0000BBBB0000\",
604\"R c #FFFF00000000\",
605\" \",
606\" \",
607\" \",
608\" \",
609\" \",
610\" ........ . \",
611\" .______. ... \",
612\" .______. ..... \",
613\" .______. ....... \",
614\" .______. ... \",
615\" .______. ... \",
616\" ........ ... \",
617\" .GGGGGG. ... \",
618\" .GGGGGG. ... \",
619\" .GGGGGG. \",
620\" .GGGGGG. \",
621\" .GGGGGG. \",
622\" ........ \",
623\" .RRRRRR. \",
624\" .RRRRRR. \",
625\" .RRRRRR. \",
626\" .RRRRRR. \",
627\" .RRRRRR. \",
628\" ........ \",
629\" \",
630\" \",
631\" \",
632\" \"};")
633 "The Stack Up icon.")
634
635(defvar idlwave-toolbar-stack-down-icon
636 (idlwave-toolbar-make-button
637 "/* XPM */
638static char * file[] = {
639\"28 28 5 1\",
5e72c6b2 640\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 641\". s FgColor c #000000000000\",
642\"_ c #FFFFFFFFFFFF\",
643\"G c #0000BBBB0000\",
644\"R c #FFFF00000000\",
645\" \",
646\" \",
647\" \",
648\" \",
649\" \",
650\" ........ \",
651\" .______. \",
652\" .______. \",
653\" .______. \",
654\" .______. \",
655\" .______. \",
656\" ........ \",
657\" .GGGGGG. \",
658\" .GGGGGG. \",
659\" .GGGGGG. \",
660\" .GGGGGG. ... \",
661\" .GGGGGG. ... \",
662\" ........ ... \",
663\" .RRRRRR. ... \",
664\" .RRRRRR. ... \",
665\" .RRRRRR. ....... \",
666\" .RRRRRR. ..... \",
667\" .RRRRRR. ... \",
668\" ........ . \",
669\" \",
670\" \",
671\" \",
672\" \"};")
673 "The Stack Down icon.")
674
675(defvar idlwave-toolbar-reset-icon
676 (idlwave-toolbar-make-button
677 "/* XPM */
678static char * file[] = {
679\"28 28 3 1\",
5e72c6b2 680\" c None s backgroundToolBarColor\",
8c7b4ec8
EZ		 681\"G c #0000BBBB0000\",
682\". c #000000000000\",
683\" \",
684\" \",
685\" \",
686\" . \",
687\" .G. . \",
688\" .GGG.. .G. \",
689\" .GGGGG..GG. \",
690\" ..GGGGGGGG. \",
691\" ..GGGGGG. \",
692\" ..GGGGG. \",
693\" .GGGGGG. \",
694\" .G...... \",
695\" \",
696\" ..... \",
697\" ......... \",
698\" ......... \",
699\" ......... \",
700\" . ..... . \",
701\" . . \",
702\" . . \",
703\" . . \",
704\" . . \",
705\" . . \",
706\" .. .. \",
707\" ....... \",
708\" ..... \",
709\" \",
710\" \"};")
711 "The Reset icon.")
712
713(defvar idlwave-toolbar
714 '(
715 [idlwave-toolbar-compile-icon
716 idlwave-shell-save-and-compile
717 t
718 "Save and Compile this file (or recompile last)"]
719 [idlwave-toolbar-next-error-icon
720 idlwave-shell-goto-next-error
721 t
722 "Goto Next Error"]
723 [idlwave-toolbar-stop-at-icon
724 idlwave-shell-break-here
725 (eq major-mode 'idlwave-mode)
726 "Set Breakpoint at selected position"]
727 [idlwave-toolbar-stop-in-icon
728 idlwave-shell-break-in
729 t
730 "Stop in Function with name near at point"]
731 [idlwave-toolbar-clear-at-icon
732 idlwave-shell-clear-current-bp
733 t
734 "Clear Breakpoint at selected position"]
735 [idlwave-toolbar-clear-all-icon
736 idlwave-shell-clear-all-bp
737 t
738 "Clear all Breakpoints"]
739 [idlwave-toolbar-edit-cmd-icon
740 idlwave-shell-edit-default-command-line
741 t
742 "Edit Default Command Line"]
743 [idlwave-toolbar-run-icon
744 idlwave-shell-execute-default-command-line
745 t
746 "Reset, then Execute Default Command Line"]
747 [idlwave-toolbar-cont-icon
748 idlwave-shell-cont
749 t
750 "Continue Current Program"]
751 [idlwave-toolbar-to-here-icon
752 idlwave-shell-to-here
753 (eq major-mode 'idlwave-mode)
754 "Continue to Here (cursor position)"]
755 [idlwave-toolbar-step-over-icon
756 idlwave-shell-stepover
757 t
758 "Step Over (aka next)"]
759 [idlwave-toolbar-step-into-icon
760 idlwave-shell-step
761 t
762 "Step Into (aka step)"]
763 [idlwave-toolbar-step-out-icon
764 idlwave-shell-out
765 t
766 "Step Out (of subroutine)"]
767 [idlwave-toolbar-eval-icon
768 idlwave-shell-print
769 t
770 "Print Expression at or before Point"]
771 [idlwave-toolbar-stack-up-icon
772 idlwave-shell-stack-up
773 t
774 "Stack Up (towards \"cooler\" - less recently visited - frames)"]
775 [idlwave-toolbar-stack-down-icon
776 idlwave-shell-stack-down
777 t
778 "Stack Down (towards \"warmer\" - more recently visited - frames)"]
779 [idlwave-toolbar-reset-icon
780 idlwave-shell-reset
781 t
782 "Reset IDL (RETALL & CLOSE,/ALL and more)"]
783 ))
784
8124289f 785;; When the shell exits, arrange to remove the special toolbar everywhere.
8c7b4ec8
EZ		 786(add-hook 'idlwave-shell-cleanup-hook
787 'idlwave-toolbar-remove-everywhere)
788);; End can define toolbar
789
790(defun idlwave-toolbar-add ()
791 "Add the IDLWAVE toolbar if appropriate."
792 (if (and (featurep 'xemacs) ; This is a noop on Emacs
8124289f 793 (boundp 'idlwave-toolbar-is-possible)
8c7b4ec8
EZ		 794 (or (eq major-mode 'idlwave-mode)
795 (eq major-mode 'idlwave-shell-mode)))
796 (set-specifier default-toolbar (cons (current-buffer)
797 idlwave-toolbar))))
798
799(defun idlwave-toolbar-remove ()
800 "Add the IDLWAVE toolbar if appropriate."
801 (if (and (featurep 'xemacs) ; This is a noop on Emacs
8124289f 802 (boundp 'idlwave-toolbar-is-possible)
8c7b4ec8
EZ		 803 (or (eq major-mode 'idlwave-mode)
804 (eq major-mode 'idlwave-shell-mode)))
805 (remove-specifier default-toolbar (current-buffer))))
806
807(defvar idlwave-shell-mode-map)
15e42531 808(defvar idlwave-mode-map)
8c7b4ec8
EZ		 809(defvar idlwave-toolbar-visible nil)
810(defun idlwave-toolbar-add-everywhere ()
811 "Add the toolbar in all appropriate buffers."
8124289f
CD		 812 (when (boundp 'idlwave-toolbar-is-possible)
813
814 ;; First make sure new buffers will get the toolbar
815 (add-hook 'idlwave-mode-hook 'idlwave-toolbar-add)
816 ;; Then add it to all existing buffers
817 (if (featurep 'xemacs)
818 ;; For XEmacs, map over all buffers to add toolbar
819 (save-excursion
820 (mapcar (lambda (buf)
821 (set-buffer buf)
822 (idlwave-toolbar-add))
823 (buffer-list)))
824 ;; For Emacs, add the key definitions to the mode maps
825 (mapcar (lambda (x)
826 (let* ((icon (aref x 0))
827 (func (aref x 1))
828 ;;(show (aref x 2))
829 (help (aref x 3))
830 (key (vector 'tool-bar func))
831 (def (list 'menu-item
832 "a"
833 func
834 :image (symbol-value icon)
835 :help help)))
836 (define-key idlwave-mode-map key def)
837 (define-key idlwave-shell-mode-map key def)))
838 (reverse idlwave-toolbar)))
839 (setq idlwave-toolbar-visible t)))
8c7b4ec8
EZ		 840
841(defun idlwave-toolbar-remove-everywhere ()
842 "Remove the toolbar in all appropriate buffers."
843 ;; First make sure new buffers won't get the toolbar
8124289f
CD		 844 (when idlwave-toolbar-is-possible
845 (remove-hook 'idlwave-mode-hook 'idlwave-toolbar-add)
846 ;; Then remove it in all existing buffers.
847 (if (featurep 'xemacs)
848 ;; For XEmacs, map over all buffers to remove toolbar
849 (save-excursion
850 (mapcar (lambda (buf)
851 (set-buffer buf)
852 (idlwave-toolbar-remove))
853 (buffer-list)))
854 ;; For Emacs, remove the key definitions from the mode maps
855 (mapcar (lambda (x)
856 (let* (;;(icon (aref x 0))
857 (func (aref x 1))
858 ;;(show (aref x 2))
859 ;;(help (aref x 3))
860 (key (vector 'tool-bar func)))
861 (define-key idlwave-mode-map key nil)
862 (define-key idlwave-shell-mode-map key nil)))
863 idlwave-toolbar))
864 (setq idlwave-toolbar-visible nil)))
865
866(defun idlwave-toolbar-toggle (&optional force-on)
8c7b4ec8
EZ		 867 (interactive)
868 (if idlwave-toolbar-visible
8124289f 869 (or force-on (idlwave-toolbar-remove-everywhere))
15e42531
CD		 870 (idlwave-toolbar-add-everywhere))
871 ;; Now make sure this
872 (if (featurep 'xemacs)
873 nil ; no action necessary, toolbar gets updated automatically
874 ;; On Emacs, redraw the frame to make sure the Toolbar is updated.
875 (redraw-frame (selected-frame))))
8c7b4ec8
EZ		 876
877(provide 'idlw-toolbar)
1a4bfedd 878(provide 'idlwave-toolbar)
8c7b4ec8
EZ		 879
880;;; idlw-toolbar.el ends here
5e72c6b2
S		 881
882
ab5796a9 883;;; arch-tag: ec9a3717-c44c-4716-9bda-cdacbe5ddb62
Unnamed repository; edit this file 'description' to name the repository.