From 48f662de927de8523ef3618271fc289cf46d1f9b Mon Sep 17 00:00:00 2001 From: Jack Jansen Date: Fri, 8 Aug 1997 15:00:59 +0000 Subject: mkalias() now has an optional third parameter to create relative aliases (Just) --- Mac/Lib/macostools.py | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Mac/Lib/macostools.py b/Mac/Lib/macostools.py index 46eef98..374d3f1 100644 --- a/Mac/Lib/macostools.py +++ b/Mac/Lib/macostools.py @@ -26,11 +26,16 @@ BUFSIZ=0x80000 # Copy in 0.5Mb chunks # Not guaranteed to be correct or stay correct (Apple doesn't tell you # how to do this), but it seems to work. # -def mkalias(src, dst): +def mkalias(src, dst, relative=None): """Create a finder alias""" srcfss = macfs.FSSpec(src) dstfss = macfs.FSSpec(dst) - alias = srcfss.NewAlias() + if relative: + relativefss = macfs.FSSpec(relative) + # ik mag er geen None in stoppen :-( + alias = srcfss.NewAlias(relativefss) + else: + alias = srcfss.NewAlias() srcfinfo = srcfss.GetFInfo() Res.FSpCreateResFile(dstfss, srcfinfo.Creator, srcfinfo.Type, -1) -- cgit v0.12