|
sl@0
|
1 |
/*
|
|
sl@0
|
2 |
* tclMacApplication.r --
|
|
sl@0
|
3 |
*
|
|
sl@0
|
4 |
* This file creates resources for use Tcl Shell application.
|
|
sl@0
|
5 |
* It should be viewed as an example of how to create a new
|
|
sl@0
|
6 |
* Tcl application using the shared Tcl libraries.
|
|
sl@0
|
7 |
*
|
|
sl@0
|
8 |
* Copyright (c) 1996-1997 Sun Microsystems, Inc.
|
|
sl@0
|
9 |
*
|
|
sl@0
|
10 |
* See the file "license.terms" for information on usage and redistribution
|
|
sl@0
|
11 |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
sl@0
|
12 |
*
|
|
sl@0
|
13 |
* RCS: @(#) $Id: tclMacApplication.r,v 1.6 2002/09/12 17:33:20 das Exp $
|
|
sl@0
|
14 |
*/
|
|
sl@0
|
15 |
|
|
sl@0
|
16 |
#include <Types.r>
|
|
sl@0
|
17 |
#include <SysTypes.r>
|
|
sl@0
|
18 |
|
|
sl@0
|
19 |
/*
|
|
sl@0
|
20 |
* The folowing include and defines help construct
|
|
sl@0
|
21 |
* the version string for Tcl.
|
|
sl@0
|
22 |
*/
|
|
sl@0
|
23 |
|
|
sl@0
|
24 |
#define RC_INVOKED
|
|
sl@0
|
25 |
#include "tcl.h"
|
|
sl@0
|
26 |
|
|
sl@0
|
27 |
#if (TCL_RELEASE_LEVEL == 0)
|
|
sl@0
|
28 |
# define RELEASE_LEVEL alpha
|
|
sl@0
|
29 |
#elif (TCL_RELEASE_LEVEL == 1)
|
|
sl@0
|
30 |
# define RELEASE_LEVEL beta
|
|
sl@0
|
31 |
#elif (TCL_RELEASE_LEVEL == 2)
|
|
sl@0
|
32 |
# define RELEASE_LEVEL final
|
|
sl@0
|
33 |
#endif
|
|
sl@0
|
34 |
|
|
sl@0
|
35 |
#if (TCL_RELEASE_LEVEL == 2)
|
|
sl@0
|
36 |
# define MINOR_VERSION (TCL_MINOR_VERSION * 16) + TCL_RELEASE_SERIAL
|
|
sl@0
|
37 |
# define RELEASE_CODE 0x00
|
|
sl@0
|
38 |
#else
|
|
sl@0
|
39 |
# define MINOR_VERSION TCL_MINOR_VERSION * 16
|
|
sl@0
|
40 |
# define RELEASE_CODE TCL_RELEASE_SERIAL
|
|
sl@0
|
41 |
#endif
|
|
sl@0
|
42 |
|
|
sl@0
|
43 |
resource 'vers' (1) {
|
|
sl@0
|
44 |
TCL_MAJOR_VERSION, MINOR_VERSION,
|
|
sl@0
|
45 |
RELEASE_LEVEL, RELEASE_CODE, verUS,
|
|
sl@0
|
46 |
TCL_PATCH_LEVEL,
|
|
sl@0
|
47 |
TCL_PATCH_LEVEL ", by Ray Johnson & Jim Ingham" "\n" "© 2001 Tcl Core Team"
|
|
sl@0
|
48 |
};
|
|
sl@0
|
49 |
|
|
sl@0
|
50 |
resource 'vers' (2) {
|
|
sl@0
|
51 |
TCL_MAJOR_VERSION, MINOR_VERSION,
|
|
sl@0
|
52 |
RELEASE_LEVEL, RELEASE_CODE, verUS,
|
|
sl@0
|
53 |
TCL_PATCH_LEVEL,
|
|
sl@0
|
54 |
"Tcl Shell " TCL_PATCH_LEVEL " © 1993-2001"
|
|
sl@0
|
55 |
};
|
|
sl@0
|
56 |
|
|
sl@0
|
57 |
#define TCL_APP_CREATOR 'Tcl '
|
|
sl@0
|
58 |
|
|
sl@0
|
59 |
type TCL_APP_CREATOR as 'STR ';
|
|
sl@0
|
60 |
resource TCL_APP_CREATOR (0, purgeable) {
|
|
sl@0
|
61 |
"Tcl Shell " TCL_PATCH_LEVEL " © 1993-2001"
|
|
sl@0
|
62 |
};
|
|
sl@0
|
63 |
|
|
sl@0
|
64 |
/*
|
|
sl@0
|
65 |
* The 'kind' resource works with a 'BNDL' in Macintosh Easy Open
|
|
sl@0
|
66 |
* to affect the text the Finder displays in the "kind" column and
|
|
sl@0
|
67 |
* file info dialog. This information will be applied to all files
|
|
sl@0
|
68 |
* with the listed creator and type.
|
|
sl@0
|
69 |
*/
|
|
sl@0
|
70 |
|
|
sl@0
|
71 |
resource 'kind' (128, "Tcl kind", purgeable) {
|
|
sl@0
|
72 |
TCL_APP_CREATOR,
|
|
sl@0
|
73 |
0, /* region = USA */
|
|
sl@0
|
74 |
{
|
|
sl@0
|
75 |
'APPL', "Tcl Shell",
|
|
sl@0
|
76 |
}
|
|
sl@0
|
77 |
};
|
|
sl@0
|
78 |
|
|
sl@0
|
79 |
/*
|
|
sl@0
|
80 |
* The following resource is used when creating the 'env' variable in
|
|
sl@0
|
81 |
* the Macintosh environment. The creation mechanisim looks for the
|
|
sl@0
|
82 |
* 'STR#' resource named "Tcl Environment Variables" rather than a
|
|
sl@0
|
83 |
* specific resource number. (In other words, feel free to change the
|
|
sl@0
|
84 |
* resource id if it conflicts with your application.) Each string in
|
|
sl@0
|
85 |
* the resource must be of the form "KEYWORD=SOME STRING". See Tcl
|
|
sl@0
|
86 |
* documentation for futher information about the env variable.
|
|
sl@0
|
87 |
*
|
|
sl@0
|
88 |
* A good example of something you may want to set is: "TCL_LIBRARY=My
|
|
sl@0
|
89 |
* disk:etc."
|
|
sl@0
|
90 |
*/
|
|
sl@0
|
91 |
|
|
sl@0
|
92 |
resource 'STR#' (128, "Tcl Environment Variables") {
|
|
sl@0
|
93 |
{
|
|
sl@0
|
94 |
/*
|
|
sl@0
|
95 |
"SCHEDULE_NAME=Agent Controller Schedule",
|
|
sl@0
|
96 |
"SCHEDULE_PATH=Lozoya:System Folder:Tcl Lib:Tcl-Scheduler"
|
|
sl@0
|
97 |
*/
|
|
sl@0
|
98 |
};
|
|
sl@0
|
99 |
};
|
|
sl@0
|
100 |
|
|
sl@0
|
101 |
data 'alis' (1000, "Library Folder") {
|
|
sl@0
|
102 |
$"0000 0000 00BA 0002 0001 012F 0000 0000" /* ........../.... */
|
|
sl@0
|
103 |
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
|
|
sl@0
|
104 |
$"0000 0000 0000 985C FB00 4244 0000 0000" /* ......ς\.BD.... */
|
|
sl@0
|
105 |
$"0002 1328 5375 7070 6F72 7420 4C69 6272" /* ...(Support Libr */
|
|
sl@0
|
106 |
$"6172 6965 7329 0000 0000 0000 0000 0000" /* aries).......... */
|
|
sl@0
|
107 |
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
|
|
sl@0
|
108 |
$"0000 0000 0000 0000 0000 0000 0000 0000" /* ................ */
|
|
sl@0
|
109 |
$"0000 0076 8504 B617 A796 003D 0027 025B" /* ...vΦ..ίρ.=.'.[ */
|
|
sl@0
|
110 |
$"01E4 0001 0001 0000 0000 0000 0000 0000" /* ............... */
|
|
sl@0
|
111 |
$"0000 0000 0000 0000 0001 2F00 0002 0015" /* ........../..... */
|
|
sl@0
|
112 |
$"2F3A 2853 7570 706F 7274 204C 6962 7261" /* /:(Support Libra */
|
|
sl@0
|
113 |
$"7269 6573 2900 FFFF 0000" /* ries)... */
|
|
sl@0
|
114 |
};
|
|
sl@0
|
115 |
|