15/26: gurses: Allow menu update to work for panel windows.

[John Darrington]

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

commit e7d8ad426316eacc9120d9f6237abba415115895
Author: John Darrington <address@hidden>
Date:   Wed Jan 18 16:20:08 2017 +0100

    gurses: Allow menu update to work for panel windows.
    
    * gurses/menu.scm: (menu-refresh): Call update-panels and doupdate if the
    subject of the procedure is a panel.  Otherwise call refresh.
---
 gurses/menu.scm |    7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/gurses/menu.scm b/gurses/menu.scm
index d43fec1..d1d7954 100644
--- a/gurses/menu.scm
+++ b/gurses/menu.scm
@@ -39,6 +39,7 @@
   #:export (std-menu-key-handler)
 
   #:use-module (ncurses curses)
+  #:use-module (ncurses panel)
   #:use-module (srfi srfi-9))
 
 (define-record-type <menu>
@@ -139,7 +140,11 @@
     (chgat win -1 attr colour #:y
           (- (menu-current-item menu) (menu-top-item menu))
           #:x 0)
-    (refresh win)))
+    (if (panel? win)
+        (begin
+          (update-panels)
+          (doupdate))
+        (refresh win))))