Changeset 62


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

# on 1999/02/19 18:18:23, toby did:
cleanup warnings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 1999/02/19 16:02:23 to 1999/02/19 18:18:23
    • Property rcs:lines changed from +0 -3 to +3 -4
    • Property rcs:rev changed from 1.8 to 1.9
    r60 r62  
    731731        }
    732732    }
    733     destroy $frm
    734733}
    735734
     
    10721071    if {[file extension $expgui(FileMenuEXPNAM)] != ".EXP"} {
    10731072        tk_dialog .expFileErrorMsg "File Open Error" \
    1074             "File $expgui(FileMenuEXPNAM) is not a valid name. Experiment files must end in \".EXP\"" \
     1073            "File [file tail $expgui(FileMenuEXPNAM)] is not a valid name. Experiment files must end in \".EXP\"" \
    10751074            error 0 OK
    10761075        return
     
    10791078    if {$mode == "new" && [file exists $file]} {
    10801079        set ans [tk_dialog .expFileErrorMsg "File Open Error" \
    1081             "File $file already exists. OK to overwrite?" question 0 \
     1080            "File [file tail $file] already exists in [file dirname $file]. OK to overwrite?" question 0 \
    10821081             "Select other name" "Overwrite"]
    10831082        if $ans {destroy .file}
     
    10861085    if {$mode == "old" && ![file exists $file]} {
    10871086        set ans [tk_dialog .expFileErrorMsg "File Open Error" \
    1088             "File $file does not exist. OK to create?" question 0 \
     1087            "File [file tail $file] does not exist in [file dirname $file]. OK to create?" question 0 \
    10891088             "Select other name" "Create"]
    10901089        if $ans {destroy .file}
Note: See TracChangeset for help on using the changeset viewer.