jmd pushed a commit to branch wip-installer
in repository guix.
commit e7d8ad426316eacc9120d9f6237abba415115895
Author: John Darrington <[email protected]>
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))))
