diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-02-23 15:44:25 -0500 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-02-23 15:44:25 -0500 |
commit | 36249ebd4dece7ee69cd85e7e169db0dc4315e3e (patch) | |
tree | 89b8cdcc7cc57963acac1429f6007b63ca93a595 /main.F90 | |
parent | 6a0d3367e0b314d6c947950f7c3193be3d9d1465 (diff) | |
download | LR-87-36249ebd4dece7ee69cd85e7e169db0dc4315e3e.tar.gz LR-87-36249ebd4dece7ee69cd85e7e169db0dc4315e3e.zip |
Added favicon support. Fixed UTF-8 display on dumb renderer.
Diffstat (limited to 'main.F90')
-rw-r--r-- | main.F90 | 11 |
1 files changed, 11 insertions, 0 deletions
@@ -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) |