From 22a829cb1907c79bfe68ad91314a1dddbf1beeb3 Mon Sep 17 00:00:00 2001 From: Miller Puckette Date: Tue, 1 Sep 2009 18:22:23 +0000 Subject: merge in HC's new tcl code and start taking patches svn path=/trunk/; revision=12166 --- pd/tcl/AppMain.tcl | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'pd/tcl/AppMain.tcl') diff --git a/pd/tcl/AppMain.tcl b/pd/tcl/AppMain.tcl index 26adc832..b170c6f5 100644 --- a/pd/tcl/AppMain.tcl +++ b/pd/tcl/AppMain.tcl @@ -7,8 +7,7 @@ puts --------------------------AppMain.tcl----------------------------------- catch {console show} -# FIXME apple_events must require a newer tcl than 8.4? -# package require apple_events +package require apple_events puts "AppMain.tcl" puts "argv0: $argv0" @@ -21,7 +20,7 @@ if {[string first "-psn" [lindex $argv 0]] == 0} { set argc [expr $argc - 1] } -# launch pd.tk here -if [catch {source [file join [file dirname [info script]] ../tcl/pd.tcl]}] { +# launch pd-gui.tcl here +if [catch {source [file join [file dirname [info script]] pd-gui.tcl]}] { puts stderr $errorInfo } -- cgit v1.2.1