Removed old/unused function declarations

removed unused file on Mac implementation
made bell cmd an obj cmd - improved it's test suite

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);
-    }
-}