[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: installer: Draw the entire box of boxed-windows.
From: |
Danny Milosavljevic |
Subject: |
01/01: installer: Draw the entire box of boxed-windows. |
Date: |
Sun, 9 Jul 2017 11:59:13 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit 9d39ae180fb4d99cb6c5b1128a72f28ef776ea04
Author: Danny Milosavljevic <address@hidden>
Date: Sun Jul 9 17:57:44 2017 +0200
installer: Draw the entire box of boxed-windows.
* gnu/system/installer/utils.scm (boxed-window-decoration-refresh): Fix box.
---
gnu/system/installer/utils.scm | 2 --
1 file changed, 2 deletions(-)
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index eab40e6..165ba95 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -277,8 +277,6 @@ Ignore blank lines."
;(move win 2 1)
;(hline win (acs-hline) (- (getmaxx win) 2))
(color-set! win livery-title)
- (move win 1 1)
- (clrtoeol win) ; kills one char too much at the end.
(addstr win title #:y 0 #:x (round (/ (- (getmaxx win) (string-length
title)) 2)))))
(color-set! win 0)))