From cc15700bdb918699b6977140f27f6183efc3ac76 Mon Sep 17 00:00:00 2001
From: ManoloFLTK <41016272+ManoloFLTK@users.noreply.github.com>
Date: Fri, 1 Mar 2024 14:00:43 +0100
Subject: Windows: improve changing scale values of display while app runs.

---
 src/Fl_Screen_Driver.cxx | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

(limited to 'src/Fl_Screen_Driver.cxx')

diff --git a/src/Fl_Screen_Driver.cxx b/src/Fl_Screen_Driver.cxx
index fbb4aa4c2..e0a9f0f71 100644
--- a/src/Fl_Screen_Driver.cxx
+++ b/src/Fl_Screen_Driver.cxx
@@ -505,7 +505,7 @@ int Fl_Screen_Driver::scale_handler(int event)
       }
       top = Fl::next_window(top);
     }
-    static float initial_scale = screen_dr->scale(screen);
+    float initial_scale = screen_dr->base_scale(screen);
 #if defined(TEST_SCALING)
     // test scaling factors: lots of values from 0.3 to 8.0
     static float scaling_values[] = {
@@ -791,6 +791,13 @@ size_t Fl_Screen_Driver::convert_crlf(char *s, size_t len) {
   return len;
 }
 
+
+float Fl_Screen_Driver::base_scale(int numscreen) {
+  static float base = scale(numscreen);
+  return base;
+}
+
+
 /**
  \}
  \endcond
-- 
cgit v1.2.3