Changeset 2744 for trunk/gui/scripts/analyzer.tcl

Timestamp:

Dec 27, 2011 2:45:13 PM (13 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/analyzer.tcl (modified) (8 diffs)

trunk/gui/scripts/analyzer.tcl

@@ -438 +438 @@
             set ::errorInfo "\n\n== RAPPTURE INPUT ==\n[$_tool xml xml]"
             Rappture::bugreport::register "Problem launching job:\n$result"
-            Rappture::bugreport::attachment [$_tool xml xml]
+            Rappture::bugreport::attachment [$_tool xml xml]
             Rappture::bugreport::send
         }
@@ -560 +560 @@
                 _autoLabel $xmlobj output.$item "Sequence" counters
             }
-            default {
-                if 0 {
-                    puts stderr "unknown output $item"
-                }
-            }
+            default {
+                if 0 {
+                    puts stderr "unknown output $item"
+                }
+            }
         }
         set label [$xmlobj get output.$item.about.group]
@@ -589 +589 @@
             }
             set hidden [$xmlobj get output.$item.hide]
-            if { $hidden == "" } {
-                set hidden 0
-            }
+            if { $hidden == "" } {
+                set hidden 0
+            }
             if {"" != $label && !$hidden} {
                 if {![info exists _label2page($label)]} {
@@ -661 +661 @@
     foreach label [array names _label2page] {
         set page $_label2page($label)
-        destroy $page.rviewer
+        destroy $page.rviewer
         #$page.rviewer clear
     }
@@ -1242 +1242 @@
                 set line [string trim $line]
                 if { $line == "" } {
-                    continue;           # Skip blank lines.
+                    continue;           # Skip blank lines.
                 }
                 if { [string match "ENDMDL*" $line] } {
@@ -1288 +1288 @@
         set line [string trim $line]
         if { $line == "" } {
-            continue;                   # Skip blank lines
+            continue;                   # Skip blank lines
         }
         if {[regexp {^[\t ]*ITEM:[ \t]+ATOMS} $line] } {
@@ -1324 +1324 @@
 # USAGE: _trajToSequence <xmlobj> ?<path>?
 #
-#       Check for PDB and LAMMPS trajectories in molecule data and rewrite 
-#       the individual models as a sequence of molecules.  Used internally 
-#       to detect any molecule output elements that contain trajectory data.
-#       Trajectories will be converted into sequences of individual molecules.
-#       All other elements will be unaffected. Scans the entire xml tree if a
-#       starting path is not specified.  
+#       Check for PDB and LAMMPS trajectories in molecule data and rewrite 
+#       the individual models as a sequence of molecules.  Used internally 
+#       to detect any molecule output elements that contain trajectory data.
+#       Trajectories will be converted into sequences of individual molecules.
+#       All other elements will be unaffected. Scans the entire xml tree if a
+#       starting path is not specified.  
 #
 # ----------------------------------------------------------------------
@@ -1343 +1343 @@
             set isTraj [$xmlobj get ${current}.components.molecule.trajectory]
             if { $isTraj == "" || !$isTraj } {
-                continue;               # Not a trajectory.
+                continue;               # Not a trajectory.
             }
             # Look for trajectory if molecule element found.  Check both pdb