1.1 --- /dev/null	Thu Jan 01 00:00:00 1970 +0000
     1.2 +++ b/os/persistentdata/persistentstorage/sqlite3api/TEST/TCL/tcldistribution/mac/tclMacAETE.r	Fri Jun 15 03:10:57 2012 +0200
     1.3 @@ -0,0 +1,58 @@
     1.4 +/*
     1.5 + * tclMacAETE.r --
     1.6 + *
     1.7 + *	This file creates the Apple Event Terminology resources 
     1.8 + *	for use Tcl and Tk.  It is not used in the Simple Tcl shell
     1.9 + *      since SIOUX does not support AppleEvents.  An example of its
    1.10 + *      use in Tcl is the TclBGOnly project.  And it is used in all the
    1.11 + *      Tk Shells.
    1.12 + *
    1.13 + * Copyright (c) 1997 Sun Microsystems, Inc.
    1.14 + *
    1.15 + * See the file "license.terms" for information on usage and redistribution
    1.16 + * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
    1.17 + *
    1.18 + * RCS: @(#) $Id: tclMacAETE.r,v 1.2 1998/09/14 18:40:04 stanton Exp $
    1.19 + */
    1.20 +
    1.21 +#define SystemSevenOrLater 1
    1.22 +
    1.23 +#include <Types.r>
    1.24 +#include <SysTypes.r>
    1.25 +#include <AEUserTermTypes.r>
    1.26 +
    1.27 +/*
    1.28 + * The following resources defines the Apple Events that Tk can be
    1.29 + * sent from Apple Script.
    1.30 + */
    1.31 +
    1.32 +resource 'aete' (0, "Wish Suite") {
    1.33 +    0x01, 0x00, english, roman,
    1.34 +    {
    1.35 +	"Required Suite", 
    1.36 +	"Events that every application should support", 
    1.37 +	'reqd', 1, 1,
    1.38 +	{},
    1.39 +	{},
    1.40 +	{},
    1.41 +	{},
    1.42 +
    1.43 +	"Wish Suite", "Events for the Wish application", 'WIsH', 1, 1,
    1.44 +	{
    1.45 +	    "do script", "Execute a Tcl script", 'misc', 'dosc',
    1.46 +	    'TEXT', "Result", replyOptional, singleItem,
    1.47 +	    notEnumerated, reserved, reserved, reserved, reserved,
    1.48 +	    reserved, reserved, reserved, reserved, reserved,
    1.49 +	    reserved, reserved, reserved, reserved, 
    1.50 +	    'TEXT', "Script to execute", directParamRequired,
    1.51 +	    singleItem, notEnumerated, changesState, reserved,
    1.52 +	    reserved, reserved, reserved, reserved, reserved,
    1.53 +	    reserved, reserved, reserved, reserved, reserved,
    1.54 +	    reserved, 
    1.55 +	    {},
    1.56 +	},
    1.57 +	{},
    1.58 +	{},
    1.59 +	{},
    1.60 +    }
    1.61 +};