blob: fc4347a6e829a019feb202d0e17fb62aa152ca15 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
|
