Changeset 5097

Timestamp:

Mar 8, 2015 1:56:56 AM (9 years ago)

Author:

ldelgass

Message:

Merge fieldresult from 1.4 branch (manually, since changeset included other
unrelated changes)

File:

• trunk/gui/scripts/fieldresult.tcl (modified) (4 diffs)

trunk/gui/scripts/fieldresult.tcl

@@ -156 +156 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::FieldResult::add {dataobj {settings ""}} {
+    if { ![info exists itk_component(renderer)] } { 
+        puts stderr "add: no renderer created."
+        return
+    }
     eval $itk_component(renderer) add $dataobj [list $settings]
 }
@@ -166 +170 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::FieldResult::get {} {
+    if { ![info exists itk_component(renderer)] } { 
+        puts stderr "get: no renderer created."
+        return
+    }
     return [$itk_component(renderer) get]
 }
@@ -191 +199 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::FieldResult::scale {args} {
+    if { ![info exists itk_component(renderer)] } { 
+        puts stderr "scale: no renderer created."
+        return
+    }
     eval $itk_component(renderer) scale $args
 }
@@ -205 +217 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::FieldResult::download {option args} {
+    if { ![info exists itk_component(renderer)] } { 
+        puts stderr "download: no renderer created."
+        return
+    }
     eval $itk_component(renderer) download $option $args
 }
 
 itcl::body Rappture::FieldResult::snap { w h } {
+    if { ![info exists itk_component(renderer)] } { 
+        puts stderr "snap: no renderer created."
+        return
+    }
     return [$itk_component(renderer) snap $w $h]
 }