Changeset 62 for trunk/gsascmds.tcl

Timestamp:

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

Author:

toby

Message:

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

File:

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

trunk/gsascmds.tcl

@@ -731 +731 @@
         }
     }
-    destroy $frm
 }
 
@@ -1072 +1071 @@
     if {[file extension $expgui(FileMenuEXPNAM)] != ".EXP"} {
         tk_dialog .expFileErrorMsg "File Open Error" \
-            "File $expgui(FileMenuEXPNAM) is not a valid name. Experiment files must end in \".EXP\"" \
+            "File [file tail $expgui(FileMenuEXPNAM)] is not a valid name. Experiment files must end in \".EXP\"" \
             error 0 OK
         return
@@ -1079 +1078 @@
     if {$mode == "new" && [file exists $file]} {
         set ans [tk_dialog .expFileErrorMsg "File Open Error" \
-            "File $file already exists. OK to overwrite?" question 0 \
+            "File [file tail $file] already exists in [file dirname $file]. OK to overwrite?" question 0 \
              "Select other name" "Overwrite"]
         if $ans {destroy .file}
@@ -1086 +1085 @@
     if {$mode == "old" && ![file exists $file]} {
         set ans [tk_dialog .expFileErrorMsg "File Open Error" \
-            "File $file does not exist. OK to create?" question 0 \
+            "File [file tail $file] does not exist in [file dirname $file]. OK to create?" question 0 \
              "Select other name" "Create"]
         if $ans {destroy .file}