Changeset 922 for trunk

Timestamp:

Dec 4, 2009 5:14:22 PM (16 years ago)

Author:

toby

Message:

# on 2008/07/14 01:14:23, toby did:
Add CIF import to Add Hist window

File:

• trunk/addcmds.tcl (modified) (2 diffs, 3 props)

trunk/addcmds.tcl ¶

@@ -397 +397 @@
     # folks will ever need that
 
+
+    # set if the CIF import loads OK
+    set OK 1
+    catch {
+        if {[info procs ReadCIF4GSAS] == ""} {
+            set OK 0
+            source [file join $::expgui(scriptdir) cif2fxye.tcl]
+        }
+    } errmsg
+
     set np .newhist
     catch {destroy $np}
@@ -413 +423 @@
             -command "getrawfile $np" \
             ] -column 4 -row 2
+    if {$OK} {
+        grid [button $np.b1a -text "Import CIF" \
+                  -command "ReadCIF4GSAS $np" \
+                 ] -column 5 -row 2
+    }
 
     grid [label $np.lbank -text "Select bank" -anchor w] -column 1 -row 3 -sticky w