[PD-cvs] SF.net SVN: pure-data:[10608] branches/pd-devel/0.41.4/src/pd_menucommands. tcl

[eighthave at users.sourceforge.net]

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

Log Message:
-----------
allowed the open panel to open multiple files at the same time

Modified Paths:
--------------
    branches/pd-devel/0.41.4/src/pd_menucommands.tcl

Modified: branches/pd-devel/0.41.4/src/pd_menucommands.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2009-01-23 22:24:42 UTC (rev 10607)
+++ branches/pd-devel/0.41.4/src/pd_menucommands.tcl	2009-01-24 03:21:54 UTC (rev 10608)
@@ -24,11 +24,15 @@
 }
 
 proc ::pd_menucommands::menu_open {} {
-	set filename [tk_getOpenFile -defaultextension .pd \
-					  -filetypes $::filetypes \
-					  -initialdir $::pd_opendir]
-	if {$filename ne ""} {
-		open_file $filename
+	set files [tk_getOpenFile -defaultextension .pd \
+					   -multiple true \
+					   -filetypes $::filetypes \
+					   -initialdir $::pd_opendir]
+	if {$files ne ""} {
+		foreach filename $files { 
+			puts "open_file $filename"
+			open_file $filename
+		}
 	}
 }
 


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