From f58d80d07779f6950453490e8d63a3f46ca0539f Mon Sep 17 00:00:00 2001
From: Matthias Melcher <fltk@matthiasm.com>
Date: Wed, 2 Nov 2005 10:39:06 +0000
Subject: STR #1050: OS X: The new event handler code did not handle "high
 level" Apple events except "Quit". Added the neccessary AE handler call in
 the main loop.

git-svn-id: file:///fltk/svn/fltk/branches/branch-1.1@4618 ea41ed52-d2ee-0310-a9c1-e6b18d33e121
---
 src/Fl_mac.cxx | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src')

diff --git a/src/Fl_mac.cxx b/src/Fl_mac.cxx
index ff619156c..00725fd6a 100644
--- a/src/Fl_mac.cxx
+++ b/src/Fl_mac.cxx
@@ -633,6 +633,13 @@ static double do_queued_events( double time = 0.0 )
   if (!ReceiveNextEvent(0, NULL, timeout, true, &event)) {
     got_events = 1;
     OSErr ret = SendEventToEventTarget( event, target );
+    if (ret!=noErr) {
+      EventRecord clevent;
+      ConvertEventRefToEventRecord(event, &clevent);
+      if (clevent.what==kHighLevelEvent) {
+        ret = AEProcessAppleEvent(&clevent);
+      }
+    }
     if (   ret==eventNotHandledErr
         && GetEventClass(event)==kEventClassMouse
         && GetEventKind(event)==kEventMouseDown ) {
-- 
cgit v1.2.3