aboutsummaryrefslogtreecommitdiff
path: root/layout.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-05 11:04:22 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-05 11:04:22 -0400
commit0ade9914918238b8da35e995fe9782a517988ae2 (patch)
treeff9871528998544479a1a15144354d8b873ddc20 /layout.f90
parent723324ae71f8209e4b1757a3f84bd0e66b6c6319 (diff)
downloadLR-87-0ade9914918238b8da35e995fe9782a517988ae2.zip
LR-87-0ade9914918238b8da35e995fe9782a517988ae2.tar.gz
Fixed link handling. Can now navigate links and page up/down.
Diffstat (limited to 'layout.f90')
-rw-r--r--layout.f9025
1 files changed, 25 insertions, 0 deletions
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