/[cmucl]/src/motif/lisp/events.lisp
ViewVC logotype

Contents of /src/motif/lisp/events.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Mon Oct 31 04:54:48 1994 UTC (19 years, 5 months ago) by ram
Branch: MAIN
CVS Tags: sparc-tramp-assem-base, double-double-array-base, post-merge-intl-branch, release-19b-pre1, release-19b-pre2, merged-unicode-utf16-extfmt-2009-06-11, double-double-init-sparc-2, unicode-utf16-extfmt-2009-03-27, double-double-base, snapshot-2007-09, snapshot-2007-08, snapshot-2008-08, snapshot-2008-09, ppc_gencgc_snap_2006-01-06, sse2-packed-2008-11-12, snapshot-2008-05, snapshot-2008-06, snapshot-2008-07, snapshot-2007-05, snapshot-2008-01, snapshot-2008-02, snapshot-2008-03, intl-branch-working-2010-02-19-1000, snapshot-2006-11, snapshot-2006-10, double-double-init-sparc, snapshot-2006-12, unicode-string-buffer-impl-base, sse2-base, release-20b-pre1, release-20b-pre2, unicode-string-buffer-base, RELEASE_18d, sse2-packed-base, sparc-tramp-assem-2010-07-19, amd64-dd-start, snapshot-2003-10, snapshot-2004-10, release-18e-base, release-19f-pre1, snapshot-2008-12, snapshot-2008-11, intl-2-branch-base, snapshot-2004-08, snapshot-2004-09, remove_negative_zero_not_zero, snapshot-2007-01, snapshot-2007-02, snapshot-2004-05, snapshot-2004-06, snapshot-2004-07, release-19e, release-19d, GIT-CONVERSION, double-double-init-ppc, release-19c, dynamic-extent-base, unicode-utf16-sync-2008-12, LINKAGE_TABLE, release-19c-base, cross-sol-x86-merged, label-2009-03-16, release-19f-base, PRE_LINKAGE_TABLE, merge-sse2-packed, mod-arith-base, sparc_gencgc_merge, merge-with-19f, snapshot-2004-12, snapshot-2004-11, intl-branch-working-2010-02-11-1000, RELEASE_18a, RELEASE_18b, RELEASE_18c, unicode-snapshot-2009-05, unicode-snapshot-2009-06, amd64-merge-start, ppc_gencgc_snap_2005-12-17, double-double-init-%make-sparc, unicode-utf16-sync-2008-07, release-18e-pre2, unicode-utf16-sync-2008-09, unicode-utf16-extfmts-sync-2008-12, prm-before-macosx-merge-tag, cold-pcl-base, RELEASE_20b, snapshot-2008-04, snapshot-2003-11, snapshot-2005-07, unicode-utf16-sync-label-2009-03-16, RELEASE_19f, snapshot-2007-03, release-20a-base, cross-sol-x86-base, unicode-utf16-char-support-2009-03-26, unicode-utf16-char-support-2009-03-25, release-19a-base, unicode-utf16-extfmts-pre-sync-2008-11, snapshot-2008-10, sparc_gencgc, snapshot-2007-04, snapshot-2010-12, snapshot-2010-11, unicode-utf16-sync-2008-11, snapshot-2007-07, snapshot-2011-09, snapshot-2011-06, snapshot-2011-07, snapshot-2011-04, snapshot-2007-06, snapshot-2011-02, snapshot-2011-03, snapshot-2011-01, snapshot-2003-12, release-19a-pre1, release-19a-pre3, release-19a-pre2, pre-merge-intl-branch, release-19a, UNICODE-BASE, double-double-array-checkpoint, double-double-reader-checkpoint-1, release-19d-base, release-19e-pre1, double-double-irrat-end, release-19e-pre2, snapshot-2010-05, snapshot-2010-04, snapshot-2010-07, snapshot-2010-06, snapshot-2010-01, snapshot-2010-03, snapshot-2010-02, release-19d-pre2, release-19d-pre1, snapshot-2010-08, release-18e, double-double-init-checkpoint-1, double-double-reader-base, label-2009-03-25, snapshot-2005-03, release-19b-base, cross-sol-x86-2010-12-20, double-double-init-x86, sse2-checkpoint-2008-10-01, intl-branch-2010-03-18-1300, snapshot-2005-11, double-double-sparc-checkpoint-1, snapshot-2004-04, sse2-merge-with-2008-11, sse2-merge-with-2008-10, snapshot-2005-10, RELEASE_20a, snapshot-2005-12, release-20a-pre1, snapshot-2005-01, snapshot-2009-11, snapshot-2009-12, unicode-utf16-extfmt-2009-06-11, portable-clx-import-2009-06-16, unicode-utf16-string-support, release-19c-pre1, cross-sparc-branch-base, release-19e-base, intl-branch-base, double-double-irrat-start, snapshot-2005-06, snapshot-2005-05, snapshot-2005-04, ppc_gencgc_snap_2005-05-14, snapshot-2005-02, unicode-utf16-base, portable-clx-base, snapshot-2005-09, snapshot-2005-08, lisp-executable-base, snapshot-2009-08, snapshot-2007-12, snapshot-2007-10, snapshot-2007-11, snapshot-2009-02, snapshot-2009-01, snapshot-2009-07, snapshot-2009-05, snapshot-2009-04, snapshot-2006-02, snapshot-2006-03, release-18e-pre1, snapshot-2006-01, snapshot-2006-06, snapshot-2006-07, snapshot-2006-04, snapshot-2006-05, pre-telent-clx, snapshot-2006-08, snapshot-2006-09, HEAD
Branch point for: release-19b-branch, double-double-reader-branch, double-double-array-branch, mod-arith-branch, RELEASE-19F-BRANCH, portable-clx-branch, sparc_gencgc_branch, cross-sparc-branch, RELEASE-20B-BRANCH, RELENG_18, unicode-string-buffer-branch, sparc-tramp-assem-branch, dynamic-extent, UNICODE-BRANCH, release-19d-branch, ppc_gencgc_branch, sse2-packed-branch, lisp-executable, RELEASE-20A-BRANCH, amd64-dd-branch, double-double-branch, unicode-string-buffer-impl-branch, intl-branch, release-18e-branch, cold-pcl, unicode-utf16-branch, cross-sol-x86-branch, release-19e-branch, sse2-branch, release-19a-branch, release-19c-branch, intl-2-branch, unicode-utf16-extfmt-branch
Changes since 1.1: +3 -1 lines
Fix headed boilerplate.
1 ;;;; -*- Mode: Lisp ; Package: Toolkit-Internals -*-
2 ;;;
3 ;;; **********************************************************************
4 ;;; This code was written as part of the CMU Common Lisp project at
5 ;;; Carnegie Mellon University, and has been placed in the public domain.
6 ;;;
7 (ext:file-comment
8 "$Header: /tiger/var/lib/cvsroots/cmucl/src/motif/lisp/events.lisp,v 1.2 1994/10/31 04:54:48 ram Rel $")
9 ;;;
10 ;;; **********************************************************************
11 ;;;
12 ;;; Written by Michael Garland
13 ;;;
14 ;;; Alien definitions for all the various XEvent structures.
15 ;;;
16
17 (in-package "TOOLKIT-INTERNALS")
18
19
20
21 ;;;; Definitions of the various XEvent structures
22 ;;; We never include the (Display *) because it would be useless in Lisp and
23 ;;; we add the HANDLE field so that we can pass this event back to C.
24
25 (def-alien-type xid (unsigned 32))
26 (def-alien-type window xid)
27 (def-alien-type colormap xid)
28 (def-alien-type drawable xid)
29 (def-alien-type atom (unsigned 32))
30 (def-alien-type bool (boolean 32))
31 (def-alien-type time (unsigned 32))
32
33 (def-alien-type x-key-event
34 (struct nil
35 (handle unsigned-long)
36 (type int)
37 (serial unsigned-long)
38 (send-event bool)
39 (window window)
40 (root window)
41 (subwindow window)
42 (time time)
43 (x int)
44 (y int)
45 (x-root int)
46 (y-root int)
47 (state unsigned-int)
48 (keycode unsigned-int)
49 (same-screen bool)))
50
51 (def-alien-type x-button-event
52 (struct nil
53 (handle unsigned-long)
54 (type int)
55 (serial unsigned-long)
56 (send-event bool)
57 (window window)
58 (root window)
59 (subwindow window)
60 (time time)
61 (x int)
62 (y int)
63 (x-root int)
64 (y-root int)
65 (state unsigned-int)
66 (button unsigned-int)
67 (same-screen bool)))
68
69 (def-alien-type x-motion-event
70 (struct nil
71 (handle unsigned-long)
72 (type int)
73 (serial unsigned-long)
74 (send-event bool)
75 (window window)
76 (root window)
77 (subwindow window)
78 (time time)
79 (x int)
80 (y int)
81 (x-root int)
82 (y-root int)
83 (state unsigned-int)
84 (is-hint char)
85 (same-screen bool)))
86
87 (def-alien-type x-crossing-event
88 (struct nil
89 (handle unsigned-long)
90 (type int)
91 (serial unsigned-long)
92 (send-event bool)
93 (window window)
94 (root window)
95 (subwindow window)
96 (time time)
97 (x int)
98 (y int)
99 (x-root int)
100 (y-root int)
101 (mode int)
102 (detail int)
103 (same-screen bool)
104 (focus bool)
105 (state unsigned-int)))
106
107 (def-alien-type x-focus-change-event
108 (struct nil
109 (handle unsigned-long)
110 (type int)
111 (serial unsigned-long)
112 (send-event bool)
113 (window window)
114 (mode int)
115 (detail int)))
116
117 (def-alien-type x-keymap-event
118 (struct nil
119 (handle unsigned-long)
120 (type int)
121 (serial unsigned-long)
122 (send-event bool)
123 (window window)
124 (key-vector (array char 32))))
125
126 (def-alien-type x-expose-event
127 (struct nil
128 (handle unsigned-long)
129 (type int)
130 (serial unsigned-long)
131 (send-event bool)
132 (window window)
133 (x int)
134 (y int)
135 (width int)
136 (height int)
137 (count int)))
138
139 (def-alien-type x-graphics-expose-event
140 (struct nil
141 (handle unsigned-long)
142 (type int)
143 (serial unsigned-long)
144 (send-event bool)
145 (drawable drawable)
146 (x int)
147 (y int)
148 (width int)
149 (height int)
150 (count int)
151 (major-code int)
152 (minor-code int)))
153
154 (def-alien-type x-no-expose-event
155 (struct nil
156 (handle unsigned-long)
157 (type int)
158 (serial unsigned-long)
159 (send-event bool)
160 (drawable drawable)
161 (major-code int)
162 (minor-code int)))
163
164 (def-alien-type x-visibility-event
165 (struct nil
166 (handle unsigned-long)
167 (type int)
168 (serial unsigned-long)
169 (send-event bool)
170 (window window)
171 (state int)))
172
173 (def-alien-type x-create-window-event
174 (struct nil
175 (handle unsigned-long)
176 (type int)
177 (serial unsigned-long)
178 (send-event bool)
179 (parent window)
180 (window window)
181 (x int)
182 (y int)
183 (width int)
184 (height int)
185 (override-redirect bool)))
186
187 (def-alien-type x-destroy-window-event
188 (struct nil
189 (handle unsigned-long)
190 (type int)
191 (serial unsigned-long)
192 (send-event bool)
193 (event window)
194 (window window)))
195
196 (def-alien-type x-unmap-event
197 (struct nil
198 (handle unsigned-long)
199 (type int)
200 (serial unsigned-long)
201 (send-event bool)
202 (event window)
203 (window window)
204 (from-configure bool)))
205
206 (def-alien-type x-map-event
207 (struct nil
208 (handle unsigned-long)
209 (type int)
210 (serial unsigned-long)
211 (send-event bool)
212 (event window)
213 (window window)
214 (override-redirect bool)))
215
216 (def-alien-type x-map-request-event
217 (struct nil
218 (handle unsigned-long)
219 (type int)
220 (serial unsigned-long)
221 (send-event bool)
222 (parent window)
223 (window window)))
224
225 (def-alien-type x-reparent-event
226 (struct nil
227 (handle unsigned-long)
228 (type int)
229 (serial unsigned-long)
230 (send-event bool)
231 (event window)
232 (parent window)
233 (x int)
234 (y int)
235 (override-redirect bool)))
236
237 (def-alien-type x-configure-event
238 (struct nil
239 (handle unsigned-long)
240 (type int)
241 (serial unsigned-long)
242 (send-event bool)
243 (event window)
244 (window window)
245 (x int)
246 (y int)
247 (width int)
248 (height int)
249 (border-width int)
250 (above window)
251 (override-redirect bool)))
252
253 (def-alien-type x-gravity-event
254 (struct nil
255 (handle unsigned-long)
256 (type int)
257 (serial unsigned-long)
258 (send-event bool)
259 (event window)
260 (window window)
261 (x int)
262 (y int)))
263
264 (def-alien-type x-resize-request-event
265 (struct nil
266 (handle unsigned-long)
267 (type int)
268 (serial unsigned-long)
269 (send-event bool)
270 (window window)
271 (width int)
272 (height int)))
273
274 (def-alien-type x-configure-request-event
275 (struct nil
276 (handle unsigned-long)
277 (type int)
278 (serial unsigned-long)
279 (send-event bool)
280 (parent window)
281 (window window)
282 (x int)
283 (y int)
284 (width int)
285 (height int)
286 (border-width int)
287 (above window)
288 (detail int)
289 (value-mask unsigned-long)))
290
291 (def-alien-type x-circulate-event
292 (struct nil
293 (handle unsigned-long)
294 (type int)
295 (serial unsigned-long)
296 (send-event bool)
297 (event window)
298 (window window)
299 (place int)))
300
301 (def-alien-type x-circulate-request-event
302 (struct nil
303 (handle unsigned-long)
304 (type int)
305 (serial unsigned-long)
306 (send-event bool)
307 (parent window)
308 (window window)
309 (place int)))
310
311 (def-alien-type x-property-event
312 (struct nil
313 (handle unsigned-long)
314 (type int)
315 (serial unsigned-long)
316 (send-event bool)
317 (window window)
318 (atom atom)
319 (time time)
320 (state int)))
321
322 (def-alien-type x-selection-clear-event
323 (struct nil
324 (handle unsigned-long)
325 (type int)
326 (serial unsigned-long)
327 (send-event bool)
328 (window window)
329 (selection atom)
330 (time time)))
331
332 (def-alien-type x-selection-request-event
333 (struct nil
334 (handle unsigned-long)
335 (type int)
336 (serial unsigned-long)
337 (send-event bool)
338 (owner window)
339 (requestor window)
340 (selection atom)
341 (target atom)
342 (property atom)
343 (time time)))
344
345 (def-alien-type x-selection-event
346 (struct nil
347 (handle unsigned-long)
348 (type int)
349 (serial unsigned-long)
350 (send-event bool)
351 (requestor window)
352 (selection atom)
353 (target atom)
354 (property atom)
355 (time time)))
356
357 (def-alien-type x-colormap-event
358 (struct nil
359 (handle unsigned-long)
360 (type int)
361 (serial unsigned-long)
362 (send-event bool)
363 (window window)
364 (colormap colormap)
365 (new bool)
366 (state int)))
367
368 (def-alien-type x-client-message-event
369 (struct nil
370 (handle unsigned-long)
371 (type int)
372 (serial unsigned-long)
373 (send-event bool)
374 (window window)
375 (message-type atom)
376 (format int)
377 (data (union nil
378 (b (array char 20))
379 (s (array short 10))
380 (l (array long 5))))))
381
382 (def-alien-type x-mapping-event
383 (struct nil
384 (handle unsigned-long)
385 (type int)
386 (serial unsigned-long)
387 (send-event bool)
388 (window window)
389 (request int)
390 (first-keycode int)
391 (count int)))
392
393 (def-alien-type x-any-event
394 (struct nil
395 (handle unsigned-long)
396 (type int)
397 (serial unsigned-long)
398 (send-event bool)
399 (window window)))
400
401 (def-alien-type xevent
402 (union nil
403 (xany x-any-event)
404 (xkey x-key-event)
405 (xbutton x-button-event)
406 (xmotion x-motion-event)
407 (xcrossing x-crossing-event)
408 (xfocus x-focus-change-event)
409 (xexpose x-expose-event)
410 (xgraphicsexpose x-graphics-expose-event)
411 (xnoexpose x-no-expose-event)
412 (xvisibility x-visibility-event)
413 (xcreatewindow x-create-window-event)
414 (xdestroywindow x-destroy-window-event)
415 (xunmap x-unmap-event)
416 (xmap x-map-event)
417 (xmaprequest x-map-request-event)
418 (xreparent x-reparent-event)
419 (xconfigure x-configure-event)
420 (xgravity x-gravity-event)
421 (xresizerequest x-resize-request-event)
422 (xconfigurerequest x-configure-request-event)
423 (xcirculate x-circulate-event)
424 (xcirculaterequest x-circulate-request-event)
425 (xproperty x-property-event)
426 (xselectionclear x-selection-clear-event)
427 (xselectionrequest x-selection-request-event)
428 (xselection x-selection-event)
429 (xcolormap x-colormap-event)
430 (xclient x-client-message-event)
431 (xmapping x-mapping-event)
432 (xkeymap x-keymap-event)))
433
434 (deftype toolkit-event () '(alien xevent))
435
436
437
438 ;;;; Functions for accessing the common fields of all XEvents
439
440 (eval-when (compile eval)
441 (defmacro def-event-access (name union-slot slot)
442 `(defun ,name (event)
443 (declare (type toolkit-event event))
444 (alien:slot (alien:slot event ,union-slot) ,slot)))
445
446 (defmacro def-event-window-access (name union-slot slot)
447 `(defun ,name (event)
448 (declare (type toolkit-event event))
449 (xlib::lookup-window
450 *x-display*
451 (alien:slot (alien:slot event ,union-slot) ,slot))))
452
453 (defmacro def-event-drawable-access (name union-slot slot)
454 `(defun ,name (event)
455 (declare (type toolkit-event event))
456 (xlib::lookup-drawable
457 *x-display*
458 (alien:slot (alien:slot event ,union-slot) ,slot))))
459
460 (defmacro def-event-colormap-access (name union-slot slot)
461 `(defun ,name (event)
462 (declare (type toolkit-event event))
463 (xlib::lookup-colormap
464 *x-display*
465 (alien:slot (alien:slot event ,union-slot) ,slot))))
466
467 (defmacro def-event-atom-access (name union-slot slot)
468 `(defun ,name (event)
469 (declare (type toolkit-event event))
470 (xlib::atom-name *x-display*
471 (alien:slot (alien:slot event ,union-slot) ,slot))))
472 ) ;; EVAL-WHEN
473
474 (declaim (inline event-handle event-serial event-send-event event-window
475 event-type))
476
477 (def-event-access event-handle 'xany 'handle)
478 (def-event-access event-serial 'xany 'serial)
479 (def-event-access event-send-event 'xany 'send-event)
480 (def-event-window-access event-window 'xany 'window)
481 (defun event-type (event)
482 (declare (type toolkit-event event))
483 (svref xlib::*event-key-vector*
484 (alien:slot (alien:slot event 'xany) 'type)))
485
486
487 ;;;; Functions for accessing the fields of XButton events
488
489 (declaim (inline button-event-root button-event-subwindow button-event-time
490 button-event-x button-event-y button-event-x-root
491 button-event-y-root button-event-state
492 button-event-same-screen button-event-button))
493
494 (def-event-window-access button-event-root 'xbutton 'root)
495 (def-event-window-access button-event-subwindow 'xbutton 'subwindow)
496 (def-event-access button-event-time 'xbutton 'time)
497 (def-event-access button-event-x 'xbutton 'x)
498 (def-event-access button-event-y 'xbutton 'y)
499 (def-event-access button-event-x-root 'xbutton 'x-root)
500 (def-event-access button-event-y-root 'xbutton 'y-root)
501 (def-event-access button-event-state 'xbutton 'state)
502 (def-event-access button-event-button 'xbutton 'button)
503 (def-event-access button-event-same-screen 'xbutton 'same-screen)
504
505
506
507 ;;;; Functions for accessing the fields of XKey events
508
509 (declaim (inline key-event-root key-event-subwindow key-event-time
510 key-event-x key-event-y key-event-x-root key-event-y-root
511 key-event-state key-event-keycode key-event-same-screen))
512
513 (def-event-window-access key-event-root 'xkey 'root)
514 (def-event-window-access key-event-subwindow 'xkey 'subwindow)
515 (def-event-access key-event-time 'xkey 'time)
516 (def-event-access key-event-x 'xkey 'x)
517 (def-event-access key-event-y 'xkey 'y)
518 (def-event-access key-event-x-root 'xkey 'x-root)
519 (def-event-access key-event-y-root 'xkey 'y-root)
520 (def-event-access key-event-state 'xkey 'state)
521 (def-event-access key-event-keycode 'xkey 'keycode)
522 (def-event-access key-event-same-screen 'xkey 'same-screen)
523
524
525
526 ;;;; Functions for accessing XMotion event slots
527
528 (declaim (inline motion-event-root motion-event-subwindow motion-event-time
529 motion-event-x motion-event-y motion-event-x-root
530 motion-event-y-root motion-event-state motion-event-is-hint
531 motion-event-same-screen))
532
533 (def-event-window-access motion-event-root 'xmotion 'root)
534 (def-event-window-access motion-event-subwindow 'xmotion 'subwindow)
535 (def-event-access motion-event-time 'xmotion 'time)
536 (def-event-access motion-event-x 'xmotion 'x)
537 (def-event-access motion-event-y 'xmotion 'y)
538 (def-event-access motion-event-x-root 'xmotion 'x-root)
539 (def-event-access motion-event-y-root 'xmotion 'y-root)
540 (def-event-access motion-event-state 'xmotion 'state)
541 (def-event-access motion-event-is-hint 'xmotion 'is-hint)
542 (def-event-access motion-event-same-screen 'xmotion 'same-screen)
543
544
545
546 ;;;; Functions for accessing XCrossingEvent slots
547
548 (declaim (inline crossing-event-root crossing-event-subwindow
549 crossing-event-time crossing-event-x crossing-event-y
550 crossing-event-x-root crossing-event-y-root
551 crossing-event-mode crossing-event-detail
552 crossing-event-same-screen crossing-event-focus
553 crossing-event-state))
554
555 (def-event-window-access crossing-event-root 'xcrossing 'root)
556 (def-event-window-access crossing-event-subwindow 'xcrossing 'subwindow)
557 (def-event-access crossing-event-time 'xcrossing 'time)
558 (def-event-access crossing-event-x 'xcrossing 'x)
559 (def-event-access crossing-event-y 'xcrossing 'y)
560 (def-event-access crossing-event-x-root 'xcrossing 'x-root)
561 (def-event-access crossing-event-y-root 'xcrossing 'y-root)
562 (def-event-access crossing-event-mode 'xcrossing 'mode)
563 (def-event-access crossing-event-detail 'xcrossing 'detail)
564 (def-event-access crossing-event-same-screen 'xcrossing 'same-screen)
565 (def-event-access crossing-event-focus 'xcrossing 'focus)
566 (def-event-access crossing-event-state 'xcrossing 'state)
567
568
569
570 ;;;; Functions for accessing XFocusChangeEvent slots
571
572 (declaim (inline focus-change-event-mode focus-change-event-detail))
573
574 (def-event-access focus-change-event-mode 'xfocus 'mode)
575 (def-event-access focus-change-event-detail 'xfocus 'detail)
576
577
578
579 ;;;; Functions for accessing XKeymapEvent slots
580
581 ;; **** These need to be added
582
583
584
585 ;;;; Functions for accessing XExposeEvent slots
586
587 (declaim (inline expose-event-x expose-event-y expose-event-width
588 expose-event-height expose-event-count))
589
590 (def-event-access expose-event-x 'xexpose 'x)
591 (def-event-access expose-event-y 'xexpose 'y)
592 (def-event-access expose-event-width 'xexpose 'width)
593 (def-event-access expose-event-height 'xexpose 'height)
594 (def-event-access expose-event-count 'xexpose 'count)
595
596
597
598 ;;;; Functions for accessing XGraphicsExposeEvent structures
599
600 (declaim (inline graphics-expose-event-drawable graphics-expose-event-x
601 graphics-expose-event-y graphics-expose-event-width
602 graphics-expose-event-height graphics-expose-event-count
603 graphics-expose-event-major-code
604 graphics-expose-event-minor-code))
605
606 (def-event-drawable-access graphics-expose-event-drawable
607 'xgraphicsexpose 'drawable)
608 (def-event-access graphics-expose-event-x 'xgraphicsexpose 'x)
609 (def-event-access graphics-expose-event-y 'xgraphicsexpose 'y)
610 (def-event-access graphics-expose-event-width 'xgraphicsexpose 'width)
611 (def-event-access graphics-expose-event-height 'xgraphicsexpose 'height)
612 (def-event-access graphics-expose-event-count 'xgraphicsexpose 'count)
613 (def-event-access graphics-expose-event-major-code
614 'xgraphicsexpose 'major-code)
615 (def-event-access graphics-expose-event-minor-code
616 'xgraphicsexpose 'minor-code)
617
618
619
620 ;;;; Functions for accessing XNoExposeEvent slots
621
622 (declaim (inline no-expose-event-drawable no-expose-event-major-code
623 no-expose-event-minor-code))
624
625 (def-event-drawable-access no-expose-event-drawable 'xnoexpose 'drawable)
626 (def-event-access no-expose-event-major-code 'xnoexpose 'major-code)
627 (def-event-access no-expose-event-minor-code 'xnoexpose 'minor-code)
628
629
630
631 ;;;; Functions for accesssing XVisibilityEvent slots
632
633 (declaim (inline visibility-event-state))
634
635 (def-event-access visibility-event-state 'xvisibility 'state)
636
637
638
639 ;;;; Function for accessing XCreateWindowEvent data
640
641 (declaim (inline create-window-event-parent create-window-event-window
642 create-window-event-x create-window-event-y
643 create-window-event-width create-window-event-height
644 create-window-event-override-redirect))
645
646 (def-event-window-access create-window-event-parent 'xcreatewindow 'parent)
647 (def-event-window-access create-window-event-window 'xcreatewindow 'window)
648 (def-event-access create-window-event-x 'xcreatewindow 'x)
649 (def-event-access create-window-event-y 'xcreatewindow 'y)
650 (def-event-access create-window-event-width 'xcreatewindow 'width)
651 (def-event-access create-window-event-height 'xcreatewindow 'height)
652 (def-event-access create-window-event-override-redirect
653 'xcreatewindow 'override-redirect)
654
655
656
657 ;;;; Functions for accessing XDestroyWindowEvent slots
658
659 (declaim (inline destroy-window-event-event destroy-window-event-window))
660
661 (def-event-window-access destroy-window-event-event 'xdestroywindow 'event)
662 (def-event-window-access destroy-window-event-window 'xdestroywindow 'window)
663
664
665
666 ;;;; Functions for accessing XUnmapEvent structures
667
668 (declaim (inline unmap-event-event unmap-event-window
669 unmap-event-from-configure))
670
671 (def-event-window-access unmap-event-event 'xunmap 'event)
672 (def-event-window-access unmap-event-window 'xunmap 'window)
673 (def-event-access unmap-event-from-configure 'xunmap 'from-configure)
674
675
676
677 ;;;; Functions for accessing XMapRequestEvent slots
678
679 (declaim (inline map-request-event-parent map-request-event-window))
680
681 (def-event-window-access map-request-event-parent 'xmaprequest 'parent)
682 (def-event-window-access map-request-event-window 'xmaprequest 'window)
683
684
685
686 ;;;; Functions to access XReparentEvent structures
687
688 (declaim (inline reparent-event-event reparent-event-parent
689 reparent-event-x reparent-event-y
690 reparent-event-override-redirect))
691
692 (def-event-window-access reparent-event-event 'xreparent 'event)
693 (def-event-window-access reparent-event-parent 'xreparent 'parent)
694 (def-event-access reparent-event-x 'xreparent 'x)
695 (def-event-access reparent-event-y 'xreparent 'y)
696 (def-event-access reparent-event-override-redirect
697 'xreparent 'override-redirect)
698
699
700
701 ;;;; Functions to access XConfigureEvent slots
702
703 (declaim (inline configure-event-event configure-event-window
704 configure-event-x configure-event-y configure-event-width
705 configure-event-height configure-event-border-width
706 configure-event-above configure-event-override-redirect))
707
708 (def-event-window-access configure-event-event 'xconfigure 'event)
709 (def-event-window-access configure-event-window 'xconfigure 'window)
710 (def-event-access configure-event-x 'xconfigure 'x)
711 (def-event-access configure-event-y 'xconfigure 'y)
712 (def-event-access configure-event-width 'xconfigure 'width)
713 (def-event-access configure-event-height 'xconfigure 'height)
714 (def-event-access configure-event-border-width 'xconfigure 'border-width)
715 (def-event-window-access configure-event-above 'xconfigure 'above)
716 (def-event-access configure-event-override-redirect
717 'xconfigure 'override-redirect)
718
719
720
721 ;;;; Functions for accessing XGravityEvent slots
722
723 (declaim (inline gravity-event-event gravity-event-window gravity-event-x
724 gravity-event-y))
725
726 (def-event-window-access gravity-event-event 'xgravity 'event)
727 (def-event-window-access gravity-event-window 'xgravity 'window)
728 (def-event-access gravity-event-x 'xgravity 'x)
729 (def-event-access gravity-event-y 'xgravity 'y)
730
731
732
733 ;;;; Functions for accessing XResizeRequestEvent structures
734
735 (declaim (inline resize-request-event-width resize-request-event-height))
736
737 (def-event-access resize-request-event-width 'xresizerequest 'width)
738 (def-event-access resize-request-event-height 'xresizerequest 'height)
739
740
741
742 ;;;; Functions for accessing XConfigureRequestEvent structures
743
744 (declaim (inline configure-request-event-parent
745 configure-request-event-window configure-request-event-x
746 configure-request-event-y configure-request-event-width
747 configure-request-event-height
748 configure-request-event-border-width
749 configure-request-event-above configure-request-event-detail
750 configure-request-event-value-mask))
751
752 (def-event-window-access configure-request-event-parent
753 'xconfigurerequest 'parent)
754 (def-event-window-access configure-request-event-window
755 'xconfigurerequest 'window)
756 (def-event-access configure-request-event-x 'xconfigurerequest 'x)
757 (def-event-access configure-request-event-y 'xconfigurerequest 'y)
758 (def-event-access configure-request-event-width 'xconfigurerequest 'width)
759 (def-event-access configure-request-event-height 'xconfigurerequest 'height)
760 (def-event-access configure-request-event-border-width
761 'xconfigurerequest 'border-width)
762 (def-event-window-access configure-request-event-above
763 'xconfigurerequest 'above)
764 (def-event-access configure-request-event-detail 'xconfigurerequest 'detail)
765 (def-event-access configure-request-value-mask 'xconfigurerequest 'value-mask)
766
767
768
769 ;;;; Functions for accessing XCirculateEvent structures
770
771 (declaim (inline circulate-event-event circulate-event-window
772 circulate-event-place))
773
774 (def-event-window-access circulate-event-event 'xcirculate 'event)
775 (def-event-window-access circulate-event-window 'xcirculate 'window)
776 (def-event-access circulate-event-place 'xcirculate 'place)
777
778
779
780 ;;;; Functions for accessing XCirculateRequestEvent slots
781
782 (declaim (inline circulate-request-event-parent
783 circulate-request-event-window circulate-request-event-place))
784
785 (def-event-window-access circulate-request-event-parent
786 'xcirculaterequest 'parent)
787 (def-event-window-access circulate-request-event-window
788 'xcirculaterequest 'window)
789 (def-event-access circulate-request-event-place 'xcirculaterequest 'place)
790
791
792
793 ;;;; Functions for accessing XPropertyEvent slots
794
795 (declaim (inline property-event-atom property-event-time property-event-state))
796
797 (def-event-atom-access property-event-atom 'xproperty 'atom)
798 (def-event-access property-event-time 'xproperty 'time)
799 (def-event-access property-event-state 'xproperty 'state)
800
801
802
803 ;;;; Functions for accessing XSelectionClearEvent slots
804
805 (declaim (inline selection-clear-event-selection selection-clear-event-time))
806
807 (def-event-atom-access selection-clear-event-selection
808 'xselectionclear 'selection)
809 (def-event-access selection-clear-event-time 'xselectionclear 'time)
810
811
812
813 ;;;; Functions for accessing XSelectionRequestEvent slots
814
815 (declaim (inline selection-request-event-owner
816 selection-request-event-requestor
817 selection-request-event-selection
818 selection-request-event-target
819 selection-request-event-property selection-request-event-time))
820
821 (def-event-window-access selection-request-event-owner
822 'xselectionrequest 'owner)
823 (def-event-window-access selection-request-event-requestor
824 'xselectionrequest 'requestor)
825 (def-event-atom-access selection-request-event-selection
826 'xselectionrequest 'selection)
827 (def-event-atom-access selection-request-event-target
828 'xselectionrequest 'target)
829 (def-event-atom-access selection-request-event-property
830 'xselectionrequest 'property)
831 (def-event-access selection-request-event-time 'xselectionrequest 'time)
832
833
834
835 ;;;; Functions for accessing XSelectionEvent structures
836
837 (declaim (inline selection-event-requestor selection-event-selection
838 selection-event-target selection-event-property
839 selection-event-time))
840
841 (def-event-window-access selection-event-requestor 'xselection 'requestor)
842 (def-event-atom-access selection-event-selection 'xselection 'selection)
843 (def-event-atom-access selection-event-target 'xselection 'target)
844 (def-event-atom-access selection-event-property 'xselection 'property)
845 (def-event-access selection-event-time 'xselection 'time)
846
847
848
849 ;;;; Functions for accessing XColormapEvent structures
850
851 (declaim (inline colormap-event-colormap colormap-event-new
852 colormap-event-state))
853
854 (def-event-colormap-access colormap-event-colormap 'xcolormap 'colormap)
855 (def-event-access colormap-event-new 'xcolormap 'new)
856 (def-event-access colormap-event-state 'xcolormap 'state)
857
858
859
860 ;;;; Functions for accessing XClientMessageEvent structures
861
862 (declaim (inline client-message-event-message-type client-message-event-format))
863
864 (def-event-atom-access client-message-event-message-type
865 'xclient 'message-type)
866 (def-event-access client-message-event-format 'xclient 'format)
867 ;; ***** Need to access client-msg data
868
869
870
871 ;;;; Functions for accessing XMappingEvent slots
872
873 (declaim (inline mapping-event-request mapping-event-first-keycode
874 mapping-event-count))
875
876 (def-event-access mapping-event-request 'xmapping 'request)
877 (def-event-access mapping-event-first-keycode 'xmapping 'first-keycode)
878 (def-event-access mapping-event-count 'xmapping 'count)

  ViewVC Help
Powered by ViewVC 1.1.5