DeviceWorkstation.st
changeset 8870 d0a74d18b207
parent 8867 fde04bd5f24b
child 8873 8f523b6f1d72
--- 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.