1/*
2 * tclMacAETE.r --
3 *
4 *	This file creates the Apple Event Terminology resources
5 *	for use by Wish.app.
6 *
7 * Copyright (c) 1997 Sun Microsystems, Inc.
8 *
9 * See the file "license.terms" for information on usage and redistribution
10 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
11 *
12 * RCS: @(#) $Id: tkMacOSXAETE.r,v 1.1.2.1 2007/04/29 02:26:47 das Exp $
13 */
14
15#define SystemSevenOrLater 1
16
17#include <Carbon.r>
18
19/*
20 * The following resources defines the Apple Events that Tk can be
21 * sent from Apple Script.
22 */
23
24resource 'aete' (0, "Wish Suite") {
25    0x01, 0x00, english, roman,
26    {
27	"Required Suite",
28	"Events that every application should support",
29	'reqd', 1, 1,
30	{},
31	{},
32	{},
33	{},
34
35	"Wish Suite", "Events for the Wish application", 'WIsH', 1, 1,
36	{
37	    "do script", "Execute a Tcl script", 'misc', kAEDoScript,
38	    'TEXT', "Result", replyOptional, singleItem,
39	    notEnumerated, reserved, reserved, reserved, reserved,
40	    reserved, reserved, reserved, reserved, reserved,
41	    reserved, reserved, reserved, reserved,
42	    'TEXT', "Script to execute", directParamRequired,
43	    singleItem, notEnumerated, changesState, reserved,
44	    reserved, reserved, reserved, reserved, reserved,
45	    reserved, reserved, reserved, reserved, reserved,
46	    reserved,
47	    {},
48	},
49	{},
50	{},
51	{},
52    }
53};
54