diff options
author | das <das> | 2001-11-23 01:25:35 (GMT) |
---|---|---|
committer | das <das> | 2001-11-23 01:25:35 (GMT) |
commit | bf3f2b462290dda8accb57bda76e8e98d45a8a12 (patch) | |
tree | 22e1756e8fb4d5f339d6ac1dfdf679782e33f6e5 /generic/tclInt.decls | |
parent | 59ae2a6c2b08e679a8f5aa457d4a09fcf5442e35 (diff) | |
download | tcl-bf3f2b462290dda8accb57bda76e8e98d45a8a12.zip tcl-bf3f2b462290dda8accb57bda76e8e98d45a8a12.tar.gz tcl-bf3f2b462290dda8accb57bda76e8e98d45a8a12.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 'generic/tclInt.decls')
-rw-r--r-- | generic/tclInt.decls | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 5ae28d9..23dfdd0 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.37 2001/11/21 02:36:20 hobbs Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.38 2001/11/23 01:26:47 das Exp $ library tcl @@ -696,7 +696,7 @@ declare 6 mac { Boolean createFolder, FSSpec *spec) } declare 7 mac { - void GetGlobalMouse(Point *mouse) + void GetGlobalMouseTcl(Point *mouse) } # The following routines are utility functions in Tcl. They are exported @@ -704,15 +704,15 @@ declare 7 mac { # however. The first set are from the MoreFiles package. declare 8 mac { - pascal OSErr FSpGetDirectoryID(CONST FSSpec *spec, long *theDirID, \ + pascal OSErr FSpGetDirectoryIDTcl(CONST FSSpec *spec, long *theDirID, \ Boolean *isDirectory) } declare 9 mac { - pascal short FSpOpenResFileCompat(CONST FSSpec *spec, \ + pascal short FSpOpenResFileCompatTcl(CONST FSSpec *spec, \ SignedByte permission) } declare 10 mac { - pascal void FSpCreateResFileCompat(CONST FSSpec *spec, OSType creator, \ + pascal void FSpCreateResFileCompatTcl(CONST FSSpec *spec, OSType creator, \ OSType fileType, ScriptCode scriptTag) } @@ -767,6 +767,9 @@ declare 23 mac { # declare 24 mac { # int TclMacReadlink(char *path, char *buf, int size) # } +declare 24 mac { + char * TclpGetTZName(int isdst) +} declare 25 mac { int TclMacChmod(char *path, int mode) } |