Changeset 844 for trunk/gui/scripts

Timestamp:

Jan 4, 2008 9:19:46 AM (16 years ago)

Author:

gah

Message:

change HistoResult? to HistogramResult?

Location:

trunk/gui/scripts

Files:

• historesult.tcl (modified) (22 diffs)
• resultviewer.tcl (modified) (1 diff)

trunk/gui/scripts/historesult.tcl

@@ -1 +1 @@
 
 # ----------------------------------------------------------------------
-#  COMPONENT: HistoResult - X/Y plot in a ResultSet
+#  COMPONENT: HistogramResult - X/Y plot in a ResultSet
 #
 #  This widget is an X/Y plot, meant to view histograms produced
@@ -17 +17 @@
 package require BLT
 
-option add *HistoResult*Element.borderWidth 1 widgetDefault
-option add *HistoResult*Element.relief solid widgetDefault
-option add *HistoResult*x.loose 1 widgetDefault
-option add *HistoResult*y.loose 1 widgetDefault
-option add *HistoResult*Element.relief solid widgetDefault
-
-option add *HistoResult.width 3i widgetDefault
-option add *HistoResult.height 3i widgetDefault
-option add *HistoResult.gridColor #d9d9d9 widgetDefault
-option add *HistoResult.activeColor blue widgetDefault
-option add *HistoResult.dimColor gray widgetDefault
-option add *HistoResult.controlBackground gray widgetDefault
-option add *HistoResult.font \
+option add *HistogramResult*Element.borderWidth 1 widgetDefault
+option add *HistogramResult*Element.relief solid widgetDefault
+option add *HistogramResult*x.loose 1 widgetDefault
+option add *HistogramResult*y.loose 1 widgetDefault
+option add *HistogramResult*Element.relief solid widgetDefault
+
+option add *HistogramResult.width 3i widgetDefault
+option add *HistogramResult.height 3i widgetDefault
+option add *HistogramResult.gridColor #d9d9d9 widgetDefault
+option add *HistogramResult.activeColor blue widgetDefault
+option add *HistogramResult.dimColor gray widgetDefault
+option add *HistogramResult.controlBackground gray widgetDefault
+option add *HistogramResult.font \
     -*-helvetica-medium-r-normal-*-12-* widgetDefault
 
