sl@0: /*
sl@0:  * tclMacAETE.r --
sl@0:  *
sl@0:  *	This file creates the Apple Event Terminology resources 
sl@0:  *	for use Tcl and Tk.  It is not used in the Simple Tcl shell
sl@0:  *      since SIOUX does not support AppleEvents.  An example of its
sl@0:  *      use in Tcl is the TclBGOnly project.  And it is used in all the
sl@0:  *      Tk Shells.
sl@0:  *
sl@0:  * Copyright (c) 1997 Sun Microsystems, Inc.
sl@0:  *
sl@0:  * See the file "license.terms" for information on usage and redistribution
sl@0:  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
sl@0:  *
sl@0:  * RCS: @(#) $Id: tclMacAETE.r,v 1.2 1998/09/14 18:40:04 stanton Exp $
sl@0:  */
sl@0: 
sl@0: #define SystemSevenOrLater 1
sl@0: 
sl@0: #include <Types.r>
sl@0: #include <SysTypes.r>
sl@0: #include <AEUserTermTypes.r>
sl@0: 
sl@0: /*
sl@0:  * The following resources defines the Apple Events that Tk can be
sl@0:  * sent from Apple Script.
sl@0:  */
sl@0: 
sl@0: resource 'aete' (0, "Wish Suite") {
sl@0:     0x01, 0x00, english, roman,
sl@0:     {
sl@0: 	"Required Suite", 
sl@0: 	"Events that every application should support", 
sl@0: 	'reqd', 1, 1,
sl@0: 	{},
sl@0: 	{},
sl@0: 	{},
sl@0: 	{},
sl@0: 
sl@0: 	"Wish Suite", "Events for the Wish application", 'WIsH', 1, 1,
sl@0: 	{
sl@0: 	    "do script", "Execute a Tcl script", 'misc', 'dosc',
sl@0: 	    'TEXT', "Result", replyOptional, singleItem,
sl@0: 	    notEnumerated, reserved, reserved, reserved, reserved,
sl@0: 	    reserved, reserved, reserved, reserved, reserved,
sl@0: 	    reserved, reserved, reserved, reserved, 
sl@0: 	    'TEXT', "Script to execute", directParamRequired,
sl@0: 	    singleItem, notEnumerated, changesState, reserved,
sl@0: 	    reserved, reserved, reserved, reserved, reserved,
sl@0: 	    reserved, reserved, reserved, reserved, reserved,
sl@0: 	    reserved, 
sl@0: 	    {},
sl@0: 	},
sl@0: 	{},
sl@0: 	{},
sl@0: 	{},
sl@0:     }
sl@0: };