[PD-cvs] SF.net SVN: pure-data:[10613] branches/pd-extended/0.41/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

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.