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

- grabbing the keyboard for the dialog-box now disables other 

shortcuts while the dialog-box is opened.
This commit is contained in:
frese 2003-10-23 14:39:12 +00:00
parent fb318e3617
commit 328ddca7b0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/prompt.scm
View File

@ -59,10 +59,13 @@
dpy window (event-mask exposure key-press) dpy window (event-mask exposure key-press)
(lambda (event-channel) (lambda (event-channel)
(map-window dpy window) (map-window dpy window)
(grab-keyboard dpy window #f (grab-mode async) (grab-mode async)
current-time)
(set-input-focus dpy window (revert-to parent) current-time) (set-input-focus dpy window (revert-to parent) current-time)
(let* ((gc (create-gc dpy window (make-gc-value-alist))) (let* ((gc (create-gc dpy window (make-gc-value-alist)))
(result (do-input dpy parent question answers complete need-edit? (result (do-input dpy parent question answers complete need-edit?
window gc options event-channel))) window gc options event-channel)))
(ungrab-keyboard dpy current-time)
(free-gc dpy gc) (free-gc dpy gc)
(destroy-window dpy window) (destroy-window dpy window)
result))))) result)))))