Hey there PerlMonks! Almost got it, but one thing I'm having issues with is I am trying to change the color of a button once it is pressed. I currently have a series of 18 buttons using the Tkx module and am wondering how I could change the color of a button once it is pressed. I know it's on the command line, but can you have two commands on a button? My code is listed below.

use strict;
use warnings;
use Tkx;
open(INFILE,"d1528235.txt") or die "could not open file for reading!\n
+";
open(OUTFILE, '>forecast.txt') or die "Cannot open forecast.txt: $!";


while(<INFILE>){
  if (m/^\s*$/) { next; }
  chomp $_;
  my @fields = split(/\  /,$_);
  my @output;
  foreach my $field(@fields){
    if($field =~ /^\*?[ABMQRWY][A-Z0-9]{4}235 / ){
      push @output,$field;
      
  }

 #     print OUTFILE "$_\n";
    }
  
  if (@output) {
    my $line = join('',@output);
    print "$line\n";
    print OUTFILE "$line\n";
  }
}

 my $mw = Tkx::widget->new(".");
 $mw->g_wm_title("Jobs Not Forecasted");
  $mw->g_wm_minsize(200, 200);
 
    Tkx::button(".b",
        -text => "18-Letters",
        -width => 11,
        -command => sub { print OUTFILE "18L\n"; -background =>'red'},
    );
    Tkx::pack(".b");
    
    Tkx::button(".c",
        -text => "07-Orders",
        -width => 11,
        -command => sub { print OUTFILE "07O\n";},
    );
    Tkx::pack(".c");
        
    Tkx::button(".d",
        -text => "36-Letters",
        -width => 11,
        -command => sub { print OUTFILE "36L\n";},
    );
    Tkx::pack(".d");
    
    Tkx::button(".e",
        -text => "38-Letters",
        -width => 11,
        -command => sub { print OUTFILE "38L\n";},
    );
    Tkx::pack(".e");
    
    Tkx::button(".f",
        -text => "11-Orders",
        -width => 11,
        -command => sub { print OUTFILE "11O\n";},
    );
    Tkx::pack(".f");
    
    Tkx::button(".g",
        -text => "99-Letters",
        -width => 11,
        -command => sub { print OUTFILE "99L\n";},
    );
    Tkx::pack(".g");
                    
    Tkx::button(".h",
        -text => "21-Letters",
        -width => 11,
        -command => sub { print OUTFILE "21L\n";},
    );
    Tkx::pack(".h");
                    
    Tkx::button(".i",
        -text => "23-Letters",
        -width => 11,
        -command => sub { print OUTFILE "23L\n";},
    );
    Tkx::pack(".i");
                    
    Tkx::button(".j",
        -text => "Return to L&I",
        -width => 11,
        -command => sub { print OUTFILE "OOO\n";},
    );
    Tkx::pack(".j");
    
                                                                      
+         
    Tkx::button(".k",
        -text => "EOSSS235",
        -width => 11,
        -command => sub { print OUTFILE "EOSSS235\n";},
    );
    Tkx::pack(".k");
                    
    Tkx::button(".l",
        -text => "M4020235",
        -width => 11,
        -command => sub { print OUTFILE "M4020235 20\n";},
    );
    Tkx::pack(".l");
                    
    Tkx::button(".m",
        -text => "PRTAR235",
        -width => 11,
        -command => sub { print OUTFILE "PRTAR235\n";},
    );
    Tkx::pack(".m");
                    
    Tkx::button(".n",
        -text => "WR115235",
        -width => 11,
        -command => sub { print OUTFILE "WR115235\nWR415235\n";},
    );
    Tkx::pack(".n");

    Tkx::button(".o",
        -text => "X01RA235",
        -width => 11,
        -command => sub { print OUTFILE "X01RA235\n";},
    );
    Tkx::pack(".o");

    Tkx::button(".p",
        -text => "X1514235",
        -width => 11,
        -command => sub { print OUTFILE "X1514235 14\n";},
    );
    Tkx::pack(".p");

    Tkx::button(".q",
        -text => "X4020235",
        -width => 11,
        -command => sub { print OUTFILE "X4020235\n";},
    );
    Tkx::pack(".q");
                                                                      
+          
    Tkx::button(".r",
        -text => "SICLIC",
        -width => 11,
        -command => sub { print OUTFILE "SICLIC\n";},
    );
    Tkx::pack(".r");
    
    Tkx::button(".s",
        -text => "EXIT",
        -width => 11,
        -command => sub { Tkx::destroy("."); },
    );
    Tkx::pack(".s");    
                    
    Tkx::MainLoop();
    
exec `crossref.pl`;

[download]

In reply to How to change colour of a Tkx button when pressed by PerlCowboy

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.