#FEATURE by Stefan Reise
authorsr
Tue, 19 Nov 2019 12:18:24 +0100
changeset 8870 d0a74d18b207
parent 8869 11b97ffd3d3b
child 8871 62717b04953b
#FEATURE by Stefan Reise class: DeviceWorkstation class added: #displayScaleFactor
DeviceWorkstation.st
--- a/DeviceWorkstation.st	Fri Nov 15 11:10:43 2019 +0100
+++ b/DeviceWorkstation.st	Tue Nov 19 12:18:24 2019 +0100
@@ -948,6 +948,21 @@
     "
 !
 
+displayScaleFactor
+    "redefined for windows
+     this is the scale factor the user did enter within the windows settings,
+     for e.g. the user can choose between 100, 125, 150 etc.
+     here we return 1, 1.25 1.5"
+
+    "
+        self displayScaleFactor          
+    "
+
+    ^ 1@1
+
+    "Created: / 18-11-2019 / 14:52:37 / Stefan Reise"
+!
+
 flushCachedLastScreen
     LastActiveScreen := nil.
     LastActiveProcess := nil.