[PD-cvs] SF.net SVN: pure-data:[10595] branches/pd-extended/0.41/pd/src/u_main.tk
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Thu Jan 22 02:48:31 CET 2009
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.
More information about the Pd-cvs
mailing list