-option add *HistoResult.autoColors {
+option add *HistogramResult.autoColors {
     #0000ff #ff0000 #00cc00
     #cc00cc #ff9900 #cccc00
@@ -39 +39 @@
 } widgetDefault
 
-option add *HistoResult*Balloon*Entry.background white widgetDefault
-
-itcl::class Rappture::HistoResult {
+option add *HistogramResult*Balloon*Entry.background white widgetDefault
+
+itcl::class Rappture::HistogramResult {
     inherit itk::Widget
 
@@ -88 +88 @@
 }
                                                                                 
-itk::usual HistoResult {
+itk::usual HistogramResult {
     keep -background -foreground -cursor -font
 }
@@ -95 +95 @@
 # CONSTRUCTOR
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::constructor {args} {
+itcl::body Rappture::HistogramResult::constructor {args} {
     Rappture::dispatcher _dispatcher
     $_dispatcher register !rebuild
@@ -207 +207 @@
 # DESTRUCTOR
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::destructor {} {
+itcl::body Rappture::HistogramResult::destructor {} {
 }
 
@@ -217 +217 @@
 # -brightness, -width, -linestyle and -raise.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::add {histogram {settings ""}} {
+itcl::body Rappture::HistogramResult::add {histogram {settings ""}} {
     array set params {
         -color auto
@@ -293 +293 @@
 # order from bottom to top of this result.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::get {} {
+itcl::body Rappture::HistogramResult::get {} {
     # put the dataobj list in order according to -raise options
     set clist $_hlist
@@ -314 +314 @@
 # are specified, then all histograms are deleted.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::delete {args} {
+itcl::body Rappture::HistogramResult::delete {args} {
     if {[llength $args] == 0} {
         set args $_hlist
@@ -358 +358 @@
 # the user scans through data in the ResultSet viewer.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::scale {args} {
+itcl::body Rappture::HistogramResult::scale {args} {
     set allx [$itk_component(plot) x2axis use]
     lappend allx x  ;# fix main x-axis too
@@ -415 +415 @@
 # "string" is the data itself.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::download {option args} {
+itcl::body Rappture::HistogramResult::download {option args} {
     switch $option {
         coming {
@@ -429 +429 @@
                 pack $inner.summary -side top
                 radiobutton $inner.csv -text "Data as Comma-Separated Values" \
-                    -variable Rappture::HistoResult::_downloadPopup(format) \
+                    -variable Rappture::HistogramResult::_downloadPopup(format) \
                     -value csv
                 pack $inner.csv -anchor w
                 radiobutton $inner.pdf -text "Image as PDF/PostScript" \
-                    -variable Rappture::HistoResult::_downloadPopup(format) \
+                    -variable Rappture::HistogramResult::_downloadPopup(format) \
                     -value pdf
                 pack $inner.pdf -anchor w
@@ -531 +531 @@
 # widget to display new data.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_rebuild {} {
+itcl::body Rappture::HistogramResult::_rebuild {} {
     set g $itk_component(plot)
 
@@ -729 +729 @@
 # current plot.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_resetLimits {} {
+itcl::body Rappture::HistogramResult::_resetLimits {} {
     set g $itk_component(plot)
 
@@ -805 +805 @@
 # controls for this widget.  Changes the zoom for the current view.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_zoom {option args} {
+itcl::body Rappture::HistogramResult::_zoom {option args} {
     switch -- $option {
         reset {
@@ -820 +820 @@
 # pop up with element info.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_hilite {state x y} {
+itcl::body Rappture::HistogramResult::_hilite {state x y} {
     set g $itk_component(plot)
     set elem ""
@@ -1030 +1030 @@
 # changes from the panel.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_axis {option args} {
+itcl::body Rappture::HistogramResult::_axis {option args} {
     set inner [$itk_component(hull).axes component inner]
 
@@ -1379 +1379 @@
 # are not recognized are ignored.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_getLineMarkerOptions {style} {
+itcl::body Rappture::HistogramResult::_getLineMarkerOptions {style} {
     array set lineOptions {
         "-color"  "-outline"
@@ -1402 +1402 @@
 # are not recognized are ignored.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_getTextMarkerOptions {style} {
+itcl::body Rappture::HistogramResult::_getTextMarkerOptions {style} {
     array set textOptions {
         "-color"  "-outline"
@@ -1427 +1427 @@
 # x-axis name (x, x2, x3, etc.), and y is the y-axis name.
 # ----------------------------------------------------------------------
-itcl::body Rappture::HistoResult::_getAxes {xydata} {
+itcl::body Rappture::HistogramResult::_getAxes {xydata} {
     # rebuild if needed, so we know about the axes
     if {[$_dispatcher ispending !rebuild]} {
@@ -1456 +1456 @@
 # CONFIGURATION OPTION: -gridcolor
 # ----------------------------------------------------------------------
-itcl::configbody Rappture::HistoResult::gridcolor {
+itcl::configbody Rappture::HistogramResult::gridcolor {
     if {"" == $itk_option(-gridcolor)} {
         $itk_component(plot) grid off
@@ -1468 +1468 @@
 # CONFIGURATION OPTION: -autocolors
 # ----------------------------------------------------------------------
-itcl::configbody Rappture::HistoResult::autocolors {
+itcl::configbody Rappture::HistogramResult::autocolors {
     foreach c $itk_option(-autocolors) {
         if {[catch {winfo rgb $itk_component(hull) $c}]} {

trunk/gui/scripts/resultviewer.tcl

@@ -213 +213 @@
             if {![info exists _mode2widget($mode)]} {
                 set w $itk_interior.xy
-                Rappture::HistoResult $w
+                Rappture::HistogramResult $w
                 set _mode2widget($mode) $w
             }