Changeset 884

Timestamp:

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

Author:

toby

Message:

# on 2007/01/17 04:21:56, toby did:
warn on windows comspec problem
fix convergence spelling

File:

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

trunk/expgui

@@ -200 +200 @@
                 -helplink "expgui_Win_readme.html NetPath"
     }
-    #
+    # test for error in COMSPEC environment variable setting
+    if {[catch {set env(COMSPEC)}]} { 
+        set env(COMSPEC) {c:\windows\system32\cmd.exe}
+    }
+    if {[auto_execok $env(COMSPEC)] == ""} {
+        set env(COMSPEC) {c:\windows\system32\cmd.exe}
+    }
+    if {[auto_execok $env(COMSPEC)] == ""} {
+        MyMessageBox -parent . -title "cmd.exe not found " \
+            -message "The Windows COMSPEC environment variable is not set correctly. It should point to a copy of cmd.exe (or command.com on -95/-98/-ME). EXPGUI also did not find the file in the most common location (c:\\windows\\system32\\cmd.exe). Please fix: EXPGUI cannot run GSAS programs without this." \
+            -icon "error" -type Sorry -default sorry
+#           -helplink "expguierr.html Customizewarning"
+        return
+    }
     set expgui(exptool) [file join $expgui(gsasexe) exptool.exe]
 } else {
@@ -3920 +3933 @@
 grid [frame $expgui(lsFrame).f1.cv -bd 4 -relief groove] \
         -row $row -column 2 -sticky ew
-grid [label $expgui(lsFrame).f1.cv.l -text "Convgerence Criterion"] \
+grid [label $expgui(lsFrame).f1.cv.l -text "Convergence Criterion"] \
         -row 0 -column 0 -columnspan 2
 grid [label $expgui(lsFrame).f1.cv.v -textvariable expgui(convlbl)] -row 1 -column 0