Changeset 606

Timestamp:

Dec 4, 2009 5:08:59 PM (14 years ago)

Author:

toby

Message:

# on 2002/07/03 21:04:31, toby did:
catch invalid .EXP file names

File:

• trunk/gsascmds.tcl (modified) (1 diff, 3 props)

trunk/gsascmds.tcl

@@ -1772 +1772 @@
     if {[file extension $expgui(FileMenuEXPNAM)] == ""} {
         append expgui(FileMenuEXPNAM) ".EXP"
+    }
+    # is there a space in the name?
+    if {[string first " " $expgui(FileMenuEXPNAM)] != -1} {
+        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
     }
     # check for archive files