my $tc = Wx::TextCtrl->new( $window1, -1, '', [450,15], [229,300], wxT
+E_READONLY|wxTE_RICH|wxALL);

my ( $red, $green ) = ( Wx::Colour->newRGB( 255, 0, 0 ), Wx::Colour->n
+ewRGB( 0, 90, 0 ) );

if ( $md5s =~ $md5 ) {
            my $style = Wx::TextAttr->new();
            $style->Wx::TextAttr::SetTextColour($green);
            $tc->SetStyle( -1, -1, $style );
            $tc->WriteText("$file  |  $filesize\n");
        }
        else {
            my $style = Wx::TextAttr->new();
            $style->Wx::TextAttr::SetTextColour($red);
            $tc->SetStyle( -1, -1, $style );
            $tc->WriteText("$file | $filesize\n");
        }
[download]

I dont know if that will help much, but maybe it will help enough!

EDIT: I think this is might be for TextCtrl. I am sure you can do it with static text though. I look through my code.

EDIT2: Here I found something:

my $static_text = Wx::StaticText->new( $window, -1, "Current File:", [
+ 5, 355 ]);
$static_text->SetForegroundColour( Wx::Colour->new(255, 0, 0) );
[download]

Hi,

Isn't a wxStaticText another wxWindow ? So SetForegroundColour or something?

:)

Thanks beech, the level of subclassing is pretty deep, so I'll try to figure out where to apply this in my currently spaghetti code and see what's up.

Forgive the code. This is my first attempt ever at writing a GUI in Perl, so I'm just learning the very basic ropes :)

Guidance be welcomed.

I quiver when I think that my more elaborate distributions aren't clear in their documentation... (that said, I realize that this is a *massive* undertaking, wrapping over all of Wx).

I can't find any documentation or examples of "how-to" extending a class or doing what I want, so I think I'll contact the author to see. I didn't want to spend a whole day writing a little gui app.

Is Wx the way to go in Perl for GUI? Tk looks like it has much better documentation. Despite that it doesn't look as nice (realistically, that won't matter to me), the fact that it is far more prevalent and apparently wider-used, I might start over with it.

My goals for the GUI are ensure functionality with the back-end actions, ease of writing, ease of changes, ease of "I need to do this..." type searches.

um ... I like sweaters

#!/usr/bin/perl --
use strict; 
use warnings;
use Wx qw/ :allclasses /;

my $frame = Wx::Frame->new( undef, -1, "statictext color change" );
$frame->{panel}  =  Wx::Panel->new( $frame );
$frame->{button} =  Wx::Button->new( $frame->{panel} , -1, "Toggle", )
+;
$frame->{static} =  Wx::StaticText->new( $frame->{panel}, -1, "I am co
+lorful" );
$frame->{sizer}  =  Wx::BoxSizer->new( Wx::wxVERTICAL() );
$frame->{panel}->SetSizer( $frame->{sizer} );
$frame->{sizer}->Add( $frame->{button} );
$frame->{sizer}->AddSpacer(100);
$frame->{sizer}->Add( $frame->{static} );


Wx::Event::EVT_BUTTON( 
    $frame,
    $frame->{button},
    \&button_click,
);

$frame->Show;

Wx::SimpleApp->new->MainLoop;
exit( 0 );

sub button_click {
    my( $frame, $event ) = @_;
    $frame->{hit}++;
    my $static = $frame->{static};
    my $color = $static->GetForegroundColour;
    my $label = $static->GetLabel;
    $label =~ s/ ## .*$//;
    $label .= " ## ".localtime;
    $static->SetLabel( $label );
    if( $frame->{hit} % 2 ){
        $static->SetForegroundColour( Wx::wxBLUE() );
    } else {
        $static->SetForegroundColour( Wx::wxRED() );
    }
    $static->Update;
}
[download]

I have a program I written in wx and it works freaking great. I change color of the text depending on its md5 value in list box and statictext i think. let me see if I can find the script and see if I have something that can help.

Thanks for all the help and responses everyone.

After finding Wx::Demo and glancing over much of that, Wx is quite a bit easier to use once you take a couple of hours to understand the hierarchy of its classes. Not only that, it led to realizing better and more concise ways to get everything set up in the first place.

beech was right. It was as simple as:

sub aux4_on {
    my $self = shift;
    $self->{aux4_pin}->write(HIGH);
    $self->{aux4_display}->SetLabel("on");
    $self->{aux4_display}->SetForegroundcolour(
        Wx::Colour->new(0, 204, 0) # green
    );
}
[download]

To boot, I also came across a kickass wiring schematic CAD application which is open source: Fritzing.

I found Fritzing about two years ago. I use it to draw stripboard layouts. Haven't tried to have a PCB made yet.

James

There's never enough time to do it right, but always enough time to do it over...

For more examples see github.com/jmlynesjr.

Also go to wxwidgets.org and download the html formatted documentation, then go through the learning curve to figure out how to translate it to wxPerl.

James

I should also add that I am using Active State Perl version 5.16.3 and have no reason to update. Im using Alien-Wxwidgets 0.65 from Mark Dootson, Wx version 0.9921 by Mattia Barbon, and I also installed the Wx demo along time ago (which did help tremendously). i can pack these up and email them to you if you have trouble finding them. I was having a ton of problems until I installed Wx from Mattia Barbon.