1 /* Functions for the NeXT/Open/GNUstep and MacOSX window system.
2 Copyright (C) 1989, 1992, 1993, 1994, 2005, 2006, 2008, 2009
3 Free Software Foundation, Inc.
5 This file is part of GNU Emacs.
7 GNU Emacs is free software: you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation, either version 3 of the License, or
10 (at your option) any later version.
12 GNU Emacs is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
21 Originally by Carl Edman
22 Updated by Christian Limpach (chris@nice.ch)
23 OpenStep/Rhapsody port by Scott Bender (sbender@harmony-ds.com)
24 MacOSX/Aqua port by Christophe de Dinechin (descubes@earthlink.net)
25 GNUstep port and post-20 update by Adrian Robert (arobert@cogsci.ucsd.edu)
28 /* This should be the first include, as it may set up #defines affecting
29 interpretation of even the system includes. */
37 #include "blockinput.h"
42 #include "termhooks.h"
44 #include "character.h"
48 int fns_trace_num = 1;
49 #define NSTRACE(x) fprintf (stderr, "%s:%d: [%d] " #x "\n", \
50 __FILE__, __LINE__, ++fns_trace_num)
57 extern NSArray *ns_send_types, *ns_return_types, *ns_drag_types;
59 extern Lisp_Object Qforeground_color;
60 extern Lisp_Object Qbackground_color;
61 extern Lisp_Object Qcursor_color;
62 extern Lisp_Object Qinternal_border_width;
63 extern Lisp_Object Qvisibility;
64 extern Lisp_Object Qcursor_type;
65 extern Lisp_Object Qicon_type;
66 extern Lisp_Object Qicon_name;
67 extern Lisp_Object Qicon_left;
68 extern Lisp_Object Qicon_top;
69 extern Lisp_Object Qleft;
70 extern Lisp_Object Qright;
71 extern Lisp_Object Qtop;
72 extern Lisp_Object Qdisplay;
73 extern Lisp_Object Qvertical_scroll_bars;
74 extern Lisp_Object Qauto_raise;
75 extern Lisp_Object Qauto_lower;
76 extern Lisp_Object Qbox;
77 extern Lisp_Object Qscroll_bar_width;
78 extern Lisp_Object Qx_resource_name;
79 extern Lisp_Object Qface_set_after_frame_default;
80 extern Lisp_Object Qunderline, Qundefined;
81 extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth;
82 extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle;
85 Lisp_Object Qbuffered;
86 Lisp_Object Qfontsize;
88 /* hack for OS X file panels */
91 /* Alist of elements (REGEXP . IMAGE) for images of icons associated
93 static Lisp_Object Vns_icon_type_alist;
95 /* Toolkit version support. */
96 static Lisp_Object Vns_version_string;
98 EmacsTooltip *ns_tooltip;
100 /* Need forward declaration here to preserve organizational integrity of file */
101 Lisp_Object Fx_open_connection (Lisp_Object, Lisp_Object, Lisp_Object);
103 extern BOOL ns_in_resize;
106 /* ==========================================================================
108 Internal utility functions
110 ========================================================================== */
117 error ("OpenStep is not in use or not initialized");
121 /* Nonzero if we can use mouse menus. */
129 /* Extract a frame as a FRAME_PTR, defaulting to the selected frame
130 and checking validity for NS. */
132 check_ns_frame (Lisp_Object frame)
137 f = SELECTED_FRAME ();
140 CHECK_LIVE_FRAME (frame);
143 if (! FRAME_NS_P (f))
144 error ("non-Nextstep frame used");
149 /* Let the user specify an Nextstep display with a frame.
150 nil stands for the selected frame--or, if that is not an Nextstep frame,
151 the first Nextstep display on the list. */
152 static struct ns_display_info *
153 check_ns_display_info (Lisp_Object frame)
157 struct frame *f = SELECTED_FRAME ();
158 if (FRAME_NS_P (f) && FRAME_LIVE_P (f) )
159 return FRAME_NS_DISPLAY_INFO (f);
160 else if (x_display_list != 0)
161 return x_display_list;
163 error ("Nextstep windows are not in use or not initialized");
165 else if (INTEGERP (frame))
167 struct terminal *t = get_terminal (frame, 1);
169 if (t->type != output_ns)
170 error ("Terminal %d is not a Nextstep display", XINT (frame));
172 return t->display_info.ns;
174 else if (STRINGP (frame))
175 return ns_display_info_for_name (frame);
180 CHECK_LIVE_FRAME (frame);
182 if (! FRAME_NS_P (f))
183 error ("non-Nextstep frame used");
184 return FRAME_NS_DISPLAY_INFO (f);
186 return NULL; /* shut compiler up */
191 ns_get_window (Lisp_Object maybeFrame)
193 id view =nil, window =nil;
195 if (!FRAMEP (maybeFrame) || !FRAME_NS_P (XFRAME (maybeFrame)))
196 maybeFrame = selected_frame;/*wrong_type_argument (Qframep, maybeFrame); */
198 if (!NILP (maybeFrame))
199 view = FRAME_NS_VIEW (XFRAME (maybeFrame));
200 if (view) window =[view window];
207 ns_get_screen (Lisp_Object screen)
209 struct terminal *terminal = get_terminal (screen, 1);
210 if (terminal->type != output_ns)
211 // Not sure if this special case for nil is needed. It does seem to be
212 // important in xfns.c for the make-frame call in frame-initialize,
213 // so let's keep it here for now.
214 return (NILP (screen) ? [NSScreen mainScreen] : NULL);
217 struct ns_display_info *dpyinfo = terminal->display_info.ns;
218 struct frame *f = dpyinfo->x_focus_frame;
220 f = dpyinfo->x_highlight_frame;
227 eassert (FRAME_NS_P (f));
228 XSETFRAME (frame, f);
229 window = ns_get_window (frame);
230 return window ? [window screen] : NULL;
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 (name)
243 struct ns_display_info *dpyinfo;
247 for (dpyinfo = x_display_list, names = ns_display_name_list;
249 dpyinfo = dpyinfo->next, names = XCDR (names))
252 tem = Fstring_equal (XCAR (XCAR (names)), name);
257 error ("Emacs for OpenStep does not yet support multi-display.");
259 Fx_open_connection (name, Qnil, Qnil);
260 dpyinfo = x_display_list;
263 error ("OpenStep on %s not responding.\n", SDATA (name));
270 interpret_services_menu (NSMenu *menu, Lisp_Object prefix, Lisp_Object old)
271 /* --------------------------------------------------------------------------
272 Turn the input menu (an NSMenu) into a lisp list for tracking on lisp side
273 -------------------------------------------------------------------------- */
283 count = [menu numberOfItems];
284 for (i = 0; i<count; i++)
286 item = [menu itemAtIndex: i];
287 name = [[item title] UTF8String];
290 nameStr = build_string (name);
292 if ([item hasSubmenu])
294 old = interpret_services_menu ([item submenu],
295 Fcons (nameStr, prefix), old);
299 keys = [item keyEquivalent];
300 if (keys && [keys length] )
302 key = [keys characterAtIndex: 0];
303 res = make_number (key|super_modifier);
309 old = Fcons (Fcons (res,
310 Freverse (Fcons (nameStr,
320 /* ==========================================================================
322 Frame parameter setters
324 ========================================================================== */
328 x_set_foreground_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
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 if (FRAME_NS_VIEW (f))
344 update_face_from_frame_parameter (f, Qforeground_color, arg);
345 /*recompute_basic_faces (f); */
346 if (FRAME_VISIBLE_P (f))
353 x_set_background_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
357 NSView *view = FRAME_NS_VIEW (f);
360 if (ns_lisp_to_color (arg, &col))
362 store_frame_param (f, Qbackground_color, oldval);
363 error ("Unknown color");
366 /* clear the frame; in some instances the NS-internal GC appears not to
367 update, or it does update and cannot clear old text properly */
368 if (FRAME_VISIBLE_P (f))
372 [f->output_data.ns->background_color release];
373 f->output_data.ns->background_color = col;
376 [[view window] setBackgroundColor: col];
377 alpha = [col alphaComponent];
380 [[view window] setOpaque: NO];
382 [[view window] setOpaque: YES];
384 face = FRAME_DEFAULT_FACE (f);
387 col = ns_lookup_indexed_color (NS_FACE_BACKGROUND (face), f);
389 = (EMACS_UINT) [[col colorWithAlphaComponent: alpha] retain];
392 update_face_from_frame_parameter (f, Qbackground_color, arg);
395 if (FRAME_VISIBLE_P (f))
402 x_set_cursor_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
406 if (ns_lisp_to_color (arg, &col))
408 store_frame_param (f, Qcursor_color, oldval);
409 error ("Unknown color");
412 [FRAME_CURSOR_COLOR (f) release];
413 FRAME_CURSOR_COLOR (f) = [col retain];
415 if (FRAME_VISIBLE_P (f))
417 x_update_cursor (f, 0);
418 x_update_cursor (f, 1);
420 update_face_from_frame_parameter (f, Qcursor_color, arg);
425 x_set_icon_name (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
427 NSView *view = FRAME_NS_VIEW (f);
428 NSTRACE (x_set_icon_name);
433 /* see if it's changed */
436 if (STRINGP (oldval) && EQ (Fstring_equal (oldval, arg), Qt))
439 else if (!STRINGP (oldval) && EQ (oldval, Qnil) == EQ (arg, Qnil))
446 if (!NILP (f->title))
449 /* explicit name and no icon-name -> explicit_name */
450 if (f->explicit_name)
454 /* no explicit name and no icon-name ->
455 name has to be rebuild from icon_title_format */
456 windows_or_buffers_changed++;
461 /* Don't change the name if it's already NAME. */
462 if ([[view window] miniwindowTitle] &&
463 ([[[view window] miniwindowTitle]
464 isEqualToString: [NSString stringWithUTF8String:
468 [[view window] setMiniwindowTitle:
469 [NSString stringWithUTF8String: SDATA (arg)]];
474 ns_set_name_iconic (struct frame *f, Lisp_Object name, int explicit)
476 NSView *view = FRAME_NS_VIEW (f);
477 NSTRACE (ns_set_name_iconic);
482 /* Make sure that requests from lisp code override requests from
483 Emacs redisplay code. */
486 /* If we're switching from explicit to implicit, we had better
487 update the mode lines and thereby update the title. */
488 if (f->explicit_name && NILP (name))
489 update_mode_lines = 1;
491 f->explicit_name = ! NILP (name);
493 else if (f->explicit_name)
496 /* title overrides explicit name */
497 if (! NILP (f->title))
500 /* icon_name overrides title and explicit name */
501 if (! NILP (f->icon_name))
505 name = build_string([ns_app_name UTF8String]);
509 /* Don't change the name if it's already NAME. */
510 if ([[view window] miniwindowTitle] &&
511 ([[[view window] miniwindowTitle]
512 isEqualToString: [NSString stringWithUTF8String:
516 [[view window] setMiniwindowTitle:
517 [NSString stringWithUTF8String: SDATA (name)]];
522 ns_set_name (struct frame *f, Lisp_Object name, int explicit)
524 NSView *view = FRAME_NS_VIEW (f);
525 NSTRACE (ns_set_name);
530 /* Make sure that requests from lisp code override requests from
531 Emacs redisplay code. */
534 /* If we're switching from explicit to implicit, we had better
535 update the mode lines and thereby update the title. */
536 if (f->explicit_name && NILP (name))
537 update_mode_lines = 1;
539 f->explicit_name = ! NILP (name);
541 else if (f->explicit_name)
545 name = build_string([ns_app_name UTF8String]);
549 /* title overrides explicit name */
550 if (! NILP (f->title))
555 /* Don't change the name if it's already NAME. */
556 if ([[[view window] title]
557 isEqualToString: [NSString stringWithUTF8String:
560 [[view window] setTitle: [NSString stringWithUTF8String:
565 /* This function should be called when the user's lisp code has
566 specified a name for the frame; the name will override any set by the
569 x_explicitly_set_name (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
571 NSTRACE (x_explicitly_set_name);
572 ns_set_name_iconic (f, arg, 1);
573 ns_set_name (f, arg, 1);
577 /* This function should be called by Emacs redisplay code to set the
578 name; names set this way will never override names set by the user's
581 x_implicitly_set_name (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
583 NSTRACE (x_implicitly_set_name);
584 if (FRAME_ICONIFIED_P (f))
585 ns_set_name_iconic (f, arg, 0);
587 ns_set_name (f, arg, 0);
591 /* Change the title of frame F to NAME.
592 If NAME is nil, use the frame name as the title.
594 If EXPLICIT is non-zero, that indicates that lisp code is setting the
595 name; if NAME is a string, set F's name to NAME and set
596 F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
598 If EXPLICIT is zero, that indicates that Emacs redisplay code is
599 suggesting a new name, which lisp code should override; if
600 F->explicit_name is set, ignore the new name; otherwise, set it. */
602 x_set_title (struct frame *f, Lisp_Object name, Lisp_Object old_name)
604 NSTRACE (x_set_title);
605 /* Don't change the title if it's already NAME. */
606 if (EQ (name, f->title))
609 update_mode_lines = 1;
616 ns_set_name_as_filename (struct frame *f)
618 NSView *view = FRAME_NS_VIEW (f);
620 Lisp_Object buf = XWINDOW (f->selected_window)->buffer;
622 NSAutoreleasePool *pool;
623 NSTRACE (ns_set_name_as_filename);
625 if (f->explicit_name || ! NILP (f->title) || ns_in_resize)
629 pool = [[NSAutoreleasePool alloc] init];
630 name =XBUFFER (buf)->filename;
631 if (NILP (name) || FRAME_ICONIFIED_P (f)) name =XBUFFER (buf)->name;
633 if (FRAME_ICONIFIED_P (f) && !NILP (f->icon_name))
637 name = build_string([ns_app_name UTF8String]);
641 title = FRAME_ICONIFIED_P (f) ? [[[view window] miniwindowTitle] UTF8String]
642 : [[[view window] title] UTF8String];
644 if (title && (! strcmp (title, SDATA (name))))
651 if (! FRAME_ICONIFIED_P (f))
654 /* work around a bug observed on 10.3 where
655 setTitleWithRepresentedFilename does not clear out previous state
656 if given filename does not exist */
657 NSString *str = [NSString stringWithUTF8String: SDATA (name)];
658 if (![[NSFileManager defaultManager] fileExistsAtPath: str])
660 [[view window] setTitleWithRepresentedFilename: @""];
661 [[view window] setTitle: str];
665 [[view window] setTitleWithRepresentedFilename: str];
668 [[view window] setTitleWithRepresentedFilename:
669 [NSString stringWithUTF8String: SDATA (name)]];
675 [[view window] setMiniwindowTitle:
676 [NSString stringWithUTF8String: SDATA (name)]];
684 ns_set_doc_edited (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
686 NSView *view = FRAME_NS_VIEW (f);
687 NSAutoreleasePool *pool;
689 pool = [[NSAutoreleasePool alloc] init];
690 [[view window] setDocumentEdited: !NILP (arg)];
697 x_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
700 int olines = FRAME_MENU_BAR_LINES (f);
701 if (FRAME_MINIBUF_ONLY_P (f))
704 if (INTEGERP (value))
705 nlines = XINT (value);
709 FRAME_MENU_BAR_LINES (f) = 0;
712 FRAME_EXTERNAL_MENU_BAR (f) = 1;
713 /* does for all frames, whereas we just want for one frame
714 [NSMenu setMenuBarVisible: YES]; */
718 if (FRAME_EXTERNAL_MENU_BAR (f) == 1)
719 free_frame_menubar (f);
720 /* [NSMenu setMenuBarVisible: NO]; */
721 FRAME_EXTERNAL_MENU_BAR (f) = 0;
726 /* toolbar support */
728 x_set_tool_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
731 Lisp_Object root_window;
733 if (FRAME_MINIBUF_ONLY_P (f))
736 if (INTEGERP (value) && XINT (value) >= 0)
737 nlines = XFASTINT (value);
743 FRAME_EXTERNAL_TOOL_BAR (f) = 1;
744 update_frame_tool_bar (f);
748 if (FRAME_EXTERNAL_TOOL_BAR (f))
750 free_frame_tool_bar (f);
751 FRAME_EXTERNAL_TOOL_BAR (f) = 0;
755 x_set_window_size (f, 0, f->text_cols, f->text_lines);
760 ns_implicitly_set_icon_type (struct frame *f)
763 EmacsView *view = FRAME_NS_VIEW (f);
765 Lisp_Object chain, elt;
766 NSAutoreleasePool *pool;
769 NSTRACE (ns_implicitly_set_icon_type);
772 pool = [[NSAutoreleasePool alloc] init];
773 if (f->output_data.ns->miniimage
774 && [[NSString stringWithUTF8String: SDATA (f->name)]
775 isEqualToString: [(NSImage *)f->output_data.ns->miniimage name]])
782 tem = assq_no_quit (Qicon_type, f->param_alist);
783 if (CONSP (tem) && ! NILP (XCDR (tem)))
790 for (chain = Vns_icon_type_alist;
791 (image = nil) && CONSP (chain);
792 chain = XCDR (chain))
795 /* special case: 't' means go by file type */
796 if (SYMBOLP (elt) && EQ (elt, Qt) && SDATA (f->name)[0] == '/')
799 = [NSString stringWithUTF8String: SDATA (f->name)];
800 if ([[NSFileManager defaultManager] fileExistsAtPath: str])
801 image = [[[NSWorkspace sharedWorkspace] iconForFile: str] retain];
803 else if (CONSP (elt) &&
804 STRINGP (XCAR (elt)) &&
805 STRINGP (XCDR (elt)) &&
806 fast_string_match (XCAR (elt), f->name) >= 0)
808 image = [EmacsImage allocInitFromFile: XCDR (elt)];
810 image = [[NSImage imageNamed:
811 [NSString stringWithUTF8String:
812 SDATA (XCDR (elt))]] retain];
818 image = [[[NSWorkspace sharedWorkspace] iconForFileType: @"text"] retain];
822 [f->output_data.ns->miniimage release];
823 f->output_data.ns->miniimage = image;
824 [view setMiniwindowImage: setMini];
831 x_set_icon_type (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
833 EmacsView *view = FRAME_NS_VIEW (f);
837 NSTRACE (x_set_icon_type);
839 if (!NILP (arg) && SYMBOLP (arg))
841 arg =build_string (SDATA (SYMBOL_NAME (arg)));
842 store_frame_param (f, Qicon_type, arg);
845 /* do it the implicit way */
848 ns_implicitly_set_icon_type (f);
854 image = [EmacsImage allocInitFromFile: arg];
856 image =[NSImage imageNamed: [NSString stringWithUTF8String:
861 image = [NSImage imageNamed: @"text"];
865 f->output_data.ns->miniimage = image;
866 [view setMiniwindowImage: setMini];
870 /* Xism; we stub out (we do implement this in ns-win.el) */
872 XParseGeometry (char *string, int *x, int *y,
873 unsigned int *width, unsigned int *height)
875 message1 ("Warning: XParseGeometry not supported under NS.\n");
880 /* TODO: move to nsterm? */
882 ns_lisp_to_cursor_type (Lisp_Object arg)
885 if (XTYPE (arg) == Lisp_String)
887 else if (XTYPE (arg) == Lisp_Symbol)
888 str = SDATA (SYMBOL_NAME (arg));
890 if (!strcmp (str, "box")) return FILLED_BOX_CURSOR;
891 if (!strcmp (str, "hollow")) return HOLLOW_BOX_CURSOR;
892 if (!strcmp (str, "hbar")) return HBAR_CURSOR;
893 if (!strcmp (str, "bar")) return BAR_CURSOR;
894 if (!strcmp (str, "no")) return NO_CURSOR;
900 ns_cursor_type_to_lisp (int arg)
904 case FILLED_BOX_CURSOR: return Qbox;
905 case HOLLOW_BOX_CURSOR: return intern ("hollow");
906 case HBAR_CURSOR: return intern ("hbar");
907 case BAR_CURSOR: return intern ("bar");
909 default: return intern ("no");
913 /* This is the same as the xfns.c definition. */
915 x_set_cursor_type (f, arg, oldval)
917 Lisp_Object arg, oldval;
919 set_frame_cursor_types (f, arg);
921 /* Make sure the cursor gets redrawn. */
922 cursor_type_changed = 1;
926 /* called to set mouse pointer color, but all other terms use it to
927 initialize pointer types (and don't set the color ;) */
929 x_set_mouse_color (struct frame *f, Lisp_Object arg, Lisp_Object oldval)
931 /* don't think we can do this on Nextstep */
936 #define Xstr(x) Str(x)
939 ns_appkit_version_str ()
943 #ifdef NS_IMPL_GNUSTEP
944 sprintf(tmp, "gnustep-gui-%s", Xstr(GNUSTEP_GUI_VERSION));
945 #elif defined(NS_IMPL_COCOA)
946 sprintf(tmp, "apple-appkit-%.2f", NSAppKitVersionNumber);
950 return build_string (tmp);
954 /* This is for use by x-server-version and collapses all version info we
955 have into a single int. For a better picture of the implementation
956 running, use ns_appkit_version_str.*/
958 ns_appkit_version_int ()
960 #ifdef NS_IMPL_GNUSTEP
961 return GNUSTEP_GUI_MAJOR_VERSION * 100 + GNUSTEP_GUI_MINOR_VERSION;
962 #elif defined(NS_IMPL_COCOA)
963 return (int)NSAppKitVersionNumber;
970 x_icon (struct frame *f, Lisp_Object parms)
971 /* --------------------------------------------------------------------------
972 Strangely-named function to set icon position parameters in frame.
973 This is irrelevant under OS X, but might be needed under GNUstep,
974 depending on the window manager used. Note, this is not a standard
975 frame parameter-setter; it is called directly from x-create-frame.
976 -------------------------------------------------------------------------- */
978 Lisp_Object icon_x, icon_y;
979 struct ns_display_info *dpyinfo = check_ns_display_info (Qnil);
981 f->output_data.ns->icon_top = Qnil;
982 f->output_data.ns->icon_left = Qnil;
984 /* Set the position of the icon. */
985 icon_x = x_get_arg (dpyinfo, parms, Qicon_left, 0, 0, RES_TYPE_NUMBER);
986 icon_y = x_get_arg (dpyinfo, parms, Qicon_top, 0, 0, RES_TYPE_NUMBER);
987 if (!EQ (icon_x, Qunbound) && !EQ (icon_y, Qunbound))
989 CHECK_NUMBER (icon_x);
990 CHECK_NUMBER (icon_y);
991 f->output_data.ns->icon_top = icon_y;
992 f->output_data.ns->icon_left = icon_x;
994 else if (!EQ (icon_x, Qunbound) || !EQ (icon_y, Qunbound))
995 error ("Both left and top icon corners of icon must be specified");
999 /* Note: see frame.c for template, also where generic functions are impl */
1000 frame_parm_handler ns_frame_parm_handlers[] =
1002 x_set_autoraise, /* generic OK */
1003 x_set_autolower, /* generic OK */
1004 x_set_background_color,
1005 0, /* x_set_border_color, may be impossible under Nextstep */
1006 0, /* x_set_border_width, may be impossible under Nextstep */
1009 x_set_font, /* generic OK */
1010 x_set_foreground_color,
1013 x_set_internal_border_width, /* generic OK */
1014 x_set_menu_bar_lines,
1016 x_explicitly_set_name,
1017 x_set_scroll_bar_width, /* generic OK */
1019 x_set_unsplittable, /* generic OK */
1020 x_set_vertical_scroll_bars, /* generic OK */
1021 x_set_visibility, /* generic OK */
1022 x_set_tool_bar_lines,
1023 0, /* x_set_scroll_bar_foreground, will ignore (not possible on NS) */
1024 0, /* x_set_scroll_bar_background, will ignore (not possible on NS) */
1025 x_set_screen_gamma, /* generic OK */
1026 x_set_line_spacing, /* generic OK, sets f->extra_line_spacing to int */
1027 x_set_fringe_width, /* generic OK */
1028 x_set_fringe_width, /* generic OK */
1029 0, /* x_set_wait_for_wm, will ignore */
1030 0, /* x_set_fullscreen will ignore */
1031 x_set_font_backend, /* generic OK */
1033 0, /* x_set_sticky */
1038 /* ==========================================================================
1042 ========================================================================== */
1044 DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
1046 doc: /* Make a new Nextstep window, called a \"frame\" in Emacs terms.
1047 Return an Emacs frame object.
1048 PARMS is an alist of frame parameters.
1049 If the parameters specify that the frame should not have a minibuffer,
1050 and do not specify a specific minibuffer window to use,
1051 then `default-minibuffer-frame' must be a frame whose minibuffer can
1052 be shared by the new frame. */)
1056 static int desc_ctr = 1;
1058 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
1059 Lisp_Object frame, tem;
1061 int minibuffer_only = 0;
1062 int count = specpdl_ptr - specpdl;
1063 Lisp_Object display;
1064 struct ns_display_info *dpyinfo = NULL;
1067 Lisp_Object tfont, tfontsize;
1068 int window_prompting = 0;
1073 /* Seems a little strange, but other terms do it. Perhaps the code below
1074 is modifying something? */
1075 parms = Fcopy_alist (parms);
1077 display = x_get_arg (dpyinfo, parms, Qterminal, 0, 0, RES_TYPE_STRING);
1078 if (EQ (display, Qunbound))
1080 dpyinfo = check_ns_display_info (display);
1082 if (!dpyinfo->terminal->name)
1083 error ("Terminal is not live, can't create new frames on it");
1085 kb = dpyinfo->terminal->kboard;
1087 name = x_get_arg (dpyinfo, parms, Qname, 0, 0, RES_TYPE_STRING);
1089 && ! EQ (name, Qunbound)
1091 error ("Invalid frame name--not a string or nil");
1094 Vx_resource_name = name;
1096 Vx_resource_name = Vinvocation_name;
1098 parent = x_get_arg (dpyinfo, parms, Qparent_id, 0, 0, RES_TYPE_NUMBER);
1099 if (EQ (parent, Qunbound))
1101 if (! NILP (parent))
1102 CHECK_NUMBER (parent);
1105 GCPRO4 (parms, parent, name, frame);
1107 tem = x_get_arg (dpyinfo, parms, Qminibuffer, "minibuffer", "Minibuffer",
1109 if (EQ (tem, Qnone) || NILP (tem))
1111 f = make_frame_without_minibuffer (Qnil, kb, display);
1113 else if (EQ (tem, Qonly))
1115 f = make_minibuffer_frame ();
1116 minibuffer_only = 1;
1118 else if (WINDOWP (tem))
1120 f = make_frame_without_minibuffer (tem, kb, display);
1127 /* Set the name; the functions to which we pass f expect the name to
1129 if (EQ (name, Qunbound) || NILP (name) || (XTYPE (name) != Lisp_String))
1131 f->name = build_string ([ns_app_name UTF8String]);
1132 f->explicit_name =0;
1137 f->explicit_name = 1;
1138 specbind (Qx_resource_name, name);
1141 XSETFRAME (frame, f);
1142 FRAME_CAN_HAVE_SCROLL_BARS (f) = 1;
1144 f->terminal = dpyinfo->terminal;
1145 f->terminal->reference_count++;
1147 f->output_method = output_ns;
1148 f->output_data.ns = (struct ns_output *)xmalloc (sizeof *(f->output_data.ns));
1149 bzero (f->output_data.ns, sizeof (*(f->output_data.ns)));
1151 FRAME_FONTSET (f) = -1;
1153 /* record_unwind_protect (unwind_create_frame, frame); safety; maybe later? */
1155 f->icon_name = x_get_arg (dpyinfo, parms, Qicon_name, "iconName", "Title",
1157 if (! STRINGP (f->icon_name))
1158 f->icon_name = Qnil;
1160 FRAME_NS_DISPLAY_INFO (f) = dpyinfo;
1162 f->output_data.ns->window_desc = desc_ctr++;
1165 f->output_data.ns->parent_desc = (Window) XFASTINT (parent);
1166 f->output_data.ns->explicit_parent = 1;
1170 f->output_data.ns->parent_desc = FRAME_NS_DISPLAY_INFO (f)->root_window;
1171 f->output_data.ns->explicit_parent = 0;
1174 f->resx = dpyinfo->resx;
1175 f->resy = dpyinfo->resy;
1178 register_font_driver (&nsfont_driver, f);
1179 x_default_parameter (f, parms, Qfont_backend, Qnil,
1180 "fontBackend", "FontBackend", RES_TYPE_STRING);
1183 /* use for default font name */
1184 id font = [NSFont userFixedPitchFontOfSize: -1.0]; /* default */
1185 tfontsize = x_default_parameter (f, parms, Qfontsize,
1186 make_number (0 /*(int)[font pointSize]*/),
1187 "fontSize", "FontSize", RES_TYPE_NUMBER);
1188 tfont = x_default_parameter (f, parms, Qfont,
1189 build_string ([[font fontName] UTF8String]),
1190 "font", "Font", RES_TYPE_STRING);
1194 x_default_parameter (f, parms, Qborder_width, make_number (0),
1195 "borderwidth", "BorderWidth", RES_TYPE_NUMBER);
1196 x_default_parameter (f, parms, Qinternal_border_width, make_number (2),
1197 "internalBorderWidth", "InternalBorderWidth",
1200 /* default scrollbars on right on Mac */
1203 #ifdef NS_IMPL_GNUSTEP
1208 x_default_parameter (f, parms, Qvertical_scroll_bars, spos,
1209 "verticalScrollBars", "VerticalScrollBars",
1212 x_default_parameter (f, parms, Qforeground_color, build_string ("Black"),
1213 "foreground", "Foreground", RES_TYPE_STRING);
1214 x_default_parameter (f, parms, Qbackground_color, build_string ("White"),
1215 "background", "Background", RES_TYPE_STRING);
1216 x_default_parameter (f, parms, Qcursor_color, build_string ("grey"),
1217 "cursorColor", "CursorColor", RES_TYPE_STRING);
1218 /* FIXME: not suppported yet in Nextstep */
1219 x_default_parameter (f, parms, Qline_spacing, Qnil,
1220 "lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
1221 x_default_parameter (f, parms, Qleft_fringe, Qnil,
1222 "leftFringe", "LeftFringe", RES_TYPE_NUMBER);
1223 x_default_parameter (f, parms, Qright_fringe, Qnil,
1224 "rightFringe", "RightFringe", RES_TYPE_NUMBER);
1227 init_frame_faces (f);
1229 x_default_parameter (f, parms, Qmenu_bar_lines, make_number (0), "menuBar",
1230 "menuBar", RES_TYPE_NUMBER);
1231 x_default_parameter (f, parms, Qtool_bar_lines, make_number (0), "toolBar",
1232 "toolBar", RES_TYPE_NUMBER);
1233 x_default_parameter (f, parms, Qbuffer_predicate, Qnil, "bufferPredicate",
1234 "BufferPredicate", RES_TYPE_SYMBOL);
1235 x_default_parameter (f, parms, Qtitle, Qnil, "title", "Title",
1238 /* TODO: other terms seem to get away w/o this complexity.. */
1239 if (NILP (Fassq (Qwidth, parms)))
1242 = x_get_arg (dpyinfo, parms, Qwidth, "width", "Width",
1244 if (! EQ (value, Qunbound))
1245 parms = Fcons (Fcons (Qwidth, value), parms);
1247 if (NILP (Fassq (Qheight, parms)))
1250 = x_get_arg (dpyinfo, parms, Qheight, "height", "Height",
1252 if (! EQ (value, Qunbound))
1253 parms = Fcons (Fcons (Qheight, value), parms);
1255 if (NILP (Fassq (Qleft, parms)))
1258 = x_get_arg (dpyinfo, parms, Qleft, "left", "Left", RES_TYPE_NUMBER);
1259 if (! EQ (value, Qunbound))
1260 parms = Fcons (Fcons (Qleft, value), parms);
1262 if (NILP (Fassq (Qtop, parms)))
1265 = x_get_arg (dpyinfo, parms, Qtop, "top", "Top", RES_TYPE_NUMBER);
1266 if (! EQ (value, Qunbound))
1267 parms = Fcons (Fcons (Qtop, value), parms);
1270 window_prompting = x_figure_window_size (f, parms, 1);
1272 tem = x_get_arg (dpyinfo, parms, Qunsplittable, 0, 0, RES_TYPE_BOOLEAN);
1273 f->no_split = minibuffer_only || (!EQ (tem, Qunbound) && !EQ (tem, Qnil));
1275 /* NOTE: on other terms, this is done in set_mouse_color, however this
1276 was not getting called under Nextstep */
1277 f->output_data.ns->text_cursor = [NSCursor IBeamCursor];
1278 f->output_data.ns->nontext_cursor = [NSCursor arrowCursor];
1279 f->output_data.ns->modeline_cursor = [NSCursor pointingHandCursor];
1280 f->output_data.ns->hand_cursor = [NSCursor pointingHandCursor];
1281 f->output_data.ns->hourglass_cursor = [NSCursor disappearingItemCursor];
1282 f->output_data.ns->horizontal_drag_cursor = [NSCursor resizeLeftRightCursor];
1283 FRAME_NS_DISPLAY_INFO (f)->vertical_scroll_bar_cursor
1284 = [NSCursor arrowCursor];
1285 f->output_data.ns->current_pointer = f->output_data.ns->text_cursor;
1287 [[EmacsView alloc] initFrameFromEmacs: f];
1291 /* It is now ok to make the frame official even if we get an error below.
1292 The frame needs to be on Vframe_list or making it visible won't work. */
1293 Vframe_list = Fcons (frame, Vframe_list);
1294 /*FRAME_NS_DISPLAY_INFO (f)->reference_count++; */
1296 x_default_parameter (f, parms, Qicon_type, Qnil, "bitmapIcon", "BitmapIcon",
1298 x_default_parameter (f, parms, Qauto_raise, Qnil, "autoRaise", "AutoRaiseLower",
1300 x_default_parameter (f, parms, Qauto_lower, Qnil, "autoLower", "AutoLower",
1302 x_default_parameter (f, parms, Qcursor_type, Qbox, "cursorType", "CursorType",
1304 x_default_parameter (f, parms, Qscroll_bar_width, Qnil, "scrollBarWidth",
1305 "ScrollBarWidth", RES_TYPE_NUMBER);
1306 x_default_parameter (f, parms, Qalpha, Qnil, "alpha", "Alpha",
1309 width = FRAME_COLS (f);
1310 height = FRAME_LINES (f);
1312 SET_FRAME_COLS (f, 0);
1313 FRAME_LINES (f) = 0;
1314 change_frame_size (f, height, width, 1, 0, 0);
1316 if (! f->output_data.ns->explicit_parent)
1318 tem = x_get_arg (dpyinfo, parms, Qvisibility, 0, 0, RES_TYPE_SYMBOL);
1319 if (EQ (tem, Qunbound))
1321 x_set_visibility (f, tem, Qnil);
1322 if (EQ (tem, Qicon))
1323 x_iconify_frame (f);
1324 else if (! NILP (tem))
1326 x_make_frame_visible (f);
1327 f->async_visible = 1;
1328 [[FRAME_NS_VIEW (f) window] makeKeyWindow];
1331 f->async_visible = 0;
1334 if (FRAME_HAS_MINIBUF_P (f)
1335 && (!FRAMEP (kb->Vdefault_minibuffer_frame)
1336 || !FRAME_LIVE_P (XFRAME (kb->Vdefault_minibuffer_frame))))
1337 kb->Vdefault_minibuffer_frame = frame;
1339 /* All remaining specified parameters, which have not been "used"
1340 by x_get_arg and friends, now go in the misc. alist of the frame. */
1341 for (tem = parms; CONSP (tem); tem = XCDR (tem))
1342 if (CONSP (XCAR (tem)) && !NILP (XCAR (XCAR (tem))))
1343 f->param_alist = Fcons (XCAR (tem), f->param_alist);
1346 Vwindow_list = Qnil;
1348 return unbind_to (count, frame);
1352 DEFUN ("x-focus-frame", Fx_focus_frame, Sx_focus_frame, 1, 1, 0,
1353 doc: /* Set the input focus to FRAME.
1354 FRAME nil means use the selected frame. */)
1358 struct frame *f = check_ns_frame (frame);
1359 struct ns_display_info *dpyinfo = FRAME_NS_DISPLAY_INFO (f);
1361 if (dpyinfo->x_focus_frame != f)
1363 EmacsView *view = FRAME_NS_VIEW (f);
1365 [NSApp activateIgnoringOtherApps: YES];
1366 [[view window] makeKeyAndOrderFront: view];
1374 DEFUN ("ns-popup-font-panel", Fns_popup_font_panel, Sns_popup_font_panel,
1376 doc: /* Pop up the font panel. */)
1384 fm = [NSFontManager sharedFontManager];
1386 f = SELECTED_FRAME ();
1389 CHECK_FRAME (frame);
1393 [fm setSelectedFont: ((struct nsfont_info *)f->output_data.ns->font)->nsfont
1395 [fm orderFrontFontPanel: NSApp];
1400 DEFUN ("ns-popup-color-panel", Fns_popup_color_panel, Sns_popup_color_panel,
1402 doc: /* Pop up the color panel. */)
1410 f = SELECTED_FRAME ();
1413 CHECK_FRAME (frame);
1417 [NSApp orderFrontColorPanel: NSApp];
1422 DEFUN ("ns-read-file-name", Fns_read_file_name, Sns_read_file_name, 1, 4, 0,
1423 doc: /* Use a graphical panel to read a file name, using prompt PROMPT.
1424 Optional arg DIR, if non-nil, supplies a default directory.
1425 Optional arg ISLOAD, if non-nil, means read a file name for saving.
1426 Optional arg INIT, if non-nil, provides a default file name to use. */)
1427 (prompt, dir, isLoad, init)
1428 Lisp_Object prompt, dir, isLoad, init;
1430 static id fileDelegate = nil;
1435 NSString *promptS = NILP (prompt) || !STRINGP (prompt) ? nil :
1436 [NSString stringWithUTF8String: SDATA (prompt)];
1437 NSString *dirS = NILP (dir) || !STRINGP (dir) ?
1438 [NSString stringWithUTF8String: SDATA (current_buffer->directory)] :
1439 [NSString stringWithUTF8String: SDATA (dir)];
1440 NSString *initS = NILP (init) || !STRINGP (init) ? nil :
1441 [NSString stringWithUTF8String: SDATA (init)];
1445 if (fileDelegate == nil)
1446 fileDelegate = [EmacsFileDelegate new];
1448 [NSCursor setHiddenUntilMouseMoves: NO];
1450 if ([dirS characterAtIndex: 0] == '~')
1451 dirS = [dirS stringByExpandingTildeInPath];
1453 panel = NILP (isLoad) ?
1454 (id)[EmacsSavePanel savePanel] : (id)[EmacsOpenPanel openPanel];
1456 [panel setTitle: promptS];
1458 /* Puma (10.1) does not have */
1459 if ([panel respondsToSelector: @selector (setAllowsOtherFileTypes:)])
1460 [panel setAllowsOtherFileTypes: YES];
1462 [panel setTreatsFilePackagesAsDirectories: YES];
1463 [panel setDelegate: fileDelegate];
1469 ret = [panel runModalForDirectory: dirS file: initS];
1473 [panel setCanChooseDirectories: YES];
1474 ret = [panel runModalForDirectory: dirS file: initS types: nil];
1477 ret = (ret == NSOKButton) || panelOK;
1480 fname = build_string ([[panel filename] UTF8String]);
1482 [[FRAME_NS_VIEW (SELECTED_FRAME ()) window] makeKeyWindow];
1485 return ret ? fname : Qnil;
1489 DEFUN ("ns-get-resource", Fns_get_resource, Sns_get_resource, 2, 2, 0,
1490 doc: /* Return the value of the property NAME of OWNER from the defaults database.
1491 If OWNER is nil, Emacs is assumed. */)
1493 Lisp_Object owner, name;
1499 owner = build_string([ns_app_name UTF8String]);
1500 CHECK_STRING (name);
1501 /*fprintf (stderr, "ns-get-resource checking resource '%s'\n", SDATA (name)); */
1503 value =[[[NSUserDefaults standardUserDefaults]
1504 objectForKey: [NSString stringWithUTF8String: SDATA (name)]]
1508 return build_string (value);
1513 DEFUN ("ns-set-resource", Fns_set_resource, Sns_set_resource, 3, 3, 0,
1514 doc: /* Set property NAME of OWNER to VALUE, from the defaults database.
1515 If OWNER is nil, Emacs is assumed.
1516 If VALUE is nil, the default is removed. */)
1517 (owner, name, value)
1518 Lisp_Object owner, name, value;
1522 owner = build_string ([ns_app_name UTF8String]);
1523 CHECK_STRING (name);
1526 [[NSUserDefaults standardUserDefaults] removeObjectForKey:
1527 [NSString stringWithUTF8String: SDATA (name)]];
1531 CHECK_STRING (value);
1532 [[NSUserDefaults standardUserDefaults] setObject:
1533 [NSString stringWithUTF8String: SDATA (value)]
1534 forKey: [NSString stringWithUTF8String:
1542 DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
1543 Sx_server_max_request_size,
1545 doc: /* This function is a no-op. It is only present for completeness. */)
1547 Lisp_Object display;
1550 /* This function has no real equivalent under NeXTstep. Return nil to
1556 DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
1557 doc: /* Return the vendor ID string of Nextstep display server DISPLAY.
1558 DISPLAY should be either a frame or a display name (a string).
1559 If omitted or nil, the selected frame's display is used. */)
1561 Lisp_Object display;
1563 #ifdef NS_IMPL_GNUSTEP
1564 return build_string ("GNU");
1566 return build_string ("Apple");
1571 DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
1572 doc: /* Return the version numbers of the server of DISPLAY.
1573 The value is a list of three integers: the major and minor
1574 version numbers of the X Protocol in use, and the distributor-specific
1575 release number. See also the function `x-server-vendor'.
1577 The optional argument DISPLAY specifies which display to ask about.
1578 DISPLAY should be either a frame or a display name (a string).
1579 If omitted or nil, that stands for the selected frame's display. */)
1581 Lisp_Object display;
1583 /*NOTE: it is unclear what would best correspond with "protocol";
1584 we return 10.3, meaning Panther, since this is roughly the
1585 level that GNUstep's APIs correspond to.
1586 The last number is where we distinguish between the Apple
1587 and GNUstep implementations ("distributor-specific release
1588 number") and give int'ized versions of major.minor. */
1589 return Fcons (make_number (10),
1590 Fcons (make_number (3),
1591 Fcons (make_number (ns_appkit_version_int()), Qnil)));
1595 DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
1596 doc: /* Return the number of screens on Nextstep display server DISPLAY.
1597 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1598 If omitted or nil, the selected frame's display is used. */)
1600 Lisp_Object display;
1605 num = [[NSScreen screens] count];
1607 return (num != 0) ? make_number (num) : Qnil;
1611 DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height,
1613 doc: /* Return the height of Nextstep display server DISPLAY, in millimeters.
1614 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1615 If omitted or nil, the selected frame's display is used. */)
1617 Lisp_Object display;
1620 return make_number ((int)
1621 ([ns_get_screen (display) frame].size.height/(92.0/25.4)));
1625 DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width,
1627 doc: /* Return the width of Nextstep display server DISPLAY, in millimeters.
1628 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1629 If omitted or nil, the selected frame's display is used. */)
1631 Lisp_Object display;
1634 return make_number ((int)
1635 ([ns_get_screen (display) frame].size.width/(92.0/25.4)));
1639 DEFUN ("x-display-backing-store", Fx_display_backing_store,
1640 Sx_display_backing_store, 0, 1, 0,
1641 doc: /* Return whether the Nexstep display DISPLAY supports backing store.
1642 The value may be `buffered', `retained', or `non-retained'.
1643 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1644 If omitted or nil, the selected frame's display is used. */)
1646 Lisp_Object display;
1649 switch ([ns_get_window (display) backingType])
1651 case NSBackingStoreBuffered:
1652 return intern ("buffered");
1653 case NSBackingStoreRetained:
1654 return intern ("retained");
1655 case NSBackingStoreNonretained:
1656 return intern ("non-retained");
1658 error ("Strange value for backingType parameter of frame");
1660 return Qnil; /* not reached, shut compiler up */
1664 DEFUN ("x-display-visual-class", Fx_display_visual_class,
1665 Sx_display_visual_class, 0, 1, 0,
1666 doc: /* Return the visual class of the Nextstep display server DISPLAY.
1667 The value is one of the symbols `static-gray', `gray-scale',
1668 `static-color', `pseudo-color', `true-color', or `direct-color'.
1669 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1670 If omitted or nil, the selected frame's display is used. */)
1672 Lisp_Object display;
1674 NSWindowDepth depth;
1676 depth = [ns_get_screen (display) depth];
1678 if ( depth == NSBestDepth (NSCalibratedWhiteColorSpace, 2, 2, YES, NULL))
1679 return intern ("static-gray");
1680 else if (depth == NSBestDepth (NSCalibratedWhiteColorSpace, 8, 8, YES, NULL))
1681 return intern ("gray-scale");
1682 else if ( depth == NSBestDepth (NSCalibratedRGBColorSpace, 8, 8, YES, NULL))
1683 return intern ("pseudo-color");
1684 else if ( depth == NSBestDepth (NSCalibratedRGBColorSpace, 4, 12, NO, NULL))
1685 return intern ("true-color");
1686 else if ( depth == NSBestDepth (NSCalibratedRGBColorSpace, 8, 24, NO, NULL))
1687 return intern ("direct-color");
1689 /* color mgmt as far as we do it is really handled by Nextstep itself anyway */
1690 return intern ("direct-color");
1694 DEFUN ("x-display-save-under", Fx_display_save_under,
1695 Sx_display_save_under, 0, 1, 0,
1696 doc: /* Non-nil if the Nextstep display server supports the save-under feature.
1697 The optional argument DISPLAY specifies which display to ask about.
1698 DISPLAY should be a frame, the display name as a string, or a terminal ID.
1699 If omitted or nil, the selected frame's display is used. */)
1701 Lisp_Object display;
1704 switch ([ns_get_window (display) backingType])
1706 case NSBackingStoreBuffered:
1709 case NSBackingStoreRetained:
1710 case NSBackingStoreNonretained:
1714 error ("Strange value for backingType parameter of frame");
1716 return Qnil; /* not reached, shut compiler up */
1720 DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
1722 doc: /* Open a connection to a Nextstep display server.
1723 DISPLAY is the name of the display to connect to.
1724 Optional arguments XRM-STRING and MUST-SUCCEED are currently ignored. */)
1725 (display, resource_string, must_succeed)
1726 Lisp_Object display, resource_string, must_succeed;
1728 struct ns_display_info *dpyinfo;
1730 CHECK_STRING (display);
1732 nxatoms_of_nsselect ();
1733 dpyinfo = ns_term_init (display);
1736 if (!NILP (must_succeed))
1737 fatal ("OpenStep on %s not responding.\n",
1740 error ("OpenStep on %s not responding.\n",
1744 /* Register our external input/output types, used for determining
1745 applicable services and also drag/drop eligibility. */
1746 ns_send_types = [[NSArray arrayWithObject: NSStringPboardType] retain];
1747 ns_return_types = [[NSArray arrayWithObject: NSStringPboardType] retain];
1748 ns_drag_types = [[NSArray arrayWithObjects:
1750 NSTabularTextPboardType,
1751 NSFilenamesPboardType,
1754 NSFontPboardType, nil] retain];
1760 DEFUN ("x-close-connection", Fx_close_connection, Sx_close_connection,
1762 doc: /* Close the connection to the current Nextstep display server.
1763 The argument DISPLAY is currently ignored. */)
1765 Lisp_Object display;
1768 /*ns_delete_terminal (dpyinfo->terminal); */
1769 [NSApp terminate: NSApp];
1774 DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
1775 doc: /* Return the list of display names that Emacs has connections to. */)
1778 Lisp_Object tail, result;
1781 for (tail = ns_display_name_list; CONSP (tail); tail = XCDR (tail))
1782 result = Fcons (XCAR (XCAR (tail)), result);
1788 DEFUN ("ns-hide-others", Fns_hide_others, Sns_hide_others,
1790 doc: /* Hides all applications other than Emacs. */)
1794 [NSApp hideOtherApplications: NSApp];
1798 DEFUN ("ns-hide-emacs", Fns_hide_emacs, Sns_hide_emacs,
1800 doc: /* If ON is non-nil, the entire Emacs application is hidden.
1801 Otherwise if Emacs is hidden, it is unhidden.
1802 If ON is equal to `activate', Emacs is unhidden and becomes
1803 the active application. */)
1808 if (EQ (on, intern ("activate")))
1810 [NSApp unhide: NSApp];
1811 [NSApp activateIgnoringOtherApps: YES];
1814 [NSApp unhide: NSApp];
1816 [NSApp hide: NSApp];
1821 DEFUN ("ns-emacs-info-panel", Fns_emacs_info_panel, Sns_emacs_info_panel,
1823 doc: /* Shows the 'Info' or 'About' panel for Emacs. */)
1827 [NSApp orderFrontStandardAboutPanel: nil];
1832 DEFUN ("ns-font-name", Fns_font_name, Sns_font_name, 1, 1, 0,
1833 doc: /* Determine font postscript or family name for font NAME.
1834 NAME should be a string containing either the font name or an XLFD
1835 font descriptor. If string contains `fontset' and not
1836 `fontset-startup', it is left alone. */)
1841 CHECK_STRING (name);
1846 if (strstr (nm, "fontset") && !strstr (nm, "fontset-startup"))
1849 return build_string (ns_xlfd_to_fontname (SDATA (name)));
1853 DEFUN ("ns-list-colors", Fns_list_colors, Sns_list_colors, 0, 1, 0,
1854 doc: /* Return a list of all available colors.
1855 The optional argument FRAME is currently ignored. */)
1859 Lisp_Object list = Qnil;
1860 NSEnumerator *colorlists;
1865 CHECK_FRAME (frame);
1866 if (! FRAME_NS_P (XFRAME (frame)))
1867 error ("non-Nextstep frame used in `ns-list-colors'");
1872 colorlists = [[NSColorList availableColorLists] objectEnumerator];
1873 while (clist = [colorlists nextObject])
1875 if ([[clist name] length] < 7 ||
1876 [[clist name] rangeOfString: @"PANTONE"].location == 0)
1878 NSEnumerator *cnames = [[clist allKeys] reverseObjectEnumerator];
1880 while (cname = [cnames nextObject])
1881 list = Fcons (build_string ([cname UTF8String]), list);
1882 /* for (i = [[clist allKeys] count] - 1; i >= 0; i--)
1883 list = Fcons (build_string ([[[clist allKeys] objectAtIndex: i]
1884 UTF8String]), list); */
1894 DEFUN ("ns-list-services", Fns_list_services, Sns_list_services, 0, 0, 0,
1895 doc: /* List available Nextstep services by querying NSApp. */)
1898 Lisp_Object ret = Qnil;
1903 svcs = [[NSMenu alloc] initWithTitle: @"Services"];
1904 [NSApp setServicesMenu: svcs]; /* this and next rebuild on <10.4 */
1905 [NSApp registerServicesMenuSendTypes: ns_send_types
1906 returnTypes: ns_return_types];
1908 /* On Tiger, services menu updating was made lazier (waits for user to
1909 actually click on the menu), so we have to force things along: */
1910 #ifdef NS_IMPL_COCOA
1911 if (NSAppKitVersionNumber >= 744.0)
1913 delegate = [svcs delegate];
1914 if (delegate != nil)
1916 if ([delegate respondsToSelector: @selector (menuNeedsUpdate:)])
1917 [delegate menuNeedsUpdate: svcs];
1918 if ([delegate respondsToSelector:
1919 @selector (menu:updateItem:atIndex:shouldCancel:)])
1921 int i, len = [delegate numberOfItemsInMenu: svcs];
1922 for (i =0; i<len; i++)
1923 [svcs addItemWithTitle: @"" action: NULL keyEquivalent: @""];
1924 for (i =0; i<len; i++)
1925 if (![delegate menu: svcs
1926 updateItem: (NSMenuItem *)[svcs itemAtIndex: i]
1927 atIndex: i shouldCancel: NO])
1934 [svcs setAutoenablesItems: NO];
1935 #ifdef NS_IMPL_COCOA
1936 [svcs update]; /* on OS X, converts from '/' structure */
1939 ret = interpret_services_menu (svcs, Qnil, ret);
1944 DEFUN ("ns-perform-service", Fns_perform_service, Sns_perform_service,
1946 doc: /* Perform Nextstep SERVICE on SEND.
1947 SEND should be either a string or nil.
1948 The return value is the result of the service, as string, or nil if
1949 there was no result. */)
1951 Lisp_Object service, send;
1958 CHECK_STRING (service);
1961 utfStr = SDATA (service);
1962 svcName = [NSString stringWithUTF8String: utfStr];
1964 pb =[NSPasteboard pasteboardWithUniqueName];
1965 ns_string_to_pasteboard (pb, send);
1967 if (NSPerformService (svcName, pb) == NO)
1968 Fsignal (Qquit, Fcons (build_string ("service not available"), Qnil));
1970 if ([[pb types] count] == 0)
1971 return build_string ("");
1972 return ns_string_from_pasteboard (pb);
1976 DEFUN ("ns-convert-utf8-nfd-to-nfc", Fns_convert_utf8_nfd_to_nfc,
1977 Sns_convert_utf8_nfd_to_nfc, 1, 1, 0,
1978 doc: /* Return an NFC string that matches the UTF-8 NFD string STR. */)
1982 /* TODO: If GNUstep ever implements precomposedStringWithCanonicalMapping,
1987 utfStr = [NSString stringWithUTF8String: SDATA (str)];
1988 if (![utfStr respondsToSelector:
1989 @selector (precomposedStringWithCanonicalMapping)])
1992 ("Warning: ns-convert-utf8-nfd-to-nfc unsupported under GNUstep.\n");
1996 utfStr = [utfStr precomposedStringWithCanonicalMapping];
1997 return build_string ([utfStr UTF8String]);
2001 #ifdef NS_IMPL_COCOA
2003 /* Compile and execute the AppleScript SCRIPT and return the error
2004 status as function value. A zero is returned if compilation and
2005 execution is successful, in which case *RESULT is set to a Lisp
2006 string or a number containing the resulting script value. Otherwise,
2009 ns_do_applescript (script, result)
2010 Lisp_Object script, *result;
2012 NSAppleEventDescriptor *desc;
2013 NSDictionary* errorDict;
2014 NSAppleEventDescriptor* returnDescriptor = NULL;
2016 NSAppleScript* scriptObject =
2017 [[NSAppleScript alloc] initWithSource:
2018 [NSString stringWithUTF8String: SDATA (script)]];
2020 returnDescriptor = [scriptObject executeAndReturnError: &errorDict];
2021 [scriptObject release];
2025 if (returnDescriptor != NULL)
2027 // successful execution
2028 if (kAENullEvent != [returnDescriptor descriptorType])
2031 // script returned an AppleScript result
2032 if ((typeUnicodeText == [returnDescriptor descriptorType]) ||
2033 #if defined (NS_IMPL_COCOA) && MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
2034 (typeUTF16ExternalRepresentation
2035 == [returnDescriptor descriptorType]) ||
2037 (typeUTF8Text == [returnDescriptor descriptorType]) ||
2038 (typeCString == [returnDescriptor descriptorType]))
2040 desc = [returnDescriptor coerceToDescriptorType: typeUTF8Text];
2042 *result = build_string([[desc stringValue] UTF8String]);
2046 /* use typeUTF16ExternalRepresentation? */
2047 // coerce the result to the appropriate ObjC type
2048 desc = [returnDescriptor coerceToDescriptorType: typeUTF8Text];
2050 *result = make_number([desc int32Value]);
2056 // no script result, return error
2062 DEFUN ("ns-do-applescript", Fns_do_applescript, Sns_do_applescript, 1, 1, 0,
2063 doc: /* Execute AppleScript SCRIPT and return the result.
2064 If compilation and execution are successful, the resulting script value
2065 is returned as a string, a number or, in the case of other constructs, t.
2066 In case the execution fails, an error is signaled. */)
2073 CHECK_STRING (script);
2077 status = ns_do_applescript (script, &result);
2081 else if (!STRINGP (result))
2082 error ("AppleScript error %d", status);
2084 error ("%s", SDATA (result));
2090 /* ==========================================================================
2092 Miscellaneous functions not called through hooks
2094 ========================================================================== */
2097 /* called from image.c */
2099 check_x_frame (Lisp_Object frame)
2101 return check_ns_frame (frame);
2105 /* called from frame.c */
2106 struct ns_display_info *
2107 check_x_display_info (Lisp_Object frame)
2109 return check_ns_display_info (frame);
2114 x_set_scroll_bar_default_width (f)
2117 int wid = FRAME_COLUMN_WIDTH (f);
2118 FRAME_CONFIG_SCROLL_BAR_WIDTH (f) = NS_SCROLL_BAR_WIDTH_DEFAULT;
2119 FRAME_CONFIG_SCROLL_BAR_COLS (f) = (FRAME_CONFIG_SCROLL_BAR_WIDTH (f) +
2124 /* terms impl this instead of x-get-resource directly */
2126 x_get_string_resource (XrmDatabase rdb, char *name, char *class)
2128 /* remove appname prefix; TODO: allow for !="Emacs" */
2129 char *toCheck = class + (!strncmp (class, "Emacs.", 6) ? 6 : 0);
2133 if (inhibit_x_resources)
2134 /* --quick was passed, so this is a no-op. */
2137 res = [[[NSUserDefaults standardUserDefaults] objectForKey:
2138 [NSString stringWithUTF8String: toCheck]] UTF8String];
2139 return !res ? NULL :
2140 (!strncasecmp (res, "YES", 3) ? "true" :
2141 (!strncasecmp (res, "NO", 2) ? "false" : res));
2146 x_get_focus_frame (struct frame *frame)
2148 struct ns_display_info *dpyinfo = FRAME_NS_DISPLAY_INFO (frame);
2149 Lisp_Object nsfocus;
2151 if (!dpyinfo->x_focus_frame)
2154 XSETFRAME (nsfocus, dpyinfo->x_focus_frame);
2160 x_pixel_width (struct frame *f)
2162 return FRAME_PIXEL_WIDTH (f);
2167 x_pixel_height (struct frame *f)
2169 return FRAME_PIXEL_HEIGHT (f);
2174 x_char_width (struct frame *f)
2176 return FRAME_COLUMN_WIDTH (f);
2181 x_char_height (struct frame *f)
2183 return FRAME_LINE_HEIGHT (f);
2188 x_screen_planes (struct frame *f)
2190 return FRAME_NS_DISPLAY_INFO (f)->n_planes;
2195 x_sync (Lisp_Object frame)
2197 /* XXX Not implemented XXX */
2203 /* ==========================================================================
2205 Lisp definitions that, for whatever reason, we can't alias as 'ns-XXX'.
2207 ========================================================================== */
2210 DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
2211 doc: /* Return t if the current Nextstep display supports the color COLOR.
2212 The optional argument FRAME is currently ignored. */)
2214 Lisp_Object color, frame;
2218 return ns_lisp_to_color (color, &col) ? Qnil : Qt;
2222 DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
2223 doc: /* Internal function called by `color-values', which see. */)
2225 Lisp_Object color, frame;
2228 CGFloat red, green, blue, alpha;
2231 CHECK_STRING (color);
2233 if (ns_lisp_to_color (color, &col))
2236 [[col colorUsingColorSpaceName: NSCalibratedRGBColorSpace]
2237 getRed: &red green: &green blue: &blue alpha: &alpha];
2238 return list3 (make_number (lrint (red*65280)),
2239 make_number (lrint (green*65280)),
2240 make_number (lrint (blue*65280)));
2244 DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
2245 doc: /* Return t if the Nextstep display supports color.
2246 The optional argument DISPLAY specifies which display to ask about.
2247 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2248 If omitted or nil, that stands for the selected frame's display. */)
2250 Lisp_Object display;
2252 NSWindowDepth depth;
2253 NSString *colorSpace;
2255 depth = [ns_get_screen (display) depth];
2256 colorSpace = NSColorSpaceFromDepth (depth);
2258 return [colorSpace isEqualToString: NSDeviceWhiteColorSpace]
2259 || [colorSpace isEqualToString: NSCalibratedWhiteColorSpace]
2264 DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p,
2265 Sx_display_grayscale_p, 0, 1, 0,
2266 doc: /* Return t if the Nextstep display supports shades of gray.
2267 Note that color displays do support shades of gray.
2268 The optional argument DISPLAY specifies which display to ask about.
2269 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2270 If omitted or nil, that stands for the selected frame's display. */)
2272 Lisp_Object display;
2274 NSWindowDepth depth;
2276 depth = [ns_get_screen (display) depth];
2278 return NSBitsPerPixelFromDepth (depth) > 1 ? Qt : Qnil;
2282 DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,
2284 doc: /* Return the width in pixels of the Nextstep display DISPLAY.
2285 The optional argument DISPLAY specifies which display to ask about.
2286 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2287 If omitted or nil, that stands for the selected frame's display. */)
2289 Lisp_Object display;
2292 return make_number ((int) [ns_get_screen (display) frame].size.width);
2296 DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
2297 Sx_display_pixel_height, 0, 1, 0,
2298 doc: /* Return the height in pixels of the Nextstep display DISPLAY.
2299 The optional argument DISPLAY specifies which display to ask about.
2300 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2301 If omitted or nil, that stands for the selected frame's display. */)
2303 Lisp_Object display;
2306 return make_number ((int) [ns_get_screen (display) frame].size.height);
2310 DEFUN ("display-usable-bounds", Fns_display_usable_bounds,
2311 Sns_display_usable_bounds, 0, 1, 0,
2312 doc: /* Return the bounds of the usable part of the screen.
2313 The return value is a list of integers (LEFT TOP WIDTH HEIGHT), which
2314 are the boundaries of the usable part of the screen, excluding areas
2315 reserved for the Mac menu, dock, and so forth.
2317 The screen queried corresponds to DISPLAY, which should be either a
2318 frame, a display name (a string), or terminal ID. If omitted or nil,
2319 that stands for the selected frame's display. */)
2321 Lisp_Object display;
2327 vScreen = [ns_get_screen (display) visibleFrame];
2328 top = vScreen.origin.y == 0.0 ?
2329 (int) [ns_get_screen (display) frame].size.height - vScreen.size.height : 0;
2331 return list4 (make_number ((int) vScreen.origin.x),
2333 make_number ((int) vScreen.size.width),
2334 make_number ((int) vScreen.size.height));
2338 DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
2340 doc: /* Return the number of bitplanes of the Nextstep display DISPLAY.
2341 The optional argument DISPLAY specifies which display to ask about.
2342 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2343 If omitted or nil, that stands for the selected frame's display. */)
2345 Lisp_Object display;
2349 (NSBitsPerPixelFromDepth ([ns_get_screen (display) depth]));
2353 DEFUN ("x-display-color-cells", Fx_display_color_cells,
2354 Sx_display_color_cells, 0, 1, 0,
2355 doc: /* Returns the number of color cells of the Nextstep display DISPLAY.
2356 The optional argument DISPLAY specifies which display to ask about.
2357 DISPLAY should be either a frame, a display name (a string), or terminal ID.
2358 If omitted or nil, that stands for the selected frame's display. */)
2360 Lisp_Object display;
2363 struct ns_display_info *dpyinfo = check_ns_display_info (display);
2365 /* We force 24+ bit depths to 24-bit to prevent an overflow. */
2366 return make_number (1 << min (dpyinfo->n_planes, 24));
2370 /* Unused dummy def needed for compatibility. */
2371 Lisp_Object tip_frame;
2373 /* TODO: move to xdisp or similar */
2375 compute_tip_xy (f, parms, dx, dy, width, height, root_x, root_y)
2377 Lisp_Object parms, dx, dy;
2379 int *root_x, *root_y;
2381 Lisp_Object left, top;
2382 EmacsView *view = FRAME_NS_VIEW (f);
2385 /* Start with user-specified or mouse position. */
2386 left = Fcdr (Fassq (Qleft, parms));
2387 if (INTEGERP (left))
2390 pt.x = last_mouse_motion_position.x;
2391 top = Fcdr (Fassq (Qtop, parms));
2395 pt.y = last_mouse_motion_position.y;
2397 /* Convert to screen coordinates */
2398 pt = [view convertPoint: pt toView: nil];
2399 pt = [[view window] convertBaseToScreen: pt];
2401 /* Ensure in bounds. (Note, screen origin = lower left.) */
2402 if (pt.x + XINT (dx) <= 0)
2403 *root_x = 0; /* Can happen for negative dx */
2404 else if (pt.x + XINT (dx) + width
2405 <= x_display_pixel_width (FRAME_NS_DISPLAY_INFO (f)))
2406 /* It fits to the right of the pointer. */
2407 *root_x = pt.x + XINT (dx);
2408 else if (width + XINT (dx) <= pt.x)
2409 /* It fits to the left of the pointer. */
2410 *root_x = pt.x - width - XINT (dx);
2412 /* Put it left justified on the screen -- it ought to fit that way. */
2415 if (pt.y - XINT (dy) - height >= 0)
2416 /* It fits below the pointer. */
2417 *root_y = pt.y - height - XINT (dy);
2418 else if (pt.y + XINT (dy) + height
2419 <= x_display_pixel_height (FRAME_NS_DISPLAY_INFO (f)))
2420 /* It fits above the pointer */
2421 *root_y = pt.y + XINT (dy);
2423 /* Put it on the top. */
2424 *root_y = x_display_pixel_height (FRAME_NS_DISPLAY_INFO (f)) - height;
2428 DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
2429 doc: /* Show STRING in a \"tooltip\" window on frame FRAME.
2430 A tooltip window is a small window displaying a string.
2432 FRAME nil or omitted means use the selected frame.
2434 PARMS is an optional list of frame parameters which can be used to
2435 change the tooltip's appearance.
2437 Automatically hide the tooltip after TIMEOUT seconds. TIMEOUT nil
2438 means use the default timeout of 5 seconds.
2440 If the list of frame parameters PARMS contains a `left' parameter,
2441 the tooltip is displayed at that x-position. Otherwise it is
2442 displayed at the mouse position, with offset DX added (default is 5 if
2443 DX isn't specified). Likewise for the y-position; if a `top' frame
2444 parameter is specified, it determines the y-position of the tooltip
2445 window, otherwise it is displayed at the mouse position, with offset
2446 DY added (default is -10).
2448 A tooltip's maximum size is specified by `x-max-tooltip-size'.
2449 Text larger than the specified size is clipped. */)
2450 (string, frame, parms, timeout, dx, dy)
2451 Lisp_Object string, frame, parms, timeout, dx, dy;
2454 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
2455 int count = SPECPDL_INDEX ();
2460 specbind (Qinhibit_redisplay, Qt);
2462 GCPRO4 (string, parms, frame, timeout);
2464 CHECK_STRING (string);
2465 str = SDATA (string);
2466 f = check_x_frame (frame);
2468 timeout = make_number (5);
2470 CHECK_NATNUM (timeout);
2473 dx = make_number (5);
2478 dy = make_number (-10);
2483 if (ns_tooltip == nil)
2484 ns_tooltip = [[EmacsTooltip alloc] init];
2488 [ns_tooltip setText: str];
2489 size = [ns_tooltip frame].size;
2491 /* Move the tooltip window where the mouse pointer is. Resize and
2493 compute_tip_xy (f, parms, dx, dy, (int)size.width, (int)size.height,
2496 [ns_tooltip showAtX: root_x Y: root_y for: XINT (timeout)];
2500 return unbind_to (count, Qnil);
2504 DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
2505 doc: /* Hide the current tooltip window, if there is any.
2506 Value is t if tooltip was open, nil otherwise. */)
2509 if (ns_tooltip == nil || ![ns_tooltip isActive])
2516 /* ==========================================================================
2518 Class implementations
2520 ========================================================================== */
2523 @implementation EmacsSavePanel
2524 #ifdef NS_IMPL_COCOA
2525 /* --------------------------------------------------------------------------
2526 These are overridden to intercept on OS X: ending panel restarts NSApp
2527 event loop if it is stopped. Not sure if this is correct behavior,
2528 perhaps should check if running and if so send an appdefined.
2529 -------------------------------------------------------------------------- */
2530 - (void) ok: (id)sender
2536 - (void) cancel: (id)sender
2538 [super cancel: sender];
2545 @implementation EmacsOpenPanel
2546 #ifdef NS_IMPL_COCOA
2547 /* --------------------------------------------------------------------------
2548 These are overridden to intercept on OS X: ending panel restarts NSApp
2549 event loop if it is stopped. Not sure if this is correct behavior,
2550 perhaps should check if running and if so send an appdefined.
2551 -------------------------------------------------------------------------- */
2552 - (void) ok: (id)sender
2558 - (void) cancel: (id)sender
2560 [super cancel: sender];
2567 @implementation EmacsFileDelegate
2568 /* --------------------------------------------------------------------------
2569 Delegate methods for Open/Save panels
2570 -------------------------------------------------------------------------- */
2571 - (BOOL)panel: (id)sender isValidFilename: (NSString *)filename
2575 - (BOOL)panel: (id)sender shouldShowFilename: (NSString *)filename
2579 - (NSString *)panel: (id)sender userEnteredFilename: (NSString *)filename
2580 confirmed: (BOOL)okFlag
2589 /* ==========================================================================
2591 Lisp interface declaration
2593 ========================================================================== */
2601 Qnone = intern ("none");
2603 Qfontsize = intern ("fontsize");
2604 staticpro (&Qfontsize);
2606 DEFVAR_LISP ("ns-icon-type-alist", &Vns_icon_type_alist,
2607 doc: /* Alist of elements (REGEXP . IMAGE) for images of icons associated to frames.
2608 If the title of a frame matches REGEXP, then IMAGE.tiff is
2609 selected as the image of the icon representing the frame when it's
2610 miniaturized. If an element is t, then Emacs tries to select an icon
2611 based on the filetype of the visited file.
2613 The images have to be installed in a folder called English.lproj in the
2614 Emacs folder. You have to restart Emacs after installing new icons.
2616 Example: Install an icon Gnus.tiff and execute the following code
2618 (setq ns-icon-type-alist
2619 (append ns-icon-type-alist
2620 '((\"^\\\\*\\\\(Group\\\\*$\\\\|Summary \\\\|Article\\\\*$\\\\)\"
2623 When you miniaturize a Group, Summary or Article frame, Gnus.tiff will
2624 be used as the image of the icon representing the frame. */);
2625 Vns_icon_type_alist = Fcons (Qt, Qnil);
2627 DEFVAR_LISP ("ns-version-string", &Vns_version_string,
2628 doc: /* Toolkit version for NS Windowing. */);
2629 Vns_version_string = ns_appkit_version_str ();
2631 defsubr (&Sns_read_file_name);
2632 defsubr (&Sns_get_resource);
2633 defsubr (&Sns_set_resource);
2634 defsubr (&Sxw_display_color_p); /* this and next called directly by C code */
2635 defsubr (&Sx_display_grayscale_p);
2636 defsubr (&Sns_font_name);
2637 defsubr (&Sns_list_colors);
2638 #ifdef NS_IMPL_COCOA
2639 defsubr (&Sns_do_applescript);
2641 defsubr (&Sxw_color_defined_p);
2642 defsubr (&Sxw_color_values);
2643 defsubr (&Sx_server_max_request_size);
2644 defsubr (&Sx_server_vendor);
2645 defsubr (&Sx_server_version);
2646 defsubr (&Sx_display_pixel_width);
2647 defsubr (&Sx_display_pixel_height);
2648 defsubr (&Sns_display_usable_bounds);
2649 defsubr (&Sx_display_mm_width);
2650 defsubr (&Sx_display_mm_height);
2651 defsubr (&Sx_display_screens);
2652 defsubr (&Sx_display_planes);
2653 defsubr (&Sx_display_color_cells);
2654 defsubr (&Sx_display_visual_class);
2655 defsubr (&Sx_display_backing_store);
2656 defsubr (&Sx_display_save_under);
2657 defsubr (&Sx_create_frame);
2658 defsubr (&Sx_open_connection);
2659 defsubr (&Sx_close_connection);
2660 defsubr (&Sx_display_list);
2662 defsubr (&Sns_hide_others);
2663 defsubr (&Sns_hide_emacs);
2664 defsubr (&Sns_emacs_info_panel);
2665 defsubr (&Sns_list_services);
2666 defsubr (&Sns_perform_service);
2667 defsubr (&Sns_convert_utf8_nfd_to_nfc);
2668 defsubr (&Sx_focus_frame);
2669 defsubr (&Sns_popup_font_panel);
2670 defsubr (&Sns_popup_color_panel);
2672 defsubr (&Sx_show_tip);
2673 defsubr (&Sx_hide_tip);
2675 /* used only in fontset.c */
2676 check_window_system_func = check_ns;
2680 // arch-tag: dc2a3f74-1123-4daa-8eed-fb78db6a5642