view release on metacpan or  search on metacpan

bin/golp  view on Meta::CPAN

use Prima;
use Prima::Classes;
use vars qw(@ISA);
@ISA = qw(Prima::Dialog);

use Prima::Buttons;
use Prima::Label;

sub profile_default
{
	my $def = $_[0]-> SUPER::profile_default;
	my %prf = (
		name => 'Custom Rules',
		origin => [766, 356],
		originDontCare => 0,
		size => [253, 396],
		sizeDontCare => 0,
		width => 253,
		height => 396,
		left => 766,
		bottom => 356,
		designScale => [8, 16],
	);
	@$def{keys %prf} = values %prf;
	return $def;
}

sub init
{
	my $self = shift;
	my %instances = map {$_ => {}} qw();
	my %profile = $self->SUPER::init(@_);
	my %names   = (q(Form1) => $self);
	$self->lock;

    # title row
	$names{Title_Label_1} = $names{Form1}->insert( qq(Prima::Label) => 
		name => 'Title_Label_1',
		origin => [8, 364],
		size => [79, 20],
		text => 'Neighbours',
	);

bin/golp  view on Meta::CPAN

use Prima::Classes;
use vars qw(@ISA);
@ISA = qw(Prima::Dialog);

use Prima::Buttons;
use Prima::Label;
use Prima::Sliders;

sub profile_default
{
	my $def = $_[0]->SUPER::profile_default;
	my %prf = (
		name => 'Zoom',
		origin => [778, 651],
		originDontCare => 0,
		size => [232, 129],
		sizeDontCare => 0,
		width => 232,
		height => 129,
		left => 778,
		bottom => 651,
		designScale => [8, 16],
	);
	@$def{keys %prf} = values %prf;
	return $def;
}

sub init
{
    my $self = shift;
    my %profile = $self->SUPER::init(@_);

    my %names = ( q(Form1) => $self);
	$self->lock;
	$names{Button1} = $names{Form1}->insert( qq(Prima::Button) => 
		name => 'Button1',
		origin => [12, 14],
		size => [96, 36],
		text => '~OK',
        modalResult => mb::OK,
	);