Ignore:
Timestamp:
Dec 27, 2011 2:45:13 PM (10 years ago)
Author:
gah
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gui/scripts/analyzer.tcl

    r2686 r2744  
    438438            set ::errorInfo "\n\n== RAPPTURE INPUT ==\n[$_tool xml xml]"
    439439            Rappture::bugreport::register "Problem launching job:\n$result"
    440             Rappture::bugreport::attachment [$_tool xml xml]
     440            Rappture::bugreport::attachment [$_tool xml xml]
    441441            Rappture::bugreport::send
    442442        }
     
    560560                _autoLabel $xmlobj output.$item "Sequence" counters
    561561            }
    562             default {
    563                 if 0 {
    564                     puts stderr "unknown output $item"
    565                 }
    566             }
     562            default {
     563                if 0 {
     564                    puts stderr "unknown output $item"
     565                }
     566            }
    567567        }
    568568        set label [$xmlobj get output.$item.about.group]
     
    589589            }
    590590            set hidden [$xmlobj get output.$item.hide]
    591             if { $hidden == "" } {
    592                 set hidden 0
    593             }
     591            if { $hidden == "" } {
     592                set hidden 0
     593            }
    594594            if {"" != $label && !$hidden} {
    595595                if {![info exists _label2page($label)]} {
     
    661661    foreach label [array names _label2page] {
    662662        set page $_label2page($label)
    663         destroy $page.rviewer
     663        destroy $page.rviewer
    664664        #$page.rviewer clear
    665665    }
     
    12421242                set line [string trim $line]
    12431243                if { $line == "" } {
    1244                     continue;           # Skip blank lines.
     1244                    continue;           # Skip blank lines.
    12451245                }
    12461246                if { [string match "ENDMDL*" $line] } {
     
    12881288        set line [string trim $line]
    12891289        if { $line == "" } {
    1290             continue;                   # Skip blank lines
     1290            continue;                   # Skip blank lines
    12911291        }
    12921292        if {[regexp {^[\t ]*ITEM:[ \t]+ATOMS} $line] } {
     
    13241324# USAGE: _trajToSequence <xmlobj> ?<path>?
    13251325#
    1326 #       Check for PDB and LAMMPS trajectories in molecule data and rewrite
    1327 #       the individual models as a sequence of molecules.  Used internally
    1328 #       to detect any molecule output elements that contain trajectory data.
    1329 #       Trajectories will be converted into sequences of individual molecules.
    1330 #       All other elements will be unaffected. Scans the entire xml tree if a
    1331 #       starting path is not specified. 
     1326#       Check for PDB and LAMMPS trajectories in molecule data and rewrite
     1327#       the individual models as a sequence of molecules.  Used internally
     1328#       to detect any molecule output elements that contain trajectory data.
     1329#       Trajectories will be converted into sequences of individual molecules.
     1330#       All other elements will be unaffected. Scans the entire xml tree if a
     1331#       starting path is not specified. 
    13321332#
    13331333# ----------------------------------------------------------------------
     
    13431343            set isTraj [$xmlobj get ${current}.components.molecule.trajectory]
    13441344            if { $isTraj == "" || !$isTraj } {
    1345                 continue;               # Not a trajectory.
     1345                continue;               # Not a trajectory.
    13461346            }
    13471347            # Look for trajectory if molecule element found.  Check both pdb
Note: See TracChangeset for help on using the changeset viewer.