summaryrefslogtreecommitdiffstats
path: root/carbon/tkMacOSXAETE.r
diff options
context:
space:
mode:
Diffstat (limited to 'carbon/tkMacOSXAETE.r')
-rw-r--r--carbon/tkMacOSXAETE.r53
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,
+ {},
+ },
+ {},
+ {},
+ {},
+ }
+};