Changeset 1770

Timestamp:

Jun 21, 2010 7:00:19 AM (14 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/xyprint.tcl (modified) (7 diffs)

branches/blt4/gui/scripts/xyprint.tcl

@@ -636 +636 @@
         "Set the style template."
 
-    checkbutton $page.remember -text "remember settings" \
+    blt::tk::checkbutton $page.remember -text "remember settings" \
         -variable [itcl::scope _settings($this-general-remember)]  
     Rappture::Tooltip::for $page.remember \
         "Remember the settings. They will be override the default settings."
 
+    button $page.revert -text "revert" -image [indeed::icon revert] \
+        -compound left -padx 3 -pady 1 -overrelief raised -relief flat \
+        -command [itcl::code $this ResetSettings]
+    Rappture::Tooltip::for $page.revert \
+        "Revert to the default settings."
+
     blt::table $page \
         2,0 $page.format_l -anchor e \
-        2,1 $page.format -fill x \
+        2,1 $page.format -fill x -cspan 2 \
         3,0 $page.style_l -anchor e \
-        3,1 $page.style -fill x \
-        5,0 $page.remember -cspan 2 -anchor w 
+        3,1 $page.style -fill x -cspan 2 \
+        5,0 $page.remember -cspan 2 -anchor w \
+        5,2 $page.revert -anchor e 
     blt::table configure $page r* -resize none  -pady { 0 2 }
     blt::table configure $page r4 -resize both
@@ -671 +678 @@
         -text "Legend" -padx 2 -pady 2 -window $page -fill both
 
-    checkbutton $page.show -text "show legend" \
+    blt::tk::checkbutton $page.show -text "show legend" \
         -offvalue 1 -onvalue 0 \
         -variable [itcl::scope _settings($this-legend-hide)]  \
@@ -705 +712 @@
         "Set the anchor of the legend.  This option and the anchor determine the legend's location."
 
-    checkbutton $page.border -text "border" \
+    blt::tk::checkbutton $page.border -text "border" \
         -variable [itcl::scope _settings($this-legend-borderwidth)] \
         -onvalue 1 -offvalue 0 \
@@ -908 +915 @@
         "Set the interval between major ticks for the current axis. If zero, the interval is automatically determined."
 
-    checkbutton $page.loose -text "loose limits" \
+    blt::tk::checkbutton $page.loose -text "loose limits" \
         -onvalue "always" -offvalue "0" \
         -variable [itcl::scope _settings($this-axis-loose)] \
@@ -922 +929 @@
         "Set padding (points) between the current axis and the plot."
 
-    checkbutton $page.grid -text "show grid lines" \
+    blt::tk::checkbutton $page.grid -text "show grid lines" \
         -variable [itcl::scope _settings($this-axis-grid)] \
         -command [itcl::code $this ApplyAxisSettings]
@@ -928 +935 @@
         "Display grid lines for the current axis."
 
-    checkbutton $page.zero -text "mark zero" \
+    blt::tk::checkbutton $page.zero -text "mark zero" \
         -offvalue 1 -onvalue 0 \
         -variable [itcl::scope _settings($this-axis-zero)] \
@@ -1263 +1270 @@
 
 itcl::body Rappture::XyPrint::ResetSettings {} {
-    # Revert the widget back to the original graph's settings
-    destroy $_clone
+    set graph $_graph
+    DestroySettings 
+    set _graph $graph
     set _clone [CloneGraph $graph]
     InitClone