summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
Diffstat (limited to 'mac')
-rw-r--r--mac/tkMacInt.h7
-rw-r--r--mac/tkMacPort.h3
-rw-r--r--mac/tkMacProlog.c61
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);
- }
-}