1 files changed, 0 insertions, 61 deletions
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);
-    }
-}