Changeset 994 for trunk/gsascmds.tcl

Timestamp:

Aug 18, 2010 4:55:20 PM (13 years ago)

Author:

toby

Message:

fix running GSAS programs where install location has spaces

File:

• trunk/gsascmds.tcl (modified) (5 diffs)

trunk/gsascmds.tcl

@@ -1406 +1406 @@
         StartGRWND $prog
         if {$tcl_platform(platform) == "windows"} {
-            append cmd " \"$expgui(gsasexe)/${prog}.exe \" "
+            append cmd " \"[file attributes $expgui(gsasexe)/${prog}.exe -shortname]\" "
         } else {
             if {$cmd != ""} {append cmd "\;"}
@@ -1448 +1448 @@
                 set expgui(needpowpref_why) ""
                 if {$tcl_platform(platform) == "windows"} {
-                    append cmd " \"$expgui(gsasexe)/powpref.exe $expnam \" "
+                    append cmd " \"[file attributes $expgui(gsasexe)/powpref.exe -shortname] $expnam \" "
                 } else {
                     if {$cmd != ""} {append cmd "\;"}
@@ -1457 +1457 @@
         StartGRWND $prog
         if {$tcl_platform(platform) == "windows"} {
-            append cmd " \"$expgui(gsasexe)/${prog}.exe $expnam \" "
+            append cmd " \"[file attributes $expgui(gsasexe)/${prog}.exe -shortname] $expnam \" "
         } elseif {$expgui(MacroRunning) && !$expgui(ShowGENLES)} {
             append cmd " \" [file join $expgui(gsasexe) $prog] $expnam \" "
@@ -2696 +2696 @@
                 # might help here
                 exec $env(COMSPEC) /c \
-                        "start [file join $expgui(scriptdir) $script] $cmd"
+                        "start [file attributes [file join $expgui(scriptdir) $script] -shortname] $cmd"
             }
             file delete -force expgui.lck
@@ -2709 +2709 @@
                 # run in background
                 exec $env(COMSPEC) /c \
-                        "start [file join $expgui(scriptdir) $script] $cmd" &
+                        "start [file attributes [file join $expgui(scriptdir) $script] -shortname] $cmd"
                 if {$expgui(MacroRunning)} {
                     update