Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW
 
PerlMonks  

Re: wxPerl window colors

by stefbv (Curate)
on Jan 19, 2013 at 17:54 UTC ( [id://1014220]=note: print w/replies, xml ) Need Help??


in reply to wxPerl window colors

It works fine for me on GNU/Linux:

package Frame; use strict; use warnings; use Wx qw[:everything]; use base qw(Wx::Frame); sub new { my $self = shift; $self = $self->SUPER::new( undef, -1, 'Test app', [-1, -1], [-1, -1], wxDEFAULT_FRAME_STYLE, ); #- Grid Sizer my $sizer = Wx::GridSizer->new(2, 1); my $text = Wx::TextCtrl->new( $self, -1, q{Hello}, [ -1, -1 ], [ -1, 40 ], wxTE_MULTILINE, ); my $button = Wx::Button->new( $self, -1, '&Color',[ 70, 30 ] ); my $hbox = Wx::BoxSizer->new(wxHORIZONTAL); Wx::Event::EVT_BUTTON( $self, $button, sub { $text->SetForegroundColour( Wx::Colour->new(255,0,0) ); $text->SetBackgroundColour( Wx::Colour->new('yellow') ); } ); $sizer->Add( $text, 0, wxALIGN_CENTRE | wxGROW | wxALL, 2, ); $sizer->Add( $button, 0, wxALIGN_CENTRE | wxGROW | wxALL, 2, ); $self->SetSizer( $sizer ); $sizer->Fit($self); return $self; } 1; package App; use strict; use warnings; use base 'Wx::App'; sub OnInit { my $frame = Frame->new(); $frame->Show( 1 ); } package main; use strict; use warnings; my $app = App->new(); $app->MainLoop;

Regards, Stefan

Replies are listed 'Best First'.
Re^2: wxPerl window colors
by sdetweil (Sexton) on Jan 19, 2013 at 20:28 UTC
    thanks.. that is good to know.. more research.. the test system is fedora 12 32bit. some of the target systems are older unfortunately.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1014220]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others exploiting the Monastery: (5)
As of 2024-03-29 10:57 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found