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