Changeset 1603 for trunk/gui

Timestamp:

Oct 29, 2009 11:41:56 AM (14 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• xyprint.tcl (modified) (4 diffs)
• xyresult.tcl (modified) (2 diffs)

trunk/gui/scripts/xyprint.tcl

@@ -42 +42 @@
         
     public method print { graph toolName plotName }
+    public method reset {}
 
     private method CopyOptions { cmd orig clone } 
@@ -70 +71 @@
     private method RestoreSettings { toolName plotName } 
     private method SaveSettings { toolName plotName } 
+    private method DestroySettings {}
     private method ResetSettings { } 
     private method GetOutput {}
     private method Done { state }
-    private method DestroySettings {}
     private method restore { toolName plotName data } 
     private common _settings
@@ -153 +154 @@
     set _clone ""
     set _graph ""
+}
+
+itcl::body Rappture::XyPrint::reset {} {
+    Done 0
 }
 
@@ -272 +277 @@
 itcl::body Rappture::XyPrint::CloneGraph { orig } {
     set top $itk_interior
+    if { $_clone != "" } {
+        puts stderr "clone is $_clone"
+    }
     set clone [blt::graph $top.graph]
     CopyOptions "configure" $orig $clone

trunk/gui/scripts/xyresult.tcl

@@ -487 +487 @@
             if {![winfo exists .xyresultdownload]} {
                 # if we haven't created the popup yet, do it now
-                Rappture::Balloon $popup -title "[Rappture::filexfer::label downloadWord] as..."
+                Rappture::Balloon $popup \
+                    -title "[Rappture::filexfer::label downloadWord] as..."
                 set inner [$popup component inner]
                 label $inner.summary -text "" -anchor w
@@ -567 +568 @@
                         Rappture::XyPrint $inner.print
                         blt::table $inner 0,0 $inner.print -fill both
+                        $popup configure -deactivatecommand \
+                            [list $inner.print reset] 
                     }
                     update