view release on metacpan or  search on metacpan

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

is( $hyperlink->url, 'http://www.wxformbuilder.org', '->url' );
is( $hyperlink->normal_color, 'wxSYS_COLOUR_WINDOWTEXT', '->normal_color' );

# Gauge properties
my $gauge = $fbp->find_first(
	isa => 'FBP::Gauge',
);
isa_ok( $gauge, 'FBP::Gauge' );
is( $gauge->name, 'm_gauge1', '->name' );
is( $gauge->value, 80, '->value' );
is( $gauge->range, 100, '->range' );

# SearchCtrl properties
my $searchctrl = $fbp->find_first(
	isa => 'FBP::SearchCtrl',
);
isa_ok( $searchctrl, 'FBP::SearchCtrl' );
is( $searchctrl->value, 'A search', '->value' );
is( $searchctrl->search_button, 1, '->search_button' );
is( $searchctrl->cancel_button, 0, '->cancel_button' );

# StatusBar properties
my $statusbar = $fbp->find_first(
	isa => 'FBP::StatusBar',
);
isa_ok( $statusbar, 'FBP::StatusBar' );
is( $statusbar->name, 'm_statusBar1', '->name' );
is( $statusbar->fields, 2, '->fields' );

# ToolBar properties
my $toolbar = $fbp->find_first(
	isa => 'FBP::ToolBar',
);
isa_ok( $toolbar, 'FBP::ToolBar' );
is( $toolbar->name, 'm_toolBar1', '->name' );
is( $toolbar->packing, 2, '->packing' );
is( $toolbar->separation, 5, '->separation' );
is( $toolbar->bitmapsize, '', '->bitmapsize' );
is( $toolbar->margins, '', '->margins' );
is( $toolbar->style, 'wxTB_HORIZONTAL', '->style' );

# Tool properties
my $tool = $fbp->find_first(
	isa => 'FBP::Tool',
);
isa_ok( $tool, 'FBP::Tool' );
is( $tool->name, 'm_tool1', '->name' );
is( $tool->label, 'tool', '->label' );
is( $tool->bitmap, 'x-document-close.png; Load From File', '->bitmap' );
is( $tool->kind, 'wxITEM_NORMAL', '->kind' );
is( $tool->tooltip, 'Tool 1 tooltip', '->tooltip' );
is( $tool->statusbar, 'Tool 1 status bar', '->statusbar' );

# ToolSeparator properties
my $toolseparator = $fbp->find_first(
	isa => 'FBP::ToolSeparator',
);
isa_ok( $toolseparator, 'FBP::ToolSeparator' );
is( $toolseparator->permission, 'none', '->permission' );

# MenuBar properties
my $menubar = $fbp->find_first(
	isa => 'FBP::MenuBar',
);
isa_ok( $menubar, 'FBP::MenuBar' );
is( $menubar->name, 'm_menubar1', '->name' );
is( $menubar->label, 'MyMenuBar', '->label' );
is( $menubar->style, 'wxMB_DOCKABLE', '->style' );

# Menu properties
my $menu = $fbp->find_first(
	isa => 'FBP::Menu',
);
isa_ok( $menu, 'FBP::Menu' );
is( $menu->name, 'm_menu1', '->name' );
is( $menu->label, 'File', '->label' );

# MenuItem properties
my $menuitem = $fbp->find_first(
	isa => 'FBP::MenuItem',
);
isa_ok( $menuitem, 'FBP::MenuItem' );
is( $menuitem->name, 'm_menuItem1', '->name' );
is( $menuitem->label, 'This', '->label' );
is( $menuitem->shortcut, '', '->shortcut' );
is( $menuitem->help, 'This is help text', '->help' );
is( $menuitem->bitmap, '; Load From File', '->bitmap' );
is( $menuitem->unchecked_bitmap, '', '->unchecked_bitmap' );
is( $menuitem->checked, 0, '->checked' );
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