cgit.sxemacs.org Git - packages/blob - xemacs-packages/debug/debug-toolbar.el

   1 ;; debug-toolbar.el --- A toolbar for gdb.
   2
   3 ;; Copyright (C) 2002 Steve Youngs
   4
   5 ;; RCS: $Id: debug-toolbar.el,v 1.1 2002-04-30 15:27:57 youngs Exp $
   6 ;; Author:        Steve Youngs <youngs@xemacs.org>
   7 ;; Maintainer:    Steve Youngs <youngs@xemacs.org>
   8 ;; Created:       2002-05-01
   9 ;; Last-Modified: <2002-05-01 00:33:22 (steve)>
  10 ;; Keywords:      toolbar
  11
  12 ;; This file is part of XEmacs
  13
  14 ;; XEmacs is free software; you can redistribute it and/or modify
  15 ;; it under the terms of the GNU General Public License as published by
  16 ;; the Free Software Foundation; either version 2 of the License, or
  17 ;; (at your option) any later version.
  18
  19 ;; XEmacs is distributed in the hope that it will be useful,
  20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  22 ;; GNU General Public License for more details.
  23
  24 ;; You should have received a copy of the GNU General Public License
  25 ;; along with this program; if not, write to the Free Software
  26 ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  27
  28
  29 ;;; Commentary:
  30
  31 ;; This was ripped straight out of `sun-eos-toolbar.el'.  I did this
  32 ;; so that people using the debug package (gdb, gdbsrc, and friends)
  33 ;; wouldn't need to install the Sun package.
  34
  35 ;;; Code:
  36
  37 (defvar debug::toolbar-icon-directory
  38   (file-name-as-directory (locate-data-directory "eos")))
  39
  40 (defvar debug::toolbar-run-icon
  41   (if (featurep 'xpm)
  42       (toolbar-make-button-list
  43        "/* XPM */
  44 static char * file[] = {
  45 \"28 28 5 1\",
  46 \"      c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  47 \".     s FgColor c #000000000000\",
  48 \"X     c #0000FFFF0000\",
  49 \"+     c #000077770000\",
  50 \"@     c #000044440000\",
  51 \"                            \",
  52 \"                            \",
  53 \"                            \",
  54 \"                            \",
  55 \"                            \",
  56 \"                            \",
  57 \"                            \",
  58 \"                 .......    \",
  59 \"                            \",
  60 \"     .....                  \",
  61 \"     .X+@.       .......    \",
  62 \"     .X+@.                  \",
  63 \"  ......@....               \",
  64 \"   .XXX++++.     .......    \",
  65 \"    .XX++@.                 \",
  66 \"     .@+@.                  \",
  67 \"      .@.        .......    \",
  68 \"       .                    \",
  69 \"                            \",
  70 \"                 .......    \",
  71 \"                            \",
  72 \"                            \",
  73 \"                 .......    \",
  74 \"                            \",
  75 \"                            \",
  76 \"                            \",
  77 \"                            \",
  78 \"                            \"};")
  79     (toolbar-make-button-list
  80      (expand-file-name "eos-run.xbm" debug::toolbar-icon-directory)))
  81   "A Run icon pair.")
  82
  83 (defvar debug::toolbar-stop-at-icon
  84   (if (featurep 'xpm)
  85       (toolbar-make-button-list
  86        "/* XPM */
  87 static char * file[] = {
  88 \"28 28 5 1\",
  89 \"      c #C8C8C8C8C8C8 s backgroundToolBarColor\",
  90 \".     c #4B4B4B4B4B4B\",
  91 \"X     c #FFFFFFFFFFFF\",
  92 \"o     c #AFAFAFAFAFAF\",
  93 \"O     c #FFFF00000000\",
  94 \"                            \",
  95 \"                            \",
  96 \"                            \",
  97 \"                            \",
  98 \"          ........          \",
  99 \"         .XXXXXXXX.         \",
 100 \"        .XoOOOOOOoX.        \",
 101 \"       .XoOOOOOOOOoX.       \",
 102 \"      .XoOOOOOOOOOOoX.      \",
 103 \"     .XoOOOOOOOOOOOOoX.     \",
 104 \"    .XoOOOOOOOOXOOOOOoX.    \",
 105 \"    .XOOOOOOOOOXXOOOOOX.    \",
 106 \"    .XOOOOXXXXXXXXOOOOX.    \",
 107 \"    .XOOOOXXXXXXXXXOOOX.    \",
 108 \"    .XOOOOXXXXXXXXOOOOX.    \",
 109 \"    .XOOOOOOOOOXXOOOOOX.    \",
 110 \"    .XOOOOOOOOOXOOOOOOX.    \",
 111 \"    .XoOOOOOOOOOOOOOOoX.    \",
 112 \"     .XoOOOOOOOOOOOOOX.     \",
 113 \"      .XoOOOOOOOOOOoX.      \",
 114 \"       .XoOOOOOOOOoX.       \",
 115 \"        .XoOOOOOOoX.        \",
 116 \"         .XXXXXXXX.         \",
 117 \"          ........          \",
 118 \"                            \",
 119 \"                            \",
 120 \"                            \",
 121 \"                            \"};")
 122     (toolbar-make-button-list