\(0, 0) of the selected frame's display. */)
(Lisp_Object x, Lisp_Object y)
{
+#ifdef NS_IMPL_COCOA
+ /* GNUstep doesn't support CGWarpMouseCursorPosition, so none of
+ this will work. */
struct frame *f = SELECTED_FRAME ();
EmacsView *view = FRAME_NS_VIEW (f);
NSScreen *screen = [[view window] screen];
CGPoint mouse_pos = CGPointMake(mouse_x, mouse_y);
CGWarpMouseCursorPosition (mouse_pos);
+#endif /* NS_IMPL_COCOA */
return Qnil;
}
typedef float EmacsCGFloat;
#endif
+/* FIXME: It looks as though instancetype will be supported in GNUstep
+ at some point, but I'm not sure what version. */
+#ifdef NS_IMPL_GNUSTEP
+typedef id instancetype;
+typedef int NSWindowStyleMask;
+#endif
+
/* ==========================================================================
Trace support
#define NSWindowStyleMaskMiniaturizable NSMiniaturizableWindowMask
#define NSWindowStyleMaskResizable NSResizableWindowMask
#define NSWindowStyleMaskTitled NSTitledWindowMask
+#define NSWindowStyleMaskUtilityWindow NSUtilityWindowMask
#define NSAlertStyleCritical NSCriticalAlertStyle
#define NSControlSizeRegular NSRegularControlSize
#endif