first working version of Pd.app, released as a test release

svn path=/trunk/; revision=1955

1 files changed, 30 insertions, 0 deletions

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