#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 28 Feb 2017 01:05:29 +0100
changeset 21585 d2859242f3d7
parent 21584 6a39bcb8636b
child 21586 e8fe46fd9153
#FEATURE by cg class: OSXOperatingSystem changed: #receiveNextEvent
OSXOperatingSystem.st
--- a/OSXOperatingSystem.st	Tue Feb 28 00:20:05 2017 +0100
+++ b/OSXOperatingSystem.st	Tue Feb 28 01:05:29 2017 +0100
@@ -267,7 +267,6 @@
 receiveNextEvent
 %{
 #ifndef NO_COCOA
-# if 0
     CFMachPortRef      eventTap;
     CGEventMask        eventMask;
     CFRunLoopSourceRef runLoopSource;
@@ -275,25 +274,23 @@
     // Create an event tap. We are interested in key presses.
     eventMask = ((1 << kCGEventKeyDown) | (1 << kCGEventKeyUp));
     eventTap = CGEventTapCreate(kCGSessionEventTap, kCGHeadInsertEventTap, 0,
-				eventMask, NULL, myCGEventCallback);
+                                eventMask, NULL, myCGEventCallback);
     if (!eventTap) {
-	fprintf(stderr, "failed to create event tap\n");
+        fprintf(stderr, "failed to create event tap\n");
     } else{
-	fprintf(stderr, "ok\n");
+        fprintf(stderr, "ok\n");
     }
 
     // Create a run loop source.
     runLoopSource = CFMachPortCreateRunLoopSource( kCFAllocatorDefault, eventTap, 0);
-#  if 0
-    // Add to the current run loop. kCFRunLoopCommonModes);
-#  endif
     // Enable the event tap.
     CGEventTapEnable(eventTap, true);
 
-# endif
 #endif // NO_COCOA
 %}.
     self primitiveFailed
+
+    "Modified: / 28-02-2017 / 01:05:04 / cg"
 ! !
 
 !OSXOperatingSystem class methodsFor:'dummy shell operations'!