Changeset 763 for trunk/expgui

Timestamp:

Dec 4, 2009 5:11:36 PM (11 years ago)

Author:

toby

Message:

# on 2003/12/16 18:02:53, toby did:
add droplet capability to AppleScript

File:

• trunk/expgui (modified) (2 diffs, 3 props)

trunk/expgui

@@ -636 +636 @@
     puts $fp "  set results to do shell script \"cd $startdir; DISPLAY=:0.0 PATH=$path $wishshell $expgui(script)  > /dev/null 2>&1 &\""
     puts $fp {end run}
-    # someday, perhaps we can get drag & drop to work
-    #puts $fp {on open}
-    #puts $fp {  -- need to get file name and incorporate into command line}
-    #puts $fp {end open}
+    # drag & drop
+    puts $fp {on open these_files}
+    puts $fp {  tell application "Finder"}
+    puts $fp {     launch application "X11"}
+    puts $fp {   end tell}
+    puts $fp {  repeat with this_file in these_files}
+    puts $fp "  set results to do shell script \"cd $startdir; DISPLAY=:0.0 PATH=$path $wishshell $expgui(script) \" & the quoted form of the POSIX path of this_file & \" > /dev/null 2>&1 &\""
+    puts $fp {  end repeat}
+    puts $fp {end open}
     close $fp
     if {[catch {
@@ -646 +651 @@
         MyMessageBox -parent . -title "AppleScript created" \
             -message "Script $file created & compiled. You may wish to use the Script Editor to save this as an application" \
-            -icon "info" -type OK -default ok
-#           -helplink "expguierr.html Customizewarning"
+            -icon "info" -type OK -default ok \
+            -helplink "osx.html CompileAppleScript"
     } errmsg]} {
         MyMessageBox -parent . -title "AppleScript warning" \
-        -message "An error occurred while atempting to create the script. Details:\n$errmsg"\
+        -message "An error occurred while attempting to create the script. Please report this bug, including these details:\n$errmsg"\
             -icon warning -type Ignore -default ignore
 #       -helplink "expguierr.html Customizewarning"