Changeset 13 for trunk/tcl/scripts


Ignore:
Timestamp:
Jun 8, 2005 5:37:19 PM (17 years ago)
Author:
mmc
Message:

Many improvements, including a new energy level viewer
for Huckel-IV. Added support for a new <boolean> type.
Fixed the cloud/field stuff so that when a cloud is 1D,
it reverts to BLT vectors so it will plot correctly.
Fixed the install script to work better on Windows.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/tcl/scripts/library.tcl

    r11 r13  
    123123        foreach cpath [$xmlobj children -as path $path] {
    124124            switch -- [$xmlobj element -as type $cpath] {
    125                 group {
     125                group - phase {
    126126                    lappend queue $cpath
    127127                }
     
    141141                    # if this element has embedded groups, add them to the queue
    142142                    foreach ccpath [$xmlobj children -as path $cpath] {
    143                         if {[$xmlobj element -as type $ccpath] == "group"} {
     143                        set cctype [$xmlobj element -as type $ccpath]
     144                        if {$cctype == "group" || $cctype == "phase"} {
    144145                            lappend queue $ccpath
    145146                        }
Note: See TracChangeset for help on using the changeset viewer.