Re: wxPerl behavior on Win32

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

Why? Please explain

#!/usr/bin/perl --
use strict;
use warnings;
use Wx;
my $app = Wx::SimpleApp->new;
my $frame = Wx::Frame->new( undef, -1, "", );
$frame->SetBackgroundColour( Wx::wxBLACK() );
$frame->SetSizer( Wx::BoxSizer->new( Wx::wxVERTICAL() ) );
for(1..10){
    my $t = Wx::StaticText->new( $frame , -1, "yo ".rand, ) ;
    $t->SetBackgroundColour( Wx::wxRED() );
    my $b = Wx::Button->new( $frame , -1, rand." yo", );
    $frame->GetSizer->Add( $t,  0, 0 );
    $frame->GetSizer->Add( $b,  0, Wx::wxEXPAND() );
}
$frame->Show(1);
$app->SetTopWindow( $frame );
$app->MainLoop;
[download]

Comment on Re: wxPerl behavior on Win32 Download Code

Replies are listed 'Best First'.

Re^2: wxPerl behavior on Win32
by solomon243 (Novice) on Oct 28, 2014 at 19:35 UTC

[reply]

Re^3: wxPerl behavior on Win32

by Anonymous Monk on Oct 28, 2014 at 21:20 UTC

it wasn't pleasant to me that near widgets a background light, and primary color of a frame - dark

and so was only under windows

FWIW, I usually solve that problem by making your "$frame" a wxPanel

The background ends up being the usual panel light grey of wxSYS_COLOUR_MENU /
#D4D0C8
instead of the darker frame/MDI "grey" of wxSYS_COLOUR_APPWORKSPACE
#D4D0C8

[reply]

Re^4: wxPerl behavior on Win32

by solomon243 (Novice) on Oct 29, 2014 at 20:09 UTC

my $bigbutton = Wx::Button->new( $frame, 1, '&#1042;&#1099;&#1087;&#10
+86;&#1083;&#1085;&#1080;&#1090;&#1100; &#1088;&#1072;&#1089;&#1095;&#
+1077;&#1090;', [-1,-1], [-1,-1]);
my $mass_label = Wx::StaticText->new($frame, 2, '&#1042;&#1072;&#1096;
+ &#1074;&#1077;&#1089;:',[-1,-1], [-1,-1]);
my $drink_label = Wx::StaticText->new($frame, 4, '&#1055;&#1088;&#1077
+;&#1076;&#1087;&#1086;&#1095;&#1080;&#1090;&#1072;&#1077;&#1084;&#109
+9;&#1081; &#1085;&#1072;&#1087;&#1080;&#1090;&#1086;&#1082;:',[-1,-1]
+, [-1,-1]);
my $mass_entry = Wx::TextCtrl->new($frame, 3, '',[-1,-1], [-1,-1]);
[download]

[reply]
[d/l]


No such thing as a small change
	PerlMonks