|
sl@0
|
1 |
/*
|
|
sl@0
|
2 |
* tclMacAETE.r --
|
|
sl@0
|
3 |
*
|
|
sl@0
|
4 |
* This file creates the Apple Event Terminology resources
|
|
sl@0
|
5 |
* for use Tcl and Tk. It is not used in the Simple Tcl shell
|
|
sl@0
|
6 |
* since SIOUX does not support AppleEvents. An example of its
|
|
sl@0
|
7 |
* use in Tcl is the TclBGOnly project. And it is used in all the
|
|
sl@0
|
8 |
* Tk Shells.
|
|
sl@0
|
9 |
*
|
|
sl@0
|
10 |
* Copyright (c) 1997 Sun Microsystems, Inc.
|
|
sl@0
|
11 |
*
|
|
sl@0
|
12 |
* See the file "license.terms" for information on usage and redistribution
|
|
sl@0
|
13 |
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
|
sl@0
|
14 |
*
|
|
sl@0
|
15 |
* RCS: @(#) $Id: tclMacAETE.r,v 1.2 1998/09/14 18:40:04 stanton Exp $
|
|
sl@0
|
16 |
*/
|
|
sl@0
|
17 |
|
|
sl@0
|
18 |
#define SystemSevenOrLater 1
|
|
sl@0
|
19 |
|
|
sl@0
|
20 |
#include <Types.r>
|
|
sl@0
|
21 |
#include <SysTypes.r>
|
|
sl@0
|
22 |
#include <AEUserTermTypes.r>
|
|
sl@0
|
23 |
|
|
sl@0
|
24 |
/*
|
|
sl@0
|
25 |
* The following resources defines the Apple Events that Tk can be
|
|
sl@0
|
26 |
* sent from Apple Script.
|
|
sl@0
|
27 |
*/
|
|
sl@0
|
28 |
|
|
sl@0
|
29 |
resource 'aete' (0, "Wish Suite") {
|
|
sl@0
|
30 |
0x01, 0x00, english, roman,
|
|
sl@0
|
31 |
{
|
|
sl@0
|
32 |
"Required Suite",
|
|
sl@0
|
33 |
"Events that every application should support",
|
|
sl@0
|
34 |
'reqd', 1, 1,
|
|
sl@0
|
35 |
{},
|
|
sl@0
|
36 |
{},
|
|
sl@0
|
37 |
{},
|
|
sl@0
|
38 |
{},
|
|
sl@0
|
39 |
|
|
sl@0
|
40 |
"Wish Suite", "Events for the Wish application", 'WIsH', 1, 1,
|
|
sl@0
|
41 |
{
|
|
sl@0
|
42 |
"do script", "Execute a Tcl script", 'misc', 'dosc',
|
|
sl@0
|
43 |
'TEXT', "Result", replyOptional, singleItem,
|
|
sl@0
|
44 |
notEnumerated, reserved, reserved, reserved, reserved,
|
|
sl@0
|
45 |
reserved, reserved, reserved, reserved, reserved,
|
|
sl@0
|
46 |
reserved, reserved, reserved, reserved,
|
|
sl@0
|
47 |
'TEXT', "Script to execute", directParamRequired,
|
|
sl@0
|
48 |
singleItem, notEnumerated, changesState, reserved,
|
|
sl@0
|
49 |
reserved, reserved, reserved, reserved, reserved,
|
|
sl@0
|
50 |
reserved, reserved, reserved, reserved, reserved,
|
|
sl@0
|
51 |
reserved,
|
|
sl@0
|
52 |
{},
|
|
sl@0
|
53 |
},
|
|
sl@0
|
54 |
{},
|
|
sl@0
|
55 |
{},
|
|
sl@0
|
56 |
{},
|
|
sl@0
|
57 |
}
|
|
sl@0
|
58 |
};
|