diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2003-05-03 22:20:57 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2003-05-03 22:20:57 +0000 |
| commit | d408a783f8f456e305e2cde47a90f74147d286ce (patch) | |
| tree | cae03b825e5cf41a1d76c0b6defd64788bec1d03 /lisp/gdb-ui.el | |
| parent | 93e36c9cbf7cd56281c4e61edca8fa6c16126d6f (diff) | |
| download | emacs-d408a783f8f456e305e2cde47a90f74147d286ce.tar.gz | |
(breakpoint-enabled-icon, breakpoint-disabled-icon):
Include bitmap data for monochrome display.
(breakpoint-enabled-pbm-data, breakpoint-disabled-pbm-data):
New constants.
Diffstat (limited to 'lisp/gdb-ui.el')
| -rw-r--r-- | lisp/gdb-ui.el | 98 |
1 files changed, 66 insertions, 32 deletions
diff --git a/lisp/gdb-ui.el b/lisp/gdb-ui.el index 325b90bc44c..79e185fe7a5 100644 --- a/lisp/gdb-ui.el +++ b/lisp/gdb-ui.el @@ -1262,8 +1262,72 @@ output from the current command if that happens to be appropriate." gdb-info-breakpoints-custom) (defvar gdb-cdir nil "Compilation directory.") -(defvar breakpoint-enabled-icon) -(defvar breakpoint-disabled-icon) + +(defconst breakpoint-xpm-data "/* XPM */ +static char *magick[] = { +/* columns rows colors chars-per-pixel */ +\"12 12 2 1\", +\" c red\", +\"+ c None\", +/* pixels */ +\"++++++++++++\", +\"+++ +++\", +\"++ ++\", +\"+ +\", +\"+ +\", +\"+ +\", +\"+ +\", +\"+ +\", +\"+ +\", +\"++ ++\", +\"+++ +++\", +\"++++++++++++\" +};" + "XPM data used for breakpoint icon.") + +(defconst breakpoint-enabled-pbm-data +"P1 +12 12\", +0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 1 1 1 1 1 1 0 0 0 +0 0 1 1 1 1 1 1 1 1 0 0 +0 1 1 1 1 1 1 1 1 1 1 0 +0 1 1 1 1 1 1 1 1 1 1 0 +0 1 1 1 1 1 1 1 1 1 1 0 +0 1 1 1 1 1 1 1 1 1 1 0 +0 1 1 1 1 1 1 1 1 1 1 0 +0 1 1 1 1 1 1 1 1 1 1 0 +0 0 1 1 1 1 1 1 1 1 0 0 +0 0 0 1 1 1 1 1 1 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0" + "PBM data used for enabled breakpoint icon.") + +(defconst breakpoint-disabled-pbm-data +"P1 +12 12\", +0 0 0 0 0 0 0 0 0 0 0 0 +0 0 0 1 0 1 0 1 0 0 0 0 +0 0 1 0 1 0 1 0 1 0 0 0 +0 1 0 1 0 1 0 1 0 1 0 0 +0 0 1 0 1 0 1 0 1 0 1 0 +0 1 0 1 0 1 0 1 0 1 0 0 +0 0 1 0 1 0 1 0 1 0 1 0 +0 1 0 1 0 1 0 1 0 1 0 0 +0 0 1 0 1 0 1 0 1 0 1 0 +0 0 0 1 0 1 0 1 0 1 0 0 +0 0 0 0 1 0 1 0 1 0 0 0 +0 0 0 0 0 0 0 0 0 0 0 0" + "PBM data used for disabled breakpoint icon.") + +(defvar breakpoint-enabled-icon + (find-image `((:type xpm :data ,breakpoint-xpm-data) + (:type pbm :data ,breakpoint-enabled-pbm-data))) + "Icon for enabled breakpoint in display margin") + +(defvar breakpoint-disabled-icon + (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled) + (:type pbm :data ,breakpoint-disabled-pbm-data))) + "Icon for disabled breakpoint in display margin") ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer) (defun gdb-info-breakpoints-custom () @@ -1910,36 +1974,6 @@ This arrangement depends on the value of `gdb-many-windows'." (gud-find-file gdb-main-file))) (other-window 1))) -(defconst breakpoint-xpm-data "/* XPM */ -static char *magick[] = { -/* columns rows colors chars-per-pixel */ -\"12 12 2 1\", -\" c red\", -\"+ c None\", -/* pixels */ -\"+++++ +++++\", -\"+++ +++\", -\"++ ++\", -\"+ +\", -\"+ +\", -\" \", -\" \", -\"+ +\", -\"+ +\", -\"++ ++\", -\"+++ +++\", -\"+++++ +++++\" -};" - "XPM file used for breakpoint icon.") - -(defvar breakpoint-enabled-icon - (find-image `((:type xpm :data ,breakpoint-xpm-data))) - "Icon for enabled breakpoint in display margin") -(defvar breakpoint-disabled-icon - (find-image `((:type xpm :data ,breakpoint-xpm-data - :conversion laplace))) - "Icon for disabled breakpoint in display margin") - (defun gdb-reset () "Exit a debugging session cleanly by killing the gdb buffers and resetting the source buffers." |