From 6a0d3367e0b314d6c947950f7c3193be3d9d1465 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeffrey.armstrong@approximatrix.com>
Date: Thu, 18 Feb 2021 15:25:26 -0500
Subject: Set tuning to native since this build machine is pretty old.  Added
 placeholder for DPI call on Windows.  Removed unused connection variable in
 main.

---
 main.F90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'main.F90')

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
     
-- 
cgit v1.2.3