[PD-cvs] SF.net SVN: pure-data:[10595] branches/pd-extended/0.41/pd/src/u_main.tk

[eighthave at users.sourceforge.net]

Revision: 10595
          http://pure-data.svn.sourceforge.net/pure-data/?rev=10595&view=rev
Author:   eighthave
Date:     2009-01-22 01:48:31 +0000 (Thu, 22 Jan 2009)

Log Message:
-----------
enabled the File->Open panel to open multiple files at once

Modified Paths:
--------------
    branches/pd-extended/0.41/pd/src/u_main.tk

Modified: branches/pd-extended/0.41/pd/src/u_main.tk
===================================================================
--- branches/pd-extended/0.41/pd/src/u_main.tk	2009-01-22 01:22:52 UTC (rev 10594)
+++ branches/pd-extended/0.41/pd/src/u_main.tk	2009-01-22 01:48:31 UTC (rev 10595)
@@ -503,9 +503,14 @@
 
 proc menu_open {} {
     global pd_opendir filetypes
-    set filename [tk_getOpenFile -defaultextension .pd \
+    set files [tk_getOpenFile -defaultextension .pd \
+					  -multiple true \
                       -filetypes $filetypes -initialdir $pd_opendir]
-    if {$filename != ""} {open_file $filename}
+    if {$files != ""} {
+		foreach filename $files {
+			open_file $filename
+		}
+	}
 }
 
 proc open_file {filename} {


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.