From 2a5f8fad86d78adc82fa8c7cd94f3fe854dee025 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 30 Oct 2022 21:25:15 -0400 Subject: Day 2 progress. --- apple-town-fair/menu.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'apple-town-fair/menu.scm') diff --git a/apple-town-fair/menu.scm b/apple-town-fair/menu.scm index ad3b893..3ec4b2e 100644 --- a/apple-town-fair/menu.scm +++ b/apple-town-fair/menu.scm @@ -75,11 +75,11 @@ (define-method (select-item (menu ) i) (let* ((i (clamp 0 (- (length (items menu)) 1) i)) - (node (list-ref (item-nodes menu) i))) + (nodes (item-nodes menu))) (set! (selected-item menu) i) - (when node + (unless (null? nodes) (set! (position-y (& menu highlight)) - (position-y node))))) + (position-y (list-ref nodes i)))))) (define-method (selection (menu )) (let ((node (list-ref (item-nodes menu) (selected-item menu)))) -- cgit v1.2.3