package Form1Window;

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

use Prima::Buttons;



sub profile_default
{
    my $def = $_[ 0]-> SUPER::profile_default;
    my %prf = (
        sizeDontCare => 0,
        origin => [ 362, 145],
        name => 'Form1',
        originDontCare => 0,
        size => [ 401, 239],
        width => 401,
        height => 239,
        left => 362,
        bottom => 145,
        designScale => [ 5, 13],
    );
    @$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;
    $names{GroupBox1} = $names{Form1}-> insert( qq(Prima::GroupBox) =>
+ 
        name => 'GroupBox1',
        origin => [ 20, 104],
        size => [ 148, 132],
    );
    $names{Radio1} = $names{GroupBox1}-> insert( qq(Prima::Radio) => 
        name => 'Radio1',
        origin => [ 12, 76],
        size => [ 100, 36],
    );
    $names{Radio2} = $names{GroupBox1}-> insert( qq(Prima::Radio) => 
        origin => [ 12, 36],
        name => 'Radio2',
        size => [ 100, 36],
    );
    $self-> unlock;
    return %profile;
}

package Form1Auto;

use Prima::Application;
Form1Window-> create;
run Prima;
[download]