Gtk2::Ex::FormFactory::ProgressBar - A ProgressBar in a FormFactory framework


Gtk2-Ex-FormFactory documentation Contained in the Gtk2-Ex-FormFactory distribution.

Index


Code Index:

NAME

Top

Gtk2::Ex::FormFactory::ProgressBar - A ProgressBar in a FormFactory framework

SYNOPSIS

Top

  Gtk2::Ex::FormFactory::ProgressBar->new (
    ...
    Gtk2::Ex::FormFactory::Widget attributes
  );

DESCRIPTION

Top

This class implements a ProgressBar in a Gtk2::Ex::FormFactory framework. The state of the progress bar is the value of the associated application object attribute.

This value must be a hash reference defining these keys:

fraction

A float value between 0.0 and 1.0 representing the length of the progress bar.

text

An optional text displayed in the progress bar.

OBJECT HIERARCHY

Top

  Gtk2::Ex::FormFactory::Intro

  Gtk2::Ex::FormFactory::Widget
  +--- Gtk2::Ex::FormFactory::ProgressBar

  Gtk2::Ex::FormFactory::Layout
  Gtk2::Ex::FormFactory::Rules
  Gtk2::Ex::FormFactory::Context
  Gtk2::Ex::FormFactory::Proxy

ATTRIBUTES

Top

This module has no additional attributes over those derived from Gtk2::Ex::FormFactory::Widget.

AUTHORS

Top

 Jörn Reder <joern at zyn dot de>

COPYRIGHT AND LICENSE

Top


Gtk2-Ex-FormFactory documentation Contained in the Gtk2-Ex-FormFactory distribution.

package Gtk2::Ex::FormFactory::ProgressBar;

use strict;

use base qw( Gtk2::Ex::FormFactory::Widget );

sub get_type { "progress_bar" }

sub object_to_widget {
	my $self = shift;

	my $status           = $self->get_object_value;
	my $gtk_progress_bar = $self->get_gtk_widget;

	$gtk_progress_bar->set_fraction ($status->{fraction});
	$gtk_progress_bar->set_text     ($status->{text});

	1;
}

sub empty_widget {
	my $self = shift;
	
	my $gtk_progress_bar = $self->get_gtk_widget;

	$gtk_progress_bar->set_fraction (0);
	$gtk_progress_bar->set_text     ("");
	
	1;
}

1;

__END__