guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

119/197: gurses: Allow menu update to work for panel windows.


From: Danny Milosavljevic
Subject: 119/197: gurses: Allow menu update to work for panel windows.
Date: Mon, 3 Jul 2017 20:37:11 -0400 (EDT)

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

commit b13f7df4b479749ff666e46750a93a11854b111a
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))))
 
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]