view release on metacpan or  search on metacpan

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

is( $menuitem->enabled, 1, '->enabled' );
is( $menuitem->kind, 'wxITEM_NORMAL', '->kind' );

# MenuSeparator properties
my $menuseparator = $fbp->find_first(
	isa => 'FBP::MenuSeparator',
);
isa_ok( $menuseparator, 'FBP::MenuSeparator' );
is( $menuseparator->name, 'm_separator1', '->name' );

# StaticBitmap properties
my $staticbitmap = $fbp->find_first(
	isa => 'FBP::StaticBitmap',
);
isa_ok( $staticbitmap, 'FBP::StaticBitmap' );
is( $staticbitmap->name, 'm_bitmap1', '->name' );
is( $staticbitmap->bitmap, 'x-document-close.png; Load From File', '->bitmap' );

# BitmapButton properties
my $bitmapbutton = $fbp->find_first(
	isa => 'FBP::BitmapButton',
);
isa_ok( $bitmapbutton, 'FBP::BitmapButton' );
is( $bitmapbutton->name, 'm_bpButton1', '->name' );
is( $bitmapbutton->style, '', '->style' );
is( $bitmapbutton->bitmap, 'x-document-close.png; Load From File', '->bitmap' );
is( $bitmapbutton->disabled, '', '->disabled' );
is( $bitmapbutton->selected, '', '->selected' );
is( $bitmapbutton->focus, '', '->focus' );
is( $bitmapbutton->hover, '', '->hover' );

# Slider properties
my $slider = $fbp->find_first(
	isa => 'FBP::Slider',
);
isa_ok( $slider, 'FBP::Slider' );
is( $slider->name, 'm_slider1', '->name' );
is( $slider->value, 50, '->value' );
is( $slider->minValue, 0, '->minValue' );
is( $slider->maxValue, 100, '->maxValue' );
is( $slider->style, 'wxSL_HORIZONTAL', '->style' );

# ToggleButton properties
my $toggle = $fbp->find_first(
	isa => 'FBP::ToggleButton',
);
isa_ok( $toggle, 'FBP::ToggleButton' );
is( $toggle->name, 'm_toggleBtn1', '->name' );
is( $toggle->label, 'Toggle me!', '->label' );
is( $toggle->value, 0, '->value' );

# DatePickerCtrl properties
my $datepicker = $fbp->find_first(
	isa => 'FBP::DatePickerCtrl',
);
isa_ok( $datepicker, 'FBP::DatePickerCtrl' );
is( $datepicker->name, 'm_datePicker1', '->name' );
is( $datepicker->style, 'wxDP_DEFAULT', '->style' );

# CalendarCtrl properties
my $calendar = $fbp->find_first(
	isa => 'FBP::CalendarCtrl',
);
isa_ok( $calendar, 'FBP::CalendarCtrl' );
is( $calendar->name, 'm_calendar1', '->name' );
is( $calendar->style, 'wxCAL_SHOW_HOLIDAYS', '->style' );

# ScrolledWindow properties
my $scrolled = $fbp->find_first(
	isa => 'FBP::ScrolledWindow',
);
isa_ok( $scrolled, 'FBP::ScrolledWindow' );
is( $scrolled->name, 'm_scrolledWindow2', '->name' );
is( $scrolled->scroll_rate_x, 5, '->scroll_rate_x' );
is( $scrolled->scroll_rate_y, 5, '->scroll_rate_y' );

# StdDialogButtonSizer properties
my $buttonsizer = $fbp->find_first(
	isa => 'FBP::StdDialogButtonSizer',
);
isa_ok( $buttonsizer, 'FBP::StdDialogButtonSizer' );
is( $buttonsizer->name, 'm_sdbSizer1', '->name' );
is( $buttonsizer->OK,          0, '->OK'          );
is( $buttonsizer->Yes,         1, '->Yes'         );
is( $buttonsizer->Save,        0, '->Save'        );
is( $buttonsizer->Apply,       0, '->Apply'       );
is( $buttonsizer->No,          1, '->No'          );
is( $buttonsizer->Cancel,      1, '->Cancel'      );
is( $buttonsizer->Help,        0, '->Help'        );
is( $buttonsizer->ContextHelp, 0, '->ContextHelp' );

# GridBagSizer properties
my $gridbag = $fbp->find_first(
	isa => 'FBP::GridBagSizer',
);
isa_ok( $gridbag, 'FBP::GridBagSizer' );
is( $gridbag->name, 'gbSizer1', '->name' );
is( $gridbag->empty_cell_size, '', '->empty_cell_sizer' );
is( $gridbag->vgap, '0', '->vgap' );
is( $gridbag->hgap, '10', '->hgap' );
is( $gridbag->growablerows, '0', '->growablerows' );
is( $gridbag->growablecols, '0', '->growablecols' );
is( $gridbag->flexible_direction, 'wxBOTH', '->flexible_direction' );
is( $gridbag->non_flexible_grow_mode, 'wxFLEX_GROWMODE_SPECIFIED', '->non_flexible_grow_mode' );

# GridBagSizerItem properties
my $gridbagsizeritem = $fbp->find_first(
	isa => 'FBP::GridBagSizerItem',
);
isa_ok( $gridbagsizeritem, 'FBP::GridBagSizerItem' );
ok( $gridbagsizeritem->does('FBP::SizerItemBase'), 'DOES sizer item base' );
is( $gridbagsizeritem->row, 0, '->row' );
is( $gridbagsizeritem->column, 0, '->column' );
is( $gridbagsizeritem->rowspan, 1, '->rowspan' );
is( $gridbagsizeritem->colspan, 2, '->colspan' );
is( $gridbagsizeritem->border, 5, '->border' );
is( $gridbagsizeritem->flag, 'wxALIGN_CENTER_HORIZONTAL|wxALL', '->flag' );

# Notebook properties
my $notebook = $fbp->find_first(
	isa => 'FBP::Notebook',
);
isa_ok( $notebook, 'FBP::Notebook' );
is( $notebook->name, 'm_notebook1', '->name' );
is( $notebook->bitmapsize, '', '->bitmapsize' );
is( $notebook->style, '', '->style' );