aboutsummaryrefslogtreecommitdiff
path: root/main.F90
diff options
context:
space:
mode:
Diffstat (limited to 'main.F90')
-rw-r--r--main.F906
1 files changed, 5 insertions, 1 deletions
diff --git a/main.F90 b/main.F90
index 7d9206e..84fca57 100644
--- a/main.F90
+++ b/main.F90
@@ -26,6 +26,7 @@ use request
#ifdef WINDOWS_GUI
use ag_render, only: appgraphics_renderer
use ag_binary, only: appgraphics_binary_handler
+use appgraphics, only: setapplicationdpiaware
#else
!use sdl_render
use dumb_render
@@ -51,7 +52,6 @@ implicit none
character(256)::initial_site
character(1024)::current_url, desired_url, input
- type(connection)::conn
#ifdef WINDOWS_GUI
type(appgraphics_renderer)::r
@@ -79,6 +79,10 @@ implicit none
#ifdef WINDOWS
call windows_network_startup()
#endif
+
+#ifdef WINDOWS_GUI
+ !call setapplicationdpiaware()
+#endif
if(command_argument_count() > 0) then