Changeset 673 for trunk

Timestamp:

Dec 4, 2009 5:10:06 PM (14 years ago)

Author:

toby

Message:

# on 2003/04/10 22:13:02, toby did:
implement GRWND startup (Win-9x)
warn on names with spaces

File:

• trunk/gsascmds.tcl (modified) (5 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1263 +1263 @@
     set cmd {}
     foreach prog $proglist {
+        StartGRWND $prog
         if {$tcl_platform(platform) == "windows"} {
             append cmd " \"$expgui(gsasexe)/${prog}.exe \" "
@@ -1271 +1272 @@
     }
     forknewterm $prog $cmd [expr !$concurrent] 1
+}
+
+# dummy routine, overridden if needed
+proc StartGRWND {prog} {
 }
 
@@ -1288 +1293 @@
     set expnam [file root [file tail $expgui(expfile)]]
     foreach prog $proglist {
+        if {$prog == "powpref"} {
+            set expgui(needpowpref) 0
+            set expgui(needpowpref_why) ""
+        } elseif {$prog == "genles" && $expgui(needpowpref) != 0} {
+            set msg "You are attempting to run GENLES, after making changes that require POWPREF:\n\n$expgui(needpowpref_why) \nRun POWPREF first?"
+            set ans [MyMessageBox -parent . -title "Run POWPREF" \
+                    -message $msg -icon warning -type "Yes No" -default yes \
+                    -helplink "expguierr.html RunPowpref"]
+            if {$ans == "yes"} {
+                set expgui(needpowpref) 0
+                set expgui(needpowpref_why) ""
+                if {$tcl_platform(platform) == "windows"} {
+                    append cmd " \"$expgui(gsasexe)/powpref.exe $expnam \" "
+                } else {
+                    if {$cmd != ""} {append cmd "\;"}
+                    append cmd "[file join $expgui(gsasexe) powpref] $expnam"
+                }
+            }
+        }
+        StartGRWND $prog
         if {$tcl_platform(platform) == "windows"} {
             append cmd " \"$expgui(gsasexe)/${prog}.exe $expnam \" "
@@ -1752 +1777 @@
     afterputontop
     if {$expgui(FileMenuEXPNAM) == ""} return
+    # is there a space in the EXP name?
+    if {[string first " " [file tail $expgui(FileMenuEXPNAM)]] != -1} {
+        update
+        MyMessageBox -parent . -title "File Name Error" \
+            -message "File name \"$expgui(FileMenuEXPNAM)\" is invalid -- EXPGUI cannot process experiment files with spaces in the name" \
+            -icon warning -type Continue -default continue
+#               -helplink "expguierr.html OpenErr"
+        return
+    }
+    if {[string first " " $expgui(FileMenuDir)] != -1} {
+        update
+        MyMessageBox -parent . -title "Good luck..." \
+            -message "You are using a directory with a space in the name ([file dirname $expgui(FileMenuDir)]) -- You may encounter bugs in EXPGUI. Please e-mail them to Brian.Toby@NIST.gov so they can be fixed." \
+            -icon warning -type Continue -default continue
+#               -helplink "expguierr.html OpenErr"
+    }
     return [file join $expgui(FileMenuDir) $expgui(FileMenuEXPNAM)]
 }
@@ -2278 +2319 @@
         }
     }
+    # this procedure starts the GRWND program, if needed for program $prog
+    proc StartGRWND {prog} {
+        global expgui
+        if {!$expgui(autoGRWND)} return
+        # at some point we might want to have a real list
+        if {$prog != "genles" && $prog != "powpref"} {
+            # get a list of running jobs
+            exec [file join $expgui(scriptdir) win9xbin tlist.exe] > tlist.tlist
+            set fp [open tlist.tlist r]
+            set text [read $fp]
+            close $fp
+            file delete -force tlist.tlist
+            # if GRWND.EXE is not currently running, start it
+            if {[lsearch [string toupper $text] GRWND.EXE] == -1} {
+                exec [file join $expgui(gsasexe) grwnd.exe] &
+                # give grwnd a 1 second head start
+                after 1000
+            }
+        }
+    }
     # this creates a DOS box to run a program in
     proc forknewterm {title command "wait 1" "scrollbar 1"} {