1932 |
{ |
{ |
1933 |
#if TARGET_API_MAC_CARBON |
#if TARGET_API_MAC_CARBON |
1934 |
CFStringRef windowTitle = |
CFStringRef windowTitle = |
1935 |
CFStringCreateWithCString (NULL, SDATA (name), |
cfstring_create_with_utf8_cstring (SDATA (name)); |
|
kCFStringEncodingUTF8); |
|
1936 |
|
|
1937 |
SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f), windowTitle); |
SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f), windowTitle); |
1938 |
CFRelease (windowTitle); |
CFRelease (windowTitle); |
2014 |
{ |
{ |
2015 |
#if TARGET_API_MAC_CARBON |
#if TARGET_API_MAC_CARBON |
2016 |
CFStringRef windowTitle = |
CFStringRef windowTitle = |
2017 |
CFStringCreateWithCString (NULL, SDATA (name), |
cfstring_create_with_utf8_cstring (SDATA (name)); |
|
kCFStringEncodingUTF8); |
|
2018 |
|
|
2019 |
SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f), windowTitle); |
SetWindowTitleWithCFString (FRAME_MAC_WINDOW (f), windowTitle); |
2020 |
CFRelease (windowTitle); |
CFRelease (windowTitle); |
4244 |
NavDialogRef dialogRef; |
NavDialogRef dialogRef; |
4245 |
NavTypeListHandle fileTypes = NULL; |
NavTypeListHandle fileTypes = NULL; |
4246 |
NavUserAction userAction; |
NavUserAction userAction; |
4247 |
CFStringRef message=NULL, client=NULL, saveName = NULL, ok = NULL; |
CFStringRef message=NULL, saveName = NULL; |
|
CFStringRef title = NULL; |
|
4248 |
|
|
4249 |
BLOCK_INPUT; |
BLOCK_INPUT; |
4250 |
/* No need for a callback function because we are modal */ |
/* No need for a callback function because we are modal */ |
4256 |
options.optionFlags |= kNavSelectAllReadableItem; |
options.optionFlags |= kNavSelectAllReadableItem; |
4257 |
if (!NILP(prompt)) |
if (!NILP(prompt)) |
4258 |
{ |
{ |
4259 |
message = CFStringCreateWithCStringNoCopy(NULL, SDATA(prompt), |
message = cfstring_create_with_utf8_cstring (SDATA (prompt)); |
|
kCFStringEncodingUTF8, |
|
|
kCFAllocatorNull); |
|
4260 |
options.message = message; |
options.message = message; |
4261 |
} |
} |
4262 |
/* Don't set the application, let it use default. |
/* Don't set the application, let it use default. |
4263 |
client = CFStringCreateWithCStringNoCopy(NULL, "Emacs", |
options.clientName = CFSTR ("Emacs"); |
|
kCFStringEncodingMacRoman, NULL); |
|
|
options.clientName = client; |
|
4264 |
*/ |
*/ |
4265 |
|
|
4266 |
if (!NILP (only_dir_p)) |
if (!NILP (only_dir_p)) |
4269 |
else if (NILP (mustmatch)) |
else if (NILP (mustmatch)) |
4270 |
{ |
{ |
4271 |
/* This is a save dialog */ |
/* This is a save dialog */ |
|
ok = CFStringCreateWithCString (NULL, "Ok", kCFStringEncodingUTF8); |
|
|
title = CFStringCreateWithCString (NULL, "Enter name", |
|
|
kCFStringEncodingUTF8); |
|
4272 |
options.optionFlags |= kNavDontConfirmReplacement; |
options.optionFlags |= kNavDontConfirmReplacement; |
4273 |
options.actionButtonLabel = ok; |
options.actionButtonLabel = CFSTR ("Ok"); |
4274 |
options.windowTitle = title; |
options.windowTitle = CFSTR ("Enter name"); |
4275 |
|
|
4276 |
if (!NILP(default_filename)) |
if (!NILP(default_filename)) |
4277 |
{ |
{ |
4278 |
saveName = CFStringCreateWithCString(NULL, SDATA(default_filename), |
saveName = |
4279 |
kCFStringEncodingUTF8); |
cfstring_create_with_utf8_cstring (SDATA (default_filename)); |
4280 |
options.saveFileName = saveName; |
options.saveFileName = saveName; |
4281 |
options.optionFlags |= kNavSelectDefaultLocation; |
options.optionFlags |= kNavSelectDefaultLocation; |
4282 |
} |
} |
4310 |
} |
} |
4311 |
|
|
4312 |
if (saveName) CFRelease(saveName); |
if (saveName) CFRelease(saveName); |
|
if (client) CFRelease(client); |
|
4313 |
if (message) CFRelease(message); |
if (message) CFRelease(message); |
|
if (ok) CFRelease(ok); |
|
|
if (title) CFRelease(title); |
|
4314 |
|
|
4315 |
if (status == noErr) { |
if (status == noErr) { |
4316 |
userAction = NavDialogGetUserAction(dialogRef); |
userAction = NavDialogGetUserAction(dialogRef); |