Mercurial > hg > xemacs-beta

comparison lisp/modes/outl-mouse.el @ 120:cca96a509cfe r20-1b12

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