diff options
Diffstat (limited to 'packages/darwin_app/AppMain.tcl')
-rw-r--r-- | packages/darwin_app/AppMain.tcl | 30 |
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 |