From 36249ebd4dece7ee69cd85e7e169db0dc4315e3e Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Tue, 23 Feb 2021 15:44:25 -0500
Subject: Added favicon support.  Fixed UTF-8 display on dumb renderer.

---
 main.F90 | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'main.F90')

diff --git a/main.F90 b/main.F90
index 84fca57..557e867 100644
--- a/main.F90
+++ b/main.F90
@@ -48,11 +48,15 @@ use wsa_network, only: windows_network_startup => startup
 
 use favorite_handling
 
+use favicon
+
 implicit none
 
     character(256)::initial_site
     character(1024)::current_url, desired_url, input
     
+    character(1024)::server
+    
 #ifdef WINDOWS_GUI    
     type(appgraphics_renderer)::r
     type(appgraphics_binary_handler)::bh
@@ -150,6 +154,8 @@ implicit none
 
         if(.not. loaded) then
 
+            call r%clear_favicon()
+
             call r%report_status("Requesting "//trim(desired_url))
 
             return_code = request_url(desired_url, io, return_type, bh)
@@ -179,6 +185,9 @@ implicit none
             desired_url = " "
 
             locations_visited => add_location(locations_visited, current_url)
+            
+            call get_server_from_url(current_url, server)
+            call r%set_favicon(get_favicon(server))
 
             if(r%type_supported(return_type)) then
 
@@ -260,6 +269,8 @@ implicit none
                         call handle_relative_url(desired_url, input)
                     end if
 
+                    call r%clear_favicon()
+                    
                     loaded = .false.
 
                 case (render_action_favorite)
-- 
cgit v1.2.3