e85d191b46
- 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
111 lines
3.2 KiB
Tcl
111 lines
3.2 KiB
Tcl
|
|
package provide wheredoesthisgo 0.1
|
|
|
|
# a place to temporarily store things until they find a home or go away
|
|
|
|
proc open_file {filename} {
|
|
set directory [file normalize [file dirname $filename]]
|
|
set basename [file tail $filename]
|
|
if {
|
|
[file exists $filename]
|
|
&& [regexp -nocase -- "\.(pd|pat|mxt)$" $filename]
|
|
} then {
|
|
::pdtk_canvas::started_loading_file [format "%s/%s" $basename $filename]
|
|
pdsend "pd open [enquote_path $basename] [enquote_path $directory]"
|
|
# now this is done in pd_guiprefs
|
|
::pd_guiprefs::update_recentfiles $filename
|
|
} {
|
|
::pdwindow::post [format [_ "Ignoring '%s': doesn't look like a Pd-file"] $filename]
|
|
}
|
|
}
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# procs for panels (openpanel, savepanel)
|
|
|
|
proc pdtk_openpanel {target localdir} {
|
|
if {! [file isdirectory $localdir]} {
|
|
if { ! [file isdirectory $::fileopendir]} {
|
|
set ::fileopendir $::env(HOME)
|
|
}
|
|
set localdir $::fileopendir
|
|
}
|
|
set filename [tk_getOpenFile -initialdir $localdir]
|
|
if {$filename ne ""} {
|
|
set ::fileopendir [file dirname $filename]
|
|
pdsend "$target callback [enquote_path $filename]"
|
|
}
|
|
}
|
|
|
|
proc pdtk_savepanel {target localdir} {
|
|
if {! [file isdirectory $localdir]} {
|
|
if { ! [file isdirectory $::filenewdir]} {
|
|
set ::filenewdir $::env(HOME)
|
|
}
|
|
set localdir $::filenewdir
|
|
}
|
|
set filename [tk_getSaveFile -initialdir $localdir]
|
|
if {$filename ne ""} {
|
|
pdsend "$target callback [enquote_path $filename]"
|
|
}
|
|
}
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# window info (name, path, parents, children, etc.)
|
|
|
|
proc lookup_windowname {mytoplevel} {
|
|
set window [array get ::windowname $mytoplevel]
|
|
if { $window ne ""} {
|
|
return [lindex $window 1]
|
|
} else {
|
|
return ERROR
|
|
}
|
|
}
|
|
|
|
proc tkcanvas_name {mytoplevel} {
|
|
return "$mytoplevel.c"
|
|
}
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# quoting functions
|
|
|
|
# enquote a string for find, path, and startup dialog panels, to be decoded by
|
|
# sys_decodedialog()
|
|
proc pdtk_encodedialog {x} {
|
|
concat +[string map {" " "+_" "$" "+d" ";" "+s" "," "+c" "+" "++"} $x]
|
|
}
|
|
|
|
# encode a list with pdtk_encodedialog
|
|
proc pdtk_encode { listdata } {
|
|
set outlist {}
|
|
foreach this_path $listdata {
|
|
if {0==[string match "" $this_path]} {
|
|
lappend outlist [pdtk_encodedialog $this_path]
|
|
}
|
|
}
|
|
return $outlist
|
|
}
|
|
|
|
# TODO enquote a filename to send it to pd, " isn't handled properly tho...
|
|
proc enquote_path {message} {
|
|
string map {"," "\\," ";" "\\;" " " "\\ "} $message
|
|
}
|
|
|
|
#enquote a string to send it to Pd. Blow off semi and comma; alias spaces
|
|
#we also blow off "{", "}", "\" because they'll just cause bad trouble later.
|
|
proc unspace_text {x} {
|
|
set y [string map {" " "_" ";" "" "," "" "{" "" "}" "" "\\" ""} $x]
|
|
if {$y eq ""} {set y "empty"}
|
|
concat $y
|
|
}
|
|
|
|
# ------------------------------------------------------------------------------
|
|
# watchdog functions
|
|
|
|
proc pdtk_watchdog {} {
|
|
pdsend "pd watchdog"
|
|
after 2000 {pdtk_watchdog}
|
|
}
|
|
|
|
proc pdtk_ping {} {
|
|
pdsend "pd ping"
|
|
}
|