From 9fdb1b2ae0af10f2774c16ceba2ff7644be48c9f Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Sat, 24 Jan 2009 05:21:46 +0000 Subject: fixed .pat and .mxt loading, it turns out that open_file was just testing for .pd as a valid file svn path=/trunk/; revision=10611 --- .../patches/add_mxt_file_extension_support-0.41.4.patch | 13 +++++++++++++ 1 file changed, 13 insertions(+) (limited to 'packages/patches') diff --git a/packages/patches/add_mxt_file_extension_support-0.41.4.patch b/packages/patches/add_mxt_file_extension_support-0.41.4.patch index 4fb7c90a..17ae830e 100644 --- a/packages/patches/add_mxt_file_extension_support-0.41.4.patch +++ b/packages/patches/add_mxt_file_extension_support-0.41.4.patch @@ -70,3 +70,16 @@ Index: g_readwrite.c 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] ;" + } + } -- cgit v1.2.1