From 77bb798de3e703d10c4cc6e971568ea8f80b420c Mon Sep 17 00:00:00 2001 From: Jeffrey Armstrong Date: Fri, 25 Sep 2020 14:00:19 -0400 Subject: Fixed some rendering issues where an infinite loop could occur calculating line wrapping. Added icons on Win32. --- ag_render.f90 | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'ag_render.f90') 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 -- cgit v1.2.3