Changeset 921 for trunk/addcmds.tcl


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

# on 2008/07/02 03:19:36, toby did:
Fix bug on ImportAtoms? (see 1.42)
fix blunder on replacephase3 (no args)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2008/06/30 23:51:43 to 2008/07/02 03:19:36
    • Property rcs:lines changed from +2 -2 to +3 -3
    • Property rcs:rev changed from 1.42 to 1.43
    r920 r921  
    20622062    global expgui
    20632063    if {[llength $expgui(extensions_$format)] == 1} {
    2064         set typelist [list $format $item]
     2064        lappend typelist [list $format $expgui(extensions_$format)]
    20652065    } else {
    20662066        foreach item $expgui(extensions_$format) {
     
    24372437
    24382438
    2439 proc replacephase3 {} {
     2439proc replacephase3 {phase spg cell atomlist} {
    24402440    global expgui expmap
    24412441    # replace spacegroup and cell
Note: See TracChangeset for help on using the changeset viewer.