Changeset 5029 for branches/uq/gui/scripts/analyzer.tcl

Timestamp:

Feb 17, 2015, 5:49:36 PM (10 years ago)

Author:

mmh

Message:

puq integration snap

File:

• branches/uq/gui/scripts/analyzer.tcl (modified) (12 diffs)

branches/uq/gui/scripts/analyzer.tcl

@@ -1 @@
-# -*- mode: tcl; indent-tabs-mode: nil -*- 
+# -*- mode: tcl; indent-tabs-mode: nil -*-
 # ----------------------------------------------------------------------
 #  COMPONENT: analyzer - output area for Rappture
@@ -50 +50 @@
     itk_option define -notebookpage notebookPage NotebookPage ""
 
-    constructor {tool args} { 
-        # defined below 
-    }
-    destructor { 
-        # defined below 
+    constructor {tool args} {
+        # defined below
+    }
+    destructor {
+        # defined below
     }
 
@@ -103 +103 @@
 itcl::body Rappture::Analyzer::constructor {tool args} {
     set _tool $tool
-
+    puts "Analyzer init"
     # use this to store all simulation results
     set _resultset [Rappture::ResultSet ::\#auto]
@@ -391 +391 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Analyzer::simulate {args} {
+    puts "simulate $args"
     if {$args == "-ifneeded"} {
         # check to see if simulation is really needed
@@ -401 +402 @@
         }
         set args ""
-    } 
-
+    }
+    puts "simulation needed"
     # simulation is needed -- go to simulation page
     $itk_component(notebook) current simulate
@@ -423 +424 @@
 
     # execute the job
+    puts "$_tool run $args"
+
     foreach {status result} [eval $_tool run $args] break
 
@@ -443 +446 @@
     if {$status != 0} {
         $itk_component(runinfo) configure -state normal
-        # Don't erase program error messages. 
+        # Don't erase program error messages.
         # $itk_component(runinfo) delete 1.0 end
         $itk_component(runinfo) insert end "\n\nProblem launching job:\n\n" text
@@ -585 +588 @@
                     $popup activate $widget below
                 } else {
-                    download now $widget 
+                    download now $widget
                 }
             } else {
@@ -1282 +1285 @@
             set frame ${sequence}.element($frameNum)
             $xmlobj put ${frame}.index $frameNum
-            
+
             set molecule ${frame}.structure.components.molecule
             $xmlobj put ${molecule}.pdb $contents
@@ -1325 +1328 @@
                 set frame ${sequence}.element($frameNum)
                 $xmlobj put ${frame}.index $frameNum
-                
+
                 set molecule ${frame}.structure.components.molecule
                 $xmlobj put ${molecule}.lammps $frameContents
                 $xmlobj put ${molecule}.lammpstypemap $typemap
-                
+
                 incr frameNum
                 set frameContents ""
@@ -1345 +1348 @@
         set frame ${sequence}.element($frameNum)
         $xmlobj put ${frame}.index $frameNum
-        
+
         set molecule ${frame}.structure.components.molecule
         $xmlobj put ${molecule}.lammps $frameContents
@@ -1355 +1358 @@
 # 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 
+#       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.  
+#       starting path is not specified.
 #
 # ----------------------------------------------------------------------