Mercurial > emacs
comparison lisp/gdb-ui.el @ 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 | 6e0c9823bcc0 |
children | 8a38e6c7aa44 |
comparison
equal
deleted
inserted
replaced
50795:fcc4e9e830f2 | 50796:5f329faeef51 |
---|---|
1260 gdb-info-breakpoints-handler | 1260 gdb-info-breakpoints-handler |
1261 ;; buffer specific functions | 1261 ;; buffer specific functions |
1262 gdb-info-breakpoints-custom) | 1262 gdb-info-breakpoints-custom) |
1263 | 1263 |
1264 (defvar gdb-cdir nil "Compilation directory.") | 1264 (defvar gdb-cdir nil "Compilation directory.") |
1265 (defvar breakpoint-enabled-icon) | 1265 |
1266 (defvar breakpoint-disabled-icon) | 1266 (defconst breakpoint-xpm-data "/* XPM */ |
1267 static char *magick[] = { | |
1268 /* columns rows colors chars-per-pixel */ | |
1269 \"12 12 2 1\", | |
1270 \" c red\", | |
1271 \"+ c None\", | |
1272 /* pixels */ | |
1273 \"++++++++++++\", | |
1274 \"+++ +++\", | |
1275 \"++ ++\", | |
1276 \"+ +\", | |
1277 \"+ +\", | |
1278 \"+ +\", | |
1279 \"+ +\", | |
1280 \"+ +\", | |
1281 \"+ +\", | |
1282 \"++ ++\", | |
1283 \"+++ +++\", | |
1284 \"++++++++++++\" | |
1285 };" | |
1286 "XPM data used for breakpoint icon.") | |
1287 | |
1288 (defconst breakpoint-enabled-pbm-data | |
1289 "P1 | |
1290 12 12\", | |
1291 0 0 0 0 0 0 0 0 0 0 0 0 | |
1292 0 0 0 1 1 1 1 1 1 0 0 0 | |
1293 0 0 1 1 1 1 1 1 1 1 0 0 | |
1294 0 1 1 1 1 1 1 1 1 1 1 0 | |
1295 0 1 1 1 1 1 1 1 1 1 1 0 | |
1296 0 1 1 1 1 1 1 1 1 1 1 0 | |
1297 0 1 1 1 1 1 1 1 1 1 1 0 | |
1298 0 1 1 1 1 1 1 1 1 1 1 0 | |
1299 0 1 1 1 1 1 1 1 1 1 1 0 | |
1300 0 0 1 1 1 1 1 1 1 1 0 0 | |
1301 0 0 0 1 1 1 1 1 1 0 0 0 | |
1302 0 0 0 0 0 0 0 0 0 0 0 0" | |
1303 "PBM data used for enabled breakpoint icon.") | |
1304 | |
1305 (defconst breakpoint-disabled-pbm-data | |
1306 "P1 | |
1307 12 12\", | |
1308 0 0 0 0 0 0 0 0 0 0 0 0 | |
1309 0 0 0 1 0 1 0 1 0 0 0 0 | |
1310 0 0 1 0 1 0 1 0 1 0 0 0 | |
1311 0 1 0 1 0 1 0 1 0 1 0 0 | |
1312 0 0 1 0 1 0 1 0 1 0 1 0 | |
1313 0 1 0 1 0 1 0 1 0 1 0 0 | |
1314 0 0 1 0 1 0 1 0 1 0 1 0 | |
1315 0 1 0 1 0 1 0 1 0 1 0 0 | |
1316 0 0 1 0 1 0 1 0 1 0 1 0 | |
1317 0 0 0 1 0 1 0 1 0 1 0 0 | |
1318 0 0 0 0 1 0 1 0 1 0 0 0 | |
1319 0 0 0 0 0 0 0 0 0 0 0 0" | |
1320 "PBM data used for disabled breakpoint icon.") | |
1321 | |
1322 (defvar breakpoint-enabled-icon | |
1323 (find-image `((:type xpm :data ,breakpoint-xpm-data) | |
1324 (:type pbm :data ,breakpoint-enabled-pbm-data))) | |
1325 "Icon for enabled breakpoint in display margin") | |
1326 | |
1327 (defvar breakpoint-disabled-icon | |
1328 (find-image `((:type xpm :data ,breakpoint-xpm-data :conversion disabled) | |
1329 (:type pbm :data ,breakpoint-disabled-pbm-data))) | |
1330 "Icon for disabled breakpoint in display margin") | |
1267 | 1331 |
1268 ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer) | 1332 ;;-put breakpoint icons in relevant margins (even those set in the GUD buffer) |
1269 (defun gdb-info-breakpoints-custom () | 1333 (defun gdb-info-breakpoints-custom () |
1270 (let ((flag)(address)) | 1334 (let ((flag)(address)) |
1271 ;; | 1335 ;; |
1908 (if gud-last-last-frame | 1972 (if gud-last-last-frame |
1909 (gud-find-file (car gud-last-last-frame)) | 1973 (gud-find-file (car gud-last-last-frame)) |
1910 (gud-find-file gdb-main-file))) | 1974 (gud-find-file gdb-main-file))) |
1911 (other-window 1))) | 1975 (other-window 1))) |
1912 | 1976 |
1913 (defconst breakpoint-xpm-data "/* XPM */ | |
1914 static char *magick[] = { | |
1915 /* columns rows colors chars-per-pixel */ | |
1916 \"12 12 2 1\", | |
1917 \" c red\", | |
1918 \"+ c None\", | |
1919 /* pixels */ | |
1920 \"+++++ +++++\", | |
1921 \"+++ +++\", | |
1922 \"++ ++\", | |
1923 \"+ +\", | |
1924 \"+ +\", | |
1925 \" \", | |
1926 \" \", | |
1927 \"+ +\", | |
1928 \"+ +\", | |
1929 \"++ ++\", | |
1930 \"+++ +++\", | |
1931 \"+++++ +++++\" | |
1932 };" | |
1933 "XPM file used for breakpoint icon.") | |
1934 | |
1935 (defvar breakpoint-enabled-icon | |
1936 (find-image `((:type xpm :data ,breakpoint-xpm-data))) | |
1937 "Icon for enabled breakpoint in display margin") | |
1938 (defvar breakpoint-disabled-icon | |
1939 (find-image `((:type xpm :data ,breakpoint-xpm-data | |
1940 :conversion laplace))) | |
1941 "Icon for disabled breakpoint in display margin") | |
1942 | |
1943 (defun gdb-reset () | 1977 (defun gdb-reset () |
1944 "Exit a debugging session cleanly by killing the gdb buffers and resetting | 1978 "Exit a debugging session cleanly by killing the gdb buffers and resetting |
1945 the source buffers." | 1979 the source buffers." |
1946 (gdb-delete-frames '()) | 1980 (gdb-delete-frames '()) |
1947 (dolist (buffer (buffer-list)) | 1981 (dolist (buffer (buffer-list)) |