589 |
;; any newlines. |
;; any newlines. |
590 |
;; |
;; |
591 |
|
|
592 |
(defcustom gud-gdba-command-name "~/gdb/gdb/gdb -annotate=3" |
(defcustom gud-gdba-command-name "gdb -annotate=3" |
593 |
"Default command to execute an executable under the GDB-UI debugger." |
"Default command to execute an executable under the GDB-UI debugger." |
594 |
:type 'string |
:type 'string |
595 |
:group 'gud) |
:group 'gud) |
933 |
\" c red\", |
\" c red\", |
934 |
\"+ c None\", |
\"+ c None\", |
935 |
/* pixels */ |
/* pixels */ |
936 |
|
\"+++ +++\", |
937 |
\"++ ++\", |
\"++ ++\", |
938 |
\"+ +\", |
\"+ +\", |
939 |
\" \", |
\" \", |
940 |
\" \", |
\" \", |
941 |
\" \", |
\" \", |
942 |
\" \", |
\" \", |
|
\" \", |
|
|
\" \", |
|
943 |
\"+ +\", |
\"+ +\", |
944 |
\"++ ++\", |
\"++ ++\", |
945 |
|
\"+++ +++\", |
946 |
};" |
};" |
947 |
"XPM data used for breakpoint icon.") |
"XPM data used for breakpoint icon.") |
948 |
|
|
949 |
(defconst breakpoint-enabled-pbm-data |
(defconst breakpoint-enabled-pbm-data |
950 |
"P1 |
"P1 |
951 |
10 10\", |
10 10\", |
952 |
|
0 0 0 0 1 1 1 1 0 0 0 0 |
953 |
0 0 0 1 1 1 1 1 1 0 0 0 |
0 0 0 1 1 1 1 1 1 0 0 0 |
954 |
0 0 1 1 1 1 1 1 1 1 0 0 |
0 0 1 1 1 1 1 1 1 1 0 0 |
955 |
0 1 1 1 1 1 1 1 1 1 1 0 |
0 1 1 1 1 1 1 1 1 1 1 0 |
956 |
0 1 1 1 1 1 1 1 1 1 1 0 |
0 1 1 1 1 1 1 1 1 1 1 0 |
957 |
0 1 1 1 1 1 1 1 1 1 1 0 |
0 1 1 1 1 1 1 1 1 1 1 0 |
958 |
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 |
|
959 |
0 0 1 1 1 1 1 1 1 1 0 0 |
0 0 1 1 1 1 1 1 1 1 0 0 |
960 |
0 0 0 1 1 1 1 1 1 0 0 0" |
0 0 0 1 1 1 1 1 1 0 0 0 |
961 |
|
0 0 0 0 1 1 1 1 0 0 0 0" |
962 |
"PBM data used for enabled breakpoint icon.") |
"PBM data used for enabled breakpoint icon.") |
963 |
|
|
964 |
(defconst breakpoint-disabled-pbm-data |
(defconst breakpoint-disabled-pbm-data |
977 |
"PBM data used for disabled breakpoint icon.") |
"PBM data used for disabled breakpoint icon.") |
978 |
|
|
979 |
(defvar breakpoint-enabled-icon |
(defvar breakpoint-enabled-icon |
980 |
(find-image `((:type xpm :data ,breakpoint-xpm-data) |
(find-image `((:type xpm :data ,breakpoint-xpm-data :ascent 100) |
981 |
(:type pbm :data ,breakpoint-enabled-pbm-data))) |
(:type pbm :data ,breakpoint-enabled-pbm-data :ascent 100))) |
982 |
"Icon for enabled breakpoint in display margin") |
"Icon for enabled breakpoint in display margin") |
983 |
|
|
984 |
(defvar breakpoint-disabled-icon |
(defvar breakpoint-disabled-icon |
985 |
(find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled) |
(find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled :ascent 100) |
986 |
(:type pbm :data ,breakpoint-disabled-pbm-data))) |
(:type pbm :data ,breakpoint-disabled-pbm-data :ascent 100))) |
987 |
"Icon for disabled breakpoint in display margin") |
"Icon for disabled breakpoint in display margin") |
988 |
|
|
989 |
;;-put breakpoint icons in relevant margins (even those set in the GUD buffer) |
;;-put breakpoint icons in relevant margins (even those set in the GUD buffer) |