lms-video/tcl/AppMain.tcl
Santi Noreña e85d191b46 - Reestructuración de ficheros y directorios general
- merge v0.01 --> Añadido fileselector
- Añadidas fuentes de Gem y Pure Data
- pix2jpg incluído en Gem. Archivos de construcción de Gem modificados.
- Añadido fichero ompiling.txt con instrucciones de compilación
2013-02-04 18:00:17 +01:00

17 lines
662 B
Tcl

# 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.
package require apple_events
# 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-gui.tcl here
if [catch {source [file join [file dirname [info script]] pd-gui.tcl]}] {
puts stderr $errorInfo
}