diff options
author | rjohnson <rjohnson> | 1998-09-30 19:01:19 (GMT) |
---|---|---|
committer | rjohnson <rjohnson> | 1998-09-30 19:01:19 (GMT) |
commit | 482d5ce35c802162132e4eee4a59ff453f45f531 (patch) | |
tree | e8f9ce0fdf1594b3d40b87fa21119fb159b1e874 /mac/tkMacProlog.c | |
parent | 068cb6c58c21179128dd33d86208e199e83e4d64 (diff) | |
download | tk-482d5ce35c802162132e4eee4a59ff453f45f531.zip tk-482d5ce35c802162132e4eee4a59ff453f45f531.tar.gz tk-482d5ce35c802162132e4eee4a59ff453f45f531.tar.bz2 |
Removed old/unused function declarations
removed unused file on Mac implementation
made bell cmd an obj cmd - improved it's test suite
Diffstat (limited to 'mac/tkMacProlog.c')
-rw-r--r-- | mac/tkMacProlog.c | 61 |
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); - } -} |