diff options
| author | das <das> | 2001-11-23 01:26:52 (GMT) |
|---|---|---|
| committer | das <das> | 2001-11-23 01:26:52 (GMT) |
| commit | 5bf5a16c3a6e83b4297123ae905297ac723f7f81 (patch) | |
| tree | 725fbc934e8cfe62511b965b22c0069a3e157e67 /mac/tclMacUtil.c | |
| parent | 8ddfd6bbdf803f32768cf447560be0af0e97e08b (diff) | |
| download | tcl-5bf5a16c3a6e83b4297123ae905297ac723f7f81.zip tcl-5bf5a16c3a6e83b4297123ae905297ac723f7f81.tar.gz tcl-5bf5a16c3a6e83b4297123ae905297ac723f7f81.tar.bz2 | |
** upport to 8.4 of mac code changes for 8.3.3 & various new
** changes for 8.4, some already backported to 8.3.4 (patch #435658)
see ChangeLog for details
Diffstat (limited to 'mac/tclMacUtil.c')
| -rw-r--r-- | mac/tclMacUtil.c | 26 |
1 files changed, 22 insertions, 4 deletions
diff --git a/mac/tclMacUtil.c b/mac/tclMacUtil.c index 51759ef..c505c64 100644 --- a/mac/tclMacUtil.c +++ b/mac/tclMacUtil.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacUtil.c,v 1.4 2000/04/17 01:52:56 jingham Exp $ + * RCS: @(#) $Id: tclMacUtil.c,v 1.5 2001/11/23 01:28:49 das Exp $ */ #include "tcl.h" @@ -53,7 +53,7 @@ *---------------------------------------------------------------------- */ -#if defined(THINK_C) || defined(__MWERKS__) +#if defined(THINK_C) double hypotd(double x, double y); double @@ -420,7 +420,7 @@ FSpPathFromLocation( /* *---------------------------------------------------------------------- * - * GetGlobalMouse -- + * GetGlobalMouseTcl -- * * This procedure obtains the current mouse position in global * coordinates. @@ -435,7 +435,7 @@ FSpPathFromLocation( */ void -GetGlobalMouse( +GetGlobalMouseTcl( Point *mouse) /* Mouse position. */ { EventRecord event; @@ -443,3 +443,21 @@ GetGlobalMouse( OSEventAvail(0, &event); *mouse = event.where; } + +pascal OSErr FSpGetDirectoryIDTcl (CONST FSSpec * spec, + long * theDirID, Boolean * isDirectory) +{ + return(FSpGetDirectoryID(spec, theDirID, isDirectory)); +} + +pascal short FSpOpenResFileCompatTcl (CONST FSSpec * spec, SignedByte permission) +{ + return(FSpOpenResFileCompat(spec,permission)); +} + +pascal void FSpCreateResFileCompatTcl ( + CONST FSSpec * spec, OSType creator, + OSType fileType, ScriptCode scriptTag) +{ + FSpCreateResFileCompat (spec,creator,fileType,scriptTag); +} |