/* Functions for the NeXT/Open/GNUstep and MacOSX window system.
-
-Copyright (C) 1989, 1992, 1993, 1994, 2005, 2006, 2008, 2009, 2010
- Free Software Foundation, Inc.
+ Copyright (C) 1989, 1992, 1993, 1994, 2005, 2006, 2008, 2009, 2010, 2011
+ Free Software Foundation, Inc.
This file is part of GNU Emacs.
extern Lisp_Object Qheight, Qminibuffer, Qname, Qonly, Qwidth;
extern Lisp_Object Qunsplittable, Qmenu_bar_lines, Qbuffer_predicate, Qtitle;
extern Lisp_Object Qnone;
-extern Lisp_Object Vframe_title_format;
+extern Lisp_Object Vframe_title_format, Vicon_title_format;
/* The below are defined in frame.c. */
[NSString stringWithUTF8String: SDATA (arg)]];
}
-
static void
-ns_set_name_iconic (struct frame *f, Lisp_Object name, int explicit)
+ns_set_name_internal (FRAME_PTR f, Lisp_Object name)
{
+ struct gcpro gcpro1;
+ Lisp_Object encoded_name, encoded_icon_name;
+ NSString *str;
NSView *view = FRAME_NS_VIEW (f);
- NSTRACE (ns_set_name_iconic);
-
- if (ns_in_resize)
- return;
-
- /* Make sure that requests from lisp code override requests from
- Emacs redisplay code. */
- if (explicit)
- {
- /* If we're switching from explicit to implicit, we had better
- update the mode lines and thereby update the title. */
- if (f->explicit_name && NILP (name))
- update_mode_lines = 1;
- f->explicit_name = ! NILP (name);
- }
- else if (f->explicit_name)
- name = f->name;
+ GCPRO1 (name);
+ encoded_name = ENCODE_UTF_8 (name);
+ UNGCPRO;
- /* title overrides explicit name */
- if (! NILP (f->title))
- name = f->title;
+ str = [NSString stringWithUTF8String: SDATA (encoded_name)];
- /* icon_name overrides title and explicit name */
- if (! NILP (f->icon_name))
- name = f->icon_name;
+ /* Don't change the name if it's already NAME. */
+ if (! [[[view window] title] isEqualToString: str])
+ [[view window] setTitle: str];
- if (NILP (name))
- name = build_string([ns_app_name UTF8String]);
+ if (!STRINGP (f->icon_name))
+ encoded_icon_name = encoded_name;
else
- CHECK_STRING (name);
+ encoded_icon_name = ENCODE_UTF_8 (f->icon_name);
+
+ str = [NSString stringWithUTF8String: SDATA (encoded_icon_name)];
- /* Don't change the name if it's already NAME. */
if ([[view window] miniwindowTitle] &&
- ([[[view window] miniwindowTitle]
- isEqualToString: [NSString stringWithUTF8String:
- SDATA (name)]]))
- return;
+ ! [[[view window] miniwindowTitle] isEqualToString: str])
+ [[view window] setMiniwindowTitle: str];
- [[view window] setMiniwindowTitle:
- [NSString stringWithUTF8String: SDATA (name)]];
}
-
static void
ns_set_name (struct frame *f, Lisp_Object name, int explicit)
{
if (NILP (name))
name = build_string([ns_app_name UTF8String]);
+ else
+ CHECK_STRING (name);
+
+ /* Don't change the name if it's already NAME. */
+ if (! NILP (Fstring_equal (name, f->name)))
+ return;
f->name = name;
if (! NILP (f->title))
name = f->title;
- CHECK_STRING (name);
-
- view = FRAME_NS_VIEW (f);
-
- /* Don't change the name if it's already NAME. */
- if ([[[view window] title]
- isEqualToString: [NSString stringWithUTF8String:
- SDATA (name)]])
- return;
- [[view window] setTitle: [NSString stringWithUTF8String:
- SDATA (name)]];
+ ns_set_name_internal (f, name);
}
x_explicitly_set_name (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
{
NSTRACE (x_explicitly_set_name);
- ns_set_name_iconic (f, arg, 1);
ns_set_name (f, arg, 1);
}
x_implicitly_set_name (FRAME_PTR f, Lisp_Object arg, Lisp_Object oldval)
{
NSTRACE (x_implicitly_set_name);
- if (FRAME_ICONIFIED_P (f))
- ns_set_name_iconic (f, arg, 0);
- else if (FRAME_NS_P (f) && EQ (Vframe_title_format, Qt))
+
+ /* Deal with NS specific format t. */
+ if (FRAME_NS_P (f) && ((FRAME_ICONIFIED_P (f) && EQ (Vicon_title_format, Qt))
+ || EQ (Vframe_title_format, Qt)))
ns_set_name_as_filename (f);
else
ns_set_name (f, arg, 0);
/* Change the title of frame F to NAME.
- If NAME is nil, use the frame name as the title.
-
- If EXPLICIT is non-zero, that indicates that lisp code is setting the
- name; if NAME is a string, set F's name to NAME and set
- F->explicit_name; if NAME is Qnil, then clear F->explicit_name.
+ If NAME is nil, use the frame name as the title. */
- If EXPLICIT is zero, that indicates that Emacs redisplay code is
- suggesting a new name, which lisp code should override; if
- F->explicit_name is set, ignore the new name; otherwise, set it. */
static void
x_set_title (struct frame *f, Lisp_Object name, Lisp_Object old_name)
{
update_mode_lines = 1;
f->title = name;
+
+ if (NILP (name))
+ name = f->name;
+ else
+ CHECK_STRING (name);
+
+ ns_set_name_internal (f, name);
}
ns_set_name_as_filename (struct frame *f)
{
NSView *view;
- Lisp_Object name;
+ Lisp_Object name, filename;
Lisp_Object buf = XWINDOW (f->selected_window)->buffer;
const char *title;
NSAutoreleasePool *pool;
+ struct gcpro gcpro1;
+ Lisp_Object encoded_name, encoded_filename;
+ NSString *str;
NSTRACE (ns_set_name_as_filename);
if (f->explicit_name || ! NILP (f->title) || ns_in_resize)
BLOCK_INPUT;
pool = [[NSAutoreleasePool alloc] init];
- name = XBUFFER (buf)->filename;
- if (NILP (name) || FRAME_ICONIFIED_P (f)) name =XBUFFER (buf)->name;
-
- if (FRAME_ICONIFIED_P (f) && !NILP (f->icon_name))
- name = f->icon_name;
+ filename = XBUFFER (buf)->filename;
+ name = XBUFFER (buf)->name;
if (NILP (name))
- name = build_string ([ns_app_name UTF8String]);
- else
- CHECK_STRING (name);
+ {
+ if (! NILP (filename))
+ name = Ffile_name_nondirectory (filename);
+ else
+ name = build_string ([ns_app_name UTF8String]);
+ }
+
+ GCPRO1 (name);
+ encoded_name = ENCODE_UTF_8 (name);
+ UNGCPRO;
view = FRAME_NS_VIEW (f);
title = FRAME_ICONIFIED_P (f) ? [[[view window] miniwindowTitle] UTF8String]
: [[[view window] title] UTF8String];
- if (title && (! strcmp (title, SDATA (name))))
+ if (title && (! strcmp (title, SDATA (encoded_name))))
{
[pool release];
UNBLOCK_INPUT;
return;
}
- if (! FRAME_ICONIFIED_P (f))
+ str = [NSString stringWithUTF8String: SDATA (encoded_name)];
+ if (str == nil) str = @"Bad coding";
+
+ if (FRAME_ICONIFIED_P (f))
+ [[view window] setMiniwindowTitle: str];
+ else
{
-#ifdef NS_IMPL_COCOA
- /* work around a bug observed on 10.3 where
- setTitleWithRepresentedFilename does not clear out previous state
- if given filename does not exist */
- NSString *str = [NSString stringWithUTF8String: SDATA (name)];
- if (![[NSFileManager defaultManager] fileExistsAtPath: str])
+ NSString *fstr;
+
+ if (! NILP (filename))
{
- [[view window] setTitleWithRepresentedFilename: @""];
- [[view window] setTitle: str];
+ GCPRO1 (filename);
+ encoded_filename = ENCODE_UTF_8 (filename);
+ UNGCPRO;
+
+ fstr = [NSString stringWithUTF8String: SDATA (encoded_filename)];
+ if (fstr == nil) fstr = @"";
+#ifdef NS_IMPL_COCOA
+ /* work around a bug observed on 10.3 and later where
+ setTitleWithRepresentedFilename does not clear out previous state
+ if given filename does not exist */
+ if (! [[NSFileManager defaultManager] fileExistsAtPath: fstr])
+ [[view window] setRepresentedFilename: @""];
+#endif
}
else
- {
- [[view window] setTitleWithRepresentedFilename: str];
- }
-#else
- [[view window] setTitleWithRepresentedFilename:
- [NSString stringWithUTF8String: SDATA (name)]];
-#endif
+ fstr = @"";
+
+ [[view window] setRepresentedFilename: fstr];
+ [[view window] setTitle: str];
f->name = name;
}
- else
- {
- [[view window] setMiniwindowTitle:
- [NSString stringWithUTF8String: SDATA (name)]];
- }
+
[pool release];
UNBLOCK_INPUT;
}
"foreground", "Foreground", RES_TYPE_STRING);
x_default_parameter (f, parms, Qbackground_color, build_string ("White"),
"background", "Background", RES_TYPE_STRING);
- x_default_parameter (f, parms, Qcursor_color, build_string ("grey"),
- "cursorColor", "CursorColor", RES_TYPE_STRING);
/* FIXME: not suppported yet in Nextstep */
x_default_parameter (f, parms, Qline_spacing, Qnil,
"lineSpacing", "LineSpacing", RES_TYPE_NUMBER);
HCoop / bpt / emacs.git / blobdiff