aboutsummaryrefslogtreecommitdiff
path: root/ag_render.f90
diff options
context:
space:
mode:
Diffstat (limited to 'ag_render.f90')
-rw-r--r--ag_render.f906
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