From 0ade9914918238b8da35e995fe9782a517988ae2 Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Tue, 5 May 2020 11:04:22 -0400 Subject: Fixed link handling. Can now navigate links and page up/down. --- layout.f90 | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'layout.f90') diff --git a/layout.f90 b/layout.f90 index 1c7d8cb..9a3797b 100644 --- a/layout.f90 +++ b/layout.f90 @@ -53,4 +53,29 @@ contains end subroutine layout_lines + subroutine free_lines(first_line) + implicit none + + type(line), intent(inout), pointer::first_line + + type(line), pointer::walker, past + + walker => first_line + + do while(associated(walker)) + if(allocated(walker%text)) then + deallocate(walker%text) + end if + + past => walker + walker => walker%next + + deallocate(past) + + end do + + first_line => null() + + end subroutine free_lines + end module layout \ No newline at end of file -- cgit v1.2.3