Tk Source Code

Artifact 583835781ba3990a9342ab82f9f80e1cd7450fc8:

• File macosx/tkMacOSXAETE.r — part of check-in [9e68002e] at 2003-02-25 18:24:31 on branch trunk — Added the 'aete' resource defining the doscript event, and adding it to the Wish target. (user: wolfsuit size: 1522)

/*
 * tclMacAETE.r --
 *
 *	This file creates the Apple Event Terminology resources 
 *	for use Tcl and Tk.  It is not used in the Simple Tcl shell
 *      since SIOUX does not support AppleEvents.  An example of its
 *      use in Tcl is the TclBGOnly project.  And it is used in all the
 *      Tk Shells.
 *
 * Copyright (c) 1997 Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tkMacOSXAETE.r,v 1.1 2003/02/25 18:24:31 wolfsuit Exp $
 */

#define SystemSevenOrLater 1

#include <Carbon.r>

/*
 * The following resources defines the Apple Events that Tk can be
 * sent from Apple Script.
 */

resource 'aete' (0, "Wish Suite") {
    0x01, 0x00, english, roman,
    {
	"Required Suite", 
	"Events that every application should support", 
	'reqd', 1, 1,
	{},
	{},
	{},
	{},

	"Wish Suite", "Events for the Wish application", 'WIsH', 1, 1,
	{
	    "do script", "Execute a Tcl script", 'misc', kAEDoScript,
	    'TEXT', "Result", replyOptional, singleItem,
	    notEnumerated, reserved, reserved, reserved, reserved,
	    reserved, reserved, reserved, reserved, reserved,
	    reserved, reserved, reserved, reserved, 
	    'TEXT', "Script to execute", directParamRequired,
	    singleItem, notEnumerated, changesState, reserved,
	    reserved, reserved, reserved, reserved, reserved,
	    reserved, reserved, reserved, reserved, reserved,
	    reserved, 
	    {},
	},
	{},
	{},
	{},
    }
};