Felice, this is what I had in mind (see below).  You must also reference the text 
property in the change event for the color to change. 

sub Textfield_Change {
    my $text = $Textfield->Text();
    my $lbltext= $Label->Text();
    if ($text eq "") {$Label->Change(-foreground => [255,128,0], -text => $lbltext);}
    else {$Label->Change(-foreground => [0,0,0], -text => $lbltext);}
}

Regards,
Eric

Reply via email to