Revision: 9736 http://pure-data.svn.sourceforge.net/pure-data/?rev=9736&view=rev Author: eighthave Date: 2008-04-28 09:53:23 -0700 (Mon, 28 Apr 2008)
Log Message: ----------- made file type definitions set per platform so that the formatting matches the native style
Modified Paths: -------------- branches/pd-extended/v0-40/pd/src/u_main.tk
Modified: branches/pd-extended/v0-40/pd/src/u_main.tk =================================================================== --- branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 15:28:47 UTC (rev 9735) +++ branches/pd-extended/v0-40/pd/src/u_main.tk 2008-04-28 16:53:23 UTC (rev 9736) @@ -25,6 +25,11 @@ set cursor_editmode_nothing "hand2" set cursor_editmode_connect "circle" set cursor_editmode_disconnect "X_cursor" + # set file types that open/save recognize + set filetypes { + {{Pd Files} {.pd} } + {{Max Text Files} {.pat} } + } } elseif { $tcl_platform(os) == "Darwin" } { set pd_nt 2 # fonts @@ -37,6 +42,11 @@ set cursor_editmode_nothing "hand2" set cursor_editmode_connect "circle" set cursor_editmode_disconnect "X_cursor" + # set file types that open/save recognize + set filetypes { + {{Pd Files} {.pd} } + {{Max Text Files (.pat)} {.pat} } + } } else { set pd_nt 0 # fonts @@ -49,6 +59,11 @@ set cursor_editmode_nothing "hand2" set cursor_editmode_connect "circle" set cursor_editmode_disconnect "X_cursor" + # set file types that open/save recognize + set filetypes { + {{pd files} {.pd} } + {{max text files} {.pat} } + } }
# start Pd-extended font hacks ----------------------------- @@ -79,13 +94,6 @@ } # end hidden files/folder hack ------------------
-# set file types that open/save recognize -set filetypes { - {{Pd Files (.pd)} {.pd} } - {{Max Text Files (.pat)} {.pat} } - {{All Files} * } -} - # Tearoff is set to true by default: set pd_tearoff 1
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.