blob: 26adc832ecdc43f858479a575d15c5b357fd3fb0 (
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
|
# This file is for the Wish.app on Mac OS X. It is only used when a Wish.app
# is loading embedded pd code on Mac OS X. It is completely unused on any
# other configuration, like when 'pd' launches Wish.app or when 'pd' is using
# an X11 wish on Mac OS X. GNU/Linux and Windows will never use this file.
puts --------------------------AppMain.tcl-----------------------------------
catch {console show}
# FIXME apple_events must require a newer tcl than 8.4?
# package require apple_events
puts "AppMain.tcl"
puts "argv0: $argv0"
puts "executable: [info nameofexecutable]"
puts "argc: $argc argv: $argv"
# TODO is there anything useful to do with the psn (Process Serial Number)?
if {[string first "-psn" [lindex $argv 0]] == 0} {
set argv [lrange $argv 1 end]
set argc [expr $argc - 1]
}
# launch pd.tk here
if [catch {source [file join [file dirname [info script]] ../tcl/pd.tcl]}] {
puts stderr $errorInfo
}
|
