diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-05 11:04:22 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-05 11:04:22 -0400 |
commit | 0ade9914918238b8da35e995fe9782a517988ae2 (patch) | |
tree | ff9871528998544479a1a15144354d8b873ddc20 /layout.f90 | |
parent | 723324ae71f8209e4b1757a3f84bd0e66b6c6319 (diff) | |
download | LR-87-0ade9914918238b8da35e995fe9782a517988ae2.tar.gz LR-87-0ade9914918238b8da35e995fe9782a517988ae2.zip |
Fixed link handling. Can now navigate links and page up/down.
Diffstat (limited to 'layout.f90')
-rw-r--r-- | layout.f90 | 25 |
1 files changed, 25 insertions, 0 deletions
@@ -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 |