From 328ddca7b0afd0a1e89be9a8b35aaec2a90ddd1e Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Thu, 23 Oct 2003 14:39:12 +0000
Subject: [PATCH] - grabbing the keyboard for the dialog-box now disables other
   shortcuts while the dialog-box is opened.

---
 src/prompt.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/prompt.scm b/src/prompt.scm
index c5065a8..81d04cf 100644
--- a/src/prompt.scm
+++ b/src/prompt.scm
@@ -59,10 +59,13 @@
      dpy window (event-mask exposure key-press)
      (lambda (event-channel)
        (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)
        (let* ((gc (create-gc dpy window (make-gc-value-alist)))
 	      (result (do-input dpy parent question answers complete need-edit?
 				window gc options event-channel)))
+	 (ungrab-keyboard dpy current-time)
 	 (free-gc dpy gc)
 	 (destroy-window dpy window)
 	 result)))))