Changeset 760 for trunk/expgui

Timestamp:

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

Author:

toby

Message:

# on 2003/12/05 13:00:13, toby did:
add file menu command to create applescript shortcut (OSX only)

File:

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

trunk/expgui

@@ -608 +608 @@
 }
 
+proc MakeAppleScript {} {
+    global wishshell expgui
+    # create a local script directory, if it does not exist
+    if {![file exists ~/Library/Scripts]} {file mkdir  ~/Library/Scripts}
+    set dir [file nativename  ~/Library/Scripts]
+    set file [tk_getSaveFile -initialdir $dir -initialfile EXPGUI.scpt]
+    set tmpfile [file nativename ~/tmpscriptfile]
+    set fp [open $tmpfile w]
+    # the applescript starts here
+    puts $fp {on run}
+    puts $fp {  tell application "Finder"}
+    puts $fp {     launch application "X11"}
+    puts $fp {   end tell}
+    puts $fp "  set results to do shell script \"cd ~; DISPLAY=:0.0; export DISPLAY; $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}
+    close $fp
+    if {[catch {
+        exec osacompile -l AppleScript -o $file  $tmpfile
+        file delete -force $tmpfile
+        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"
+    } errmsg]} {
+        MyMessageBox -parent . -title "AppleScript warning" \
+        -message "An error occurred while atempting to create the script. Details:\n$errmsg"\
+            -icon warning -type Ignore -default ignore
+#       -helplink "expguierr.html Customizewarning"
+    }
+}
 # this proc gets called when the export coordinate button is pressed
 # it loads export
@@ -4222 +4256 @@
 }
 
+if {$tcl_platform(os) == "Darwin"} {
+    $expgui(fm).file.menu add command -label "Create AppleScript" -command MakeAppleScript
+}
 $expgui(fm).file.menu add command -label "Exit"  -underline 1 -command catchQuit
 foreach c {X x} {bind . <Alt-$c> [list catchQuit]}