[PD-cvs] SF.net SVN: pure-data: [9736] branches/pd-extended/v0-40/pd/src/u_main.tk

eighthave at users.sourceforge.net eighthave at users.sourceforge.net
Mon Apr 28 18:53:24 CEST 2008


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.




More information about the Pd-cvs mailing list