02/21: gurses: Use inverse instead of underline for field value area.

[John Darrington]

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

commit 9ef49f39c4c382675713909a462745a62f61ac26
Author: John Darrington <address@hidden>
Date:   Sun Jan 22 19:00:39 2017 +0100

    gurses: Use inverse instead of underline for field value area.
    
    * gurses/form.scm: Use inverse instead of underline.  Framebuffer
    terminals don't support underline.
---
 gurses/form.scm |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gurses/form.scm b/gurses/form.scm
index 7dac5bc..efc03cd 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -75,7 +75,7 @@
                  (fold (lambda (x prev) (max prev (string-length x))) 0
                        (field-size field))
                  (field-size field))
-             (underline #\space))
+             (inverse #\space))
            #:y y
            #:x x))
 
@@ -83,7 +83,7 @@
   "Redraw the FIELD in FORM"
   (draw-field-space (form-window form) field n (form-tabpos form))
 
-  (addstr (form-window form) (field-value field)
+  (addchstr (form-window form) (inverse (field-value field))
          #:y n
          #:x (form-tabpos form)))
 
@@ -175,7 +175,7 @@ label eq? to N"
                                    (make-string 1 ch)))
        
               (field-set-cursor-position! f (1+ (field-cursor-position f)))
-              (addch (form-window form) (normal ch)))
+              (addch (form-window form) (inverse ch)))
 
              ((eq? ch KEY_DC)
               (field-set-value! f (string-append left right))