From 5bf7e5ece77d1dd02423398618220d4f2f2c0459 Mon Sep 17 00:00:00 2001
From: Manolo Gouy <Manolo>
Date: Fri, 16 Feb 2018 17:12:23 +0000
Subject: [PATCH] Fix Fl_Cocoa_Screen_Driver::screen_work_area() when the GUI
 is scaled - continued.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.4@12670 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/Fl_cocoa.mm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Fl_cocoa.mm b/src/Fl_cocoa.mm
index c42b4432a..e5977ed85 100644
--- a/src/Fl_cocoa.mm
+++ b/src/Fl_cocoa.mm
@@ -1927,7 +1927,8 @@ static void get_window_frame_sizes(int &bx, int &by, int &bt, Fl_Window *win) {
  * smallest x coordinate in screen space of work area of menubar-containing display
  */
 int Fl_Cocoa_Screen_Driver::x() {
-  return int([[[NSScreen screens] objectAtIndex:0] visibleFrame].origin.x);
+  open_display();
+  return int([[[NSScreen screens] objectAtIndex:0] visibleFrame].origin.x) / scale(0);
 }