Mercurial > hg > xemacs-beta

comparison lisp/modes/outl-mouse.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents 4b173ad71786
children 131b0175ea99
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
107 Set this to nil to inhibit progress messages.") 107 Set this to nil to inhibit progress messages.")
108 108
109 ;; 109 ;;
110 ;; No user definable variables beyond this point. 110 ;; No user definable variables beyond this point.
111 ;; 111 ;;
112 (defconst outline-up-arrow 112
113 (make-pixmap ; an up-arrow 113 ;; I'll bet there's a neat way to do this with specifiers -- a pity the
114 (if (featurep 'xpm) 114 ;; sucks so badly on it. -sb
115 (concat "/* XPM */ 115 (defconst outline-up-arrow ; XEmacs
116 (make-glyph ; an up-arrow
117 (cond ((featurep 'xpm) (vector 'xpm :data (concat "/* XPM */
116 static char * arrow[] = { 118 static char * arrow[] = {
117 \"10 10 5 1\", 119 \"10 10 5 1\",
118 \" c none\", 120 \" c none\",
119 \". c " outline-glyph-lit-colour "\", 121 \". c " outline-glyph-lit-colour "\",
120 \"X c " outline-glyph-shade-colour "\", 122 \"X c " outline-glyph-shade-colour "\",
127 \" ..ooXX \", 129 \" ..ooXX \",
128 \" ..ooXX \", 130 \" ..ooXX \",
129 \" ..ooooXX \", 131 \" ..ooooXX \",
130 \" ..ooooXX \", 132 \" ..ooooXX \",
131 \"..OOOOOOXX\", 133 \"..OOOOOOXX\",
132 \"OOOOOOOOOO\"};") 134 \"OOOOOOOOOO\"};")))
133 (list 10 10 (concat "\000\000\000\000\060\000\060\000\150\000" 135 ((featurep 'x)
134 "\150\000\324\000\324\000\376\001\376\001")))) 136 (vector 'xbm
137 :data
138 (list 10 10
139 (concat "\000\000\000\000\060\000\060\000\150\000"
140 "\150\000\324\000\324\000\376\001\376\001"))))
141 (t "^")))
135 "Bitmap object for outline up glyph.") 142 "Bitmap object for outline up glyph.")
136 143
137 (defconst outline-up-arrow-mask 144 (defconst outline-up-arrow-mask ; XEmacs
138 (make-pixmap ; an up-arrow 145 (make-glyph ; an up-arrow
139 (if (featurep 'xpm) 146 (cond ((featurep 'xpm) (vector 'xpm :data (concat "/* XPM */
140 (concat "/* XPM */
141 static char * arrow[] = { 147 static char * arrow[] = {
142 \"10 10 5 1\", 148 \"10 10 5 1\",
143 \" c none\", 149 \" c none\",
144 \". c " outline-glyph-shade-colour "\", 150 \". c " outline-glyph-shade-colour "\",
145 \"X c " outline-glyph-lit-colour "\", 151 \"X c " outline-glyph-lit-colour "\",
152 \" ..ooXX \", 158 \" ..ooXX \",
153 \" ..ooXX \", 159 \" ..ooXX \",
154 \" ..ooooXX \", 160 \" ..ooooXX \",
155 \" ..ooooXX \", 161 \" ..ooooXX \",
156 \"..OOOOOOXX\", 162 \"..OOOOOOXX\",
157 \"OOOOOOOOOO\"};") 163 \"OOOOOOOOOO\"};")))
158 (list 10 10 (concat "\000\000\000\000\060\000\060\000\130\000" 164 ((featurep 'x)
159 "\130\000\254\000\274\000\006\001\376\001")))) 165 (vector 'xbm
166 :data
167 (list 10 10
168 (concat "\000\000\000\000\060\000\060\000\130\000"
169 "\130\000\254\000\274\000\006\001\376\001"))))
170 (t "+")))
160 "Bitmap object for outline depressed up glyph.") 171 "Bitmap object for outline depressed up glyph.")
161 172
162 (defconst outline-down-arrow 173 (defconst outline-down-arrow ; XEmacs
163 (make-pixmap ; a down-arrow 174 (make-glyph ; a down-arrow
164 (if (featurep 'xpm) 175 (cond ((featurep 'xpm) (vector 'xpm :data (concat "/* XPM */
165 (concat "/* XPM */
166 static char * down[] = { 176 static char * down[] = {
167 \"10 10 5 1\", 177 \"10 10 5 1\",
168 \" c " outline-glyph-lit-colour "\", 178 \" c " outline-glyph-lit-colour "\",
169 \". c " outline-glyph-lit-colour "\", 179 \". c " outline-glyph-lit-colour "\",
170 \"X c " outline-glyph-shade-colour "\", 180 \"X c " outline-glyph-shade-colour "\",
177 \"oo..OOXXoo\", 187 \"oo..OOXXoo\",
178 \"oo..OOXXoo\", 188 \"oo..OOXXoo\",
179 \"ooo..XXooo\", 189 \"ooo..XXooo\",
180 \"ooo..XXooo\", 190 \"ooo..XXooo\",
181 \"oooo.Xoooo\", 191 \"oooo.Xoooo\",
182 \"oooo.Xoooo\"};") 192 \"oooo.Xoooo\"};")))
183 (list 10 10 (concat "\000\000\000\000\376\001\202\001\364\000" 193 ((featurep 'x)
184 "\324\000\150\000\150\000\060\000\060\000")))) 194 (vector 'xbm
195 :data
196 (list 10 10
197 (concat "\000\000\000\000\376\001\202\001\364\000"
198 "\324\000\150\000\150\000\060\000\060\000"))))
199 (t "v")))
185 "Bitmap object for outline down glyph.") 200 "Bitmap object for outline down glyph.")
186 201
187 (defconst outline-down-arrow-mask 202 (defconst outline-down-arrow-mask ; XEmacs
188 (make-pixmap ; a down-arrow 203 (make-glyph ; a down-arrow
189 (if (featurep 'xpm) 204 (cond ((featurep 'xpm) (vector 'xpm :data (concat "/* XPM */
190 (concat "/* XPM */
191 static char * down[] = { 205 static char * down[] = {
192 \"10 10 5 1\", 206 \"10 10 5 1\",
193 \" c " outline-glyph-shade-colour "\", 207 \" c " outline-glyph-shade-colour "\",
194 \". c " outline-glyph-shade-colour "\", 208 \". c " outline-glyph-shade-colour "\",
195 \"X c " outline-glyph-lit-colour "\", 209 \"X c " outline-glyph-lit-colour "\",
202 \"oo..OOXXoo\", 216 \"oo..OOXXoo\",
203 \"oo..OOXXoo\", 217 \"oo..OOXXoo\",
204 \"ooo..XXooo\", 218 \"ooo..XXooo\",
205 \"ooo..XXooo\", 219 \"ooo..XXooo\",
206 \"oooo.Xoooo\", 220 \"oooo.Xoooo\",
207 \"oooo.Xoooo\"};") 221 \"oooo.Xoooo\"};")))
208 (list 10 10 (concat "\000\000\000\000\376\001\376\001\254\000" 222 ((featurep 'x)
209 "\254\000\130\000\130\000\060\000\060\000")))) 223 (vector 'xbm
224 :data
225 (list 10 10
226 (concat "\000\000\000\000\376\001\376\001\254\000"
227 "\254\000\130\000\130\000\060\000\060\000"))))
228 (t "+")))
210 "Bitmap object for outline depressed down glyph.") 229 "Bitmap object for outline depressed down glyph.")
211 230
212 (defconst outline-right-arrow 231 (defconst outline-right-arrow
213 (make-pixmap ; a right-arrow 232 (make-glyph ; a right-arrow
214 (if (featurep 'xpm) 233 (cond ((featurep 'xpm) (vector 'xpm :data (concat "/* XPM */
215 (concat "/* XPM */
216 static char * right[] = { 234 static char * right[] = {
217 \"10 10 5 1\", 235 \"10 10 5 1\",
218 \" c " outline-glyph-lit-colour "\", 236 \" c " outline-glyph-lit-colour "\",
219 \". c " outline-glyph-lit-colour "\", 237 \". c " outline-glyph-lit-colour "\",
220 \"X c none\", 238 \"X c none\",
227 \" oooo....\", 245 \" oooo....\",
228 \" ooooOOOO\", 246 \" ooooOOOO\",
229 \" ooOOOOXX\", 247 \" ooOOOOXX\",
230 \" OOOOXXXX\", 248 \" OOOOXXXX\",
231 \" OOOXXXXXX\", 249 \" OOOXXXXXX\",
232 \" OXXXXXXXX\"};") 250 \" OXXXXXXXX\"};")))
233 (list 10 10 (concat "\000\000\006\000\032\000\142\000\232\001" 251 ((featurep 'x)
234 "\352\001\172\000\036\000\006\000\000\000")))) 252 (vector 'xbm
253 :data
254 (list 10 10
255 (concat "\000\000\006\000\032\000\142\000\232\001"
256 "\352\001\172\000\036\000\006\000\000\000"))))
257 (t ">")))
235 "Bitmap object for outline right glyph.") 258 "Bitmap object for outline right glyph.")
236 259
237 (defconst outline-right-arrow-mask 260 (defconst outline-right-arrow-mask
238 (make-pixmap ; a right-arrow 261 (make-glyph ; a right-arrow
239 (if (featurep 'xpm) 262 (cond ((featurep 'xpm) (vector 'xpm :data (concat "/* XPM */
240 (concat "/* XPM */
241 static char * right[] = { 263 static char * right[] = {
242 \"10 10 5 1\", 264 \"10 10 5 1\",
243 \" c " outline-glyph-shade-colour "\", 265 \" c " outline-glyph-shade-colour "\",
244 \". c " outline-glyph-shade-colour "\", 266 \". c " outline-glyph-shade-colour "\",
245 \"X c none\", 267 \"X c none\",
252 \" oooo....\", 274 \" oooo....\",
253 \" ooooOOOO\", 275 \" ooooOOOO\",
254 \" ooOOOOXX\", 276 \" ooOOOOXX\",
255 \" OOOOXXXX\", 277 \" OOOOXXXX\",
256 \" OOOXXXXXX\", 278 \" OOOXXXXXX\",
257 \" OXXXXXXXX\"};") 279 \" OXXXXXXXX\"};")))
258 (list 10 10 (concat "\000\000\006\000\036\000\176\000\346\001" 280 ((featurep 'x)
259 "\236\001\146\000\036\000\006\000\000\000")))) 281 (vector 'xbm
282 :data
283 (list 10 10
284 (concat "\000\000\006\000\036\000\176\000\346\001"
285 "\236\001\146\000\036\000\006\000\000\000"))))
286 (t "+")))
260 "Bitmap object for outline depressed right glyph.") 287 "Bitmap object for outline depressed right glyph.")
261 288
262 (defvar outline-glyph-menu 289 (defvar outline-glyph-menu
263 '("Outline Commands" 290 '("Outline Commands"
264 ["Hide all" hide-body t] 291 ["Hide all" hide-body t]