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

adding thread names

This commit is contained in:
frese 2003-04-11 00:42:03 +00:00
parent c610256b80
commit f6eb966948
2 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/drag-window.scm
View File

@ -34,7 +34,8 @@
(fill-style (fill-style tiled)) (fill-style (fill-style tiled))
(fill-rule (fill-rule even-odd)))))) (fill-rule (fill-rule even-odd))))))
(set-window-override-redirect! dpy window #t) (set-window-override-redirect! dpy window #t)
(spawn* (lambda (release) (spawn* (list 'drag-window window dwindow)
(lambda (release)
(call-with-event-channel (call-with-event-channel
dpy window (event-mask exposure structure-notify) dpy window (event-mask exposure structure-notify)
(lambda (channel) (lambda (channel)
@ -64,6 +65,7 @@
(define (install-dragging-control channel dpy click-window dragged-window) (define (install-dragging-control channel dpy click-window dragged-window)
(spawn* (spawn*
(list 'dragging-control click-window dragged-window)
(lambda (release) (lambda (release)
(call-with-event-channel (call-with-event-channel
dpy click-window dpy click-window

9
src/key-grab.scm
View File

@ -9,8 +9,10 @@
(define (create-grab-server dpy) (define (create-grab-server dpy)
(let ((in-channel (make-channel))) (let ((in-channel (make-channel)))
(spawn (spawn*
(lambda () 'grab-server
(lambda (release)
(release)
(let ((grabs '()) (let ((grabs '())
(event-cache '())) (event-cache '()))
(let loop () (let loop ()
@ -23,7 +25,8 @@
(grab-key dpy (key:keycode first) (grab-key dpy (key:keycode first)
(key:modifiers first) (key-grab:window key-grab) (key:modifiers first) (key-grab:window key-grab)
#f (grab-mode async) (grab-mode async)) #f (grab-mode async) (grab-mode async))
(spawn* (lambda (resume) (spawn* (list 'grabber 'on (key-grab:window key-grab))
(lambda (resume)
(call-with-event-channel (call-with-event-channel
dpy (key-grab:window key-grab) dpy (key-grab:window key-grab)
(event-mask key-press structure-notify) (event-mask key-press structure-notify)