From 9a1d1eca008a2c9115a20ad2351b354d0a1fecfc Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 14 Aug 2004 15:22:18 +0000
Subject: first working version of Pd.app, released as a test release

svn path=/trunk/; revision=1955
---
 packages/darwin_app/AppMain.tcl | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100644 packages/darwin_app/AppMain.tcl

(limited to 'packages/darwin_app/AppMain.tcl')

diff --git a/packages/darwin_app/AppMain.tcl b/packages/darwin_app/AppMain.tcl
new file mode 100644
index 00000000..fc4347a6
--- /dev/null
+++ b/packages/darwin_app/AppMain.tcl
@@ -0,0 +1,30 @@
+# from http://aspn.activestate.com/ASPN/Mail/Message/tcl-mac/2115298
+
+# tk::mac::OpenDocument is called when docs are dropped 
+# on the Dock icon with the filenames put into the var args
+proc tk::mac::OpenDocument {args} {
+    foreach file $args {
+        puts $file
+    }
+}
+
+proc default_keybindings {} {
+	 return { exit CMD-q }
+}
+
+#console show
+
+# get the path to the Wish Shell so a relative path can be 
+# used to launch Pd
+regsub -- "Wish Shell" [info nameofexecutable] "" wish_path
+exec open $wish_path/../Resources/Pd.term
+
+puts "wish_path $wish_path"
+
+#if {[string first "-psn" [lindex $argv 0]] == 0} {
+#     set argv [lrange $argv 1 end]
+#}
+
+
+
+exit
-- 
cgit v1.2.1