commit 91d2bf4783fe46f2d46f851713f8ba2866aab68c
Author:     ManoloFLTK <41016272+ManoloFLTK@users.noreply.github.com>
AuthorDate: Wed Mar 13 18:02:13 2024 +0100
Commit:     ManoloFLTK <41016272+ManoloFLTK@users.noreply.github.com>
CommitDate: Wed Mar 13 18:02:13 2024 +0100

    Improve Fl_Wayland_Screen_Driver::base_scale(int)

 src/drivers/Wayland/Fl_Wayland_Screen_Driver.cxx | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git src/drivers/Wayland/Fl_Wayland_Screen_Driver.cxx src/drivers/Wayland/Fl_Wayland_Screen_Driver.cxx
index 2a0e087..3b41bb1 100644
--- src/drivers/Wayland/Fl_Wayland_Screen_Driver.cxx
+++ src/drivers/Wayland/Fl_Wayland_Screen_Driver.cxx
@@ -1878,7 +1878,12 @@ int Fl_Wayland_Screen_Driver::get_key(int k) {
 
 
 float Fl_Wayland_Screen_Driver::base_scale(int numscreen) {
-  return 1.f;
+  const char *p;
+  float factor = 1;
+  if ((p = fl_getenv("FLTK_SCALING_FACTOR"))) {
+    sscanf(p, "%f", &factor);
+  }
+  return factor;
 }