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


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

Index


Code Index:

NAME

Top

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

SYNOPSIS

Top

  Gtk2::Ex::FormFactory::Button->new (
    clicked_hook => Callback CODEREF / Closure
    stock        => Name of a stock item for this button,
    with_repeat  => Trigger callback continuously as long button is pressed
    ...
    Gtk2::Ex::FormFactory::Widget attributes
  );

DESCRIPTION

Top

This module implements a Button in a Gtk2::Ex::FormFactory framework. No application object attribute is associated with the button.

OBJECT HIERARCHY

Top

  Gtk2::Ex::FormFactory::Intro

  Gtk2::Ex::FormFactory::Widget
  +--- Gtk2::Ex::FormFactory::Button

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

ATTRIBUTES

Top

Attributes are handled through the common get_ATTR(), set_ATTR() style accessors, but they are mostly passed once to the object constructor and must not be altered after the associated FormFactory was built.

clicked_hook = CODEREF [optional]

This is for convenience and connects the CODEREF to the clicked signal of the button.

stock = SCALAR [optional]

You may specify the name of a stock item here, which should be added to the button, e.g. 'gtk-edit' for the standard Gtk Edit stock item. You may combine stock and label arbitrarily.

with_repeat = BOOLEAN [optional]

If you set this option the clicked_hook is called continuously as long as the button is pressed, with a initial short delay, just similar to keyboard repetition.

For more attributes refer to 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::Button;

use strict;

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

sub get_type 	{ "button" 	}
sub has_label	{ 1		}

sub get_clicked_hook		{ shift->{clicked_hook}			}
sub get_stock			{ shift->{stock}			}
sub get_with_repeat             { shift->{with_repeat}                  }

sub set_clicked_hook		{ shift->{clicked_hook}		= $_[1]	}
sub set_stock			{ shift->{stock}		= $_[1]	}
sub set_with_repeat             { shift->{with_repeat}          = $_[1] }

sub new {
	my $class = shift;
	my %par = @_;
	my  ($stock, $clicked_hook, $with_repeat) =
        @par{'stock','clicked_hook','with_repeat'};

	my $self = $class->SUPER::new(@_);

	$self->set_stock($stock);
	$self->set_clicked_hook($clicked_hook);
	$self->set_with_repeat($with_repeat);
	
	return $self;
}

1;

__END__