* carbon/ (new directory): copy of current state of 'macosx'

	source directory, to preserve legacy TkAqua implementation based on
	Carbon API (with support for Mac OS X releases older than 10.5).

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,
+	    {},
+	},
+	{},
+	{},
+	{},
+    }
+};