diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 15:56:17 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-06 15:56:17 -0400 |
commit | b7e9966907434c6f58efa1307b2118a470c63d2b (patch) | |
tree | 42b496444cb1e08607867410f8c57e07d66cc0f9 /dumb_render.f90 | |
parent | b32558e3fb7021bb7fe2af311aaa535c79fc5637 (diff) | |
download | LR-87-b7e9966907434c6f58efa1307b2118a470c63d2b.tar.gz LR-87-b7e9966907434c6f58efa1307b2118a470c63d2b.zip |
Back functionality now works
Diffstat (limited to 'dumb_render.f90')
-rw-r--r-- | dumb_render.f90 | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/dumb_render.f90 b/dumb_render.f90 index 9172557..e6ca671 100644 --- a/dumb_render.f90 +++ b/dumb_render.f90 @@ -258,7 +258,7 @@ contains character(*), intent(out)::input - write(*, '(A68)', advance='no') "*** [A] PgUp | [Z] PgDn | [#] Link | [U] URL | [Q] Quit => " + write(*, '(A68)', advance='no') "*** [A]/[Z] PgUp/PgDn | [#] Link | [B] Back | [U] URL | [Q] Quit => " read(*, *) input end subroutine prompt_user @@ -285,6 +285,8 @@ contains else if(trim(input) == "z" .or. trim(input) == "Z") then self%first_line = self%first_line + 24 dumb_action = render_action_layout + else if(trim(input) == "b" .or. trim(input) == "B") then + dumb_action = render_action_back else if(trim(input) == "q" .or. trim(input) == "Q") then dumb_action = render_action_quit else if(trim(input) == "u" .or. trim(input) == "U") then |