Mirror
/
cpython
mirror of https://github.com/python/cpython
4
1
Fork 0
Code Issues Releases Wiki Activity

Added new call PromptGetFile (like StandardGetFile, but accepts a 

prompt) and added optional prompt to GetDirectory.
This commit is contained in:
Jack Jansen 1995-08-14 12:22:56 +00:00
parent 9c45a6504f
commit d5d5f462f9
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
Mac/Modules/macfsmodule.c
View File

@ -651,6 +651,31 @@ mfs_StandardGetFile(self, args)
return mkvalue("(Oi)", newmfssobject(&reply.sfFile), reply.sfGood);
}
static object *
mfs_PromptGetFile(self, args)
object *self; /* Not used */
object *args;
{
SFTypeList list;
short numtypes;
StandardFileReply reply;
char *prompt = NULL;
list[0] = list[1] = list[2] = list[3] = 0;
numtypes = 0;
if (!newgetargs(args, "s|O&O&O&O&", &prompt, PyMac_GetOSType, &list[0],
PyMac_GetOSType, &list[1], PyMac_GetOSType, &list[2],
PyMac_GetOSType, &list[3]) )
return NULL;
while ( numtypes < 4 && list[numtypes] ) {
numtypes++;
}
if ( numtypes == 0 )
numtypes = -1;
PyMac_PromptGetFile(numtypes, list, &reply, prompt);
return mkvalue("(Oi)", newmfssobject(&reply.sfFile), reply.sfGood);
}
static object *
mfs_StandardPutFile(self, args)
object *self; /* Not used */
@ -724,11 +749,12 @@ mfs_GetDirectory(self, args)
{
FSSpec fsdir;
int ok;
char *prompt = NULL;
if (!newgetargs(args, "") )
if (!newgetargs(args, "|s", &prompt) )
return NULL;
ok = PyMac_GetDirectory(&fsdir);
ok = PyMac_GetDirectory(&fsdir, prompt);
return mkvalue("(Oi)", newmfssobject(&fsdir), ok);
}
@ -767,6 +793,7 @@ mfs_FInfo(self, args)
static struct methodlist mfs_methods[] = {
{"ResolveAliasFile", mfs_ResolveAliasFile, 1},
{"StandardGetFile", mfs_StandardGetFile, 1},
{"PromptGetFile", mfs_PromptGetFile, 1},
{"StandardPutFile", mfs_StandardPutFile, 1},
{"GetDirectory", mfs_GetDirectory, 1},
{"FSSpec", mfs_FSSpec, 1},