Help for this page

Select Code to Download

Select or download this

sub make_entry {
  my ($upperframe, $label, $filename) = @_;
...
make_entry($upperframe, 'Banamex', "banamex.txt");
make_entry($upperframe, 'HSBC', "hsbc.txt");
make_entry($upperframe, 'Banorte', "banorte.txt");

Select or download this

  my $entry = $upperframe->Entry(-textvariable => ...)->pack(...);
  $entry->configure(foreground => ...bank is active... ? 'red' : 'blue
+');