[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/04: installer: Use better name for page-set-focused-widget.
|
From: |
Danny Milosavljevic |
|
Subject: |
04/04: installer: Use better name for page-set-focused-widget. |
|
Date: |
Sun, 9 Jul 2017 11:47:16 -0400 (EDT) |
dannym pushed a commit to branch wip-installer-2
in repository guix.
commit fea1ed35337fbf649be86d58bed75adee1dde158
Author: Danny Milosavljevic <address@hidden>
Date: Sun Jul 9 17:46:24 2017 +0200
installer: Use better name for page-set-focused-widget.
* gnu/system/installer/page.scm (page-set-focus): Rename to...
(page-set-focused-widget): ...this.
---
gnu/system/installer/page.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/gnu/system/installer/page.scm b/gnu/system/installer/page.scm
index 5f0ddf4..bb7a4e1 100644
--- a/gnu/system/installer/page.scm
+++ b/gnu/system/installer/page.scm
@@ -78,7 +78,7 @@
(else
#f))))
-(define* (page-set-focus page widget)
+(define* (page-set-focused-widget page widget)
(let* ((menu (page-datum page 'menu))
(nav (page-datum page 'navigation))
(form (page-datum page 'form))
@@ -183,10 +183,10 @@
(status (or (let ((status (and menu (std-menu-mouse-handler menu
device-id x y z button-state))))
(match status
(('menu-item-activated x)
- (page-set-focus page menu)
+ (page-set-focused-widget page menu)
(list 'menu-item-activated x))
(('menu-item-selected x)
- (page-set-focus page menu)
+ (page-set-focused-widget page menu)
(list 'menu-item-selected x))
(_ #f)))
(if buttons
@@ -194,7 +194,7 @@
(#f #f)
('ignored #f)
(x
- (page-set-focus page buttons)
+ (page-set-focused-widget page buttons)
;(display x)
;(if menu
; (menu-set-active! menu #f))