Mercurial > emacs
changeset 50796:5f329faeef51
(breakpoint-enabled-icon, breakpoint-disabled-icon):
Include bitmap data for monochrome display.
(breakpoint-enabled-pbm-data, breakpoint-disabled-pbm-data):
New constants.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 03 May 2003 22:20:57 +0000 |
| parents | fcc4e9e830f2 |
| children | 5b0873c0b734 |
| files | lisp/gdb-ui.el |
| diffstat | 1 files changed, 66 insertions(+), 32 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gdb-ui.el Sat May 03 21:55:09 2003 +0000 +++ b/lisp/gdb-ui.el Sat May 03 22:20:57 2003 +0000 @@ -1262,8 +1262,72 @@ 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 @@ (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."