When running on linux, my wxPerl application looks well. But running this script on Windows XP shocks me:


http://www.mazoot.org/ScreenFridayCalc.PNG


how to set an background color for entire frame? here is my "code" :) 
#!/usr/bin/perl 

use utf8;

use Wx  qw( :frame :textctrl :sizer :panel :window :id );
use Wx::Event qw(EVT_CLOSE EVT_BUTTON);
$VERSION = '0.001';
@drink_list = ('пиво','вод&#
+1082;а','коньяк','л&#
+1080;монад');


$| = 1;


my $app = Wx::SimpleApp->new;

my $frame = Wx::Frame->new( undef,
                            -1,
                            "Пятни&#1095
+;ный кальку&#10
+83;ятор v$VERSION",
                            [-1, -1],
                            [-1,-1],
                            wxMINIMIZE_BOX | wxSYSTEM_MENU | wxCAPTION
+ |wxCLOSE_BOX | wxCLIP_CHILDREN #| wxBORDER_NONE 
                             ); 
my $panel = Wx::Panel->new( $frame,            # parent window
                                1,               # ID
                                [5,5],
                                [100,100]
                                );
 my $panel2 = Wx::Panel->new( $frame,            # parent window
                                1,               # ID
                                [-1,-1],
                                [100,100]
                                );                               
my $bigbutton = Wx::Button->new( $frame, 1, 'Вып&#10
+86;лнить расч&#
+1077;т', [-1,-1], [-1,-1]);
my $mass_label = Wx::StaticText->new($panel, 2, 'Ваш
+ вес:',[-1,-1], [-1,-1]);
my $drink_label = Wx::StaticText->new($panel2, 4, 'Пр&#107
+7;дпочитаем&#10
+99;й напиток:',[-1,-1
+], [-1,-1]);
my $mass_entry = Wx::TextCtrl->new($panel, 3, '',[-1,-1], [-1,-1]);



my $grszr =Wx::GridSizer->new(2,2,20,20);
my $boxsizer = Wx::BoxSizer->new(wxVERTICAL);
my $boxsizer2 = Wx::BoxSizer->new(wxVERTICAL);
my $drink_choice = Wx::Choice->new($panel2, 4,[-1,-1],[-1,-1],\@drink_
+list);

$boxsizer->Add($mass_label);
$boxsizer->Add($mass_entry);

$boxsizer2->Add($drink_label);
$boxsizer2->Add($drink_choice);

$grszr->Add($panel, 0, wxALIGN_CENTRE|wxTOP|wxBOTTOM|wxLEFT|wxRIGHT, 1
+0);
$grszr->Add($panel2, 0, wxALIGN_CENTRE|wxTOP|wxBOTTOM|wxLEFT|wxRIGHT, 
+10);
$grszr->Add($bigbutton, 0, wxALIGN_CENTRE|wxTOP|wxBOTTOM|wxLEFT|wxRIGH
+T, 10);



sub helloe {
    my $val = $mass_entry->GetValue();
    $val = $val * 2;
    print "doubled Mass of user is $val\n";
    Wx::MessageBox("Вам можн
+о выпить $val р&#1102
+;мок",'Резуль&#
+1090;ат:', wxOK, undef);
}

EVT_BUTTON( $frame, $bigbutton, \&helloe );

$panel->SetAutoLayout(1);
$panel->SetSizer($boxsizer);
$panel2->SetAutoLayout(1);
$panel2->SetSizer($boxsizer2);
$frame->SetSizer($grszr);
$frame->SetAutoLayout(1);

####  $frame->SetBackgroundColor(0);

$frame->Show;

$app->MainLoop;

[download]


on Linux: perl (v5.14.2) built for i486-linux-gnu-thread-multi-64int

on Windows: perl (v5.16.3) built for MSWin32-x86-multhread (Citrus Perl distribution 'citrusperl-standard-51603-msw-x86-018')

In reply to wxPerl behavior on Win32 by solomon243

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.