Changeset 1719 for branches/blt4/gui/scripts/field3dresult.tcl

Timestamp:

May 18, 2010, 4:26:32 PM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/field3dresult.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/field3dresult.tcl

@@ -37 +37 @@
     public method delete {args}
     public method scale {args}
+    public method snap {w h}
     public method parameters {title args} { # do nothing }
     public method download {option args}
@@ -153 +154 @@
     $itk_component(renderer) download $option $args
 }
+
+itcl::body Rappture::Field3DResult::snap { w h } {
+    return [$itk_component(renderer) snap $w $h]
+}