diff options
author | Jack Jansen <jack.jansen@cwi.nl> | 1996-07-22 15:26:01 (GMT) |
---|---|---|
committer | Jack Jansen <jack.jansen@cwi.nl> | 1996-07-22 15:26:01 (GMT) |
commit | d99d2833837fa2f6f593190db2d7a653101dea0b (patch) | |
tree | b60794792ea38ba8ac108f73700db22ec66179b9 /Mac/Modules/macfsmodule.c | |
parent | 1ed9529a68bd28442a30b93f455d9575b05123cd (diff) | |
download | cpython-d99d2833837fa2f6f593190db2d7a653101dea0b.zip cpython-d99d2833837fa2f6f593190db2d7a653101dea0b.tar.gz cpython-d99d2833837fa2f6f593190db2d7a653101dea0b.tar.bz2 |
Added SetFolder method which sets Standard File initial folder
Diffstat (limited to 'Mac/Modules/macfsmodule.c')
-rw-r--r-- | Mac/Modules/macfsmodule.c | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Mac/Modules/macfsmodule.c b/Mac/Modules/macfsmodule.c index 69725cc..9bcdf62 100644 --- a/Mac/Modules/macfsmodule.c +++ b/Mac/Modules/macfsmodule.c @@ -31,6 +31,7 @@ OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. #include <Folders.h> #include <StandardFile.h> #include <Aliases.h> +#include <LowMem.h> #include "nfullpath.h" @@ -689,6 +690,33 @@ mfs_StandardPutFile(self, args) return mkvalue("(Oi)",newmfssobject(&reply.sfFile), reply.sfGood); } +/* +** Set initial directory for file dialogs */ +static object * +mfs_SetFolder(self, args) + object *self; + object *args; +{ + FSSpec spec; + FSSpec ospec; + short orefnum; + long oparid; + + /* Get old values */ + orefnum = -LMGetSFSaveDisk(); + oparid = LMGetCurDirStore(); + (void)FSMakeFSSpec(orefnum, oparid, "\pplaceholder", &ospec); + + /* Go to working directory by default */ + (void)FSMakeFSSpec(0, 0, "\p:placeholder", &spec); + if (!newgetargs(args, "|O&", PyMac_GetFSSpec, &spec)) + return NULL; + /* Set standard-file working directory */ + LMSetSFSaveDisk(-spec.vRefNum); + LMSetCurDirStore(spec.parID); + return (object *)newmfssobject(&ospec); +} + static object * mfs_FSSpec(self, args) object *self; /* Not used */ @@ -794,6 +822,7 @@ static struct methodlist mfs_methods[] = { {"PromptGetFile", mfs_PromptGetFile, 1}, {"StandardPutFile", mfs_StandardPutFile, 1}, {"GetDirectory", mfs_GetDirectory, 1}, + {"SetFolder", mfs_SetFolder, 1}, {"FSSpec", mfs_FSSpec, 1}, {"RawFSSpec", mfs_RawFSSpec, 1}, {"RawAlias", mfs_RawAlias, 1}, |