diff options
Diffstat (limited to 'mac')
| -rw-r--r-- | mac/tkMacInt.h | 7 | ||||
| -rw-r--r-- | mac/tkMacPort.h | 3 | ||||
| -rw-r--r-- | mac/tkMacProlog.c | 61 |
3 files changed, 3 insertions, 68 deletions
diff --git a/mac/tkMacInt.h b/mac/tkMacInt.h index 2d863ae..04b132b 100644 --- a/mac/tkMacInt.h +++ b/mac/tkMacInt.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacInt.h,v 1.4 1998/09/14 18:23:36 stanton Exp $ + * RCS: @(#) $Id: tkMacInt.h,v 1.5 1998/09/30 19:01:21 rjohnson Exp $ */ #ifndef _TKMACINT @@ -292,10 +292,5 @@ extern Tk_Window Tk_TopCoordsToWindow _ANSI_ARGS_((Tk_Window tkwin, int rootX, int rootY, int *newX, int *newY)); extern MacDrawable * TkMacContainerId _ANSI_ARGS_((TkWindow *winPtr)); extern MacDrawable * TkMacGetHostToplevel _ANSI_ARGS_((TkWindow *winPtr)); -/* - * The following prototypes need to go into tkMac.h - */ -EXTERN void Tk_UpdatePointer _ANSI_ARGS_((Tk_Window tkwin, - int x, int y, int state)); #endif /* _TKMACINT */ diff --git a/mac/tkMacPort.h b/mac/tkMacPort.h index e83e35a..ecd5a5b 100644 --- a/mac/tkMacPort.h +++ b/mac/tkMacPort.h @@ -6,11 +6,12 @@ * #includes for system include files and a few other things. * * Copyright (c) 1994-1996 Sun Microsystems, Inc. + * Copyright (c) 1998 by Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacPort.h,v 1.2 1998/09/14 18:23:38 stanton Exp $ + * RCS: @(#) $Id: tkMacPort.h,v 1.3 1998/09/30 19:01:21 rjohnson Exp $ */ #ifndef _TKMACPORT diff --git a/mac/tkMacProlog.c b/mac/tkMacProlog.c deleted file mode 100644 index c996f21..0000000 --- a/mac/tkMacProlog.c +++ /dev/null @@ -1,61 +0,0 @@ -/* - * tkMacProlog.c -- - * - * Implements a method on the Macintosh to get the prolog - * from the resource fork of our application (or the shared - * library). - * - * Copyright (c) 1996-1997 Sun Microsystems, Inc. - * - * See the file "license.terms" for information on usage and redistribution - * of this file, and for a DISCLAIMER OF ALL WARRANTIES. - * - * RCS: @(#) $Id: tkMacProlog.c,v 1.2 1998/09/14 18:23:38 stanton Exp $ - */ - -#include "tkInt.h" -#include "tclMacInt.h" -#include <Resources.h> - -/* - *-------------------------------------------------------------- - * - * TkGetNativeProlog -- - * - * Locate and load the postscript prolog from the resource - * fork of the application. If it can't be found then we - * will try looking for the file in the system folder. - * - * Results: - * A standard Tcl Result. If everything is OK the prolog - * will be located in the result string of the interpreter. - * - * Side effects: - * None. - * - *-------------------------------------------------------------- - */ - -int -TkGetNativeProlog( - Tcl_Interp *interp) /* Places the prolog in the result. */ -{ - Handle resource; - char *stringPtr; - int releaseIt; - - - resource = Tcl_MacFindResource(interp, 'TEXT', "prolog", -1, - NULL, &releaseIt); - - if (resource != NULL) { - stringPtr = Tcl_MacConvertTextResource(resource); - Tcl_SetResult(interp, stringPtr, TCL_DYNAMIC); - if (releaseIt) { - ReleaseResource(resource); - } - return TCL_OK; - } else { - return TkGetProlog(interp); - } -} |