changeset 53101:b34783a00130

(gud-gdba-command-name): Find gdb command via PATH. (breakpoint-xpm-data, breakpoint-enabled-pbm-data): Make smoother. (breakpoint-enabled-icon, breakpoint-disabled-icon): Set :ascent to 100 for icons to avoid increasing line height when shown.
author Kim F. Storm <storm@cua.dk>
date Wed, 19 Nov 2003 23:40:17 +0000
parents 6e721456722f
children ee7654b3187a
files lisp/gdb-ui.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gdb-ui.el	Wed Nov 19 23:39:51 2003 +0000
+++ b/lisp/gdb-ui.el	Wed Nov 19 23:40:17 2003 +0000
@@ -589,7 +589,7 @@
 ;; any newlines.
 ;;
 
-(defcustom gud-gdba-command-name "~/gdb/gdb/gdb -annotate=3"
+(defcustom gud-gdba-command-name "gdb -annotate=3"
   "Default command to execute an executable under the GDB-UI debugger."
   :type 'string
   :group 'gud)
@@ -933,32 +933,32 @@
 \"  c red\",
 \"+ c None\",
 /* pixels */
+\"+++    +++\",
 \"++      ++\",
 \"+        +\",
 \"          \",
 \"          \",
 \"          \",
 \"          \",
-\"          \",
-\"          \",
 \"+        +\",
 \"++      ++\",
+\"+++    +++\",
 };"
   "XPM data used for breakpoint icon.")
 
 (defconst breakpoint-enabled-pbm-data
 "P1
 10 10\",
+0 0 0 0 1 1 1 1 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 1 1 1 1 1 1 0 0 0
+0 0 0 0 1 1 1 1 0 0 0 0"
   "PBM data used for enabled breakpoint icon.")
 
 (defconst breakpoint-disabled-pbm-data
@@ -977,13 +977,13 @@
   "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)))
+  (find-image `((:type xpm :data ,breakpoint-xpm-data :ascent 100)
+		(:type pbm :data ,breakpoint-enabled-pbm-data :ascent 100)))
   "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)))
+  (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled :ascent 100)
+		(:type pbm :data ,breakpoint-disabled-pbm-data :ascent 100)))
   "Icon for disabled breakpoint in display margin")
 
 ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer)