# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1052000457 0
# Node ID 5f329faeef5109cd31f83cdf6c6fe5629464450c
# Parent  fcc4e9e830f29816bbda37085f97b516a1e5f48a
(breakpoint-enabled-icon, breakpoint-disabled-icon):
Include bitmap data for monochrome display.
(breakpoint-enabled-pbm-data, breakpoint-disabled-pbm-data):
New constants.

diff -r fcc4e9e830f2 -r 5f329faeef51 lisp/gdb-ui.el
--- 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."