Fix rendering on Windows

This commit is contained in:
Alessandro Ranellucci 2015-11-08 10:19:04 +01:00
parent 9febb10bd7
commit 3c43fb8081

View file

@ -542,7 +542,8 @@ sub new {
my $white_brush = Wx::Brush->new(wxWHITE, wxSOLID);
my $pen = Wx::Pen->new(Wx::Colour->new(200,200,200), 1, wxSOLID);
EVT_ERASE_BACKGROUND($self, sub {
my $dc = Wx::PaintDC->new($self);
my ($self, $event) = @_;
my $dc = $event->GetDC;
my $size = $self->GetSize;
$dc->SetBrush($white_brush);
$dc->SetPen($pen);