diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-30 21:25:15 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2022-10-30 21:25:15 -0400 |
| commit | 2a5f8fad86d78adc82fa8c7cd94f3fe854dee025 (patch) | |
| tree | 5bcda9c4959da5c5dd29327d2e621ff50ec73ab9 /apple-town-fair/menu.scm | |
| parent | a20d05376cb2de636abebd64da3eeb6c7e8c7bac (diff) | |
Day 2 progress.
Diffstat (limited to 'apple-town-fair/menu.scm')
| -rw-r--r-- | apple-town-fair/menu.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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 <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 <menu>)) (let ((node (list-ref (item-nodes menu) (selected-item menu)))) |