Changeset 1539 for trunk/gui/scripts/field2dresult.tcl

Timestamp:

Jul 2, 2009, 9:45:21 AM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/field2dresult.tcl (modified) (5 diffs)

trunk/gui/scripts/field2dresult.tcl

@@ -54 +54 @@
         -mode auto
     }
+    puts stderr "Field2dResult constructor $this"
     array set flags $args
     set servers [Rappture::VisViewer::GetServerList "nanovis"]
@@ -72 +73 @@
             }
         }               
+        puts stderr "$this created $itk_component(renderer)"
         pack $itk_component(renderer) -expand yes -fill both
         # can't connect to rendering farm?  then fall back to older viewer
         if {![$itk_component(renderer) isconnected]} {
-            destroy $itk_component(renderer)
+            #destroy $itk_component(renderer)
         }
     } 
@@ -92 +94 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Field2DResult::destructor {} {
+    puts stderr "Field2dResult destructor $this"
 }
 
@@ -102 +105 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Field2DResult::add {dataobj {settings ""}} {
+    puts stderr "Field2dResult $this add $dataobj"
     eval $itk_component(renderer) add $dataobj [list $settings]
 }
@@ -122 +126 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Field2DResult::delete {args} {
+    puts stderr "Field2dResult $this delete $args"
     eval $itk_component(renderer) delete $args
 }