1 ;;; sun-eos-toolbar.el --- Implements the EOS toolbar interface
3 ;; Copyright (C) Sun Microsystems, Inc.
5 ;; Maintainer: Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
6 ;; Author: Eduardo Pelegri-Llopart <eduardo.pelegri-llopart@Eng.Sun.COM>
8 ;; Keywords: SPARCworks EOS Era on SPARCworks toolbar
12 ;; Please send feedback to eduardo.pelegri-llopart@eng.sun.com
16 (defvar eos::toolbar-icon-directory
17 (file-name-as-directory (locate-data-directory "eos")))
19 (defvar eos::toolbar-run-icon
21 (toolbar-make-button-list
23 static char * file[] = {
25 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
26 \". s FgColor c #000000000000\",
27 \"X c #0000FFFF0000\",
28 \"+ c #000077770000\",
29 \"@ c #000044440000\",
43 \" .XXX++++. ....... \",
58 (toolbar-make-button-list
59 (expand-file-name "eos-run.xbm" eos::toolbar-icon-directory)))
62 (defvar eos::toolbar-type-icon
64 (toolbar-make-button-list
66 static char * file[] = {
68 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
69 \"X c #000000000000\",
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 \",
98 (toolbar-make-button-list
99 (expand-file-name "eos-type.xbm" eos::toolbar-icon-directory)))
100 "A Type-at icon pair.")
103 (defvar eos::toolbar-stop-at-icon
105 (toolbar-make-button-list
107 static char * file[] = {
109 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
110 \". c #4B4B4B4B4B4B\",
111 \"X c #FFFFFFFFFFFF\",
112 \"o c #AFAFAFAFAFAF\",
113 \"O c #FFFF00000000\",
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. \",
142 (toolbar-make-button-list
143 (expand-file-name "eos-stop.xbm" eos::toolbar-icon-directory)))
144 "A Stop At icon pair.")
146 (defvar eos::toolbar-clear-at-icon
148 (toolbar-make-button-list
150 static char * file[] = {
152 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
153 \". c #4B4B4B4B4B4B\",
154 \"X c #FFFFFFFFFFFF\",
155 \"o c #AFAFAFAFAFAF\",
156 \"O c #FFFF00000000\",
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. \",
185 (toolbar-make-button-list
186 (expand-file-name "eos-clear-at.xbm" eos::toolbar-icon-directory)))
187 "A Clear At icon pair.")
189 (defvar eos::toolbar-stop-in-icon
191 (toolbar-make-button-list
193 static char * file[] = {
195 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
196 \". c #4B4B4B4B4B4B\",
197 \"X c #FFFFFFFFFFFF\",
198 \"o c #AFAFAFAFAFAF\",
199 \"O c #FFFF00000000\",
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. \",
228 (toolbar-make-button-list
229 (expand-file-name "eos-stop-in.xbm" eos::toolbar-icon-directory)))
230 "A Stop in icon pair.")
232 (defvar eos::toolbar-step-into-icon
234 (toolbar-make-button-list
236 static char * file[] = {
238 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
239 \". c #000000000000\",
240 \"O c #0000FFFF0000\",
241 \"+ c #000077770000\",
242 \"@ c #000044440000\",
252 \" .O+.... ........ \",
257 \" .O+...O@. ....... \",
260 \" .++++++@. ....... \",
271 (toolbar-make-button-list
272 (expand-file-name "eos-step-into.xbm" eos::toolbar-icon-directory)))
273 "A Step Into icon pair.")
275 (defvar eos::toolbar-step-up-icon
277 (toolbar-make-button-list
279 static char * file[] = {
281 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
282 \". c #000000000000\",
283 \"O c #0000FFFF0000\",
284 \"+ c #000077770000\",
285 \"@ c #000044440000\",
296 \" .++++++@. ....... \",
299 \" .O+...O@. ....... \",
304 \" .O+.... ........ \",
314 (toolbar-make-button-list
315 (expand-file-name "eos-step-up.xbm" eos::toolbar-icon-directory)))
316 "A Step up icon pair.")
318 (defvar eos::toolbar-step-over-icon
320 (toolbar-make-button-list
322 static char * file[] = {
324 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
325 \". c #000000000000\",
326 \"X c #0000FFFF0000\",
327 \"+ c #000077770000\",
328 \"@ c #000044440000\",
336 \" .XXXX. ....... \",
342 \" .X+. .X. ....... \",
345 \" .X+++++++@. ....... \",
357 (toolbar-make-button-list
358 (expand-file-name "eos-step-over.xbm" eos::toolbar-icon-directory)))
359 "A Step Over icon pair.")
361 (defvar eos::toolbar-evaluate-icon
363 (toolbar-make-button-list
365 static char * file[] = {
367 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
368 \". c #000000000000\",
397 (toolbar-make-button-list
398 (expand-file-name "eos-evaluate.xbm" eos::toolbar-icon-directory)))
399 "A Evaluate icon pair.")
401 (defvar eos::toolbar-evaluate-star-icon
403 (toolbar-make-button-list
405 static char * file[] = {
407 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
408 \"X c #000000000000\",
422 \" XX XX XX XX XXXXXX \",
437 (toolbar-make-button-list
438 (expand-file-name "eos-evaluate-star.xbm" eos::toolbar-icon-directory)))
439 "A Evaluate Star icon pair.")
441 (defvar eos::toolbar-fix-icon
443 (toolbar-make-button-list
445 static char * file[] = {
447 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
448 \". c #7D7D7D7D7D7D\",
449 \"X c #000000000000\",
450 \"o c #FFFFFFFF0000\",
451 \"O c #FFFF99990000\",
452 \"+ c #FFFFCCCC3333\",
453 \"@ c #CCCC9999FFFF\",
454 \"# c #99996666CCCC\",
463 \" .Xo+++++++OOOX. \",
464 \" Xo++++++OOOXX. \",
467 \" .XoOOOXXXXXXXXXXXX \",
468 \" XoOXXX@@@@@@@@@@@X \",
469 \" XXX##############X \",
470 \" X@##############X \",
471 \" XXXXXXXXXXXXXXXXX \",
483 (toolbar-make-button-list
484 (expand-file-name "eos-fix.xbm" eos::toolbar-icon-directory)))
487 (defvar eos::toolbar-run2-icon
489 (toolbar-make-button-list
491 static char * file[] = {
493 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
494 \". s FgColor c #000000000000\",
495 \"X c #0000FFFF0000\",
496 \"o c #000077770000\",
497 \"O c #000044440000\",
509 \" ............XX. \",
510 \" .XXXXXXXXXXXXoX. \",
511 \" .XoooooooooooooX. \",
512 \" .Xooooooooooooooo. \",
513 \" .XoooooooooooooO. \",
514 \" .oOOOOOOOOOOOoO. \",
515 \" ............OO. \",
526 (toolbar-make-button-list
527 (expand-file-name "eos-run2.xbm" eos::toolbar-icon-directory)))
530 (defvar eos::toolbar-cont-icon
532 (toolbar-make-button-list
534 static char * file[] = {
536 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
537 \". c #000000000000\",
538 \"O c #0000FFFF0000\",
539 \"+ c #000077770000\",
540 \"@ c #000044440000\",
541 \"o c #FFFF00000000\",
551 \" .O+.... ........ \",
557 \" .O++OOO+@. .oo. \",
558 \" .O+++++++@. .oooo. \",
559 \" .++++++@. .oooo. \",
570 (toolbar-make-button-list
571 (expand-file-name "eos-cont.xbm" eos::toolbar-icon-directory)))
575 (defvar eos::toolbar-up-icon
577 (toolbar-make-button-list
579 static char * file[] = {
581 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
582 \". s FgColor c #000000000000\",
583 \"X c #CCCC9999FFFF\",
584 \"o c #99996666CCCC\",
585 \"O c #FFFFFFFF0000\",
586 \"+ c #FFFFCCCC3333\",
587 \"@ c #0000FFFF0000\",
588 \"# c #000077770000\",
595 \" ........ ..... \",
596 \" .XXXXXX. ....... \",
617 (toolbar-make-button-list
618 (expand-file-name "eos-up.xbm" eos::toolbar-icon-directory)))
621 (defvar eos::toolbar-down-icon
623 (toolbar-make-button-list
625 static char * file[] = {
627 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
628 \". s FgColor c #000000000000\",
629 \"X c #CCCC9999FFFF\",
630 \"o c #99996666CCCC\",
631 \"O c #FFFFFFFF0000\",
632 \"+ c #FFFFCCCC3333\",
633 \"@ c #0000FFFF0000\",
634 \"# c #000077770000\",
653 \" .@#####. ....... \",
654 \" .@#####. ..... \",
663 (toolbar-make-button-list
664 (expand-file-name "eos-down.xbm" eos::toolbar-icon-directory)))
667 (defvar eos::toolbar-build-icon
669 (toolbar-make-button-list
671 static char * file[] = {
673 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
674 \". c #000000000000\",
675 \"X c #CCCC9999FFFF\",
676 \"o c #99996666CCCC\",
677 \"O c #FFFFFFFF0000\",
678 \"+ c #FFFFCCCC3333\",
679 \"@ c #FFFF99990000\",
680 \"# c #FFFF66666666\",
694 \" .O+++@. .Xooo. \",
695 \" .O+++++@..Xooo. \",
696 \" .O+++++++@.Xooo. \",
697 \" .O+++.............. \",
699 \" ....... ###########. \",
700 \" . ###########. \",
701 \" . ###########. \",
702 \" .............. \",
709 (toolbar-make-button-list
710 (expand-file-name "eos-build.xbm" eos::toolbar-icon-directory)))
711 "A Build icon pair.")
713 (defvar eos::toolbar-dismiss-icon
715 (toolbar-make-button-list
717 static char * file[] = {
719 \" c #C8C8C8C8C8C8 s backgroundToolBarColor\",
720 \"X c #4B4B4B4B4B4B\",
721 \". c #FFFFFFFFFFFF\",
722 \"o c #AFAFAFAFAFAF\",
723 \"O c #FFFF00000000\",
752 (toolbar-make-button-list
753 (expand-file-name "eos-dismiss.xbm" eos::toolbar-icon-directory)))
754 "A Dismiss icon pair.")
756 (defvar eos::toolbar-intro-icon
758 (toolbar-make-button-list
760 static char * info[] = {
762 \"X c Gray75 s backgroundToolBarColor\",
763 \"o c #000077770000\",
764 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
765 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
766 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
767 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
768 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
769 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
770 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
771 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
772 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
773 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
774 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
775 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
776 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
777 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
778 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
779 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
780 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
781 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
782 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
783 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
784 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
785 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
786 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
787 \"XXXXXXXXXoooooooooXXXXXXXXXX\",
788 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
789 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
790 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
791 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
792 (toolbar-make-button-list
793 (expand-file-name "eos-intro.xbm" eos::toolbar-icon-directory)))
794 "An intro icon pair.")
796 (defvar eos::toolbar-introD-icon
798 (toolbar-make-button-list
800 static char * info[] = {
802 \"X c Gray75 s backgroundToolBarColor\",
803 \"o c #000077770000\",
804 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
805 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
806 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
807 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
808 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
809 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
810 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
811 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
812 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
813 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
814 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
815 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
816 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
817 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
818 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
819 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
820 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
821 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
822 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
823 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
824 \"XXoooXXXXXXoooooXXXXXXXXXXXX\",
825 \"XXoXXoXXXXXoooooXXXXXXXXXXXX\",
826 \"XXoXXoXXXXoooooooXXXXXXXXXXX\",
827 \"XXoXXoXXXoooooooooXXXXXXXXXX\",
828 \"XXoXXoXXXXXXXXXXXXXXXXXXXXXX\",
829 \"XXoXXoXXXXXXXXXXXXXXXXXXXXXX\",
830 \"XXoooXXXXXXXXXXXXXXXXXXXXXXX\",
831 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
832 (toolbar-make-button-list
833 (expand-file-name "eos-introD.xbm" eos::toolbar-icon-directory)))
834 "An intro icon pair.")
836 (defvar eos::toolbar-introDB-icon
838 (toolbar-make-button-list
840 static char * info[] = {
842 \"X c Gray75 s backgroundToolBarColor\",
843 \"o c #000077770000\",
844 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
845 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
846 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
847 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
848 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
849 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
850 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
851 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
852 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
853 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
854 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
855 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
856 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
857 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
858 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
859 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
860 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
861 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
862 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
863 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
864 \"XXoooXXXXXXoooooXXXXXXoooXXX\",
865 \"XXoXXoXXXXXoooooXXXXXXoXXoXX\",
866 \"XXoXXoXXXXoooooooXXXXXoXXoXX\",
867 \"XXoXXoXXXoooooooooXXXXoooXXX\",
868 \"XXoXXoXXXXXXXXXXXXXXXXoXXoXX\",
869 \"XXoXXoXXXXXXXXXXXXXXXXoXXoXX\",
870 \"XXoooXXXXXXXXXXXXXXXXXoooXXX\",
871 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
872 (toolbar-make-button-list
873 (expand-file-name "eos-introDB.xbm" eos::toolbar-icon-directory)))
874 "An intro icon pair.")
876 (defvar eos::toolbar-introB-icon
878 (toolbar-make-button-list
880 static char * info[] = {
882 \"X c Gray75 s backgroundToolBarColor\",
883 \"o c #000077770000\",
884 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
885 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
886 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
887 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
888 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
889 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
890 \"XXXXXXXXXXoooooooXXXXXXXXXXX\",
891 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
892 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
893 \"XXXXXXXXXXXXXoXXXXXXXXXXXXXX\",
894 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\",
895 \"XXXXXXXXXXooooooXXXXXXXXXXXX\",
896 \"XXXXXXXXXoooooooXXXXXXXXXXXX\",
897 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
898 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
899 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
900 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
901 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
902 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
903 \"XXXXXXXXXXXoooooXXXXXXXXXXXX\",
904 \"XXXXXXXXXXXoooooXXXXXXoooXXX\",
905 \"XXXXXXXXXXXoooooXXXXXXoXXoXX\",
906 \"XXXXXXXXXXoooooooXXXXXoXXoXX\",
907 \"XXXXXXXXXoooooooooXXXXoooXXX\",
908 \"XXXXXXXXXXXXXXXXXXXXXXoXXoXX\",
909 \"XXXXXXXXXXXXXXXXXXXXXXoXXoXX\",
910 \"XXXXXXXXXXXXXXXXXXXXXXoooXXX\",
911 \"XXXXXXXXXXXXXXXXXXXXXXXXXXXX\"};")
912 (toolbar-make-button-list
913 (expand-file-name "eos-introB.xbm" eos::toolbar-icon-directory)))
914 "An intro icon pair.")
917 (defvar eos::debugger-toolbar
919 [eos::toolbar-introD-icon
922 "Show Introduction to Eos"]
923 [eos::toolbar-stop-at-icon
925 eos::current-debugger-clique-id
926 "stop at: Stop at selected position"]
927 [eos::toolbar-stop-in-icon
929 eos::current-debugger-clique-id
930 "stop in: Stop in function whose name is selected"]
931 [eos::toolbar-clear-at-icon
933 eos::current-debugger-clique-id
934 "clear at: Clear at selected position"]
935 [eos::toolbar-run-icon
937 eos::current-debugger-clique-id
938 "run: Run current program"]
939 [eos::toolbar-evaluate-icon
941 eos::current-debugger-clique-id
942 "print: Evaluate selected expression; shows in separate XEmacs frame"]
943 [eos::toolbar-evaluate-star-icon
945 eos::current-debugger-clique-id
946 "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
947 [eos::toolbar-up-icon
949 eos::current-debugger-clique-id
950 "up: move in stack towards \"cooler\" (less recently visited) frames"]
951 [eos::toolbar-down-icon
953 eos::current-debugger-clique-id
954 "down: move in stack towards \"warmer\" (more recently visited) frames)"]
955 [eos::toolbar-cont-icon
957 eos::current-debugger-clique-id
958 "cont: Continue current program"]
959 [eos::toolbar-step-over-icon
961 eos::current-debugger-clique-id
962 "next: Step over subprogram calls"]
963 [eos::toolbar-step-into-icon
965 eos::current-debugger-clique-id
966 "step: Step into subprogram calls)"]
967 [eos::toolbar-step-up-icon
969 eos::current-debugger-clique-id
970 "step up: Step up from subprogram calls)"]
971 [eos::toolbar-build-icon
973 eos::current-debugger-clique-id
974 "make: Build target"]
975 [eos::toolbar-fix-icon
977 eos::current-debugger-clique-id
979 [eos::toolbar-type-icon
981 (or (and (eq eos::dbx-or-debugger 'debugger)
982 eos::current-debugger-clique-id)
983 (and (eq eos::dbx-or-debugger 'dbx)
985 (eq (process-status (eos::dbx-process)) 'run)))
986 "Type a Dbx command"]
989 (defvar eos::debugger-sbrowser-toolbar
991 [eos::toolbar-introDB-icon
994 "Show Introduction to Eos"]
995 [eos::toolbar-stop-at-icon
997 eos::current-debugger-clique-id
998 "stop at: Stop at selected position"]
999 [eos::toolbar-stop-in-icon
1001 eos::current-debugger-clique-id
1002 "stop in: Stop in function whose name is selected"]
1003 [eos::toolbar-clear-at-icon
1005 eos::current-debugger-clique-id
1006 "clear at: Clear at selected position"]
1007 [eos::toolbar-run-icon
1009 eos::current-debugger-clique-id
1010 "run: Run current program"]
1011 [eos::toolbar-evaluate-icon
1013 eos::current-debugger-clique-id
1014 "print: Evaluate selected expression; shows in separate XEmacs frame"]
1015 [eos::toolbar-evaluate-star-icon
1017 eos::current-debugger-clique-id
1018 "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
1019 [eos::toolbar-up-icon
1021 eos::current-debugger-clique-id
1022 "up: move in stack towards \"cooler\" (less recently visited) frames"]
1023 [eos::toolbar-down-icon
1025 eos::current-debugger-clique-id
1026 "down: move in stack towards \"warmer\" (more recently visited) frames)"]
1027 [eos::toolbar-cont-icon
1029 eos::current-debugger-clique-id
1030 "cont: Continue current program"]
1031 [eos::toolbar-step-over-icon
1033 eos::current-debugger-clique-id
1034 "next: Step over subprogram calls"]
1035 [eos::toolbar-step-into-icon
1037 eos::current-debugger-clique-id
1038 "step: Step into subprogram calls)"]
1039 [eos::toolbar-step-up-icon
1041 eos::current-debugger-clique-id
1042 "step up: Step up from subprogram calls)"]
1043 [eos::toolbar-build-icon
1045 eos::current-debugger-clique-id
1046 "make: Build target"]
1047 [eos::toolbar-fix-icon
1049 eos::current-debugger-clique-id
1051 [eos::toolbar-type-icon
1053 (or (and (eq eos::dbx-or-debugger 'debugger)
1054 eos::current-debugger-clique-id)
1055 (and (eq eos::dbx-or-debugger 'dbx)
1057 (eq (process-status (eos::dbx-process)) 'run)))
1058 "Type a Dbx command"]
1061 (defvar eos::sbrowser-toolbar
1062 '([eos::toolbar-introB-icon
1065 "Show Introduction to Eos"]
1068 (defvar eos::print-toolbar
1070 [eos::toolbar-intro-icon
1073 "Show Introduction to Eos"]
1074 [eos::toolbar-evaluate-icon
1076 eos::current-debugger-clique-id
1077 "print: Evaluate selected expression; shows in separate XEmacs frame"]
1078 [eos::toolbar-evaluate-star-icon
1080 eos::current-debugger-clique-id
1081 "print *: Evaluate selected expression as a pointer; shows in separate XEmacs frame"]
1082 [eos::toolbar-cont-icon
1083 eos::cont-and-dismiss
1084 eos::current-debugger-clique-id
1085 "cont & dismiss: Continue current program and dismiss this frame"]
1086 [eos::toolbar-step-over-icon
1087 eos::next-and-dismiss
1088 eos::current-debugger-clique-id
1089 "next & dismiss: Step over subprogram calls and dismiss this frame"]
1090 [eos::toolbar-step-into-icon
1091 eos::step-and-dismiss
1092 eos::current-debugger-clique-id
1093 "step & dismiss: Step into subprogram calls and dismiss this frame)"]
1094 [eos::toolbar-dismiss-icon
1095 eos::dismiss-print-frame
1097 "dismiss (make invisible) this print frame"]
1100 (defun eos::toolbar-position ()
1101 (let ((pos (default-toolbar-position)))
1102 (cond ((eq pos 'top) top-toolbar)
1103 ((eq pos 'bottom) bottom-toolbar)
1104 ((eq pos 'left) left-toolbar)
1105 ((eq pos 'right) right-toolbar)
1108 (provide 'eos-toolbar)
1110 ;;; sun-eos-toolbar.el ends here