[PD-cvs] SF.net SVN: pure-data:[10613] branches/pd-extended/0.41/pd/src/u_main.tk
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Sat Jan 24 06:26:58 CET 2009
Revision: 10613
http://pure-data.svn.sourceforge.net/pure-data/?rev=10613&view=rev
Author: eighthave
Date: 2009-01-24 05:26:58 +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-extended/0.41/pd/src/u_main.tk
Modified: branches/pd-extended/0.41/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-24 05:26:47 UTC (rev 10612)
+++ branches/pd-extended/0.41/pd/src/u_main.tk 2009-01-24 05:26:58 UTC (rev 10613)
@@ -521,7 +521,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]} {
pd "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.
More information about the Pd-cvs
mailing list