01/01: installer: When clicking somewhere outside a form popup, ignore event.

[Danny Milosavljevic]

dannym pushed a commit to branch wip-installer-2
in repository guix.

commit 5b0b884abbb2317f6b8cbc031b5fa866440d1f1b
Author: Danny Milosavljevic <address@hidden>
Date:   Wed Jul 5 15:13:39 2017 +0200

    installer: When clicking somewhere outside a form popup, ignore event.
    
    * gurses/form.scm (run-event-loop): Modify.
---
 gurses/form.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/gurses/form.scm b/gurses/form.scm
index 6c41f1c..de8b950 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -266,7 +266,9 @@ than #f.  Return that to our caller."
      ((eqv? ch KEY_MOUSE)
       (match (getmouse)
        ((device-id g-x g-y z button-state)
-        (std-menu-mouse-handler menu device-id g-x g-y z button-state))
+        (if (eq? 'activated (std-menu-mouse-handler menu device-id g-x g-y z 
button-state))
+          (end-status form #\newline)
+          (run-event-loop form menu end-status)))
        (_ #f)))
      ((end-status form ch)
       (end-status form ch))