diff options
Diffstat (limited to 'carbon/tkMacOSXAETE.r')
| -rw-r--r-- | carbon/tkMacOSXAETE.r | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/carbon/tkMacOSXAETE.r b/carbon/tkMacOSXAETE.r new file mode 100644 index 0000000..9f57d47 --- /dev/null +++ b/carbon/tkMacOSXAETE.r @@ -0,0 +1,53 @@ +/* + * tclMacAETE.r -- + * + * This file creates the Apple Event Terminology resources + * for use by Wish.app. + * + * 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 2009/06/26 01:42:46 das 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, + {}, + }, + {}, + {}, + {}, + } +}; |