Mercurial > emacs

comparison lisp/gdb-ui.el @ 52868:34fccd9658c6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(breakpoint-xpm-data, breakpoint-enabled-pbm-data) (breakpoint-disabled-pbm-data): Make breakpoint icons 10x10 instead of 12x12.
author Nick Roberts <nickrob@snap.net.nz>
date Thu, 16 Oct 2003 19:26:49 +0000
parents f49c1c4d92de
children f27266006051
comparison
equal deleted inserted replaced
52867:e5dd8a7a6092 52868:34fccd9658c6
936 (defvar gdb-cdir nil "Compilation directory.") 936 (defvar gdb-cdir nil "Compilation directory.")
937 937
938 (defconst breakpoint-xpm-data "/* XPM */ 938 (defconst breakpoint-xpm-data "/* XPM */
939 static char *magick[] = { 939 static char *magick[] = {
940 /* columns rows colors chars-per-pixel */ 940 /* columns rows colors chars-per-pixel */
941 \"12 12 2 1\", 941 \"10 10 2 1\",
942 \" c red\", 942 \" c red\",
943 \"+ c None\", 943 \"+ c None\",
944 /* pixels */ 944 /* pixels */
945 \"++++++++++++\", 945 \"++ ++\",
946 \"+++ +++\", 946 \"+ +\",
947 \"++ ++\", 947 \" \",
948 \"+ +\", 948 \" \",
949 \"+ +\", 949 \" \",
950 \"+ +\", 950 \" \",
951 \"+ +\", 951 \" \",
952 \"+ +\", 952 \" \",
953 \"+ +\", 953 \"+ +\",
954 \"++ ++\", 954 \"++ ++\",
955 \"+++ +++\",
956 \"++++++++++++\"
957 };" 955 };"
958 "XPM data used for breakpoint icon.") 956 "XPM data used for breakpoint icon.")
959 957
960 (defconst breakpoint-enabled-pbm-data 958 (defconst breakpoint-enabled-pbm-data
961 "P1 959 "P1
962 12 12\", 960 10 10\",
963 0 0 0 0 0 0 0 0 0 0 0 0
964 0 0 0 1 1 1 1 1 1 0 0 0 961 0 0 0 1 1 1 1 1 1 0 0 0
965 0 0 1 1 1 1 1 1 1 1 0 0 962 0 0 1 1 1 1 1 1 1 1 0 0
966 0 1 1 1 1 1 1 1 1 1 1 0 963 0 1 1 1 1 1 1 1 1 1 1 0
967 0 1 1 1 1 1 1 1 1 1 1 0 964 0 1 1 1 1 1 1 1 1 1 1 0
968 0 1 1 1 1 1 1 1 1 1 1 0 965 0 1 1 1 1 1 1 1 1 1 1 0
969 0 1 1 1 1 1 1 1 1 1 1 0 966 0 1 1 1 1 1 1 1 1 1 1 0
970 0 1 1 1 1 1 1 1 1 1 1 0 967 0 1 1 1 1 1 1 1 1 1 1 0
971 0 1 1 1 1 1 1 1 1 1 1 0 968 0 1 1 1 1 1 1 1 1 1 1 0
972 0 0 1 1 1 1 1 1 1 1 0 0 969 0 0 1 1 1 1 1 1 1 1 0 0
973 0 0 0 1 1 1 1 1 1 0 0 0 970 0 0 0 1 1 1 1 1 1 0 0 0"
974 0 0 0 0 0 0 0 0 0 0 0 0"
975 "PBM data used for enabled breakpoint icon.") 971 "PBM data used for enabled breakpoint icon.")
976 972
977 (defconst breakpoint-disabled-pbm-data 973 (defconst breakpoint-disabled-pbm-data
978 "P1 974 "P1
979 12 12\", 975 10 10\",
980 0 0 0 0 0 0 0 0 0 0 0 0 976 0 0 1 0 1 0 1 0 0 0
981 0 0 0 1 0 1 0 1 0 0 0 0 977 0 1 0 1 0 1 0 1 0 0
982 0 0 1 0 1 0 1 0 1 0 0 0 978 1 0 1 0 1 0 1 0 1 0
983 0 1 0 1 0 1 0 1 0 1 0 0 979 0 1 0 1 0 1 0 1 0 1
984 0 0 1 0 1 0 1 0 1 0 1 0 980 1 0 1 0 1 0 1 0 1 0
985 0 1 0 1 0 1 0 1 0 1 0 0 981 0 1 0 1 0 1 0 1 0 1
986 0 0 1 0 1 0 1 0 1 0 1 0 982 1 0 1 0 1 0 1 0 1 0
987 0 1 0 1 0 1 0 1 0 1 0 0 983 0 1 0 1 0 1 0 1 0 1
988 0 0 1 0 1 0 1 0 1 0 1 0 984 0 0 1 0 1 0 1 0 1 0
989 0 0 0 1 0 1 0 1 0 1 0 0 985 0 0 0 1 0 1 0 1 0 0"
990 0 0 0 0 1 0 1 0 1 0 0 0
991 0 0 0 0 0 0 0 0 0 0 0 0"
992 "PBM data used for disabled breakpoint icon.") 986 "PBM data used for disabled breakpoint icon.")
993 987
994 (defvar breakpoint-enabled-icon 988 (defvar breakpoint-enabled-icon
995 (find-image `((:type xpm :data ,breakpoint-xpm-data) 989 (find-image `((:type xpm :data ,breakpoint-xpm-data)
996 (:type pbm :data ,breakpoint-enabled-pbm-data))) 990 (:type pbm :data ,breakpoint-enabled-pbm-data)))