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