Add puglGetScaleFactor()

1 files changed, 10 insertions, 2 deletions

diff --git a/src/mac.m b/src/mac.m
index 67422a5..9cd3e1c 100644
--- a/src/mac.m
+++ b/src/mac.m
@@ -35,10 +35,12 @@ rectToScreen(NSScreen* screen, NSRect rect)
 }
 
 static NSScreen*
-viewScreen(PuglView* view)
+viewScreen(const PuglView* view)
 {
   return view->impl->window ? [view->impl->window screen]
-                            : [NSScreen mainScreen];
+         : [view->impl->wrapperView window]
+           ? [[view->impl->wrapperView window] screen]
+           : [NSScreen mainScreen];
 }
 
 static NSRect
@@ -1365,6 +1367,12 @@ puglSetWindowTitle(PuglView* view, const char* title)
   return PUGL_SUCCESS;
 }
 
+double
+puglGetScaleFactor(const PuglView* const view)
+{
+  return [viewScreen(view) backingScaleFactor];
+}
+
 PuglStatus
 puglSetFrame(PuglView* view, const PuglRect frame)
 {