Changeset 1770 for branches/blt4
- Timestamp:
- Jun 21, 2010, 7:00:19 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/blt4/gui/scripts/xyprint.tcl
r1769 r1770 636 636 "Set the style template." 637 637 638 checkbutton $page.remember -text "remember settings" \638 blt::tk::checkbutton $page.remember -text "remember settings" \ 639 639 -variable [itcl::scope _settings($this-general-remember)] 640 640 Rappture::Tooltip::for $page.remember \ 641 641 "Remember the settings. They will be override the default settings." 642 642 643 button $page.revert -text "revert" -image [indeed::icon revert] \ 644 -compound left -padx 3 -pady 1 -overrelief raised -relief flat \ 645 -command [itcl::code $this ResetSettings] 646 Rappture::Tooltip::for $page.revert \ 647 "Revert to the default settings." 648 643 649 blt::table $page \ 644 650 2,0 $page.format_l -anchor e \ 645 2,1 $page.format -fill x \651 2,1 $page.format -fill x -cspan 2 \ 646 652 3,0 $page.style_l -anchor e \ 647 3,1 $page.style -fill x \ 648 5,0 $page.remember -cspan 2 -anchor w 653 3,1 $page.style -fill x -cspan 2 \ 654 5,0 $page.remember -cspan 2 -anchor w \ 655 5,2 $page.revert -anchor e 649 656 blt::table configure $page r* -resize none -pady { 0 2 } 650 657 blt::table configure $page r4 -resize both … … 671 678 -text "Legend" -padx 2 -pady 2 -window $page -fill both 672 679 673 checkbutton $page.show -text "show legend" \680 blt::tk::checkbutton $page.show -text "show legend" \ 674 681 -offvalue 1 -onvalue 0 \ 675 682 -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." 706 713 707 checkbutton $page.border -text "border" \714 blt::tk::checkbutton $page.border -text "border" \ 708 715 -variable [itcl::scope _settings($this-legend-borderwidth)] \ 709 716 -onvalue 1 -offvalue 0 \ … … 908 915 "Set the interval between major ticks for the current axis. If zero, the interval is automatically determined." 909 916 910 checkbutton $page.loose -text "loose limits" \917 blt::tk::checkbutton $page.loose -text "loose limits" \ 911 918 -onvalue "always" -offvalue "0" \ 912 919 -variable [itcl::scope _settings($this-axis-loose)] \ … … 922 929 "Set padding (points) between the current axis and the plot." 923 930 924 checkbutton $page.grid -text "show grid lines" \931 blt::tk::checkbutton $page.grid -text "show grid lines" \ 925 932 -variable [itcl::scope _settings($this-axis-grid)] \ 926 933 -command [itcl::code $this ApplyAxisSettings] … … 928 935 "Display grid lines for the current axis." 929 936 930 checkbutton $page.zero -text "mark zero" \937 blt::tk::checkbutton $page.zero -text "mark zero" \ 931 938 -offvalue 1 -onvalue 0 \ 932 939 -variable [itcl::scope _settings($this-axis-zero)] \ … … 1263 1270 1264 1271 itcl::body Rappture::XyPrint::ResetSettings {} { 1265 # Revert the widget back to the original graph's settings 1266 destroy $_clone 1272 set graph $_graph 1273 DestroySettings 1274 set _graph $graph 1267 1275 set _clone [CloneGraph $graph] 1268 1276 InitClone
Note: See TracChangeset
for help on using the changeset viewer.