Changeset 675

Timestamp:

Dec 4, 2009 5:10:08 PM (13 years ago)

Author:

toby

Message:

# on 2003/04/10 22:19:24, toby did:
use filename rather than arg (why?)

File:

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

trunk/dumpexp.tcl

@@ -6 +6 @@
     exit
 }
+
+set filename [lindex $argv 0]
+
 set expgui(font) 14
 set expgui(debug) 0
 
-pack [label .l -text "Reading $argv\nPlease wait"]
+pack [label .l -text "Reading $filename\nPlease wait"]
 update
 wm protocol . WM_DELETE_WINDOW {puts ""; exit}
@@ -49 +52 @@
 SetTkDefaultOptions $expgui(font)
 
-if {![file exists $argv]} {
+if {![file exists $filename]} {
     # read error
     wm withdraw .
     tk_dialog .err {Bad file} \
-            "$argv0: error\nfile $argv not found" \
+            "$argv0: error\nfile $filename not found" \
             error 0 Continue
     exit
 }
-set fmt [expload $argv]
+set fmt [expload $filename]
 if {$fmt < 0} {
     # read error
     wm withdraw .
     tk_dialog .err {Bad file} \
-            "$argv0: error reading $argv\nThis is not a valid GSAS .EXP file" \
+            "$argv0: error reading $filename\nThis is not a valid GSAS .EXP file" \
             error 0 Continue
     exit
@@ -71 +74 @@
     wm withdraw .
     tk_dialog .err {Bad file} \
-            "$argv0: error reading $argv\nNo phases found" \
+            "$argv0: error reading $filename\nNo phases found" \
             error 0 Continue
     exit
@@ -106 +109 @@
     if {$expmap(phasetype) == 4} {
         tk_dialog .err {Only mm phase} \
-                "$argv0: unable to read from $argv\nOnly a macromolecular phase is present." \
+                "$argv0: unable to read from $filename\nOnly a macromolecular phase is present." \
                 error 0 Continue
         exit