Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: wxPerl window colors

by stefbv (Chaplain)
on Jan 19, 2013 at 17:54 UTC ( #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


Comment on Re: wxPerl window colors
Download Code
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
Node Status?
node history
Node Type: note [id://1014220]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2014-07-10 00:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (198 votes), past polls