dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 8a207d9bc683d53e5035b46e64cec5b8617656cf
Author: John Darrington <[email protected]>
Date: Mon Feb 6 20:00:35 2017 +0100
gurses: Update the cursor position when posting the form.
* gurses/form.scm (form-post): Update the cursor before returning.
---
gurses/form.scm | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/gurses/form.scm b/gurses/form.scm
index efc03cd..c4adb3b 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -311,7 +311,9 @@ label eq? to N"
(if (array-in-bounds? fields pos)
(let ((f (array-ref fields pos)))
(draw-field-space win f pos xpos)
- (loop fields (1+ pos)))))))
+ (loop fields (1+ pos))))))
+
+ (form-update-cursor form))
(define (get-current-field form)
(array-ref (form-items form) (form-current-item form)))
