Mercurial > hg > xemacs-beta

comparison lisp/eos/sun-eos-toolbar.el @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children ac2d302a0011
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 ;;; sun-eos-toolbar.el --- Implements the EOS toolbar interface
2
3 ;; Copyright (C) Sun Microsystems, Inc.
4
5 ;; Maintainer: Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
6 ;; Author: Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
7
8 ;; Keywords: SPARCworks EOS Era on SPARCworks toolbar
9
10 ;;; Commentary:
11
12 ;; Please send feedback to eduardo.pelegri-llopart@eng.sun.com
13
14 ;;; Code:
15
16 (defvar eos::toolbar-icon-directory
17 (file-name-as-directory (expand-file-name "eos" data-directory)))
18
19 (defvar eos::toolbar-run-icon
20 (if (featurep 'xpm)
21 (toolbar-make-button-list
22 "/* XPM */
23 static char * file[] = {
24 \"28 28 5 1\",
25 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
26 \". s FgColor c #000000000000\",
27 \"X c #0000FFFF0000\",
28 \"+ c #000077770000\",
29 \"@ c #000044440000\",
30 \" \",
31 \" \",
32 \" \",
33 \" \",
34 \" \",
35 \" \",
36 \" \",
37 \" ....... \",
38 \" \",
39 \" ..... \",
40 \" .X+@. ....... \",
41 \" .X+@. \",
42 \" ......@.... \",
43 \" .XXX++++. ....... \",
44 \" .XX++@. \",
45 \" .@+@. \",
46 \" .@. ....... \",
47 \" . \",
48 \" \",
49 \" ....... \",
50 \" \",
51 \" \",
52 \" ....... \",
53 \" \",
54 \" \",
55 \" \",
56 \" \",
57 \" \"};")
58 (toolbar-make-button-list
59 (expand-file-name "eos-run.xbm" eos::toolbar-icon-directory)))
60 "A Run icon pair.")
61
62 (defvar eos::toolbar-type-icon
63 (if (featurep 'xpm)
64 (toolbar-make-button-list
65 "/* XPM */
66 static char * file[] = {
67 \"28 28 2 1\",
68 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
69 \"X c #000000000000\",
70 \" \",
71 \" \",
72 \" \",
73 \" \",
74 \" \",
75 \" \",
76 \" \",
77 \" \",
78 \" \",
79 \" \",
80 \" XX XX \",
81 \" XX XX \",
82 \" XXXX XXXX XX XX \",
83 \" XX XX XX XX XX XX XXX X \",
84 \" XX XX XX XX XXX X X X \",
85 \" XX XX XX XX X XXXX \",
86 \" XX XX XX XX XXX XXXX \",
87 \" XX XX XX XX XX XX X X X \",
88 \" XXX XXX XX XX X XXX \",
89 \" \",
90 \" \",
91 \" \",
92 \" \",
93 \" \",
94 \" \",
95 \" \",
96 \" \",
97 \" \"};")
98 (toolbar-make-button-list
99 (expand-file-name "eos-type.xbm" eos::toolbar-icon-directory)))
100 "A Type-at icon pair.")
101
102
103 (defvar eos::toolbar-stop-at-icon
104 (if (featurep 'xpm)
105 (toolbar-make-button-list
106 "/* XPM */
107 static char * file[] = {
108 \"28 28 5 1\",
109 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
110 \". c #4B4B4B4B4B4B\",
111 \"X c #FFFFFFFFFFFF\",
112 \"o c #AFAFAFAFAFAF\",
113 \"O c #FFFF00000000\",
114 \" \",
115 \" \",
116 \" \",
117 \" \",
118 \" ........ \",
119 \" .XXXXXXXX. \",
120 \" .XoOOOOOOoX. \",
121 \" .XoOOOOOOOOoX. \",
122 \" .XoOOOOOOOOOOoX. \",
123 \" .XoOOOOOOOOOOOOoX. \",
124 \" .XoOOOOOOOOXOOOOOoX. \",
125 \" .XOOOOOOOOOXXOOOOOX. \",
126 \" .XOOOOXXXXXXXXOOOOX. \",
127 \" .XOOOOXXXXXXXXXOOOX. \",
128 \" .XOOOOXXXXXXXXOOOOX. \",
129 \" .XOOOOOOOOOXXOOOOOX. \",
130 \" .XOOOOOOOOOXOOOOOOX. \",
131 \" .XoOOOOOOOOOOOOOOoX. \",
132 \" .XoOOOOOOOOOOOOOX. \",
133 \" .XoOOOOOOOOOOoX. \",
134 \" .XoOOOOOOOOoX. \",
135 \" .XoOOOOOOoX. \",
136 \" .XXXXXXXX. \",
137 \" ........ \",
138 \" \",
139 \" \",
140 \" \",
141 \" \"};")
142 (toolbar-make-button-list
143 (expand-file-name "eos-stop.xbm" eos::toolbar-icon-directory)))
144 "A Stop At icon pair.")
145
146 (defvar eos::toolbar-clear-at-icon
147 (if (featurep 'xpm)
148 (toolbar-make-button-list
149 "/* XPM */
150 static char * file[] = {
151 \"28 28 5 1\",
152 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
153 \". c #4B4B4B4B4B4B\",
154 \"X c #FFFFFFFFFFFF\",
155 \"o c #AFAFAFAFAFAF\",
156 \"O c #FFFF00000000\",
157 \" \",
158 \" \",
159 \" \",
160 \" \",
161 \" ........ \",
162 \" .XXXXXXXX. \",
163 \" .XoOOOOOOoX. \",
164 \" .XoOOOOOOOOoX. \",
165 \" .XoOOOOOOOOOOoX. \",
166 \" .XoOOOOOOOOOOOOoX. \",
167 \" .XoOOOXXOOOOXXOOOoX. \",
168 \" .XOOOOOXXOOXXOOOOOX. \",
169 \" .XOOOOOOXXXXOOOOOOX. \",
170 \" .XOOOOOOOXXOOOOOOOX. \",
171 \" .XOOOOOOXXXXOOOOOOX. \",
172 \" .XOOOOOXXOOXXOOOOOX. \",
173 \" .XOOOOXXOOOOXXOOOOX. \",
174 \" .XoOOOXOOOOOOXOOOoX. \",
175 \" .XoOOOOOOOOOOOOoX. \",
176 \" .XoOOOOOOOOOOoX. \",
177 \" .XoOOOOOOOOoX. \",
178 \" .XoOOOOOOoX. \",
179 \" .XXXXXXXX. \",
180 \" ........ \",
181 \" \",
182 \" \",
183 \" \",
184 \" \"};")
185 (toolbar-make-button-list
186 (expand-file-name "eos-clear-at.xbm" eos::toolbar-icon-directory)))
187 "A Clear At icon pair.")
188
189 (defvar eos::toolbar-stop-in-icon
190 (if (featurep 'xpm)
191 (toolbar-make-button-list
192 "/* XPM */
193 static char * file[] = {
194 \"28 28 5 1\",
195 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
196 \". c #4B4B4B4B4B4B\",
197 \"X c #FFFFFFFFFFFF\",
198 \"o c #AFAFAFAFAFAF\",
199 \"O c #FFFF00000000\",
200 \" \",
201 \" \",
202 \" \",
203 \" \",
204 \" ........ \",
205 \" .XXXXXXXX. \",
206 \" .XoOOOOOOoX. \",
207 \" .XoOOOOOOOOoX. \",
208 \" .XoOOOOOOOOOOoX. \",
209 \" .XoOOOOOOOOOOOOoX. \",
210 \" .XoOOOOOOOOOXOXOOoX. \",
211 \" .XOOOXXXXOOXOOOXOOX. \",
212 \" .XOOOXOOOOOXOOOXOOX. \",
213 \" .XOOOXOOOOOXOOOXOOX. \",
214 \" .XOOOXXXOOXOOOOOXOX. \",
215 \" .XOOOXOOOOOXOOOXOOX. \",
216 \" .XOOOXOOOOOXOOOXOOX. \",
217 \" .XoOOXOOOOOXOOOXOoX. \",
218 \" .XoOOOOOOOOXOXOoX. \",
219 \" .XoOOOOOOOOOOoX. \",
220 \" .XoOOOOOOOOoX. \",
221 \" .XoOOOOOOoX. \",
222 \" .XXXXXXXX. \",
223 \" ........ \",
224 \" \",
225 \" \",
226 \" \",
227 \" \"};")
228 (toolbar-make-button-list
229 (expand-file-name "eos-stop-in.xbm" eos::toolbar-icon-directory)))
230 "A Stop in icon pair.")
231
232 (defvar eos::toolbar-step-into-icon
233 (if (featurep 'xpm)
234 (toolbar-make-button-list
235 "/* XPM */
236 static char * file[] = {
237 \"28 28 5 1\",
238 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
239 \". c #000000000000\",
240 \"O c #0000FFFF0000\",
241 \"+ c #000077770000\",
242 \"@ c #000044440000\",
243 \" \",
244 \" \",
245 \" \",
246 \" \",
247 \" \",
248 \" \",
249 \" ..... ....... \",
250 \" .OOOO. \",
251 \" .O++++. \",
252 \" .O+.... ........ \",
253 \" .O+. \",
254 \" .O+. . \",
255 \" .O+. .. \",
256 \" .O+. .O. \",
257 \" .O+...O@. ....... \",
258 \" .O++OOO+@. \",
259 \" .O+++++++@. \",
260 \" .++++++@. ....... \",
261 \" ....O@. \",
262 \" .O. \",
263 \" .. ....... \",
264 \" . \",
265 \" \",
266 \" \",
267 \" \",
268 \" \",
269 \" \",
270 \" \"};")
271 (toolbar-make-button-list
272 (expand-file-name "eos-step-into.xbm" eos::toolbar-icon-directory)))
273 "A Step Into icon pair.")
274
275 (defvar eos::toolbar-step-over-icon
276 (if (featurep 'xpm)
277 (toolbar-make-button-list
278 "/* XPM */
279 static char * file[] = {
280 \"28 28 5 1\",
281 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
282 \". c #000000000000\",
283 \"X c #0000FFFF0000\",
284 \"+ c #000077770000\",
285 \"@ c #000044440000\",
286 \" \",
287 \" \",
288 \" \",
289 \" \",
290 \" \",
291 \" \",
292 \" ..... \",
293 \" .XXXX. ....... \",
294 \" .X++++. \",
295 \" .X+.... \",
296 \" .X+. ....... \",
297 \" .X+. . \",
298 \" .X+. .. \",
299 \" .X+. .X. ....... \",
300 \" .X+...X@. \",
301 \" .X++XXX+@. \",
302 \" .X+++++++@. ....... \",
303 \" .++++++@. \",
304 \" ....X@. \",
305 \" .X. ....... \",
306 \" .. \",
307 \" . \",
308 \" ....... \",
309 \" \",
310 \" \",
311 \" \",
312 \" \",
313 \" \"};")
314 (toolbar-make-button-list
315 (expand-file-name "eos-step-over.xbm" eos::toolbar-icon-directory)))
316 "A Step Over icon pair.")
317
318 (defvar eos::toolbar-evaluate-icon
319 (if (featurep 'xpm)
320 (toolbar-make-button-list
321 "/* XPM */
322 static char * file[] = {
323 \"28 28 2 1\",
324 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
325 \". c #000000000000\",
326 \" \",
327 \" \",
328 \" \",
329 \" \",
330 \" \",
331 \" \",
332 \" \",
333 \" \",
334 \" \",
335 \" \",
336 \" \",
337 \" .... \",
338 \" .. .. ...... \",
339 \" .. .. ...... \",
340 \" .. .. \",
341 \" .. .. ...... \",
342 \" .. .. ...... \",
343 \" .... \",
344 \" .. \",
345 \" .. \",
346 \" \",
347 \" \",
348 \" \",
349 \" \",
350 \" \",
351 \" \",
352 \" \",
353 \" \"};")
354 (toolbar-make-button-list
355 (expand-file-name "eos-evaluate.xbm" eos::toolbar-icon-directory)))
356 "A Evaluate icon pair.")
357
358 (defvar eos::toolbar-evaluate-star-icon
359 (if (featurep 'xpm)
360 (toolbar-make-button-list
361 "/* XPM */
362 static char * file[] = {
363 \"28 28 2 1\",
364 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
365 \"X c #000000000000\",
366 \" \",
367 \" \",
368 \" \",
369 \" \",
370 \" \",
371 \" \",
372 \" \",
373 \" \",
374 \" \",
375 \" XX XX \",
376 \" XXX \",
377 \" XXXXXXX \",
378 \" XXX XXXX \",
379 \" XX XX XX XX XXXXXX \",
380 \" XX XX XXXXXX \",
381 \" XX XX \",
382 \" XX XX XXXXXX \",
383 \" XX XX XXXXXX \",
384 \" XXXX \",
385 \" XX \",
386 \" XX \",
387 \" \",
388 \" \",
389 \" \",
390 \" \",
391 \" \",
392 \" \",
393 \" \"};")
394 (toolbar-make-button-list
395 (expand-file-name "eos-evaluate-star.xbm" eos::toolbar-icon-directory)))
396 "A Evaluate Star icon pair.")
397
398 (defvar eos::toolbar-fix-icon
399 (if (featurep 'xpm)
400 (toolbar-make-button-list
401 "/* XPM */
402 static char * file[] = {
403 \"28 28 8 1\",
404 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
405 \". c #7D7D7D7D7D7D\",
406 \"X c #000000000000\",
407 \"o c #FFFFFFFF0000\",
408 \"O c #FFFF99990000\",
409 \"+ c #FFFFCCCC3333\",
410 \"@ c #CCCC9999FFFF\",
411 \"# c #99996666CCCC\",
412 \" \",
413 \" \",
414 \" \",
415 \" \",
416 \" .XX. \",
417 \" XoOXX. \",
418 \" .Xo+OOXXX. \",
419 \" Xo++++OOOXXX \",
420 \" .Xo+++++++OOOX. \",
421 \" Xo++++++OOOXX. \",
422 \" .Xo++++OOXXX. \",
423 \" Xo++OOOXX. \",
424 \" .XoOOOXXXXXXXXXXXX \",
425 \" XoOXXX@@@@@@@@@@@X \",
426 \" XXX##############X \",
427 \" X@##############X \",
428 \" XXXXXXXXXXXXXXXXX \",
429 \" X@@@@X X@@@@X \",
430 \" X@###X X@###X \",
431 \" X@###X X@###X \",
432 \" X@###X X@###X \",
433 \" X@###X X@###X \",
434 \" XXXXXX XXXXXX \",
435 \" \",
436 \" \",
437 \" \",
438 \" \",
439 \" \"};")
440 (toolbar-make-button-list
441 (expand-file-name "eos-fix.xbm" eos::toolbar-icon-directory)))
442 "A Fix icon pair.")
443
444 (defvar eos::toolbar-run2-icon
445 (if (featurep 'xpm)
446 (toolbar-make-button-list
447 "/* XPM */
448 static char * file[] = {
449 \"28 28 5 1\",
450 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
451 \". s FgColor c #000000000000\",
452 \"X c #0000FFFF0000\",
453 \"o c #000077770000\",
454 \"O c #000044440000\",
455 \" \",
456 \" \",
457 \" \",
458 \" \",
459 \" \",
460 \" \",
461 \" \",
462 \" \",
463 \" . \",
464 \" .. \",
465 \" .X. \",
466 \" ............XX. \",
467 \" .XXXXXXXXXXXXoX. \",
468 \" .XoooooooooooooX. \",
469 \" .Xooooooooooooooo. \",
470 \" .XoooooooooooooO. \",
471 \" .oOOOOOOOOOOOoO. \",
472 \" ............OO. \",
473 \" .O. \",
474 \" .. \",
475 \" . \",
476 \" \",
477 \" \",
478 \" \",
479 \" \",
480 \" \",
481 \" \",
482 \" \"};")
483 (toolbar-make-button-list
484 (expand-file-name "eos-run2.xbm" eos::toolbar-icon-directory)))
485 "A Run icon pair.")
486
487 (defvar eos::toolbar-cont-icon
488 (if (featurep 'xpm)
489 (toolbar-make-button-list
490 "/* XPM */
491 static char * file[] = {
492 \"28 28 6 1\",
493 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
494 \". c #000000000000\",
495 \"O c #0000FFFF0000\",
496 \"+ c #000077770000\",
497 \"@ c #000044440000\",
498 \"o c #FFFF00000000\",
499 \" \",
500 \" \",
501 \" \",
502 \" \",
503 \" \",
504 \" \",
505 \" ..... ....... \",
506 \" .OOOO. \",
507 \" .O++++. \",
508 \" .O+.... ........ \",
509 \" .O+. \",
510 \" .O+. . \",
511 \" .O+. .. \",
512 \" .O+. .O. \",
513 \" .O+...O@. .. \",
514 \" .O++OOO+@. .oo. \",
515 \" .O+++++++@. .oooo. \",
516 \" .++++++@. .oooo. \",
517 \" ....O@. .oo. \",
518 \" .O. .. \",
519 \" .. \",
520 \" . \",
521 \" \",
522 \" \",
523 \" \",
524 \" \",
525 \" \",
526 \" \"};")
527 (toolbar-make-button-list
528 (expand-file-name "eos-cont.xbm" eos::toolbar-icon-directory)))
529 "A Cont icon pair.")
530
531
532 (defvar eos::toolbar-up-icon
533 (if (featurep 'xpm)
534 (toolbar-make-button-list
535 "/* XPM */
536 static char * file[] = {
537 \"28 28 8 1\",
538 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
539 \". s FgColor c #000000000000\",
540 \"X c #CCCC9999FFFF\",
541 \"o c #99996666CCCC\",
542 \"O c #FFFFFFFF0000\",
543 \"+ c #FFFFCCCC3333\",
544 \"@ c #0000FFFF0000\",
545 \"# c #000077770000\",
546 \" \",
547 \" \",
548 \" \",
549 \" \",
550 \" . \",
551 \" ... \",
552 \" ........ ..... \",
553 \" .XXXXXX. ....... \",
554 \" .Xooooo. ... \",
555 \" .Xooooo. ... \",
556 \" .Xooooo. ... \",
557 \" .Xooooo. ... \",
558 \" .O+++++. ... \",
559 \" .O+++++. ... \",
560 \" .O+++++. \",
561 \" .O+++++. \",
562 \" .O+++++. \",
563 \" .@#####. \",
564 \" .@#####. \",
565 \" .@#####. \",
566 \" .@#####. \",
567 \" .@#####. \",
568 \" ........ \",
569 \" \",
570 \" \",
571 \" \",
572 \" \",
573 \" \"};")
574 (toolbar-make-button-list
575 (expand-file-name "eos-up.xbm" eos::toolbar-icon-directory)))
576 "A Up icon pair.")
577
578 (defvar eos::toolbar-down-icon
579 (if (featurep 'xpm)
580 (toolbar-make-button-list
581 "/* XPM */
582 static char * file[] = {
583 \"28 28 8 1\",
584 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
585 \". s FgColor c #000000000000\",
586 \"X c #CCCC9999FFFF\",
587 \"o c #99996666CCCC\",
588 \"O c #FFFFFFFF0000\",
589 \"+ c #FFFFCCCC3333\",
590 \"@ c #0000FFFF0000\",
591 \"# c #000077770000\",
592 \" \",
593 \" \",
594 \" \",
595 \" \",
596 \" \",
597 \" \",
598 \" ........ \",
599 \" .XXXXXX. \",
600 \" .Xooooo. \",
601 \" .Xooooo. \",
602 \" .Xooooo. \",
603 \" .Xooooo. \",
604 \" .O+++++. ... \",
605 \" .O+++++. ... \",
606 \" .O+++++. ... \",
607 \" .O+++++. ... \",
608 \" .O+++++. ... \",
609 \" .@#####. ... \",
610 \" .@#####. ....... \",
611 \" .@#####. ..... \",
612 \" .@#####. ... \",
613 \" .@#####. . \",
614 \" ........ \",
615 \" \",
616 \" \",
617 \" \",
618 \" \",
619 \" \"};")
620 (toolbar-make-button-list
621 (expand-file-name "eos-down.xbm" eos::toolbar-icon-directory)))
622 "A Down icon pair.")
623
624 (defvar eos::toolbar-build-icon
625 (if (featurep 'xpm)
626 (toolbar-make-button-list
627 "/* XPM */
628 static char * file[] = {
629 \"28 28 8 1\",
630 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
631 \". c #000000000000\",
632 \"X c #CCCC9999FFFF\",
633 \"o c #99996666CCCC\",
634 \"O c #FFFFFFFF0000\",
635 \"+ c #FFFFCCCC3333\",
636 \"@ c #FFFF99990000\",
637 \"# c #FFFF66666666\",
638 \" \",
639 \" \",
640 \" \",
641 \" \",
642 \" ...... \",
643 \" .XXXX. \",
644 \" .Xooo. \",
645 \" .Xooo. \",
646 \" .Xooo. \",
647 \" .Xooo. \",
648 \" . .Xooo. \",
649 \" .O. .Xooo. \",
650 \" .O+@. .Xooo. \",
651 \" .O+++@. .Xooo. \",
652 \" .O+++++@..Xooo. \",
653 \" .O+++++++@.Xooo. \",
654 \" .O+++.............. \",
655 \" .O@@@@. . \",
656 \" ....... ###########. \",
657 \" . ###########. \",
658 \" . ###########. \",
659 \" .............. \",
660 \" \",
661 \" \",
662 \" \",
663 \" \",
664 \" \",
665 \" \"};")
666 (toolbar-make-button-list
667 (expand-file-name "eos-build.xbm" eos::toolbar-icon-directory)))
668 "A Build icon pair.")
669
670 (defvar eos::toolbar-dismiss-icon
671 (if (featurep 'xpm)
672 (toolbar-make-button-list
673 "/* XPM */
674 static char * file[] = {
675 \"28 28 5 1\",
676 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
677 \"X c #4B4B4B4B4B4B\",
678 \". c #FFFFFFFFFFFF\",
679 \"o c #AFAFAFAFAFAF\",
680 \"O c #FFFF00000000\",
681 \" \",
682 \" \",
683 \" \",
684 \" \",
685 \" \",
686 \" \",
687 \" X X \",
688 \" XX XX \",
689 \" XX XX \",
690 \" XX XX \",
691 \" XX XX \",
692 \" XX XX \",
693 \" XXXX \",
694 \" XX \",
695 \" XXXX \",
696 \" XX XX \",
697 \" XX XX \",
698 \" XX XX \",
699 \" XX XX \",
700 \" XX XX \",
701 \" X X \",
702 \" \",
703 \" \",
704 \" \",
705 \" \",
706 \" \",
707 \" \",
708 \" \"};")
709 (toolbar-make-button-list
710 (expand-file-name "eos-dismiss.xbm" eos::toolbar-icon-directory)))
711 "A Dismiss icon pair.")
712
713 (defvar eos::toolbar-intro-icon
714 (if (featurep 'xpm)
715 (toolbar-make-button-list
716 "/* XPM */
717 static char * info[] = {
718 \"28 28 2 1\",
719 \"X c Gray75 s backgroundToolBarColor\",
720 \"o c #000077770000\",
721 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
722 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
723 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
724 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
725 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
726 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
727 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
728 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
729 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
730 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
731 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
732 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
733 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
734 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
735 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
736 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
737 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
738 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
739 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
740 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
741 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
742 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
743 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
744 \"XXXXXXXXXoooooooooXXXXXXXXXX\",
745 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
746 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
747 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
748 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
749 (toolbar-make-button-list
750 (expand-file-name "eos-intro.xbm" eos::toolbar-icon-directory)))
751 "An intro icon pair.")
752
753 (defvar eos::toolbar-introD-icon
754 (if (featurep 'xpm)
755 (toolbar-make-button-list
756 "/* XPM */
757 static char * info[] = {
758 \"28 28 2 1\",
759 \"X c Gray75 s backgroundToolBarColor\",
760 \"o c #000077770000\",
761 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
762 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
763 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
764 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
765 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
766 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
767 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
768 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
769 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
770 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
771 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
772 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
773 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
774 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
775 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
776 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
777 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
778 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
779 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
780 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
781 \"XXoooXXXXXXoooooXXXXXXXXXXXX\",
782 \"XXoXXoXXXXXoooooXXXXXXXXXXXX\",
783 \"XXoXXoXXXXoooooooXXXXXXXXXXX\",
784 \"XXoXXoXXXoooooooooXXXXXXXXXX\",
785 \"XXoXXoXXXXXXXXXXXXXXXXXXXXXX\",
786 \"XXoXXoXXXXXXXXXXXXXXXXXXXXXX\",
787 \"XXoooXXXXXXXXXXXXXXXXXXXXXXX\",
788 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
789 (toolbar-make-button-list
790 (expand-file-name "eos-introD.xbm" eos::toolbar-icon-directory)))
791 "An intro icon pair.")
792
793 (defvar eos::toolbar-introDB-icon
794 (if (featurep 'xpm)
795 (toolbar-make-button-list
796 "/* XPM */
797 static char * info[] = {
798 \"28 28 2 1\",
799 \"X c Gray75 s backgroundToolBarColor\",
800 \"o c #000077770000\",
801 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
802 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
803 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
804 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
805 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
806 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
807 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
808 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
809 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
810 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
811 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
812 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
813 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
814 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
815 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
816 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
817 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
818 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
819 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
820 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
821 \"XXoooXXXXXXoooooXXXXXXoooXXX\",
822 \"XXoXXoXXXXXoooooXXXXXXoXXoXX\",
823 \"XXoXXoXXXXoooooooXXXXXoXXoXX\",
824 \"XXoXXoXXXoooooooooXXXXoooXXX\",
825 \"XXoXXoXXXXXXXXXXXXXXXXoXXoXX\",
826 \"XXoXXoXXXXXXXXXXXXXXXXoXXoXX\",
827 \"XXoooXXXXXXXXXXXXXXXXXoooXXX\",
828 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
829 (toolbar-make-button-list
830 (expand-file-name "eos-introDB.xbm" eos::toolbar-icon-directory)))
831 "An intro icon pair.")
832
833 (defvar eos::toolbar-introB-icon
834 (if (featurep 'xpm)
835 (toolbar-make-button-list
836 "/* XPM */
837 static char * info[] = {
838 \"28 28 2 1\",
839 \"X c Gray75 s backgroundToolBarColor\",
840 \"o c #000077770000\",
841 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
842 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
843 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
844 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
845 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
846 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
847 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
848 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
849 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
850 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
851 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
852 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
853 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
854 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
855 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
856 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
857 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
858 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
859 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
860 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
861 \"XXXXXXXXXXXoooooXXXXXXoooXXX\",
862 \"XXXXXXXXXXXoooooXXXXXXoXXoXX\",
863 \"XXXXXXXXXXoooooooXXXXXoXXoXX\",
864 \"XXXXXXXXXoooooooooXXXXoooXXX\",
865 \"XXXXXXXXXXXXXXXXXXXXXXoXXoXX\",
866 \"XXXXXXXXXXXXXXXXXXXXXXoXXoXX\",
867 \"XXXXXXXXXXXXXXXXXXXXXXoooXXX\",
868 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
869 (toolbar-make-button-list
870 (expand-file-name "eos-introB.xbm" eos::toolbar-icon-directory)))
871 "An intro icon pair.")
872
873
874 (defvar eos::debugger-toolbar
875 '(
876 [eos::toolbar-introD-icon
877 eos::sw-intro
878 t
879 "Show Introduction to Eos"]
880 [eos::toolbar-stop-at-icon
881 eos::stop-at
882 eos::current-debugger-clique-id
883 "stop at: Stop at selected position"]
884 [eos::toolbar-stop-in-icon
885 eos::stop-in
886 eos::current-debugger-clique-id
887 "stop in: Stop in function whose name is selected"]
888 [eos::toolbar-clear-at-icon
889 eos::clear-at
890 eos::current-debugger-clique-id
891 "clear at: Clear at selected position"]
892 [eos::toolbar-run-icon
893 eos::run
894 eos::current-debugger-clique-id
895 "run: Run current program"]
896 [eos::toolbar-evaluate-icon
897 eos::print
898 eos::current-debugger-clique-id
899 "print: Evaluate selected expression; shows in separate XEmacs frame"]
900 [eos::toolbar-evaluate-star-icon
901 eos::print*
902 eos::current-debugger-clique-id
903 "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
904 [eos::toolbar-up-icon
905 eos::up
906 eos::current-debugger-clique-id
907 "up: move in stack towards \"cooler\" (less recently visited) frames"]
908 [eos::toolbar-down-icon
909 eos::down
910 eos::current-debugger-clique-id
911 "down: move in stack towards \"warmer\" (more recently visited) frames)"]
912 [eos::toolbar-cont-icon
913 eos::cont
914 eos::current-debugger-clique-id
915 "cont: Continue current program"]
916 [eos::toolbar-step-over-icon
917 eos::next
918 eos::current-debugger-clique-id
919 "next: Step over subprogram calls"]
920 [eos::toolbar-step-into-icon
921 eos::step
922 eos::current-debugger-clique-id
923 "step: Step into subprogram calls)"]
924 [eos::toolbar-build-icon
925 eos::build
926 eos::current-debugger-clique-id
927 "make: Build target"]
928 [eos::toolbar-fix-icon
929 eos::fix
930 eos::current-debugger-clique-id
931 "fix: Fix file"]
932 [eos::toolbar-type-icon
933 eos::type
934 (or (and (eq eos::dbx-or-debugger 'debugger)
935 eos::current-debugger-clique-id)
936 (and (eq eos::dbx-or-debugger 'dbx)
937 (eos::dbx-process)
938 (eq (process-status (eos::dbx-process)) 'run)))
939 "Type a Dbx command"]
940 ))
941
942 (defvar eos::debugger-sbrowser-toolbar
943 '(
944 [eos::toolbar-introDB-icon
945 eos::sw-intro
946 t
947 "Show Introduction to Eos"]
948 [eos::toolbar-stop-at-icon
949 eos::stop-at
950 eos::current-debugger-clique-id
951 "stop at: Stop at selected position"]
952 [eos::toolbar-stop-in-icon
953 eos::stop-in
954 eos::current-debugger-clique-id
955 "stop in: Stop in function whose name is selected"]
956 [eos::toolbar-clear-at-icon
957 eos::clear-at
958 eos::current-debugger-clique-id
959 "clear at: Clear at selected position"]
960 [eos::toolbar-run-icon
961 eos::run
962 eos::current-debugger-clique-id
963 "run: Run current program"]
964 [eos::toolbar-evaluate-icon
965 eos::print
966 eos::current-debugger-clique-id
967 "print: Evaluate selected expression; shows in separate XEmacs frame"]
968 [eos::toolbar-evaluate-star-icon
969 eos::print*
970 eos::current-debugger-clique-id
971 "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
972 [eos::toolbar-up-icon
973 eos::up
974 eos::current-debugger-clique-id
975 "up: move in stack towards \"cooler\" (less recently visited) frames"]
976 [eos::toolbar-down-icon
977 eos::down
978 eos::current-debugger-clique-id
979 "down: move in stack towards \"warmer\" (more recently visited) frames)"]
980 [eos::toolbar-cont-icon
981 eos::cont
982 eos::current-debugger-clique-id
983 "cont: Continue current program"]
984 [eos::toolbar-step-over-icon
985 eos::next
986 eos::current-debugger-clique-id
987 "next: Step over subprogram calls"]
988 [eos::toolbar-step-into-icon
989 eos::step
990 eos::current-debugger-clique-id
991 "step: Step into subprogram calls)"]
992 [eos::toolbar-build-icon
993 eos::build
994 eos::current-debugger-clique-id
995 "make: Build target"]
996 [eos::toolbar-fix-icon
997 eos::fix
998 eos::current-debugger-clique-id
999 "fix: Fix file"]
1000 [eos::toolbar-type-icon
1001 eos::type
1002 (or (and (eq eos::dbx-or-debugger 'debugger)
1003 eos::current-debugger-clique-id)
1004 (and (eq eos::dbx-or-debugger 'dbx)
1005 (eos::dbx-process)
1006 (eq (process-status (eos::dbx-process)) 'run)))
1007 "Type a Dbx command"]
1008 ))
1009
1010 (defvar eos::sbrowser-toolbar
1011 '([eos::toolbar-introB-icon
1012 eos::sw-intro
1013 t
1014 "Show Introduction to Eos"]
1015 ))
1016
1017 (defvar eos::print-toolbar
1018 '(
1019 [eos::toolbar-intro-icon
1020 eos::sw-intro
1021 t
1022 "Show Introduction to Eos"]
1023 [eos::toolbar-evaluate-icon
1024 eos::print
1025 eos::current-debugger-clique-id
1026 "print: Evaluate selected expression; shows in separate XEmacs frame"]
1027 [eos::toolbar-evaluate-star-icon
1028 eos::print*
1029 eos::current-debugger-clique-id
1030 "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
1031 [eos::toolbar-cont-icon
1032 eos::cont-and-dismiss
1033 eos::current-debugger-clique-id
1034 "cont & dismiss: Continue current program and dismiss this frame"]
1035 [eos::toolbar-step-over-icon
1036 eos::next-and-dismiss
1037 eos::current-debugger-clique-id
1038 "next & dismiss: Step over subprogram calls and dismiss this frame"]
1039 [eos::toolbar-step-into-icon
1040 eos::step-and-dismiss
1041 eos::current-debugger-clique-id
1042 "step & dismiss: Step into subprogram calls and dismiss this frame)"]
1043 [eos::toolbar-dismiss-icon
1044 eos::dismiss-print-frame
1045 t
1046 "dismiss (make invisible) this print frame"]
1047 ))
1048
1049 (defun eos::toolbar-position ()
1050 (let ((pos (default-toolbar-position)))
1051 (cond ((eq pos 'top) top-toolbar)
1052 ((eq pos 'bottom) bottom-toolbar)
1053 ((eq pos 'left) left-toolbar)
1054 ((eq pos 'right) right-toolbar)
1055 (t top-toolbar))))
1056
1057 (provide 'eos-toolbar)
1058
1059 ;;; sun-eos-toolbar.el ends here