[PD-cvs] SF.net SVN: pure-data:[10734] branches/pd-devel/0.41.4/src/apple_events.tcl
eighthave at users.sourceforge.net
eighthave at users.sourceforge.net
Wed Feb 4 07:24:04 CET 2009
Revision: 10734
http://pure-data.svn.sourceforge.net/pure-data/?rev=10734&view=rev
Author: eighthave
Date: 2009-02-04 06:24:04 +0000 (Wed, 04 Feb 2009)
Log Message:
-----------
enable drag-n-dropping of files on Mac OS X
Modified Paths:
--------------
branches/pd-devel/0.41.4/src/apple_events.tcl
Modified: branches/pd-devel/0.41.4/src/apple_events.tcl
===================================================================
--- branches/pd-devel/0.41.4/src/apple_events.tcl 2009-02-04 06:04:54 UTC (rev 10733)
+++ branches/pd-devel/0.41.4/src/apple_events.tcl 2009-02-04 06:24:04 UTC (rev 10734)
@@ -1,6 +1,8 @@
package provide apple_events 0.1
+package require wheredoesthisgo
+
# from http://wiki.tcl.tk/12987
# minimum line thickness to anti-alias (default: 3)
@@ -11,8 +13,10 @@
# kAEOpenDocuments
proc ::tk::mac::OpenDocument {args} {
- # TODO
- # args will be a list of all the documents dropped on your app, or double-clicked
+ foreach filename $files {
+ puts "open_file $filename"
+ open_file $filename
+ }
}
# kEventAppHidden
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