diff options
author | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-09-25 14:00:19 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com> | 2020-09-25 14:00:19 -0400 |
commit | 77bb798de3e703d10c4cc6e971568ea8f80b420c (patch) | |
tree | 99b95210fc712b93423712bd6453da993b095d6e /ag_render.f90 | |
parent | e302c5cfcc30aa1b2e49ad5aa1fb524871618e43 (diff) | |
download | LR-87-77bb798de3e703d10c4cc6e971568ea8f80b420c.tar.gz LR-87-77bb798de3e703d10c4cc6e971568ea8f80b420c.zip |
Fixed some rendering issues where an infinite loop could occur calculating line wrapping. Added icons on Win32.
Diffstat (limited to 'ag_render.f90')
-rw-r--r-- | ag_render.f90 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ag_render.f90 b/ag_render.f90 index 235f3b4..7cc091e 100644 --- a/ag_render.f90 +++ b/ag_render.f90 @@ -436,6 +436,10 @@ contains DEFAULT_POSITION, DEFAULT_POSITION, & .FALSE., .FALSE.) + call setwindowsmallicon(1) + call setwindowlargeicon(1) + + call setwindowclosecallback(window_closing_callback) call registermousehandler(MOUSE_LB_UP, mouse_button_callback) call registermousehandler(MOUSE_MOVE, mouse_move_callback) @@ -725,7 +729,7 @@ contains call outtextxy(self%left_border, self%y, trim(text)) text_width = ag_link_width(self, trim(text)) - + ! Need to remove indents, borders, etc. text_width = text_width - self%left_border - self%right_border |