Mercurial > emacs

comparison lisp/gdb-ui.el @ 50796:5f329faeef51

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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))