view release on metacpan or  search on metacpan

examples/ImageProcessing/HistogramWidget.pm  view on Meta::CPAN

#
#   Histogram widget for the test script Histogram.pl
#
#
package Graphics::VTK::Tk::HistogramWidget;
use Tk;

use Graphics::VTK;
use Carp;

use base  qw(Tk::Derived Tk::Frame);

Tk::Widget->Construct("HistogramWidget");

# creates a meta object which clips a region of the input, and
# draws a histogram for the data.

# create a histogram object
#
sub Populate {
    	my ($widget, $args) = @_;