FBP-Perl

 view release on metacpan or  search on metacpan

lib/FBP/Perl.pm  view on Meta::CPAN

	my $parent = shift;
	my $lines  = undef;

	if ( $window->isa('FBP::AnimationCtrl') ) {
		$lines = $self->animationctrl_create($window, $parent);
	} elsif ( $window->isa('FBP::BitmapButton') ) {
		$lines = $self->bitmapbutton_create($window, $parent);
	} elsif ( $window->isa('FBP::Button') ) {
		$lines = $self->button_create($window, $parent);
	} elsif ( $window->isa('FBP::CalendarCtrl') ) {
		$lines = $self->calendarctrl_create($window, $parent);
	} elsif ( $window->isa('FBP::CheckBox') ) {
		$lines = $self->checkbox_create($window, $parent);
	} elsif ( $window->isa('FBP::Choice') ) {
		$lines = $self->choice_create($window, $parent);
	} elsif ( $window->isa('FBP::Choicebook') ) {
		$lines = $self->choicebook_create($window, $parent);
	} elsif ( $window->isa('FBP::ComboBox') ) {
		$lines = $self->combobox_create($window, $parent);
	} elsif ( $window->isa('FBP::ColourPickerCtrl') ) {
		$lines = $self->colourpickerctrl_create($window, $parent);

lib/FBP/Perl.pm  view on Meta::CPAN

		");",
	);

	if ( $control->default ) {
		push @$lines, "$variable->SetDefault;";
	}

	return $lines;
}

sub calendarctrl_create {
	my $self     = shift;
	my $control  = shift;
	my $parent   = $self->object_parent(@_);
	my $id       = $self->object_id($control);
	# my $value    = $self->wx('wxDefaultDateTime'); # NOT IMPLEMENTED
	my $value    = 'Wx::DateTime->new'; # Believed to be equivalent
	my $position = $self->object_position($control);
	my $size     = $self->object_wxsize($control);

	return $self->nested(

t/data/dialog.pl  view on Meta::CPAN

	);

	$self->{m_panel11} = Wx::Panel->new(
		$self->{m_notebook1},
		-1,
		wxDefaultPosition,
		wxDefaultSize,
		wxTAB_TRAVERSAL,
	);

	$self->{m_calendar2} = Wx::CalendarCtrl->new(
		$self->{m_panel11},
		-1,
		Wx::DateTime->new,
		wxDefaultPosition,
		wxDefaultSize,
		wxCAL_MONDAY_FIRST | wxCAL_SHOW_HOLIDAYS | wxCAL_SHOW_SURROUNDING_WEEKS,
	);

	$self->{m_listbook1} = Wx::Listbook->new(
		$self,

t/data/dialog.pl  view on Meta::CPAN

	$bSizer12->Add( $self->{m_radioBtn1}, 0, wxALL, 5 );
	$bSizer12->Add( $self->{m_radioBtn2}, 0, wxALL, 5 );
	$bSizer12->Add( $self->{m_radioBtn3}, 0, wxALL, 5 );
	$bSizer12->Add( $self->{m_radioBtn4}, 0, wxALL, 5 );
	$bSizer12->Add( $self->{m_animCtrl1}, 0, wxALL, 5 );

	$self->{m_panel9}->SetSizerAndFit($bSizer12);
	$self->{m_panel9}->Layout;

	my $bSizer14 = Wx::BoxSizer->new(wxVERTICAL);
	$bSizer14->Add( $self->{m_calendar2}, 0, wxALL, 5 );

	$self->{m_panel11}->SetSizerAndFit($bSizer14);
	$self->{m_panel11}->Layout;

	$self->{m_notebook1}->AddPage( $self->{m_panel8}, Wx::gettext("Checkboxes"), 1 );
	$self->{m_notebook1}->AddPage( $self->{m_panel9}, Wx::gettext("Empty Tree"), 0 );
	$self->{m_notebook1}->AddPage( $self->{m_panel11}, Wx::gettext("Calendar"), 0 );

	my $bSizer3 = Wx::BoxSizer->new(wxVERTICAL);
	$bSizer3->Add( $self->{m_staticText2}, 0, wxALL, 5 );

t/data/simple.fbp  view on Meta::CPAN

                                                    <property name="bg"></property>
                                                    <property name="context_help"></property>
                                                    <property name="context_menu">1</property>
                                                    <property name="enabled">1</property>
                                                    <property name="fg"></property>
                                                    <property name="font"></property>
                                                    <property name="hidden">0</property>
                                                    <property name="id">wxID_ANY</property>
                                                    <property name="maximum_size"></property>
                                                    <property name="minimum_size"></property>
                                                    <property name="name">m_calendar2</property>
                                                    <property name="permission">protected</property>
                                                    <property name="pos"></property>
                                                    <property name="size"></property>
                                                    <property name="style">wxCAL_MONDAY_FIRST|wxCAL_SHOW_HOLIDAYS|wxCAL_SHOW_SURROUNDING_WEEKS</property>
                                                    <property name="subclass"></property>
                                                    <property name="tooltip"></property>
                                                    <property name="validator_data_type"></property>
                                                    <property name="validator_style">wxFILTER_NONE</property>
                                                    <property name="validator_type">wxDefaultValidator</property>
                                                    <property name="validator_variable"></property>