[PD-cvs] SF.net SVN: pure-data:[10608] branches/pd-devel/0.41.4/src/pd_menucommands. tcl
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Sat Jan 24 04:21:54 CET 2009
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.
More information about the Pd-cvs
mailing list