fortrangoingonforty/facsimile / 33d8247

Browse files

fixes to welcome menu

Authored by mfwolffe <wolffemf@dukes.jmu.edu>
SHA
33d82479f748acd51134c053b0e35a6729bf93bb
Parents
a5b774b
Tree
8ceabb7

1 changed file

StatusFile+-
M src/fortress/ui/welcome_menu_module.f90 5 9
src/fortress/ui/welcome_menu_module.f90modified
@@ -62,7 +62,7 @@ contains
6262
                 case ('up', 'k')
6363
                     if (selected_index > 0) then
6464
                         selected_index = selected_index - 1
65
-                        call adjust_scroll(selected_index, scroll_offset, rows - 8)
65
+                        call adjust_scroll(scroll_offset)
6666
                     end if
6767
6868
                 case ('down', 'j')
@@ -70,13 +70,13 @@ contains
7070
                         ! Allow selecting up to fav_count (0 = CWD, 1..fav_count = favorites)
7171
                         if (selected_index < fav_count) then
7272
                             selected_index = selected_index + 1
73
-                            call adjust_scroll(selected_index, scroll_offset, rows - 8)
73
+                            call adjust_scroll(scroll_offset)
7474
                         end if
7575
                     else
7676
                         ! Allow selecting up to rec_count (0 = CWD, 1..rec_count = recents)
7777
                         if (selected_index < rec_count) then
7878
                             selected_index = selected_index + 1
79
-                            call adjust_scroll(selected_index, scroll_offset, rows - 8)
79
+                            call adjust_scroll(scroll_offset)
8080
                         end if
8181
                     end if
8282
@@ -266,13 +266,9 @@ contains
266266
         call terminal_write(trim(line))
267267
     end subroutine render_welcome_menu
268268
269
-    !> Adjust scroll offset to keep selection visible
270
-    subroutine adjust_scroll(selected, offset, visible_height)
271
-        integer, intent(in) :: selected, visible_height
269
+    !> Adjust scroll offset to keep CURRENT DIRECTORY visible
270
+    subroutine adjust_scroll(offset)
272271
         integer, intent(inout) :: offset
273
-        integer :: margin
274
-
275
-        margin = 2
276272
277273
         ! IMPORTANT: offset must always be 0 to keep CWD (index 0) visible
278274
         ! Since CWD is always at the top, we never scroll past it