/usr/local/CPAN/Padre/Padre/Wx/Popup.pm

• package Padre::Wx::Popup
  • on_paint
  • new
  • ProcessLeftDown
  • OnDismiss
• EOF

package Padre::Wx::Popup;

use 5.008;
use strict;
use warnings;
use Padre::Wx ();

our $VERSION = '0.86';
our @ISA     = 'Wx::PlPopupTransientWindow';

sub on_paint {
	my ( $self, $event ) = @_;

	#	my $dc = Wx::PaintDC->new( $self );
	#	$dc->SetBrush( Wx::Brush->new( Wx::Colour->new( 0, 192, 0 ), Wx::wxSOLID ) );
	#	$dc->SetPen( Wx::Pen->new( Wx::Colour->new( 0, 0, 0 ), 1, Wx::wxSOLID ) );
	#	$dc->DrawRectangle( 0, 0, $self->GetSize->x, $self->GetSize->y );
}

sub new {
	my $class = shift;
	my $self  = $class->SUPER::new(@_);
	Wx::Event::EVT_PAINT( $self, \&on_paint );

	print "xxx $self\n";

	#    my $panel =  Wx::Panel->new( $self, -1 );
	#print "panel $panel\n";
	#$panel->SetBackgroundColour(Wx::wxWHITE);
	#    $self->SetBackgroundColour(Wx::wxWHITE);
	#print "aa\n";
	#    my $dialog = Wx::Dialog->new( $self, -1, "", [-1, -1], [550, 200]);
	#print "d $dialog\n";

	#    my $st = Wx::StaticText->new($panel, -1,
	#           "abc adsda\n" .
	#           "Some more\n" .
	#           "and more\n"
	#           , [10, 10], [-1, -1]);
	#print "zz $st\n";
	#    my $sz = $st->GetBestSize();
	#    $self->SetSize( ($sz->GetWidth()+20, $sz->GetHeight()+20) );
	#$self->SetSize( $panel->GetSize());

	return $self;
}

sub ProcessLeftDown {
	my ( $self, $event ) = @_;
	print "Process Left $event\n";

	#$event->Skip;
	return 0;
}

sub OnDismiss {
	my ( $self, $event ) = @_;
	print "OnDismiss\n";

	#$event->Skip;
}

1;

# Copyright 2008-2011 The Padre development team as listed in Padre.pm.
# LICENSE
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl 5 itself.