From 6d3fbe23a444d377717293cef07d354715d89672 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Carlos=20A=2E=20Leguizam=C3=B3n?= <familygw@gmail.com>
Date: Mon, 7 Dec 2020 00:57:22 -0300
Subject: [PATCH] Fix for UI scale in macOS Catalina, running with 4K/Retina
 displays.

---
 internal/c/libqb/gui.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/internal/c/libqb/gui.cpp b/internal/c/libqb/gui.cpp
index 299742517..8b325f18e 100644
--- a/internal/c/libqb/gui.cpp
+++ b/internal/c/libqb/gui.cpp
@@ -531,7 +531,7 @@ void sub__glrender(int32 method){
                 #ifdef QB64_MACOSX
                     if (scale_factor==0) {
                         scale_factor=1;
-                        if (system("system_profiler SPDisplaysDataType | grep Retina")==0 || system("system_profiler SPDisplaysDataType | grep 5K")==0) scale_factor=2;
+                        if ((system("sw_vers -productVersion | grep -E '^(10\.15\.)'") == 0) && ((system("system_profiler SPDisplaysDataType | grep Retina") == 0) || (system("system_profiler SPDisplaysDataType | grep 5K") == 0))) scale_factor=2;
                     }
                 #else
                     scale_factor=1;