view release on metacpan or  search on metacpan

t/03_simple.t  view on Meta::CPAN

is( $textctrl->fg,        '',          '->fg'        );
is( $textctrl->bg,        '255,128,0', '->bg'        );

# Button properties
my $button = $fbp->find_first(
	isa => 'FBP::Button',
);
isa_ok( $button, 'FBP::Button' );
is( $button->id,            'wxID_ANY',    '->id'            );
is( $button->name,          'm_button1',   '->name'          );
is( $button->label,         'MyButton',    '->label'         );
is( $button->default,       '1',           '->default'       );
is( $button->subclass,      '',            '->subclass'      );
is( $button->wxclass,       'Wx::Button',  '->wxclass'       );
is( $button->permission,    'protected',   '->permission'    );
is( $button->fg,            '',            '->fg'            );
is( $button->bg,            '',            '->bg'            );
is( $button->tooltip, 'This is a tooltip', '->tooltip'       );
is( $button->OnButtonClick, 'm_button1',   '->OnButtonClick' );

# ListCtrl properties
my $listctrl = $fbp->find_first(
	isa => 'FBP::ListCtrl',
);
isa_ok( $listctrl, 'FBP::ListCtrl' );
is( $listctrl->name, 'm_listCtrl1', '->name' );
is( $listctrl->minimum_size, '100,100', '->minimum_size' );
is( $listctrl->maximum_size, '200,200', '->maximum_size' );

# Choice box properties
my $choice = $fbp->find_first(
	isa => 'FBP::Choice',
);
isa_ok( $choice, 'FBP::Choice' );
is( $choice->id,      'wxID_ANY',  '->id'      );
is( $choice->name,    'm_choice1', '->name'    );
is( $choice->wxclass, 'Wx::Foo',   '->wxclass' );
is( scalar($choice->header), undef, '->header' );

# Combo properties
my $combo = $fbp->find_first(
	isa => 'FBP::ComboBox',
);
isa_ok( $combo, 'FBP::ComboBox' );
is( $combo->id,      'wxID_ANY',    '->id'      );
is( $combo->name,    'm_comboBox1', '->name'    );
is( $combo->value,   'Combo!',      '->value'   );
is( $combo->wxclass, 'Wx::Bar',     '->wxclass' );
is( scalar($combo->header), 'Wx::Bar', '->header' );
is(
	$combo->choices,
	'"one" "two" "a\'b" "c\\"d \\\\\\""',
	'->choices',
);
is( scalar($combo->items), 4, 'Scalar ->items' );
is_deeply(
	[ $combo->items ],
	[ 'one', 'two', "a'b", 'c"d \\"' ],
	'->items',
);
is( $combo->OnCombobox, 'on_combobox', '->OnCombobox' );

# Line properties
my $line = $fbp->find_first(
	isa => 'FBP::StaticLine',
);
isa_ok( $line, 'FBP::StaticLine' );
is( $line->id,           'wxID_ANY',                    '->id'           );
is( $line->name,         'm_staticline1',               '->name'         );
is( $line->enabled,      '1',                           '->enabled'      );
is( $line->pos,          '',                            '->pos'          );
is( $line->size,         '',                            '->size'         );
is( $line->style,        'wxLI_HORIZONTAL',             '->style'        );
is( $line->window_style, 'wxNO_BORDER',                 '->window_style' );
is( $line->styles,       'wxLI_HORIZONTAL|wxNO_BORDER', '->styles'       );

# Sizer properties
my $sizer = $fbp->find_first(
	isa  => 'FBP::Sizer',
	name => 'bSizer8',
);
isa_ok( $sizer, 'FBP::Sizer' );
is( $sizer->name,         'bSizer8',     '->name'         );
is( $sizer->orient,       'wxHORIZONTAL', '->orient'       );
is( $sizer->permission,   'none',         '->permission'   );
is( $sizer->minimum_size, '-1,50',        '->minimum_size' );

# Listbook properties
my $listbook = $fbp->find_first(
	isa => 'FBP::Listbook',
);
isa_ok( $listbook, 'FBP::Listbook' );
is( $listbook->style, 'wxLB_DEFAULT', '->style' );

# SplitterWindow properties
my $splitterwindow = $fbp->find_first(
	isa => 'FBP::SplitterWindow',
);
isa_ok( $splitterwindow, 'FBP::SplitterWindow' );
is( $splitterwindow->style, 'wxSP_3D', '->style' );
is( $splitterwindow->splitmode, 'wxSPLIT_VERTICAL', '->splitmode' );
is( $splitterwindow->sashpos, '0', '->sashpos' );
is( $splitterwindow->sashsize, '-1', '->sashsize' );
is( $splitterwindow->sashgravity, '0.0', '->sashgravity' );
is( $splitterwindow->min_pane_size, '0', '->min_pane_size' );
is( $splitterwindow->permission, 'protected', '->permission' );

# SplitterItem properties
my $splitteritem = $fbp->find_first(
	isa => 'FBP::SplitterItem',
);
isa_ok( $splitteritem, 'FBP::SplitterItem' );

# ColourPickerCtrl properties
my @colourpickerctrl = $fbp->find(
	isa => 'FBP::ColourPickerCtrl',
);
isa_ok( $colourpickerctrl[0], 'FBP::ColourPickerCtrl' );
isa_ok( $colourpickerctrl[1], 'FBP::ColourPickerCtrl' );
is( $colourpickerctrl[0]->style, 'wxCLRP_DEFAULT_STYLE', '->style' );
is( $colourpickerctrl[0]->colour, '255,0,0', '->colour' );