[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