[PD-cvs] SF.net SVN: pure-data:[10612] branches/pd-devel/0.41.4/src/wheredoesthisgo. tcl

[eighthave at users.sourceforge.net]

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.