[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
131/197: gurses: Use inverse instead of underline for field value area.
From: |
Danny Milosavljevic |
Subject: |
131/197: gurses: Use inverse instead of underline for field value area. |
Date: |
Mon, 3 Jul 2017 20:37:13 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit d595ca18b0ac0b9f93fe421799f2ff57d9612399
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))
- 109/197: installer: Fix bug where the selected item of main page was not indicated., (continued)
- 109/197: installer: Fix bug where the selected item of main page was not indicated., Danny Milosavljevic, 2017/07/03
- 104/197: installer: Support btrfs, Danny Milosavljevic, 2017/07/03
- 111/197: gurses: Change highlighting from bold to inverse., Danny Milosavljevic, 2017/07/03
- 108/197: installer: Do not add file systems which are invalid., Danny Milosavljevic, 2017/07/03
- 164/197: gurses: Use match instead of car., Danny Milosavljevic, 2017/07/03
- 170/197: installer: Remove unused procedure., Danny Milosavljevic, 2017/07/03
- 152/197: installer: New file i18n.scm., Danny Milosavljevic, 2017/07/03
- 110/197: installer: Add an explanatory text to the main page., Danny Milosavljevic, 2017/07/03
- 120/197: gurses: Mini refactor., Danny Milosavljevic, 2017/07/03
- 124/197: gurses: Populate dropdown boxes in forms using a menu., Danny Milosavljevic, 2017/07/03
- 131/197: gurses: Use inverse instead of underline for field value area.,
Danny Milosavljevic <=
- 133/197: installer: Change livery., Danny Milosavljevic, 2017/07/03
- 146/197: gurses: Use match instead of car/cdr in line-split., Danny Milosavljevic, 2017/07/03
- 147/197: gurses: In paragraph-format avoid use of car and cdr., Danny Milosavljevic, 2017/07/03
- 144/197: gurses: Avoid one more use of car and cdr., Danny Milosavljevic, 2017/07/03
- 143/197: gurses: Add predicate to test if a complex char is blank., Danny Milosavljevic, 2017/07/03
- 149/197: gurses: Add new procedure "word-endings"., Danny Milosavljevic, 2017/07/03
- 155/197: installer: Use _ instead of M_ for host-name-refresh., Danny Milosavljevic, 2017/07/03
- 160/197: installer: New convenience procedures., Danny Milosavljevic, 2017/07/03
- 158/197: installer: Correct placement of gettext call., Danny Milosavljevic, 2017/07/03
- 163/197: gurses: Cache the windows of buttons., Danny Milosavljevic, 2017/07/03