Changeset 606


Ignore:
Timestamp:
Dec 4, 2009 5:08:59 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2002/01/22 22:53:34 to 2002/07/03 21:04:31
    • Property rcs:lines changed from +4 -133 to +9 -1
    • Property rcs:rev changed from 1.44 to 1.45
    r542 r606  
    17721772    if {[file extension $expgui(FileMenuEXPNAM)] == ""} {
    17731773        append expgui(FileMenuEXPNAM) ".EXP"
     1774    }
     1775    # is there a space in the name?
     1776    if {[string first " " $expgui(FileMenuEXPNAM)] != -1} {
     1777        MyMessageBox -parent . -title "File Name Error" \
     1778                -message "File name $expgui(FileMenuEXPNAM) is invalid -- EXPGUI cannot process experiment files with spaces in the name" \
     1779                -icon warning -type Continue -default continue
     1780#               -helplink "expguierr.html OpenErr"
     1781        return
    17741782    }
    17751783    # check for archive files
Note: See TracChangeset for help on using the changeset viewer.