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.