1/*
2 * QuickTimeTcl.r --
3 *
4 *	This file creates resources used by the QuickTimeTcl package.
5 *
6 *  Copyright (c) 1998 Jim Ingham and Bruce O'Neel
7 *
8 * $Id: QuickTimeTcl.r,v 1.1.1.1 2003/04/04 16:24:54 matben Exp $
9 */
10
11#include <Types.r>
12#include <SysTypes.r>
13
14#define RESOURCE_INCLUDED
15#define RC_INVOKED
16#include "tcl.h"
17
18/*
19 * The folowing include and defines help construct
20 * the version string for Tcl.
21 */
22
23#define SCRIPT_MAJOR_VERSION 3		/* Major number */
24#define SCRIPT_MINOR_VERSION 1  	/* Minor number */
25#define SCRIPT_RELEASE_SERIAL  0	/* Really minor number! */
26#define RELEASE_LEVEL alpha		/* alpha, beta, or final */
27#define SCRIPT_VERSION "3.1"
28#define SCRIPT_PATCH_LEVEL "3.1"
29#define FINAL 0		/* Change to 1 if final version. */
30
31#if FINAL
32#   define MINOR_VERSION (SCRIPT_MINOR_VERSION * 16) + SCRIPT_RELEASE_SERIAL
33#else
34#   define MINOR_VERSION SCRIPT_MINOR_VERSION * 16
35#endif
36
37#define RELEASE_CODE 0x00
38
39resource 'vers' (1) {
40	SCRIPT_MAJOR_VERSION, MINOR_VERSION,
41	RELEASE_LEVEL, 0x00, verUS,
42	SCRIPT_PATCH_LEVEL,
43	SCRIPT_PATCH_LEVEL ",  � 1998 Bruce O'Neel, � 2000-2003 Mats Bengtsson"
44};
45
46resource 'vers' (2) {
47	SCRIPT_MAJOR_VERSION, MINOR_VERSION,
48	RELEASE_LEVEL, 0x00, verUS,
49	SCRIPT_PATCH_LEVEL,
50	"QuickTimeTcl " SCRIPT_PATCH_LEVEL " � 1998-2003"
51};
52
53/*
54 * The -16397 string will be displayed by Finder when a user
55 * tries to open the shared library. The string should
56 * give the user a little detail about the library's capabilities
57 * and enough information to install the library in the correct location.
58 * A similar string should be placed in all shared libraries.
59 */
60resource 'STR ' (-16397, purgeable) {
61	"QuickTimeTcl Library\n\n"
62	"This library provides the ability to run QuickTime "
63	" commands from Tcl/Tk programs.  To work properly, it "
64	"should be placed in the �Tool Command Language� folder "
65	"within the Extensions folder."
66};
67
68
69/*
70 * We now load the Tk library into the resource fork of the library.
71 */
72
73data 'TEXT' (4000, "pkgIndex", purgeable, preload) {
74	"# Tcl package index file, version 1.0\n"
75	"if {[info tclversion] != "TCL_VERSION"} return\n"
76	"package ifneeded QuickTimeTcl 3.1 [list load [file join $dir QuickTimeTcl"TCL_VERSION".shlb]]\n"
77};
78