1 /* Functions for the NeXT/Open/GNUstep and MacOSX window system.
3 Copyright (C) 1989, 1992-1994, 2005-2006, 2008-2012
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
22 Originally by Carl Edman
23 Updated by Christian Limpach (chris@nice.ch)
24 OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com)
25 MacOSX/Aqua port by Christophe de Dinechin (descubes@earthlink.net)
26 GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu)
29 /* This should be the first include, as it may set up #defines affecting
30 interpretation of even the system includes. */
35 #include <c-strcase.h>
38 #include "blockinput.h"
41 #include "character.h"
44 #include "termhooks.h"
49 int fns_trace_num = 1;
50 #define NSTRACE(x) fprintf (stderr, "%s:%d: [%d] " #x "\n", \
51 __FILE__, __LINE__, ++fns_trace_num)
58 extern NSArray *ns_send_types, *ns_return_types, *ns_drag_types;
60 extern Lisp_Object Qforeground_color;
61 extern Lisp_Object Qbackground_color;
62 extern Lisp_Object Qcursor_color;
63 extern Lisp_Object Qinternal_border_width;
64 extern Lisp_Object Qvisibility;
65 extern Lisp_Object Qcursor_type;
66 extern Lisp_Object Qicon_type;
67 extern Lisp_Object Qicon_name;
68 extern Lisp_Object Qicon_left;
69 extern Lisp_Object Qicon_top;
70 extern Lisp_Object Qleft;
71 extern Lisp_Object Qright;
72 extern Lisp_Object Qtop;
73 extern Lisp_Object Qdisplay;
74 extern Lisp_Object Qvertical_scroll_bars;
75 extern Lisp_Object Qauto_raise;
76 extern Lisp_Object Qauto_lower;
77 extern Lisp_Object Qbox;
78 extern Lisp_Object Qscroll_bar_width;
79 extern Lisp_Object Qx_resource_name;
80 extern Lisp_Object Qface_set_after_frame_default;
81 extern Lisp_Object Qunderline, Qundefined;
82 extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth;
83 extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle;
86 Lisp_Object Qbuffered;
87 Lisp_Object Qfontsize;
89 /* hack for OS X file panels */
92 EmacsTooltip *ns_tooltip;
94 /* Need forward declaration here to preserve organizational integrity of file */
95 Lisp_Object Fx_open_connection (Lisp_Object, Lisp_Object, Lisp_Object);
97 extern BOOL ns_in_resize;
99 /* Static variables to handle applescript execution. */
100 static Lisp_Object as_script, *as_result;
101 static int as_status;
104 static ptrdiff_t image_cache_refcount;
107 /* ==========================================================================
109 Internal utility functions
111 ========================================================================== */
118 error ("OpenStep is not in use or not initialized");
122 /* Nonzero if we can use mouse menus. */
130 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
131 and checking validity for NS. */
133 check_ns_frame (Lisp_Object frame)
138 f = SELECTED_FRAME ();
141 CHECK_LIVE_FRAME (frame);
144 if (! FRAME_NS_P (f))
145 error ("non-Nextstep frame used");
150 /* Let the user specify an Nextstep display with a frame.
151 nil stands for the selected frame--or, if that is not an Nextstep frame,
152 the first Nextstep display on the list. */
153 static struct ns_display_info *
154 check_ns_display_info (Lisp_Object frame)
158 struct frame *f = SELECTED_FRAME ();
159 if (FRAME_NS_P (f) && FRAME_LIVE_P (f) )
160 return FRAME_NS_DISPLAY_INFO (f);
161 else if (x_display_list != 0)
162 return x_display_list;
164 error ("Nextstep windows are not in use or not initialized");
166 else if (INTEGERP (frame))
168 struct terminal *t = get_terminal (frame, 1);
170 if (t->type != output_ns)
171 error ("Terminal %"pI"d is not a Nextstep display", XINT (frame));
173 return t->display_info.ns;
175 else if (STRINGP (frame))
176 return ns_display_info_for_name (frame);
181 CHECK_LIVE_FRAME (frame);
183 if (! FRAME_NS_P (f))
184 error ("non-Nextstep frame used");
185 return FRAME_NS_DISPLAY_INFO (f);
187 return NULL; /* shut compiler up */
192 ns_get_window (Lisp_Object maybeFrame)
194 id view =nil, window =nil;
196 if (!FRAMEP (maybeFrame) || !FRAME_NS_P (XFRAME (maybeFrame)))
197 maybeFrame = selected_frame;/*wrong_type_argument (Qframep, maybeFrame); */
199 if (!NILP (maybeFrame))
200 view = FRAME_NS_VIEW (XFRAME (maybeFrame));
201 if (view) window =[view window];
208 ns_get_screen (Lisp_Object screen)
211 struct terminal *terminal;
213 if (EQ (Qt, screen)) /* not documented */
214 return [NSScreen mainScreen];
216 terminal = get_terminal (screen, 1);
217 if (terminal->type != output_ns)
221 f = SELECTED_FRAME ();
222 else if (FRAMEP (screen))
226 struct ns_display_info *dpyinfo = terminal->display_info.ns;
227 f = dpyinfo->x_focus_frame
228 ? dpyinfo->x_focus_frame : dpyinfo->x_highlight_frame;
231 return ((f && FRAME_NS_P (f)) ? [[FRAME_NS_VIEW (f) window] screen]
236 /* Return the X display structure for the display named NAME.
237 Open a new connection if necessary. */
238 struct ns_display_info *
239 ns_display_info_for_name (Lisp_Object name)
242 struct ns_display_info *dpyinfo;
246 for (dpyinfo = x_display_list, names = ns_display_name_list;
248 dpyinfo = dpyinfo->next, names = XCDR (names))
251 tem = Fstring_equal (XCAR (XCAR (names)), name);
256 error ("Emacs for OpenStep does not yet support multi-display.");
258 Fx_open_connection (name, Qnil, Qnil);
259 dpyinfo = x_display_list;
262 error ("OpenStep on %s not responding.\n", SDATA (name));
269 interpret_services_menu (NSMenu *menu, Lisp_Object prefix, Lisp_Object old)
270 /* --------------------------------------------------------------------------
271 Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
272 -------------------------------------------------------------------------- */
282 count = [menu numberOfItems];
283 for (i = 0; i<count; i++)
285 item = [menu itemAtIndex: i];
286 name = [[item title] UTF8String];
289 nameStr = build_string (name);
291 if ([item hasSubmenu])
293 old = interpret_services_menu ([item submenu],
294 Fcons (nameStr, prefix), old);
298 keys = [item keyEquivalent];
299 if (keys && [keys length] )
301 key = [keys characterAtIndex: 0];
302 res = make_number (key|super_modifier);
308 old = Fcons (Fcons (res,
309 Freverse (Fcons (nameStr,
319 /* ==========================================================================
321 Frame parameter setters
323 ========================================================================== */
327 x_set_foreground_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
330 CGFloat r, g, b, alpha;
332 if (ns_lisp_to_color (arg, &col))
334 store_frame_param (f, Qforeground_color, oldval);
335 error ("Unknown color");
339 [f->output_data.ns->foreground_color release];
340 f->output_data.ns->foreground_color = col;
342 [col getRed: &r green: &g blue: &b alpha: &alpha];
343 FRAME_FOREGROUND_PIXEL (f) =
344 ARGB_TO_ULONG ((int)(alpha*0xff), (int)(r*0xff), (int)(g*0xff), (int)(b*0xff));
346 if (FRAME_NS_VIEW (f))
348 update_face_from_frame_parameter (f, Qforeground_color, arg);
349 /*recompute_basic_faces (f); */
350 if (FRAME_VISIBLE_P (f))
357 x_set_background_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
361 NSView *view = FRAME_NS_VIEW (f);
362 CGFloat r, g, b, alpha;
364 if (ns_lisp_to_color (arg, &col))
366 store_frame_param (f, Qbackground_color, oldval);
367 error ("Unknown color");
370 /* clear the frame; in some instances the NS-internal GC appears not to
371 update, or it does update and cannot clear old text properly */
372 if (FRAME_VISIBLE_P (f))
376 [f->output_data.ns->background_color release];
377 f->output_data.ns->background_color = col;
379 [col getRed: &r green: &g blue: &b alpha: &alpha];
380 FRAME_BACKGROUND_PIXEL (f) =
381 ARGB_TO_ULONG ((int)(alpha*0xff), (int)(r*0xff), (int)(g*0xff), (int)(b*0xff));
385 [[view window] setBackgroundColor: col];
388 [[view window] setOpaque: NO];
390 [[view window] setOpaque: YES];
392 face = FRAME_DEFAULT_FACE (f);
395 col = ns_lookup_indexed_color (NS_FACE_BACKGROUND (face), f);
396 face->background = ns_index_color
397 ([col colorWithAlphaComponent: alpha], f);
399 update_face_from_frame_parameter (f, Qbackground_color, arg);
402 if (FRAME_VISIBLE_P (f))
409 x_set_cursor_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
413 if (ns_lisp_to_color (arg, &col))
415 store_frame_param (f, Qcursor_color, oldval);
416 error ("Unknown color");
419 [FRAME_CURSOR_COLOR (f) release];
420 FRAME_CURSOR_COLOR (f) = [col retain];
422 if (FRAME_VISIBLE_P (f))
424 x_update_cursor (f, 0);
425 x_update_cursor (f, 1);
427 update_face_from_frame_parameter (f, Qcursor_color, arg);
432 x_set_icon_name (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
434 NSView *view = FRAME_NS_VIEW (f);
435 NSTRACE (x_set_icon_name);
440 /* see if it's changed */
443 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
446 else if (!STRINGP (oldval) && EQ (oldval, Qnil) == EQ (arg, Qnil))
449 fset_icon_name (f, arg);
453 if (!NILP (f->title))
456 /* explicit name and no icon-name -> explicit_name */
457 if (f->explicit_name)
461 /* no explicit name and no icon-name ->
462 name has to be rebuild from icon_title_format */
463 windows_or_buffers_changed++;
468 /* Don't change the name if it's already NAME. */
469 if ([[view window] miniwindowTitle] &&
470 ([[[view window] miniwindowTitle]
471 isEqualToString: [NSString stringWithUTF8String:
475 [[view window] setMiniwindowTitle:
476 [NSString stringWithUTF8String: SSDATA (arg)]];
480 ns_set_name_internal (FRAME_PTR f, Lisp_Object name)
483 Lisp_Object encoded_name, encoded_icon_name;
485 NSView *view = FRAME_NS_VIEW (f);
488 encoded_name = ENCODE_UTF_8 (name);
491 str = [NSString stringWithUTF8String: SSDATA (encoded_name)];
493 /* Don't change the name if it's already NAME. */
494 if (! [[[view window] title] isEqualToString: str])
495 [[view window] setTitle: str];
497 if (!STRINGP (f->icon_name))
498 encoded_icon_name = encoded_name;
500 encoded_icon_name = ENCODE_UTF_8 (f->icon_name);
502 str = [NSString stringWithUTF8String: SSDATA (encoded_icon_name)];
504 if ([[view window] miniwindowTitle] &&
505 ! [[[view window] miniwindowTitle] isEqualToString: str])
506 [[view window] setMiniwindowTitle: str];
511 ns_set_name (struct frame *f, Lisp_Object name, int explicit)
513 NSTRACE (ns_set_name);
518 /* Make sure that requests from lisp code override requests from
519 Emacs redisplay code. */
522 /* If we're switching from explicit to implicit, we had better
523 update the mode lines and thereby update the title. */
524 if (f->explicit_name && NILP (name))
525 update_mode_lines = 1;
527 f->explicit_name = ! NILP (name);
529 else if (f->explicit_name)
533 name = build_string([ns_app_name UTF8String]);
537 /* Don't change the name if it's already NAME. */
538 if (! NILP (Fstring_equal (name, f->name)))
543 /* title overrides explicit name */
544 if (! NILP (f->title))
547 ns_set_name_internal (f, name);
551 /* This function should be called when the user's lisp code has
552 specified a name for the frame; the name will override any set by the
555 x_explicitly_set_name (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
557 NSTRACE (x_explicitly_set_name);
558 ns_set_name (f, arg, 1);
562 /* This function should be called by Emacs redisplay code to set the
563 name; names set this way will never override names set by the user's
566 x_implicitly_set_name (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
568 NSTRACE (x_implicitly_set_name);
570 /* Deal with NS specific format t. */
571 if (FRAME_NS_P (f) && ((FRAME_ICONIFIED_P (f) && EQ (Vicon_title_format, Qt))
572 || EQ (Vframe_title_format, Qt)))
573 ns_set_name_as_filename (f);
575 ns_set_name (f, arg, 0);
579 /* Change the title of frame F to NAME.
580 If NAME is nil, use the frame name as the title. */
583 x_set_title (struct frame *f, Lisp_Object name, Lisp_Object old_name)
585 NSTRACE (x_set_title);
586 /* Don't change the title if it's already NAME. */
587 if (EQ (name, f->title))
590 update_mode_lines = 1;
592 fset_title (f, name);
599 ns_set_name_internal (f, name);
604 ns_set_name_as_filename (struct frame *f)
607 Lisp_Object name, filename;
608 Lisp_Object buf = XWINDOW (f->selected_window)->buffer;
610 NSAutoreleasePool *pool;
612 Lisp_Object encoded_name, encoded_filename;
614 NSTRACE (ns_set_name_as_filename);
616 if (f->explicit_name || ! NILP (f->title) || ns_in_resize)
620 pool = [[NSAutoreleasePool alloc] init];
621 filename = BVAR (XBUFFER (buf), filename);
622 name = BVAR (XBUFFER (buf), name);
626 if (! NILP (filename))
627 name = Ffile_name_nondirectory (filename);
629 name = build_string ([ns_app_name UTF8String]);
633 encoded_name = ENCODE_UTF_8 (name);
636 view = FRAME_NS_VIEW (f);
638 title = FRAME_ICONIFIED_P (f) ? [[[view window] miniwindowTitle] UTF8String]
639 : [[[view window] title] UTF8String];
641 if (title && (! strcmp (title, SSDATA (encoded_name))))
648 str = [NSString stringWithUTF8String: SSDATA (encoded_name)];
649 if (str == nil) str = @"Bad coding";
651 if (FRAME_ICONIFIED_P (f))
652 [[view window] setMiniwindowTitle: str];
657 if (! NILP (filename))
660 encoded_filename = ENCODE_UTF_8 (filename);
663 fstr = [NSString stringWithUTF8String: SSDATA (encoded_filename)];
664 if (fstr == nil) fstr = @"";
666 /* work around a bug observed on 10.3 and later where
667 setTitleWithRepresentedFilename does not clear out previous state
668 if given filename does not exist */
669 if (! [[NSFileManager defaultManager] fileExistsAtPath: fstr])
670 [[view window] setRepresentedFilename: @""];
676 [[view window] setRepresentedFilename: fstr];
677 [[view window] setTitle: str];
687 ns_set_doc_edited (struct frame *f, Lisp_Object arg)
689 NSView *view = FRAME_NS_VIEW (f);
690 NSAutoreleasePool *pool;
691 if (!MINI_WINDOW_P (XWINDOW (f->selected_window)))
694 pool = [[NSAutoreleasePool alloc] init];
695 [[view window] setDocumentEdited: !NILP (arg)];
703 x_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
706 if (FRAME_MINIBUF_ONLY_P (f))
709 if (TYPE_RANGED_INTEGERP (int, value))
710 nlines = XINT (value);
714 FRAME_MENU_BAR_LINES (f) = 0;
717 FRAME_EXTERNAL_MENU_BAR (f) = 1;
718 /* does for all frames, whereas we just want for one frame
719 [NSMenu setMenuBarVisible: YES]; */
723 if (FRAME_EXTERNAL_MENU_BAR (f) == 1)
724 free_frame_menubar (f);
725 /* [NSMenu setMenuBarVisible: NO]; */
726 FRAME_EXTERNAL_MENU_BAR (f) = 0;
731 /* toolbar support */
733 x_set_tool_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
737 if (FRAME_MINIBUF_ONLY_P (f))
740 if (RANGED_INTEGERP (0, value, INT_MAX))
741 nlines = XFASTINT (value);
747 FRAME_EXTERNAL_TOOL_BAR (f) = 1;
748 update_frame_tool_bar (f);
752 if (FRAME_EXTERNAL_TOOL_BAR (f))
754 free_frame_tool_bar (f);
755 FRAME_EXTERNAL_TOOL_BAR (f) = 0;
759 x_set_window_size (f, 0, f->text_cols, f->text_lines);
764 ns_implicitly_set_icon_type (struct frame *f)
767 EmacsView *view = FRAME_NS_VIEW (f);
769 Lisp_Object chain, elt;
770 NSAutoreleasePool *pool;
773 NSTRACE (ns_implicitly_set_icon_type);
776 pool = [[NSAutoreleasePool alloc] init];
777 if (f->output_data.ns->miniimage
778 && [[NSString stringWithUTF8String: SSDATA (f->name)]
779 isEqualToString: [(NSImage *)f->output_data.ns->miniimage name]])
786 tem = assq_no_quit (Qicon_type, f->param_alist);
787 if (CONSP (tem) && ! NILP (XCDR (tem)))
794 for (chain = Vns_icon_type_alist;
795 image == nil && CONSP (chain);
796 chain = XCDR (chain))
799 /* special case: 't' means go by file type */
800 if (SYMBOLP (elt) && EQ (elt, Qt) && SSDATA (f->name)[0] == '/')
803 = [NSString stringWithUTF8String: SSDATA (f->name)];
804 if ([[NSFileManager defaultManager] fileExistsAtPath: str])
805 image = [[[NSWorkspace sharedWorkspace] iconForFile: str] retain];
807 else if (CONSP (elt) &&
808 STRINGP (XCAR (elt)) &&
809 STRINGP (XCDR (elt)) &&
810 fast_string_match (XCAR (elt), f->name) >= 0)
812 image = [EmacsImage allocInitFromFile: XCDR (elt)];
814 image = [[NSImage imageNamed:
815 [NSString stringWithUTF8String:
816 SSDATA (XCDR (elt))]] retain];
822 image = [[[NSWorkspace sharedWorkspace] iconForFileType: @"text"] retain];
826 [f->output_data.ns->miniimage release];
827 f->output_data.ns->miniimage = image;
828 [view setMiniwindowImage: setMini];
835 x_set_icon_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
837 EmacsView *view = FRAME_NS_VIEW (f);
841 NSTRACE (x_set_icon_type);
843 if (!NILP (arg) && SYMBOLP (arg))
845 arg =build_string (SSDATA (SYMBOL_NAME (arg)));
846 store_frame_param (f, Qicon_type, arg);
849 /* do it the implicit way */
852 ns_implicitly_set_icon_type (f);
858 image = [EmacsImage allocInitFromFile: arg];
860 image =[NSImage imageNamed: [NSString stringWithUTF8String:
865 image = [NSImage imageNamed: @"text"];
869 f->output_data.ns->miniimage = image;
870 [view setMiniwindowImage: setMini];
874 /* Xism; we stub out (we do implement this in ns-win.el) */
876 XParseGeometry (char *string, int *x, int *y,
877 unsigned int *width, unsigned int *height)
879 message1 ("Warning: XParseGeometry not supported under NS.\n");
884 /* TODO: move to nsterm? */
886 ns_lisp_to_cursor_type (Lisp_Object arg)
889 if (XTYPE (arg) == Lisp_String)
891 else if (XTYPE (arg) == Lisp_Symbol)
892 str = SSDATA (SYMBOL_NAME (arg));
894 if (!strcmp (str, "box")) return FILLED_BOX_CURSOR;
895 if (!strcmp (str, "hollow")) return HOLLOW_BOX_CURSOR;
896 if (!strcmp (str, "hbar")) return HBAR_CURSOR;
897 if (!strcmp (str, "bar")) return BAR_CURSOR;
898 if (!strcmp (str, "no")) return NO_CURSOR;
904 ns_cursor_type_to_lisp (int arg)
908 case FILLED_BOX_CURSOR: return Qbox;
909 case HOLLOW_BOX_CURSOR: return intern ("hollow");
910 case HBAR_CURSOR: return intern ("hbar");
911 case BAR_CURSOR: return intern ("bar");
913 default: return intern ("no");
917 /* This is the same as the xfns.c definition. */
919 x_set_cursor_type (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
921 set_frame_cursor_types (f, arg);
923 /* Make sure the cursor gets redrawn. */
924 cursor_type_changed = 1;
928 /* called to set mouse pointer color, but all other terms use it to
929 initialize pointer types (and don't set the color ;) */
931 x_set_mouse_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
933 /* don't think we can do this on Nextstep */
938 #define Xstr(x) Str(x)
941 ns_appkit_version_str (void)
945 #ifdef NS_IMPL_GNUSTEP
946 sprintf(tmp, "gnustep-gui-%s", Xstr(GNUSTEP_GUI_VERSION));
947 #elif defined(NS_IMPL_COCOA)
948 sprintf(tmp, "apple-appkit-%.2f", NSAppKitVersionNumber);
952 return build_string (tmp);
956 /* This is for use by x-server-version and collapses all version info we
957 have into a single int. For a better picture of the implementation
958 running, use ns_appkit_version_str.*/
960 ns_appkit_version_int (void)
962 #ifdef NS_IMPL_GNUSTEP
963 return GNUSTEP_GUI_MAJOR_VERSION * 100 + GNUSTEP_GUI_MINOR_VERSION;
964 #elif defined(NS_IMPL_COCOA)
965 return (int)NSAppKitVersionNumber;
972 x_icon (struct frame *f, Lisp_Object parms)
973 /* --------------------------------------------------------------------------
974 Strangely-named function to set icon position parameters in frame.
975 This is irrelevant under OS X, but might be needed under GNUstep,
976 depending on the window manager used. Note, this is not a standard
977 frame parameter-setter; it is called directly from x-create-frame.
978 -------------------------------------------------------------------------- */
980 Lisp_Object icon_x, icon_y;
981 struct ns_display_info *dpyinfo = check_ns_display_info (Qnil);
983 f->output_data.ns->icon_top = Qnil;
984 f->output_data.ns->icon_left = Qnil;
986 /* Set the position of the icon. */
987 icon_x = x_get_arg (dpyinfo, parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
988 icon_y = x_get_arg (dpyinfo, parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
989 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
991 CHECK_NUMBER (icon_x);
992 CHECK_NUMBER (icon_y);
993 f->output_data.ns->icon_top = icon_y;
994 f->output_data.ns->icon_left = icon_x;
996 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
997 error ("Both left and top icon corners of icon must be specified");
1001 /* Note: see frame.c for template, also where generic functions are impl */
1002 frame_parm_handler ns_frame_parm_handlers[] =
1004 x_set_autoraise, /* generic OK */
1005 x_set_autolower, /* generic OK */
1006 x_set_background_color,
1007 0, /* x_set_border_color, may be impossible under Nextstep */
1008 0, /* x_set_border_width, may be impossible under Nextstep */
1011 x_set_font, /* generic OK */
1012 x_set_foreground_color,
1015 x_set_internal_border_width, /* generic OK */
1016 x_set_menu_bar_lines,
1018 x_explicitly_set_name,
1019 x_set_scroll_bar_width, /* generic OK */
1021 x_set_unsplittable, /* generic OK */
1022 x_set_vertical_scroll_bars, /* generic OK */
1023 x_set_visibility, /* generic OK */
1024 x_set_tool_bar_lines,
1025 0, /* x_set_scroll_bar_foreground, will ignore (not possible on NS) */
1026 0, /* x_set_scroll_bar_background, will ignore (not possible on NS) */
1027 x_set_screen_gamma, /* generic OK */
1028 x_set_line_spacing, /* generic OK, sets f->extra_line_spacing to int */
1029 x_set_fringe_width, /* generic OK */
1030 x_set_fringe_width, /* generic OK */
1031 0, /* x_set_wait_for_wm, will ignore */
1032 0, /* x_set_fullscreen will ignore */
1033 x_set_font_backend, /* generic OK */
1035 0, /* x_set_sticky */
1036 0, /* x_set_tool_bar_position */
1040 /* Handler for signals raised during x_create_frame.
1041 FRAME is the frame which is partially constructed. */
1044 unwind_create_frame (Lisp_Object frame)
1046 struct frame *f = XFRAME (frame);
1048 /* If frame is already dead, nothing to do. This can happen if the
1049 display is disconnected after the frame has become official, but
1050 before x_create_frame removes the unwind protect. */
1051 if (!FRAME_LIVE_P (f))
1054 /* If frame is ``official'', nothing to do. */
1055 if (NILP (Fmemq (frame, Vframe_list)))
1057 #if defined GLYPH_DEBUG && defined ENABLE_CHECKING
1058 struct ns_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (f);
1061 x_free_frame_resources (f);
1065 /* Check that reference counts are indeed correct. */
1066 eassert (dpyinfo->terminal->image_cache->refcount == image_cache_refcount);
1075 * Read geometry related parameters from preferences if not in PARMS.
1076 * Returns the union of parms and any preferences read.
1080 get_geometry_from_preferences (struct ns_display_info *dpyinfo,
1088 { "width", "Width", Qwidth },
1089 { "height", "Height", Qheight },
1090 { "left", "Left", Qleft },
1091 { "top", "Top", Qtop },
1095 for (i = 0; i < sizeof (r)/sizeof (r[0]); ++i)
1097 if (NILP (Fassq (r[i].tem, parms)))
1100 = x_get_arg (dpyinfo, parms, r[i].tem, r[i].val, r[i].cls,
1102 if (! EQ (value, Qunbound))
1103 parms = Fcons (Fcons (r[i].tem, value), parms);
1110 /* ==========================================================================
1114 ========================================================================== */
1116 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
1118 doc: /* Make a new Nextstep window, called a "frame" in Emacs terms.
1119 Return an Emacs frame object.
1120 PARMS is an alist of frame parameters.
1121 If the parameters specify that the frame should not have a minibuffer,
1122 and do not specify a specific minibuffer window to use,
1123 then `default-minibuffer-frame' must be a frame whose minibuffer can
1124 be shared by the new frame.
1126 This function is an internal primitive--use `make-frame' instead. */)
1130 Lisp_Object frame, tem;
1132 int minibuffer_only = 0;
1133 int window_prompting = 0;
1135 ptrdiff_t count = specpdl_ptr - specpdl;
1136 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
1137 Lisp_Object display;
1138 struct ns_display_info *dpyinfo = NULL;
1141 Lisp_Object tfont, tfontsize;
1142 static int desc_ctr = 1;
1146 /* x_get_arg modifies parms. */
1147 parms = Fcopy_alist (parms);
1149 /* Use this general default value to start with
1150 until we know if this frame has a specified name. */
1151 Vx_resource_name = Vinvocation_name;
1153 display = x_get_arg (dpyinfo, parms, Qterminal, 0, 0, RES_TYPE_STRING);
1154 if (EQ (display, Qunbound))
1156 dpyinfo = check_ns_display_info (display);
1157 kb = dpyinfo->terminal->kboard;
1159 if (!dpyinfo->terminal->name)
1160 error ("Terminal is not live, can't create new frames on it");
1162 name = x_get_arg (dpyinfo, parms, Qname, 0, 0, RES_TYPE_STRING);
1164 && ! EQ (name, Qunbound)
1166 error ("Invalid frame name--not a string or nil");
1169 Vx_resource_name = name;
1171 parent = x_get_arg (dpyinfo, parms, Qparent_id, 0, 0, RES_TYPE_NUMBER);
1172 if (EQ (parent, Qunbound))
1174 if (! NILP (parent))
1175 CHECK_NUMBER (parent);
1177 /* make_frame_without_minibuffer can run Lisp code and garbage collect. */
1178 /* No need to protect DISPLAY because that's not used after passing
1179 it to make_frame_without_minibuffer. */
1181 GCPRO4 (parms, parent, name, frame);
1182 tem = x_get_arg (dpyinfo, parms, Qminibuffer, "minibuffer", "Minibuffer",
1184 if (EQ (tem, Qnone) || NILP (tem))
1185 f = make_frame_without_minibuffer (Qnil, kb, display);
1186 else if (EQ (tem, Qonly))
1188 f = make_minibuffer_frame ();
1189 minibuffer_only = 1;
1191 else if (WINDOWP (tem))
1192 f = make_frame_without_minibuffer (tem, kb, display);
1196 XSETFRAME (frame, f);
1197 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
1199 f->terminal = dpyinfo->terminal;
1201 f->output_method = output_ns;
1202 f->output_data.ns = xzalloc (sizeof *f->output_data.ns);
1204 FRAME_FONTSET (f) = -1;
1206 fset_icon_name (f, x_get_arg (dpyinfo, parms, Qicon_name,
1207 "iconName", "Title",
1209 if (! STRINGP (f->icon_name))
1210 fset_icon_name (f, Qnil);
1212 FRAME_NS_DISPLAY_INFO (f) = dpyinfo;
1214 /* With FRAME_NS_DISPLAY_INFO set up, this unwind-protect is safe. */
1215 record_unwind_protect (unwind_create_frame, frame);
1217 f->output_data.ns->window_desc = desc_ctr++;
1218 if (TYPE_RANGED_INTEGERP (Window, parent))
1220 f->output_data.ns->parent_desc = XFASTINT (parent);
1221 f->output_data.ns->explicit_parent = 1;
1225 f->output_data.ns->parent_desc = FRAME_NS_DISPLAY_INFO (f)->root_window;
1226 f->output_data.ns->explicit_parent = 0;
1229 /* Set the name; the functions to which we pass f expect the name to
1231 if (EQ (name, Qunbound) || NILP (name) || ! STRINGP (name))
1233 fset_name (f, build_string ([ns_app_name UTF8String]));
1234 f->explicit_name = 0;
1238 fset_name (f, name);
1239 f->explicit_name = 1;
1240 specbind (Qx_resource_name, name);
1243 f->resx = dpyinfo->resx;
1244 f->resy = dpyinfo->resy;
1247 register_font_driver (&nsfont_driver, f);
1248 x_default_parameter (f, parms, Qfont_backend, Qnil,
1249 "fontBackend", "FontBackend", RES_TYPE_STRING);
1252 /* use for default font name */
1253 id font = [NSFont userFixedPitchFontOfSize: -1.0]; /* default */
1254 tfontsize = x_default_parameter (f, parms, Qfontsize,
1255 make_number (0 /*(int)[font pointSize]*/),
1256 "fontSize", "FontSize", RES_TYPE_NUMBER);
1257 tfont = x_default_parameter (f, parms, Qfont,
1258 build_string ([[font fontName] UTF8String]),
1259 "font", "Font", RES_TYPE_STRING);
1263 x_default_parameter (f, parms, Qborder_width, make_number (0),
1264 "borderwidth", "BorderWidth", RES_TYPE_NUMBER);
1265 x_default_parameter (f, parms, Qinternal_border_width, make_number (2),
1266 "internalBorderWidth", "InternalBorderWidth",
1269 /* default scrollbars on right on Mac */
1272 #ifdef NS_IMPL_GNUSTEP
1277 x_default_parameter (f, parms, Qvertical_scroll_bars, spos,
1278 "verticalScrollBars", "VerticalScrollBars",
1281 x_default_parameter (f, parms, Qforeground_color, build_string ("Black"),
1282 "foreground", "Foreground", RES_TYPE_STRING);
1283 x_default_parameter (f, parms, Qbackground_color, build_string ("White"),
1284 "background", "Background", RES_TYPE_STRING);
1285 /* FIXME: not supported yet in Nextstep */
1286 x_default_parameter (f, parms, Qline_spacing, Qnil,
1287 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
1288 x_default_parameter (f, parms, Qleft_fringe, Qnil,
1289 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
1290 x_default_parameter (f, parms, Qright_fringe, Qnil,
1291 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
1294 image_cache_refcount =
1295 FRAME_IMAGE_CACHE (f) ? FRAME_IMAGE_CACHE (f)->refcount : 0;
1298 init_frame_faces (f);
1300 /* The resources controlling the menu-bar and tool-bar are
1301 processed specially at startup, and reflected in the mode
1302 variables; ignore them here. */
1303 x_default_parameter (f, parms, Qmenu_bar_lines,
1304 NILP (Vmenu_bar_mode)
1305 ? make_number (0) : make_number (1),
1306 NULL, NULL, RES_TYPE_NUMBER);
1307 x_default_parameter (f, parms, Qtool_bar_lines,
1308 NILP (Vtool_bar_mode)
1309 ? make_number (0) : make_number (1),
1310 NULL, NULL, RES_TYPE_NUMBER);
1312 x_default_parameter (f, parms, Qbuffer_predicate, Qnil, "bufferPredicate",
1313 "BufferPredicate", RES_TYPE_SYMBOL);
1314 x_default_parameter (f, parms, Qtitle, Qnil, "title", "Title",
1317 parms = get_geometry_from_preferences (dpyinfo, parms);
1318 window_prompting = x_figure_window_size (f, parms, 1);
1320 tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
1321 f->no_split = minibuffer_only || (!EQ (tem, Qunbound) && !EQ (tem, Qnil));
1323 /* NOTE: on other terms, this is done in set_mouse_color, however this
1324 was not getting called under Nextstep */
1325 f->output_data.ns->text_cursor = [NSCursor IBeamCursor];
1326 f->output_data.ns->nontext_cursor = [NSCursor arrowCursor];
1327 f->output_data.ns->modeline_cursor = [NSCursor pointingHandCursor];
1328 f->output_data.ns->hand_cursor = [NSCursor pointingHandCursor];
1329 f->output_data.ns->hourglass_cursor = [NSCursor disappearingItemCursor];
1330 f->output_data.ns->horizontal_drag_cursor = [NSCursor resizeLeftRightCursor];
1331 FRAME_NS_DISPLAY_INFO (f)->vertical_scroll_bar_cursor
1332 = [NSCursor arrowCursor];
1333 f->output_data.ns->current_pointer = f->output_data.ns->text_cursor;
1335 [[EmacsView alloc] initFrameFromEmacs: f];
1339 /* ns_display_info does not have a reference_count. */
1340 f->terminal->reference_count++;
1342 /* It is now ok to make the frame official even if we get an error below.
1343 The frame needs to be on Vframe_list or making it visible won't work. */
1344 Vframe_list = Fcons (frame, Vframe_list);
1346 x_default_parameter (f, parms, Qicon_type, Qnil,
1347 "bitmapIcon", "BitmapIcon", RES_TYPE_SYMBOL);
1349 x_default_parameter (f, parms, Qauto_raise, Qnil,
1350 "autoRaise", "AutoRaiseLower", RES_TYPE_BOOLEAN);
1351 x_default_parameter (f, parms, Qauto_lower, Qnil,
1352 "autoLower", "AutoLower", RES_TYPE_BOOLEAN);
1353 x_default_parameter (f, parms, Qcursor_type, Qbox,
1354 "cursorType", "CursorType", RES_TYPE_SYMBOL);
1355 x_default_parameter (f, parms, Qscroll_bar_width, Qnil,
1356 "scrollBarWidth", "ScrollBarWidth",
1358 x_default_parameter (f, parms, Qalpha, Qnil,
1359 "alpha", "Alpha", RES_TYPE_NUMBER);
1361 width = FRAME_COLS (f);
1362 height = FRAME_LINES (f);
1364 SET_FRAME_COLS (f, 0);
1365 FRAME_LINES (f) = 0;
1366 change_frame_size (f, height, width, 1, 0, 0);
1368 if (! f->output_data.ns->explicit_parent)
1370 Lisp_Object visibility;
1372 visibility = x_get_arg (dpyinfo, parms, Qvisibility, 0, 0,
1374 if (EQ (visibility, Qunbound))
1377 if (EQ (visibility, Qicon))
1378 x_iconify_frame (f);
1379 else if (! NILP (visibility))
1381 x_make_frame_visible (f);
1382 [[FRAME_NS_VIEW (f) window] makeKeyWindow];
1386 /* Must have been Qnil. */
1390 if (FRAME_HAS_MINIBUF_P (f)
1391 && (!FRAMEP (KVAR (kb, Vdefault_minibuffer_frame))
1392 || !FRAME_LIVE_P (XFRAME (KVAR (kb, Vdefault_minibuffer_frame)))))
1393 kset_default_minibuffer_frame (kb, frame);
1395 /* All remaining specified parameters, which have not been "used"
1396 by x_get_arg and friends, now go in the misc. alist of the frame. */
1397 for (tem = parms; CONSP (tem); tem = XCDR (tem))
1398 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
1399 fset_param_alist (f, Fcons (XCAR (tem), f->param_alist));
1403 /* Make sure windows on this frame appear in calls to next-window
1404 and similar functions. */
1405 Vwindow_list = Qnil;
1407 return unbind_to (count, frame);
1411 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
1412 doc: /* Set the input focus to FRAME.
1413 FRAME nil means use the selected frame. */)
1416 struct frame *f = check_ns_frame (frame);
1417 struct ns_display_info *dpyinfo = FRAME_NS_DISPLAY_INFO (f);
1419 if (dpyinfo->x_focus_frame != f)
1421 EmacsView *view = FRAME_NS_VIEW (f);
1423 [NSApp activateIgnoringOtherApps: YES];
1424 [[view window] makeKeyAndOrderFront: view];
1432 DEFUN ("ns-popup-font-panel", Fns_popup_font_panel, Sns_popup_font_panel,
1434 doc: /* Pop up the font panel. */)
1441 fm = [NSFontManager sharedFontManager];
1443 f = SELECTED_FRAME ();
1446 CHECK_FRAME (frame);
1450 [fm setSelectedFont: ((struct nsfont_info *)f->output_data.ns->font)->nsfont
1452 [fm orderFrontFontPanel: NSApp];
1457 DEFUN ("ns-popup-color-panel", Fns_popup_color_panel, Sns_popup_color_panel,
1459 doc: /* Pop up the color panel. */)
1466 f = SELECTED_FRAME ();
1469 CHECK_FRAME (frame);
1473 [NSApp orderFrontColorPanel: NSApp];
1478 DEFUN ("ns-read-file-name", Fns_read_file_name, Sns_read_file_name, 1, 4, 0,
1479 doc: /* Use a graphical panel to read a file name, using prompt PROMPT.
1480 Optional arg DIR, if non-nil, supplies a default directory.
1481 Optional arg MUSTMATCH, if non-nil, means the returned file or
1482 directory must exist.
1483 Optional arg INIT, if non-nil, provides a default file name to use. */)
1484 (Lisp_Object prompt, Lisp_Object dir, Lisp_Object mustmatch, Lisp_Object init)
1486 static id fileDelegate = nil;
1491 NSString *promptS = NILP (prompt) || !STRINGP (prompt) ? nil :
1492 [NSString stringWithUTF8String: SSDATA (prompt)];
1493 NSString *dirS = NILP (dir) || !STRINGP (dir) ?
1494 [NSString stringWithUTF8String: SSDATA (BVAR (current_buffer, directory))] :
1495 [NSString stringWithUTF8String: SSDATA (dir)];
1496 NSString *initS = NILP (init) || !STRINGP (init) ? nil :
1497 [NSString stringWithUTF8String: SSDATA (init)];
1501 if (fileDelegate == nil)
1502 fileDelegate = [EmacsFileDelegate new];
1504 [NSCursor setHiddenUntilMouseMoves: NO];
1506 if ([dirS characterAtIndex: 0] == '~')
1507 dirS = [dirS stringByExpandingTildeInPath];
1509 panel = NILP (mustmatch) ?
1510 (id)[EmacsSavePanel savePanel] : (id)[EmacsOpenPanel openPanel];
1512 [panel setTitle: promptS];
1514 /* Puma (10.1) does not have */
1515 if ([panel respondsToSelector: @selector (setAllowsOtherFileTypes:)])
1516 [panel setAllowsOtherFileTypes: YES];
1518 [panel setTreatsFilePackagesAsDirectories: YES];
1519 [panel setDelegate: fileDelegate];
1523 if (NILP (mustmatch))
1525 ret = [panel runModalForDirectory: dirS file: initS];
1529 [panel setCanChooseDirectories: YES];
1530 ret = [panel runModalForDirectory: dirS file: initS types: nil];
1533 ret = (ret == NSOKButton) || panelOK;
1536 fname = build_string ([[panel filename] UTF8String]);
1538 [[FRAME_NS_VIEW (SELECTED_FRAME ()) window] makeKeyWindow];
1541 return ret ? fname : Qnil;
1545 ns_get_defaults_value (const char *key)
1547 NSObject *obj = [[NSUserDefaults standardUserDefaults]
1548 objectForKey: [NSString stringWithUTF8String: key]];
1550 if (!obj) return NULL;
1552 return [[NSString stringWithFormat: @"%@", obj] UTF8String];
1556 DEFUN ("ns-get-resource", Fns_get_resource, Sns_get_resource, 2, 2, 0,
1557 doc: /* Return the value of the property NAME of OWNER from the defaults database.
1558 If OWNER is nil, Emacs is assumed. */)
1559 (Lisp_Object owner, Lisp_Object name)
1565 owner = build_string([ns_app_name UTF8String]);
1566 CHECK_STRING (name);
1567 /*fprintf (stderr, "ns-get-resource checking resource '%s'\n", SSDATA (name)); */
1569 value = ns_get_defaults_value (SSDATA (name));
1572 return build_string (value);
1577 DEFUN ("ns-set-resource", Fns_set_resource, Sns_set_resource, 3, 3, 0,
1578 doc: /* Set property NAME of OWNER to VALUE, from the defaults database.
1579 If OWNER is nil, Emacs is assumed.
1580 If VALUE is nil, the default is removed. */)
1581 (Lisp_Object owner, Lisp_Object name, Lisp_Object value)
1585 owner = build_string ([ns_app_name UTF8String]);
1586 CHECK_STRING (name);
1589 [[NSUserDefaults standardUserDefaults] removeObjectForKey:
1590 [NSString stringWithUTF8String: SSDATA (name)]];
1594 CHECK_STRING (value);
1595 [[NSUserDefaults standardUserDefaults] setObject:
1596 [NSString stringWithUTF8String: SSDATA (value)]
1597 forKey: [NSString stringWithUTF8String:
1605 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
1606 Sx_server_max_request_size,
1608 doc: /* This function is a no-op. It is only present for completeness. */)
1609 (Lisp_Object display)
1612 /* This function has no real equivalent under NeXTstep. Return nil to
1618 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
1619 doc: /* Return the vendor ID string of Nextstep display server DISPLAY.
1620 DISPLAY should be either a frame or a display name (a string).
1621 If omitted or nil, the selected frame's display is used. */)
1622 (Lisp_Object display)
1624 #ifdef NS_IMPL_GNUSTEP
1625 return build_string ("GNU");
1627 return build_string ("Apple");
1632 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
1633 doc: /* Return the version numbers of the server of DISPLAY.
1634 The value is a list of three integers: the major and minor
1635 version numbers of the X Protocol in use, and the distributor-specific
1636 release number. See also the function `x-server-vendor'.
1638 The optional argument DISPLAY specifies which display to ask about.
1639 DISPLAY should be either a frame or a display name (a string).
1640 If omitted or nil, that stands for the selected frame's display. */)
1641 (Lisp_Object display)
1643 /*NOTE: it is unclear what would best correspond with "protocol";
1644 we return 10.3, meaning Panther, since this is roughly the
1645 level that GNUstep's APIs correspond to.
1646 The last number is where we distinguish between the Apple
1647 and GNUstep implementations ("distributor-specific release
1648 number") and give int'ized versions of major.minor. */
1649 return Fcons (make_number (10),
1650 Fcons (make_number (3),
1651 Fcons (make_number (ns_appkit_version_int()), Qnil)));
1655 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
1656 doc: /* Return the number of screens on Nextstep display server DISPLAY.
1657 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1658 If omitted or nil, the selected frame's display is used. */)
1659 (Lisp_Object display)
1664 num = [[NSScreen screens] count];
1666 return (num != 0) ? make_number (num) : Qnil;
1670 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height,
1672 doc: /* Return the height of Nextstep display server DISPLAY, in millimeters.
1673 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1674 If omitted or nil, the selected frame's display is used. */)
1675 (Lisp_Object display)
1678 return make_number ((int)
1679 ([ns_get_screen (display) frame].size.height/(92.0/25.4)));
1683 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width,
1685 doc: /* Return the width of Nextstep display server DISPLAY, in millimeters.
1686 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1687 If omitted or nil, the selected frame's display is used. */)
1688 (Lisp_Object display)
1691 return make_number ((int)
1692 ([ns_get_screen (display) frame].size.width/(92.0/25.4)));
1696 DEFUN ("x-display-backing-store", Fx_display_backing_store,
1697 Sx_display_backing_store, 0, 1, 0,
1698 doc: /* Return whether the Nextstep display DISPLAY supports backing store.
1699 The value may be `buffered', `retained', or `non-retained'.
1700 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1701 If omitted or nil, the selected frame's display is used. */)
1702 (Lisp_Object display)
1705 switch ([ns_get_window (display) backingType])
1707 case NSBackingStoreBuffered:
1708 return intern ("buffered");
1709 case NSBackingStoreRetained:
1710 return intern ("retained");
1711 case NSBackingStoreNonretained:
1712 return intern ("non-retained");
1714 error ("Strange value for backingType parameter of frame");
1716 return Qnil; /* not reached, shut compiler up */
1720 DEFUN ("x-display-visual-class", Fx_display_visual_class,
1721 Sx_display_visual_class, 0, 1, 0,
1722 doc: /* Return the visual class of the Nextstep display server DISPLAY.
1723 The value is one of the symbols `static-gray', `gray-scale',
1724 `static-color', `pseudo-color', `true-color', or `direct-color'.
1725 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1726 If omitted or nil, the selected frame's display is used. */)
1727 (Lisp_Object display)
1729 NSWindowDepth depth;
1731 depth = [ns_get_screen (display) depth];
1733 if ( depth == NSBestDepth (NSCalibratedWhiteColorSpace, 2, 2, YES, NULL))
1734 return intern ("static-gray");
1735 else if (depth == NSBestDepth (NSCalibratedWhiteColorSpace, 8, 8, YES, NULL))
1736 return intern ("gray-scale");
1737 else if ( depth == NSBestDepth (NSCalibratedRGBColorSpace, 8, 8, YES, NULL))
1738 return intern ("pseudo-color");
1739 else if ( depth == NSBestDepth (NSCalibratedRGBColorSpace, 4, 12, NO, NULL))
1740 return intern ("true-color");
1741 else if ( depth == NSBestDepth (NSCalibratedRGBColorSpace, 8, 24, NO, NULL))
1742 return intern ("direct-color");
1744 /* color mgmt as far as we do it is really handled by Nextstep itself anyway */
1745 return intern ("direct-color");
1749 DEFUN ("x-display-save-under", Fx_display_save_under,
1750 Sx_display_save_under, 0, 1, 0,
1751 doc: /* Return t if DISPLAY supports the save-under feature.
1752 The optional argument DISPLAY specifies which display to ask about.
1753 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1754 If omitted or nil, the selected frame's display is used. */)
1755 (Lisp_Object display)
1758 switch ([ns_get_window (display) backingType])
1760 case NSBackingStoreBuffered:
1763 case NSBackingStoreRetained:
1764 case NSBackingStoreNonretained:
1768 error ("Strange value for backingType parameter of frame");
1770 return Qnil; /* not reached, shut compiler up */
1774 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
1776 doc: /* Open a connection to a display server.
1777 DISPLAY is the name of the display to connect to.
1778 Optional second arg XRM-STRING is a string of resources in xrdb format.
1779 If the optional third arg MUST-SUCCEED is non-nil,
1780 terminate Emacs if we can't open the connection.
1781 \(In the Nextstep version, the last two arguments are currently ignored.) */)
1782 (Lisp_Object display, Lisp_Object resource_string, Lisp_Object must_succeed)
1784 struct ns_display_info *dpyinfo;
1786 CHECK_STRING (display);
1788 nxatoms_of_nsselect ();
1789 dpyinfo = ns_term_init (display);
1792 if (!NILP (must_succeed))
1793 fatal ("OpenStep on %s not responding.\n",
1796 error ("OpenStep on %s not responding.\n",
1800 /* Register our external input/output types, used for determining
1801 applicable services and also drag/drop eligibility. */
1802 ns_send_types = [[NSArray arrayWithObjects: NSStringPboardType, nil] retain];
1803 ns_return_types = [[NSArray arrayWithObjects: NSStringPboardType, nil]
1805 ns_drag_types = [[NSArray arrayWithObjects:
1807 NSTabularTextPboardType,
1808 NSFilenamesPboardType,
1811 NSFontPboardType, nil] retain];
1817 DEFUN ("x-close-connection", Fx_close_connection, Sx_close_connection,
1819 doc: /* Close the connection to the current Nextstep display server.
1820 The argument DISPLAY is currently ignored. */)
1821 (Lisp_Object display)
1824 /*ns_delete_terminal (dpyinfo->terminal); */
1825 [NSApp terminate: NSApp];
1830 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
1831 doc: /* Return the list of display names that Emacs has connections to. */)
1834 Lisp_Object tail, result;
1837 for (tail = ns_display_name_list; CONSP (tail); tail = XCDR (tail))
1838 result = Fcons (XCAR (XCAR (tail)), result);
1844 DEFUN ("ns-hide-others", Fns_hide_others, Sns_hide_others,
1846 doc: /* Hides all applications other than Emacs. */)
1850 [NSApp hideOtherApplications: NSApp];
1854 DEFUN ("ns-hide-emacs", Fns_hide_emacs, Sns_hide_emacs,
1856 doc: /* If ON is non-nil, the entire Emacs application is hidden.
1857 Otherwise if Emacs is hidden, it is unhidden.
1858 If ON is equal to `activate', Emacs is unhidden and becomes
1859 the active application. */)
1863 if (EQ (on, intern ("activate")))
1865 [NSApp unhide: NSApp];
1866 [NSApp activateIgnoringOtherApps: YES];
1869 [NSApp unhide: NSApp];
1871 [NSApp hide: NSApp];
1876 DEFUN ("ns-emacs-info-panel", Fns_emacs_info_panel, Sns_emacs_info_panel,
1878 doc: /* Shows the 'Info' or 'About' panel for Emacs. */)
1882 [NSApp orderFrontStandardAboutPanel: nil];
1887 DEFUN ("ns-font-name", Fns_font_name, Sns_font_name, 1, 1, 0,
1888 doc: /* Determine font PostScript or family name for font NAME.
1889 NAME should be a string containing either the font name or an XLFD
1890 font descriptor. If string contains `fontset' and not
1891 `fontset-startup', it is left alone. */)
1895 CHECK_STRING (name);
1900 if (strstr (nm, "fontset") && !strstr (nm, "fontset-startup"))
1903 return build_string (ns_xlfd_to_fontname (SSDATA (name)));
1907 DEFUN ("ns-list-colors", Fns_list_colors, Sns_list_colors, 0, 1, 0,
1908 doc: /* Return a list of all available colors.
1909 The optional argument FRAME is currently ignored. */)
1912 Lisp_Object list = Qnil;
1913 NSEnumerator *colorlists;
1918 CHECK_FRAME (frame);
1919 if (! FRAME_NS_P (XFRAME (frame)))
1920 error ("non-Nextstep frame used in `ns-list-colors'");
1925 colorlists = [[NSColorList availableColorLists] objectEnumerator];
1926 while ((clist = [colorlists nextObject]))
1928 if ([[clist name] length] < 7 ||
1929 [[clist name] rangeOfString: @"PANTONE"].location == 0)
1931 NSEnumerator *cnames = [[clist allKeys] reverseObjectEnumerator];
1933 while ((cname = [cnames nextObject]))
1934 list = Fcons (build_string ([cname UTF8String]), list);
1935 /* for (i = [[clist allKeys] count] - 1; i >= 0; i--)
1936 list = Fcons (build_string ([[[clist allKeys] objectAtIndex: i]
1937 UTF8String]), list); */
1947 DEFUN ("ns-list-services", Fns_list_services, Sns_list_services, 0, 0, 0,
1948 doc: /* List available Nextstep services by querying NSApp. */)
1951 #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_6
1952 /* You can't get services like this in 10.6+. */
1955 Lisp_Object ret = Qnil;
1960 svcs = [[NSMenu alloc] initWithTitle: @"Services"];
1961 [NSApp setServicesMenu: svcs]; /* this and next rebuild on <10.4 */
1962 [NSApp registerServicesMenuSendTypes: ns_send_types
1963 returnTypes: ns_return_types];
1965 /* On Tiger, services menu updating was made lazier (waits for user to
1966 actually click on the menu), so we have to force things along: */
1967 #ifdef NS_IMPL_COCOA
1968 if (NSAppKitVersionNumber >= 744.0)
1970 delegate = [svcs delegate];
1971 if (delegate != nil)
1973 if ([delegate respondsToSelector: @selector (menuNeedsUpdate:)])
1974 [delegate menuNeedsUpdate: svcs];
1975 if ([delegate respondsToSelector:
1976 @selector (menu:updateItem:atIndex:shouldCancel:)])
1978 int i, len = [delegate numberOfItemsInMenu: svcs];
1979 for (i =0; i<len; i++)
1980 [svcs addItemWithTitle: @"" action: NULL keyEquivalent: @""];
1981 for (i =0; i<len; i++)
1982 if (![delegate menu: svcs
1983 updateItem: (NSMenuItem *)[svcs itemAtIndex: i]
1984 atIndex: i shouldCancel: NO])
1991 [svcs setAutoenablesItems: NO];
1992 #ifdef NS_IMPL_COCOA
1993 [svcs update]; /* on OS X, converts from '/' structure */
1996 ret = interpret_services_menu (svcs, Qnil, ret);
2002 DEFUN ("ns-perform-service", Fns_perform_service, Sns_perform_service,
2004 doc: /* Perform Nextstep SERVICE on SEND.
2005 SEND should be either a string or nil.
2006 The return value is the result of the service, as string, or nil if
2007 there was no result. */)
2008 (Lisp_Object service, Lisp_Object send)
2014 CHECK_STRING (service);
2017 utfStr = SSDATA (service);
2018 svcName = [NSString stringWithUTF8String: utfStr];
2020 pb =[NSPasteboard pasteboardWithUniqueName];
2021 ns_string_to_pasteboard (pb, send);
2023 if (NSPerformService (svcName, pb) == NO)
2024 Fsignal (Qquit, Fcons (build_string ("service not available"), Qnil));
2026 if ([[pb types] count] == 0)
2027 return build_string ("");
2028 return ns_string_from_pasteboard (pb);
2032 DEFUN ("ns-convert-utf8-nfd-to-nfc", Fns_convert_utf8_nfd_to_nfc,
2033 Sns_convert_utf8_nfd_to_nfc, 1, 1, 0,
2034 doc: /* Return an NFC string that matches the UTF-8 NFD string STR. */)
2037 /* TODO: If GNUstep ever implements precomposedStringWithCanonicalMapping,
2042 utfStr = [NSString stringWithUTF8String: SSDATA (str)];
2043 if (![utfStr respondsToSelector:
2044 @selector (precomposedStringWithCanonicalMapping)])
2047 ("Warning: ns-convert-utf8-nfd-to-nfc unsupported under GNUstep.\n");
2051 utfStr = [utfStr precomposedStringWithCanonicalMapping];
2052 return build_string ([utfStr UTF8String]);
2056 #ifdef NS_IMPL_COCOA
2058 /* Compile and execute the AppleScript SCRIPT and return the error
2059 status as function value. A zero is returned if compilation and
2060 execution is successful, in which case *RESULT is set to a Lisp
2061 string or a number containing the resulting script value. Otherwise,
2064 ns_do_applescript (Lisp_Object script, Lisp_Object *result)
2066 NSAppleEventDescriptor *desc;
2067 NSDictionary* errorDict;
2068 NSAppleEventDescriptor* returnDescriptor = NULL;
2070 NSAppleScript* scriptObject =
2071 [[NSAppleScript alloc] initWithSource:
2072 [NSString stringWithUTF8String: SSDATA (script)]];
2074 returnDescriptor = [scriptObject executeAndReturnError: &errorDict];
2075 [scriptObject release];
2079 if (returnDescriptor != NULL)
2081 // successful execution
2082 if (kAENullEvent != [returnDescriptor descriptorType])
2085 // script returned an AppleScript result
2086 if ((typeUnicodeText == [returnDescriptor descriptorType]) ||
2087 #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
2088 (typeUTF16ExternalRepresentation
2089 == [returnDescriptor descriptorType]) ||
2091 (typeUTF8Text == [returnDescriptor descriptorType]) ||
2092 (typeCString == [returnDescriptor descriptorType]))
2094 desc = [returnDescriptor coerceToDescriptorType: typeUTF8Text];
2096 *result = build_string([[desc stringValue] UTF8String]);
2100 /* use typeUTF16ExternalRepresentation? */
2101 // coerce the result to the appropriate ObjC type
2102 desc = [returnDescriptor coerceToDescriptorType: typeUTF8Text];
2104 *result = make_number([desc int32Value]);
2110 // no script result, return error
2116 /* Helper function called from sendEvent to run applescript
2117 from within the main event loop. */
2120 ns_run_ascript (void)
2122 as_status = ns_do_applescript (as_script, as_result);
2125 DEFUN ("ns-do-applescript", Fns_do_applescript, Sns_do_applescript, 1, 1, 0,
2126 doc: /* Execute AppleScript SCRIPT and return the result.
2127 If compilation and execution are successful, the resulting script value
2128 is returned as a string, a number or, in the case of other constructs, t.
2129 In case the execution fails, an error is signaled. */)
2130 (Lisp_Object script)
2136 CHECK_STRING (script);
2142 as_result = &result;
2144 /* executing apple script requires the event loop to run, otherwise
2145 errors aren't returned and executeAndReturnError hangs forever.
2146 Post an event that runs applescript and then start the event loop.
2147 The event loop is exited when the script is done. */
2148 nxev = [NSEvent otherEventWithType: NSApplicationDefined
2149 location: NSMakePoint (0, 0)
2152 windowNumber: [[NSApp mainWindow] windowNumber]
2153 context: [NSApp context]
2156 data2: NSAPP_DATA2_RUNASSCRIPT];
2158 [NSApp postEvent: nxev atStart: NO];
2168 else if (!STRINGP (result))
2169 error ("AppleScript error %d", status);
2171 error ("%s", SSDATA (result));
2177 /* ==========================================================================
2179 Miscellaneous functions not called through hooks
2181 ========================================================================== */
2184 /* called from image.c */
2186 check_x_frame (Lisp_Object frame)
2188 return check_ns_frame (frame);
2192 /* called from frame.c */
2193 struct ns_display_info *
2194 check_x_display_info (Lisp_Object frame)
2196 return check_ns_display_info (frame);
2201 x_set_scroll_bar_default_width (struct frame *f)
2203 int wid = FRAME_COLUMN_WIDTH (f);
2204 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = NS_SCROLL_BAR_WIDTH_DEFAULT;
2205 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) +
2210 /* terms impl this instead of x-get-resource directly */
2212 x_get_string_resource (XrmDatabase rdb, char *name, char *class)
2214 /* remove appname prefix; TODO: allow for !="Emacs" */
2215 char *toCheck = class + (!strncmp (class, "Emacs.", 6) ? 6 : 0);
2219 if (inhibit_x_resources)
2220 /* --quick was passed, so this is a no-op. */
2223 res = ns_get_defaults_value (toCheck);
2224 return !res ? NULL :
2225 (!c_strncasecmp (res, "YES", 3) ? "true" :
2226 (!c_strncasecmp (res, "NO", 2) ? "false" : res));
2231 x_get_focus_frame (struct frame *frame)
2233 struct ns_display_info *dpyinfo = FRAME_NS_DISPLAY_INFO (frame);
2234 Lisp_Object nsfocus;
2236 if (!dpyinfo->x_focus_frame)
2239 XSETFRAME (nsfocus, dpyinfo->x_focus_frame);
2245 x_pixel_width (struct frame *f)
2247 return FRAME_PIXEL_WIDTH (f);
2252 x_pixel_height (struct frame *f)
2254 return FRAME_PIXEL_HEIGHT (f);
2259 x_char_width (struct frame *f)
2261 return FRAME_COLUMN_WIDTH (f);
2266 x_char_height (struct frame *f)
2268 return FRAME_LINE_HEIGHT (f);
2273 x_screen_planes (struct frame *f)
2275 return FRAME_NS_DISPLAY_INFO (f)->n_planes;
2280 x_sync (struct frame *f)
2282 /* XXX Not implemented XXX */
2288 /* ==========================================================================
2290 Lisp definitions that, for whatever reason, we can't alias as 'ns-XXX'.
2292 ========================================================================== */
2295 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
2296 doc: /* Internal function called by `color-defined-p', which see.
2297 \(Note that the Nextstep version of this function ignores FRAME.) */)
2298 (Lisp_Object color, Lisp_Object frame)
2302 return ns_lisp_to_color (color, &col) ? Qnil : Qt;
2306 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
2307 doc: /* Internal function called by `color-values', which see. */)
2308 (Lisp_Object color, Lisp_Object frame)
2311 CGFloat red, green, blue, alpha;
2314 CHECK_STRING (color);
2316 if (ns_lisp_to_color (color, &col))
2319 [[col colorUsingColorSpaceName: NSCalibratedRGBColorSpace]
2320 getRed: &red green: &green blue: &blue alpha: &alpha];
2321 return list3 (make_number (lrint (red*65280)),
2322 make_number (lrint (green*65280)),
2323 make_number (lrint (blue*65280)));
2327 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
2328 doc: /* Internal function called by `display-color-p', which see. */)
2329 (Lisp_Object display)
2331 NSWindowDepth depth;
2332 NSString *colorSpace;
2334 depth = [ns_get_screen (display) depth];
2335 colorSpace = NSColorSpaceFromDepth (depth);
2337 return [colorSpace isEqualToString: NSDeviceWhiteColorSpace]
2338 || [colorSpace isEqualToString: NSCalibratedWhiteColorSpace]
2343 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p,
2344 Sx_display_grayscale_p, 0, 1, 0,
2345 doc: /* Return t if the Nextstep display supports shades of gray.
2346 Note that color displays do support shades of gray.
2347 The optional argument DISPLAY specifies which display to ask about.
2348 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2349 If omitted or nil, that stands for the selected frame's display. */)
2350 (Lisp_Object display)
2352 NSWindowDepth depth;
2354 depth = [ns_get_screen (display) depth];
2356 return NSBitsPerPixelFromDepth (depth) > 1 ? Qt : Qnil;
2360 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2362 doc: /* Return the width in pixels of the Nextstep display DISPLAY.
2363 The optional argument DISPLAY specifies which display to ask about.
2364 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2365 If omitted or nil, that stands for the selected frame's display. */)
2366 (Lisp_Object display)
2369 return make_number ((int) [ns_get_screen (display) frame].size.width);
2373 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2374 Sx_display_pixel_height, 0, 1, 0,
2375 doc: /* Return the height in pixels of the Nextstep display DISPLAY.
2376 The optional argument DISPLAY specifies which display to ask about.
2377 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2378 If omitted or nil, that stands for the selected frame's display. */)
2379 (Lisp_Object display)
2382 return make_number ((int) [ns_get_screen (display) frame].size.height);
2386 DEFUN ("display-usable-bounds", Fns_display_usable_bounds,
2387 Sns_display_usable_bounds, 0, 1, 0,
2388 doc: /* Return the bounds of the usable part of the screen.
2389 The return value is a list of integers (LEFT TOP WIDTH HEIGHT), which
2390 are the boundaries of the usable part of the screen, excluding areas
2391 reserved for the Mac menu, dock, and so forth.
2393 The screen queried corresponds to DISPLAY, which should be either a
2394 frame, a display name (a string), or terminal ID. If omitted or nil,
2395 that stands for the selected frame's display. */)
2396 (Lisp_Object display)
2402 screen = ns_get_screen (display);
2406 vScreen = [screen visibleFrame];
2408 /* NS coordinate system is upside-down.
2409 Transform to screen-specific coordinates. */
2410 return list4 (make_number ((int) vScreen.origin.x),
2411 make_number ((int) [screen frame].size.height
2412 - vScreen.size.height - vScreen.origin.y),
2413 make_number ((int) vScreen.size.width),
2414 make_number ((int) vScreen.size.height));
2418 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2420 doc: /* Return the number of bitplanes of the Nextstep display DISPLAY.
2421 The optional argument DISPLAY specifies which display to ask about.
2422 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2423 If omitted or nil, that stands for the selected frame's display. */)
2424 (Lisp_Object display)
2428 (NSBitsPerPixelFromDepth ([ns_get_screen (display) depth]));
2432 DEFUN ("x-display-color-cells", Fx_display_color_cells,
2433 Sx_display_color_cells, 0, 1, 0,
2434 doc: /* Returns the number of color cells of the Nextstep display DISPLAY.
2435 The optional argument DISPLAY specifies which display to ask about.
2436 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2437 If omitted or nil, that stands for the selected frame's display. */)
2438 (Lisp_Object display)
2440 struct ns_display_info *dpyinfo;
2443 dpyinfo = check_ns_display_info (display);
2444 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2445 return make_number (1 << min (dpyinfo->n_planes, 24));
2449 /* Unused dummy def needed for compatibility. */
2450 Lisp_Object tip_frame;
2452 /* TODO: move to xdisp or similar */
2454 compute_tip_xy (struct frame *f,
2463 Lisp_Object left, top;
2464 EmacsView *view = FRAME_NS_VIEW (f);
2467 /* Start with user-specified or mouse position. */
2468 left = Fcdr (Fassq (Qleft, parms));
2469 top = Fcdr (Fassq (Qtop, parms));
2471 if (!INTEGERP (left) || !INTEGERP (top))
2473 pt = last_mouse_motion_position;
2474 /* Convert to screen coordinates */
2475 pt = [view convertPoint: pt toView: nil];
2476 pt = [[view window] convertBaseToScreen: pt];
2480 /* Absolute coordinates. */
2482 pt.y = x_display_pixel_height (FRAME_NS_DISPLAY_INFO (f)) - XINT (top)
2486 /* Ensure in bounds. (Note, screen origin = lower left.) */
2487 if (INTEGERP (left))
2489 else if (pt.x + XINT (dx) <= 0)
2490 *root_x = 0; /* Can happen for negative dx */
2491 else if (pt.x + XINT (dx) + width
2492 <= x_display_pixel_width (FRAME_NS_DISPLAY_INFO (f)))
2493 /* It fits to the right of the pointer. */
2494 *root_x = pt.x + XINT (dx);
2495 else if (width + XINT (dx) <= pt.x)
2496 /* It fits to the left of the pointer. */
2497 *root_x = pt.x - width - XINT (dx);
2499 /* Put it left justified on the screen -- it ought to fit that way. */
2504 else if (pt.y - XINT (dy) - height >= 0)
2505 /* It fits below the pointer. */
2506 *root_y = pt.y - height - XINT (dy);
2507 else if (pt.y + XINT (dy) + height
2508 <= x_display_pixel_height (FRAME_NS_DISPLAY_INFO (f)))
2509 /* It fits above the pointer */
2510 *root_y = pt.y + XINT (dy);
2512 /* Put it on the top. */
2513 *root_y = x_display_pixel_height (FRAME_NS_DISPLAY_INFO (f)) - height;
2517 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
2518 doc: /* Show STRING in a \"tooltip\" window on frame FRAME.
2519 A tooltip window is a small window displaying a string.
2521 This is an internal function; Lisp code should call `tooltip-show'.
2523 FRAME nil or omitted means use the selected frame.
2525 PARMS is an optional list of frame parameters which can be used to
2526 change the tooltip's appearance.
2528 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
2529 means use the default timeout of 5 seconds.
2531 If the list of frame parameters PARMS contains a `left' parameter,
2532 the tooltip is displayed at that x-position. Otherwise it is
2533 displayed at the mouse position, with offset DX added (default is 5 if
2534 DX isn't specified). Likewise for the y-position; if a `top' frame
2535 parameter is specified, it determines the y-position of the tooltip
2536 window, otherwise it is displayed at the mouse position, with offset
2537 DY added (default is -10).
2539 A tooltip's maximum size is specified by `x-max-tooltip-size'.
2540 Text larger than the specified size is clipped. */)
2541 (Lisp_Object string, Lisp_Object frame, Lisp_Object parms, Lisp_Object timeout, Lisp_Object dx, Lisp_Object dy)
2544 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2545 ptrdiff_t count = SPECPDL_INDEX ();
2550 specbind (Qinhibit_redisplay, Qt);
2552 GCPRO4 (string, parms, frame, timeout);
2554 CHECK_STRING (string);
2555 str = SSDATA (string);
2556 f = check_x_frame (frame);
2558 timeout = make_number (5);
2560 CHECK_NATNUM (timeout);
2563 dx = make_number (5);
2568 dy = make_number (-10);
2573 if (ns_tooltip == nil)
2574 ns_tooltip = [[EmacsTooltip alloc] init];
2578 [ns_tooltip setText: str];
2579 size = [ns_tooltip frame].size;
2581 /* Move the tooltip window where the mouse pointer is. Resize and
2583 compute_tip_xy (f, parms, dx, dy, (int)size.width, (int)size.height,
2586 [ns_tooltip showAtX: root_x Y: root_y for: XINT (timeout)];
2590 return unbind_to (count, Qnil);
2594 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
2595 doc: /* Hide the current tooltip window, if there is any.
2596 Value is t if tooltip was open, nil otherwise. */)
2599 if (ns_tooltip == nil || ![ns_tooltip isActive])
2606 /* ==========================================================================
2608 Class implementations
2610 ========================================================================== */
2613 @implementation EmacsSavePanel
2614 #ifdef NS_IMPL_COCOA
2615 /* --------------------------------------------------------------------------
2616 These are overridden to intercept on OS X: ending panel restarts NSApp
2617 event loop if it is stopped. Not sure if this is correct behavior,
2618 perhaps should check if running and if so send an appdefined.
2619 -------------------------------------------------------------------------- */
2620 - (void) ok: (id)sender
2626 - (void) cancel: (id)sender
2628 [super cancel: sender];
2635 @implementation EmacsOpenPanel
2636 #ifdef NS_IMPL_COCOA
2637 /* --------------------------------------------------------------------------
2638 These are overridden to intercept on OS X: ending panel restarts NSApp
2639 event loop if it is stopped. Not sure if this is correct behavior,
2640 perhaps should check if running and if so send an appdefined.
2641 -------------------------------------------------------------------------- */
2642 - (void) ok: (id)sender
2648 - (void) cancel: (id)sender
2650 [super cancel: sender];
2657 @implementation EmacsFileDelegate
2658 /* --------------------------------------------------------------------------
2659 Delegate methods for Open/Save panels
2660 -------------------------------------------------------------------------- */
2661 - (BOOL)panel: (id)sender isValidFilename: (NSString *)filename
2665 - (BOOL)panel: (id)sender shouldShowFilename: (NSString *)filename
2669 - (NSString *)panel: (id)sender userEnteredFilename: (NSString *)filename
2670 confirmed: (BOOL)okFlag
2679 /* ==========================================================================
2681 Lisp interface declaration
2683 ========================================================================== */
2687 syms_of_nsfns (void)
2689 Qfontsize = intern_c_string ("fontsize");
2690 staticpro (&Qfontsize);
2692 DEFVAR_LISP ("ns-icon-type-alist", Vns_icon_type_alist,
2693 doc: /* Alist of elements (REGEXP . IMAGE) for images of icons associated to frames.
2694 If the title of a frame matches REGEXP, then IMAGE.tiff is
2695 selected as the image of the icon representing the frame when it's
2696 miniaturized. If an element is t, then Emacs tries to select an icon
2697 based on the filetype of the visited file.
2699 The images have to be installed in a folder called English.lproj in the
2700 Emacs folder. You have to restart Emacs after installing new icons.
2702 Example: Install an icon Gnus.tiff and execute the following code
2704 (setq ns-icon-type-alist
2705 (append ns-icon-type-alist
2706 '((\"^\\\\*\\\\(Group\\\\*$\\\\|Summary \\\\|Article\\\\*$\\\\)\"
2709 When you miniaturize a Group, Summary or Article frame, Gnus.tiff will
2710 be used as the image of the icon representing the frame. */);
2711 Vns_icon_type_alist = Fcons (Qt, Qnil);
2713 DEFVAR_LISP ("ns-version-string", Vns_version_string,
2714 doc: /* Toolkit version for NS Windowing. */);
2715 Vns_version_string = ns_appkit_version_str ();
2717 defsubr (&Sns_read_file_name);
2718 defsubr (&Sns_get_resource);
2719 defsubr (&Sns_set_resource);
2720 defsubr (&Sxw_display_color_p); /* this and next called directly by C code */
2721 defsubr (&Sx_display_grayscale_p);
2722 defsubr (&Sns_font_name);
2723 defsubr (&Sns_list_colors);
2724 #ifdef NS_IMPL_COCOA
2725 defsubr (&Sns_do_applescript);
2727 defsubr (&Sxw_color_defined_p);
2728 defsubr (&Sxw_color_values);
2729 defsubr (&Sx_server_max_request_size);
2730 defsubr (&Sx_server_vendor);
2731 defsubr (&Sx_server_version);
2732 defsubr (&Sx_display_pixel_width);
2733 defsubr (&Sx_display_pixel_height);
2734 defsubr (&Sns_display_usable_bounds);
2735 defsubr (&Sx_display_mm_width);
2736 defsubr (&Sx_display_mm_height);
2737 defsubr (&Sx_display_screens);
2738 defsubr (&Sx_display_planes);
2739 defsubr (&Sx_display_color_cells);
2740 defsubr (&Sx_display_visual_class);
2741 defsubr (&Sx_display_backing_store);
2742 defsubr (&Sx_display_save_under);
2743 defsubr (&Sx_create_frame);
2744 defsubr (&Sx_open_connection);
2745 defsubr (&Sx_close_connection);
2746 defsubr (&Sx_display_list);
2748 defsubr (&Sns_hide_others);
2749 defsubr (&Sns_hide_emacs);
2750 defsubr (&Sns_emacs_info_panel);
2751 defsubr (&Sns_list_services);
2752 defsubr (&Sns_perform_service);
2753 defsubr (&Sns_convert_utf8_nfd_to_nfc);
2754 defsubr (&Sx_focus_frame);
2755 defsubr (&Sns_popup_font_panel);
2756 defsubr (&Sns_popup_color_panel);
2758 defsubr (&Sx_show_tip);
2759 defsubr (&Sx_hide_tip);
2761 /* used only in fontset.c */
2762 check_window_system_func = check_ns;