Changeset 1717 for trunk

Timestamp:

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

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• deviceEditor.tcl (modified) (2 diffs)
• field2dresult.tcl (modified) (2 diffs)
• field3dresult.tcl (modified) (2 diffs)
• xyprint.tcl (modified) (5 diffs)

trunk/gui/scripts/deviceEditor.tcl

@@ -24 +24 @@
     constructor {owner args} {
         Rappture::ControlOwner::constructor $owner
-    } { # defined below }
-
+    } { 
+        # defined below 
+    }
     public method value {args}
     public method download {option args}
     public method add {dataobj {settings ""}} 
     public method delete {args}
-    public method parameters {title args} { # do nothing }
+    public method parameters {title args} { 
+        # do nothing 
+    }
+    public method snap {w h}
 
     protected method _redraw {}
@@ -217 +221 @@
     return "device1D"
 }
+
+itcl::body Rappture::DeviceEditor::snap { w h } {
+    return [$_current snap $w $h]
+}

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]
+}

trunk/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]
+}

trunk/gui/scripts/xyprint.tcl

@@ -41 +41 @@
 
     private method CopyOptions { cmd orig clone } 
-    private method CopyBindings { oper orig clone args } 
     private method CloneGraph { orig }
 
@@ -218 +217 @@
     set psdata [$_clone postscript output]
 
+    if 0 {
+        set f [open "junk.raw" "w"] 
+        puts -nonewline $f $psdata
+        close $f
+    }
     if { $format == "eps" } { 
-        if 0 {
-            set f [open "junk.raw" "w"] 
-            puts -nonewline $f $psdata
-            close $f
-        }
         return [list .$format $psdata]
     }
@@ -272 +271 @@
         set initial [lindex $option 3]
         set current [lindex $option 4]
+        if { $switch == "-data" } {
+            continue
+        }
         if { [string compare $initial $current] == 0 } {
             continue
@@ -310 +312 @@
     foreach marker [$orig marker names] {
         $clone marker create [$orig marker type $marker] -name $marker
-        CopyBindings marker $orig $clone $marker
         CopyOptions [list marker configure $marker] $orig $clone
     }
@@ -1081 +1082 @@
         -weight $_settings($this-legend-font-weight) \
         -slant $_settings($this-legend-font-slant)
-    $_clone legend configure -font $_fonts(legend)
+    $_clone legend configure -font fixed -font $_fonts(legend)
     ApplyElementSettings
 }