Changeset 761 for trunk

Timestamp:

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

Author:

toby

Message:

# on 2003/12/05 18:56:47, toby did:
more AppleScript fixups (find xterm location & offer a startup directory choice)

File:

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

trunk/expgui

@@ -612 +612 @@
     # create a local script directory, if it does not exist
     if {![file exists ~/Library/Scripts]} {file mkdir  ~/Library/Scripts}
+    set tmpfile [file nativename ~/tmpscriptfile]
+    set startdir [tk_chooseDirectory -initialdir [pwd] -mustexist 1 \
+                      -title "Choose GSAS starting directory"]
+    if {$startdir == ""} {set startdir "~"}
     set dir [file nativename  ~/Library/Scripts]
-    set file [tk_getSaveFile -initialdir $dir -initialfile EXPGUI.scpt]
-    set tmpfile [file nativename ~/tmpscriptfile]
+    if {[set xterm [auto_execok xterm]] == ""} {
+        MyMessageBox -parent . -title "xterm not found " \
+            -message "The AppleScript could not be created because the X11 xterm application was not found. Please correct your path and try again." \
+            -icon "error" -type Sorry -default sorry
+#           -helplink "expguierr.html Customizewarning"
+        return
+    }
+    set file [tk_getSaveFile -initialdir $dir -initialfile EXPGUI.scpt \
+                      -title "Choose location to save script"]
+    set path {$PATH:}
+    append path [file dirname $xterm]
     set fp [open $tmpfile w]
     # the applescript starts here
@@ -621 +634 @@
     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 "  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