| Paste number 54922: | no motion-notify event? |
| Pasted by: | impulse |
| 9 months, 3 weeks ago | |
| #lisp | Context in IRC logs | |
| Paste contents: |
| (defun graphic-x (width height &optional (host "")) (let* ((display (xlib:open-display host)) (screen (first (xlib:display-roots display))) (black (xlib:screen-black-pixel screen)) (white (xlib:screen-white-pixel screen)) (root-window (xlib:screen-root screen)) (grackon (xlib:create-gcontext :drawable root-window :foreground white :background black)) (my-window (xlib:create-window :parent root-window :x 0 :y 0 :width width :height height :background black :event-mask (xlib:make-event-mask :exposure )))) (describe grackon) (xlib:map-window my-window) (xlib:event-case (display :force-output-p t :discard-p t) (:motion-notify (x y) (print x) nil)) )) (graphic-x 800 600) |
This paste has no annotations.