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

fixed button-drawing

This commit is contained in:
frese 2003-04-17 13:55:23 +00:00
parent 10326db4a4
commit 2bb7ad1876
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/button.scm
View File

@ -33,7 +33,8 @@
(list 'button button) (list 'button button)
(lambda (release) (lambda (release)
(call-with-event-channel (call-with-event-channel
dpy window (event-mask exposure structure-notify button-press) dpy window (event-mask exposure structure-notify
button-press button-release)
(lambda (event-channel) (lambda (event-channel)
(release) (release)
(let loop ((state 'up)) (let loop ((state 'up))