diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-04-19 05:04:56 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-04-19 05:04:56 +0000 |
commit | 2980784b0084b1bfa265755530114f6d57abfccc (patch) | |
tree | 557f6cb190df7a41e2b123f961c4df1929589c29 /packages/darwin_app/AppMain.tcl | |
parent | 213852915e08d6435b451c06045d0c6f5f611467 (diff) |
builds into a prebuilt Pd.app, but I still don't have the build working with Tcl 8.4.9; removed some obsolete cruft from various other packaging attempts
svn path=/trunk/; revision=2786
Diffstat (limited to 'packages/darwin_app/AppMain.tcl')
-rw-r--r-- | packages/darwin_app/AppMain.tcl | 91 |
1 files changed, 0 insertions, 91 deletions
diff --git a/packages/darwin_app/AppMain.tcl b/packages/darwin_app/AppMain.tcl deleted file mode 100644 index b4bbac17..00000000 --- a/packages/darwin_app/AppMain.tcl +++ /dev/null @@ -1,91 +0,0 @@ - -proc log {message} { - exec sh -c "/bin/echo $message" >/dev/stderr -} - -proc alert {message} { - tk_messageBox -message $message -type ok -icon question -} - -proc default_keybindings {} { - return { exit CMD-q } -} - -proc checkPort { port } { - if { - [catch {set result [exec sh -c "/usr/sbin/netstat -an |grep $port"] } errn] } { - # the command returns no result, so the port is not used - return true - } else { - return false - } -} - -proc waitForPort { port } { - for {set x 0} {$x<30} {incr x} { - after 100 - if {![checkPort $port]} { - return true - } - } - return false -} - - - -proc loadpdtcl { } { - global pd_guidir - # wait for pd to start - if {[waitForPort 5400]} { - if { - [catch {load $pd_guidir/bin/pdtcl } errmsg] } { - alert "can't connect to pd : $errmsg" - exit(1) - } - } else { - alert "Couldn't start Pd" - } -} - - - -##### startup ################################################################## - -global pd_guidir -global pd_port - -# get the path to the Wish Shell so a relative path can be -# used to launch Pd -regsub -- "Pd" [info nameofexecutable] "" wish_path -puts "$wish_path/../Resources/lib/pd/bin/pd.tk" - -# set paths -set pd_guidir [file join [file dirname [file dirname [info script]]] lib pd] -set pd_exec_path [file join [file dirname [file dirname [info script]]] bin] - -# launch pd -a dummy guicmd prevents starting the wish shell -if {[checkPort 5400]} { - exec sh -c "cd $pd_exec_path;./pd -guicmd /bin/echo" >&/dev/stderr & -} else { - alert "Can't start pd because the port 5400 is in use" - exit(1) -} - - -# open gui -source [file join $pd_guidir bin pd.tk] - -################################################################################ - - - -# depends on pd.tk -# 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 { - pd [concat pd open [pdtk_enquote [file tail $file]] \ - [pdtk_enquote [file dirname $file]] \;] - menu_doc_open [file dirname $file] [file tail $file] - } -} |