summaryrefslogtreecommitdiffstats
path: root/Mac/Modules/macfsmodule.c
diff options
context:
space:
mode:
authorJack Jansen <jack.jansen@cwi.nl>1996-07-22 15:26:01 (GMT)
committerJack Jansen <jack.jansen@cwi.nl>1996-07-22 15:26:01 (GMT)
commitd99d2833837fa2f6f593190db2d7a653101dea0b (patch)
treeb60794792ea38ba8ac108f73700db22ec66179b9 /Mac/Modules/macfsmodule.c
parent1ed9529a68bd28442a30b93f455d9575b05123cd (diff)
downloadcpython-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.c29
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},