Revision: 10612 http://pure-data.svn.sourceforge.net/pure-data/?rev=10612&view=rev Author: eighthave Date: 2009-01-24 05:26:47 +0000 (Sat, 24 Jan 2009)

Log Message: ----------- fix open_file's broken loading, it only would load .pd files, not .Pd/.pD/.PD or the Max format .pat/.mxt

Modified Paths: -------------- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl

Modified: branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl =================================================================== --- branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:21:46 UTC (rev 10611) +++ branches/pd-devel/0.41.4/src/wheredoesthisgo.tcl 2009-01-24 05:26:47 UTC (rev 10612) @@ -25,7 +25,7 @@ set directory [string range $filename 0 [expr [string last / $filename] - 1]] set ::pd_opendir $directory set basename [string range $filename [expr [string last / $filename] + 1] end] - if {[string last .pd $filename] >= 0} { + if {[regexp -nocase -- ".(pd|pat|mxt)$" $filename]} { pdsend "pd open [pdtk_enquote $basename] [pdtk_enquote $directory] ;" } }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.