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

Timestamp:

May 18, 2010, 3:34:18 PM (14 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/field2dresult.tcl

@@ -38 +38 @@
     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}
@@ -151 +152 @@
     $itk_component(renderer) download $option
 }
+
+itcl::body Rappture::Field2DResult::snap { w h } {
+    return [$itk_component(renderer) snap $w $h]
+}