scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changing the cursor while grabbing the keyboard

This commit is contained in:
frese 2003-04-03 19:31:44 +00:00
parent 5d6fdb0c0f
commit ad3632dff6
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/key-grab.scm
View File

@ -119,11 +119,12 @@
(if (or (null? (cdr dones))
(key-grab:override? (car dones)))
(car dones)
(loop (cdr dones)))))))))
(loop (cdr dones))))))))
(cursor (create-font-cursor dpy xc-icon))) ;; options?
(grab-keyboard dpy (default-root-window dpy) #f
(grab-mode async) (grab-mode async) ;; ??
(key-event-time event))
;; Cursor ?
(define-cursor dpy (default-root-window dpy) cursor)
(let ((result
(call-with-event-channel
dpy (default-root-window dpy) (event-mask key-press)
@ -150,5 +151,7 @@
(cdr (cdr grab-rest))))
rest))))
(else (loop grabs-rests)))))))))))
(undefine-cursor dpy (default-root-window dpy))
(free-cursor dpy cursor)
(ungrab-keyboard dpy current-time)
result)))