Changeset 922 for trunk/addcmds.tcl


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2008/07/02 03:19:36 to 2008/07/14 01:14:23
    • Property rcs:lines changed from +3 -3 to +16 -1
    • Property rcs:rev changed from 1.43 to 1.44
    r921 r922  
    397397    # folks will ever need that
    398398
     399
     400    # set if the CIF import loads OK
     401    set OK 1
     402    catch {
     403        if {[info procs ReadCIF4GSAS] == ""} {
     404            set OK 0
     405            source [file join $::expgui(scriptdir) cif2fxye.tcl]
     406        }
     407    } errmsg
     408
    399409    set np .newhist
    400410    catch {destroy $np}
     
    413423            -command "getrawfile $np" \
    414424            ] -column 4 -row 2
     425    if {$OK} {
     426        grid [button $np.b1a -text "Import CIF" \
     427                  -command "ReadCIF4GSAS $np" \
     428                 ] -column 5 -row 2
     429    }
    415430
    416431    grid [label $np.lbank -text "Select bank" -anchor w] -column 1 -row 3 -sticky w
Note: See TracChangeset for help on using the changeset viewer.