[PD-cvs] SF.net SVN: pure-data:[10611] trunk/packages/patches/ add_mxt_file_extension_support-0.41.4.patch

eighthave at users.sourceforge.net eighthave at users.sourceforge.net
Sat Jan 24 06:21:46 CET 2009


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

Log Message:
-----------
fixed .pat and .mxt loading, it turns out that open_file was just testing for .pd as a valid file

Modified Paths:
--------------
    trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch

Modified: trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch
===================================================================
--- trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch	2009-01-24 05:13:33 UTC (rev 10610)
+++ trunk/packages/patches/add_mxt_file_extension_support-0.41.4.patch	2009-01-24 05:21:46 UTC (rev 10611)
@@ -70,3 +70,16 @@
              canvas_savetofile(x2, x2->gl_name, canvas_getdir(x2));
      else canvas_menusaveas(x2);
  }
+Index: u_main.tk
+===================================================================
+--- u_main.tk	(revision 10609)
++++ u_main.tk	(working copy)
+@@ -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